PRINT X
#-----------------------------------------------------------------------------
# Convert X to base 2
# The value of X is preserved by using S instead
#-----------------------------------------------------------------------------
REPEAT X TIMES (
INCREASE S
)
REPEAT S TIMES (
INCREASE U
REPEAT A TIMES (
CLEAR U
CLEAR A
INCREASE T
)
REPEAT U TIMES (
INCREASE A
)
)
CLEAR S
CLEAR U
REPEAT T TIMES (
INCREASE U
REPEAT B TIMES (
CLEAR U
CLEAR B
INCREASE S
)
REPEAT U TIMES (
INCREASE B
)
)
CLEAR T
CLEAR U
REPEAT S TIMES (
INCREASE U
REPEAT C TIMES (
CLEAR U
CLEAR C
INCREASE T
)
REPEAT U TIMES (
INCREASE C
)
)
CLEAR S
CLEAR U
REPEAT T TIMES (
INCREASE U
REPEAT D TIMES (
CLEAR U
CLEAR D
INCREASE S
)
REPEAT U TIMES (
INCREASE D
)
)
CLEAR T
CLEAR U
REPEAT S TIMES (
INCREASE U
REPEAT E TIMES (
CLEAR U
CLEAR E
INCREASE T
)
REPEAT U TIMES (
INCREASE E
)
)
CLEAR S
CLEAR U
REPEAT T TIMES (
INCREASE U
REPEAT F TIMES (
CLEAR U
CLEAR F
INCREASE S
)
REPEAT U TIMES (
INCREASE F
)
)
CLEAR T
CLEAR U
REPEAT S TIMES (
INCREASE U
REPEAT G TIMES (
CLEAR U
CLEAR G
INCREASE T
)
REPEAT U TIMES (
INCREASE G
)
)
CLEAR S
CLEAR U
REPEAT T TIMES (
INCREASE U
REPEAT H TIMES (
CLEAR U
CLEAR H
INCREASE S
)
REPEAT U TIMES (
INCREASE H
)
)
CLEAR T
CLEAR U
REPEAT S TIMES (
INCREASE U
REPEAT I TIMES (
CLEAR U
CLEAR I
INCREASE T
)
REPEAT U TIMES (
INCREASE I
)
)
CLEAR S
CLEAR U
REPEAT T TIMES (
INCREASE U
REPEAT J TIMES (
CLEAR U
CLEAR J
INCREASE S
)
REPEAT U TIMES (
INCREASE J
)
)
CLEAR S
CLEAR T
CLEAR U
#-----------------------------------------------------------------------------
# Check if X = 1
#-----------------------------------------------------------------------------
INCREASE S
REPEAT B TIMES (
CLEAR S
)
REPEAT C TIMES (
CLEAR S
)
REPEAT D TIMES (
CLEAR S
)
REPEAT E TIMES (
CLEAR S
)
REPEAT F TIMES (
CLEAR S
)
REPEAT G TIMES (
CLEAR S
)
REPEAT H TIMES (
CLEAR S
)
REPEAT I TIMES (
CLEAR S
)
REPEAT J TIMES (
CLEAR S
)
REPEAT K TIMES (
CLEAR S
)
REPEAT L TIMES (
CLEAR S
)
REPEAT M TIMES (
CLEAR S
)
REPEAT N TIMES (
CLEAR S
)
REPEAT O TIMES (
CLEAR S
)
REPEAT P TIMES (
CLEAR S
)
REPEAT Q TIMES (
CLEAR S
)
INCREASE W
REPEAT S TIMES (
CLEAR W
)
CLEAR S
#-----------------------------------------------------------------------------
# Z = 180
#-----------------------------------------------------------------------------
INCREASE Z
INCREASE S INCREASE S
REPEAT Z TIMES (
REPEAT S TIMES (
INCREASE Z
)
)
REPEAT Z TIMES (
REPEAT S TIMES (
INCREASE Z
)
)
INCREASE S
REPEAT Z TIMES (
REPEAT S TIMES (
INCREASE Z
)
)
INCREASE S
REPEAT Z TIMES (
REPEAT S TIMES (
INCREASE Z
)
)
CLEAR S
REPEAT Z TIMES (
REPEAT W TIMES (
#-----------------------------------------------------------------------------
# Convert X >> 1 to base 10, e.g. 19 -> 10011 -> 01001 -> 9
#-----------------------------------------------------------------------------
# Find order of highest bit - 6 -> S
#
# Skips first 6 bits (A-F)
#-----------------------------------------------------------------------------
CLEAR T
INCREASE T
REPEAT G TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT H TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT I TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT J TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT K TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT L TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT M TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT N TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT O TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT P TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT Q TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
INCREASE T
REPEAT R TIMES (
CLEAR S
REPEAT T TIMES (
INCREASE S
)
)
CLEAR T
#-----------------------------------------------------------------------------
# Sum of first 6 bits
#-----------------------------------------------------------------------------
CLEAR Y
REPEAT B TIMES (
INCREASE Y
)
INCREASE T
INCREASE T
REPEAT C TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
REPEAT T TIMES (
INCREASE T
)
REPEAT D TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
REPEAT T TIMES (
INCREASE T
)
REPEAT E TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
REPEAT T TIMES (
INCREASE T
)
REPEAT F TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
REPEAT T TIMES (
INCREASE T
)
REPEAT G TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
#-----------------------------------------------------------------------------
# Sum of last 12 bits
#-----------------------------------------------------------------------------
# Check if S > 0
CLEAR U
REPEAT S TIMES (
CLEAR U
INCREASE U
)
# If S > 0, double T and increase Y by T if H
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT H TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# W = S - 1
CLEAR U
CLEAR V
REPEAT S TIMES (
REPEAT U TIMES (
INCREASE V
)
CLEAR U
INCREASE U
)
# Check if V > 0
CLEAR U
REPEAT V TIMES (
CLEAR U
INCREASE U
)
# If V > 0, double T and increase Y by T if I
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT I TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# S = W - 1
CLEAR S
CLEAR U
REPEAT V TIMES (
REPEAT U TIMES (
INCREASE S
)
CLEAR U
INCREASE U
)
# Check if S > 0
CLEAR U
REPEAT S TIMES (
CLEAR U
INCREASE U
)
# If S > 0, double T and increase Y by T if J
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT J TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# V = S - 1
CLEAR U
CLEAR V
REPEAT S TIMES (
REPEAT U TIMES (
INCREASE V
)
CLEAR U
INCREASE U
)
# Check if V > 0
CLEAR U
REPEAT V TIMES (
CLEAR U
INCREASE U
)
# If V > 0, double T and increase Y by T if K
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT K TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# S = V - 1
CLEAR S
CLEAR U
REPEAT V TIMES (
REPEAT U TIMES (
INCREASE S
)
CLEAR U
INCREASE U
)
# Check if S > 0
CLEAR U
REPEAT S TIMES (
CLEAR U
INCREASE U
)
# If S > 0, double T and increase Y by T if L
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT L TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# V = S - 1
CLEAR U
CLEAR V
REPEAT S TIMES (
REPEAT U TIMES (
INCREASE V
)
CLEAR U
INCREASE U
)
# Check if V > 0
CLEAR U
REPEAT V TIMES (
CLEAR U
INCREASE U
)
# If V > 0, double T and increase Y by T if M
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT M TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# S = V - 1
CLEAR S
CLEAR U
REPEAT V TIMES (
REPEAT U TIMES (
INCREASE S
)
CLEAR U
INCREASE U
)
# Check if S > 0
CLEAR U
REPEAT S TIMES (
CLEAR U
INCREASE U
)
# If S > 0, double T and increase Y by T if N
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT N TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# V = S - 1
CLEAR U
CLEAR V
REPEAT S TIMES (
REPEAT U TIMES (
INCREASE V
)
CLEAR U
INCREASE U
)
# Check if V > 0
CLEAR U
REPEAT V TIMES (
CLEAR U
INCREASE U
)
# If V > 0, double T and increase Y by T if O
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT O TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# S = V - 1
CLEAR S
CLEAR U
REPEAT V TIMES (
REPEAT U TIMES (
INCREASE S
)
CLEAR U
INCREASE U
)
# Check if S > 0
CLEAR U
REPEAT S TIMES (
CLEAR U
INCREASE U
)
# If S > 0, double T and increase Y by T if P
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT P TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# V = S - 1
CLEAR U
CLEAR V
REPEAT S TIMES (
REPEAT U TIMES (
INCREASE V
)
CLEAR U
INCREASE U
)
# Check if V > 0
CLEAR U
REPEAT V TIMES (
CLEAR U
INCREASE U
)
# If V > 0, double T and increase Y by T if Q
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT Q TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
# S = V - 1
CLEAR S
CLEAR U
REPEAT V TIMES (
REPEAT U TIMES (
INCREASE S
)
CLEAR U
INCREASE U
)
# Check if S > 0
CLEAR U
REPEAT S TIMES (
CLEAR U
INCREASE U
)
# If S > 0, double T and increase Y by T if R
REPEAT U TIMES (
REPEAT T TIMES (
INCREASE T
)
REPEAT R TIMES (
REPEAT T TIMES (
INCREASE Y
)
)
)
#-----------------------------------------------------------------------------
# S can be non zero
# T is a power of two
# U and V are 0 or 1
#-----------------------------------------------------------------------------
CLEAR S
CLEAR T
CLEAR U
CLEAR V
CLEAR Z
INCREASE Z
REPEAT A TIMES (
CLEAR Z
#-----------------------------------------------------------------------------
# X = 3X + 1
#-----------------------------------------------------------------------------
CLEAR S
CLEAR T
CLEAR U
INCREASE U
REPEAT A TIMES (
CLEAR U
INCREASE S
)
REPEAT U TIMES (
CLEAR U
INCREASE T
)
REPEAT A TIMES (
INCREASE U
)
REPEAT B TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR A
REPEAT T TIMES (
INCREASE A
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT B TIMES (
INCREASE U
)
REPEAT C TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR B
REPEAT T TIMES (
INCREASE B
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT C TIMES (
INCREASE U
)
REPEAT D TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR C
REPEAT T TIMES (
INCREASE C
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT D TIMES (
INCREASE U
)
REPEAT E TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR D
REPEAT T TIMES (
INCREASE D
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT E TIMES (
INCREASE U
)
REPEAT F TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR E
REPEAT T TIMES (
INCREASE E
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT F TIMES (
INCREASE U
)
REPEAT G TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR F
REPEAT T TIMES (
INCREASE F
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT G TIMES (
INCREASE U
)
REPEAT H TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR G
REPEAT T TIMES (
INCREASE G
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT H TIMES (
INCREASE U
)
REPEAT I TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR H
REPEAT T TIMES (
INCREASE H
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT I TIMES (
INCREASE U
)
REPEAT J TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR I
REPEAT T TIMES (
INCREASE I
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT J TIMES (
INCREASE U
)
REPEAT K TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR J
REPEAT T TIMES (
INCREASE J
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT K TIMES (
INCREASE U
)
REPEAT L TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR K
REPEAT T TIMES (
INCREASE K
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT L TIMES (
INCREASE U
)
REPEAT M TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR L
REPEAT T TIMES (
INCREASE L
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT M TIMES (
INCREASE U
)
REPEAT N TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR M
REPEAT T TIMES (
INCREASE M
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT N TIMES (
INCREASE U
)
REPEAT O TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR N
REPEAT T TIMES (
INCREASE N
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT O TIMES (
INCREASE U
)
REPEAT P TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR O
REPEAT T TIMES (
INCREASE O
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT P TIMES (
INCREASE U
)
REPEAT Q TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR P
REPEAT T TIMES (
INCREASE P
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR U
REPEAT Q TIMES (
INCREASE U
)
REPEAT R TIMES (
INCREASE U
)
REPEAT S TIMES (
INCREASE U
)
CLEAR Q
REPEAT T TIMES (
INCREASE Q
)
CLEAR S
CLEAR T
CLEAR V
REPEAT U TIMES (
INCREASE V
REPEAT T TIMES (
CLEAR T
CLEAR V
INCREASE S
)
REPEAT V TIMES (
INCREASE T
CLEAR V
)
)
CLEAR R
REPEAT T TIMES (
INCREASE R
)
#-----------------------------------------------------------------------------
# Clear variables. V = 0
#-----------------------------------------------------------------------------
CLEAR S
CLEAR T
CLEAR U
REPEAT X TIMES (
INCREASE S
INCREASE S
INCREASE S
)
INCREASE S
PRINT S
CLEAR S
REPEAT Y TIMES (
INCREASE X
)
INCREASE X
PRINT X
)
REPEAT Z TIMES (
CLEAR X
REPEAT Y TIMES (
INCREASE X
)
PRINT X
)
#-----------------------------------------------------------------------------
# X /= 2
#-----------------------------------------------------------------------------
CLEAR A
REPEAT B TIMES (
INCREASE A
)
CLEAR B
REPEAT C TIMES (
INCREASE B
)
CLEAR C
REPEAT D TIMES (
INCREASE C
)
CLEAR D
REPEAT E TIMES (
INCREASE D
)
CLEAR E
REPEAT F TIMES (
INCREASE E
)
CLEAR F
REPEAT G TIMES (
INCREASE F
)
CLEAR G
REPEAT H TIMES (
INCREASE G
)
CLEAR H
REPEAT I TIMES (
INCREASE H
)
CLEAR I
REPEAT J TIMES (
INCREASE I
)
CLEAR J
REPEAT K TIMES (
INCREASE J
)
CLEAR K
REPEAT L TIMES (
INCREASE K
)
CLEAR L
REPEAT M TIMES (
INCREASE L
)
CLEAR M
REPEAT N TIMES (
INCREASE M
)
CLEAR N
REPEAT O TIMES (
INCREASE N
)
CLEAR O
REPEAT P TIMES (
INCREASE O
)
CLEAR P
REPEAT Q TIMES (
INCREASE P
)
CLEAR Q
REPEAT R TIMES (
INCREASE Q
)
CLEAR R
#-----------------------------------------------------------------------------
# Check that X != 1
#-----------------------------------------------------------------------------
INCREASE S
REPEAT B TIMES (
CLEAR S
)
REPEAT C TIMES (
CLEAR S
)
REPEAT D TIMES (
CLEAR S
)
REPEAT E TIMES (
CLEAR S
)
REPEAT F TIMES (
CLEAR S
)
REPEAT G TIMES (
CLEAR S
)
REPEAT H TIMES (
CLEAR S
)
REPEAT I TIMES (
CLEAR S
)
REPEAT J TIMES (
CLEAR S
)
REPEAT K TIMES (
CLEAR S
)
REPEAT L TIMES (
CLEAR S
)
REPEAT M TIMES (
CLEAR S
)
REPEAT N TIMES (
CLEAR S
)
REPEAT O TIMES (
CLEAR S
)
REPEAT P TIMES (
CLEAR S
)
REPEAT Q TIMES (
CLEAR S
)
REPEAT R TIMES (
CLEAR S
)
REPEAT S TIMES (
CLEAR W
)
)
)