# ABCDE FGHIJ KLMNO PQRST big-endian bits
# ST no longer used for this
# S master loop S times
# T break from master loop
# UVWXYZ for other stuff
# U carry bit
# V if else
# Convert to binary
REPEAT X TIMES (
INCREASE V
REPEAT A TIMES (
CLEAR A
INCREASE U
CLEAR V
)
REPEAT V TIMES (
INCREASE A
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT B TIMES (
CLEAR B
CLEAR V
)
REPEAT V TIMES (
INCREASE B
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT C TIMES (
CLEAR C
CLEAR V
)
REPEAT V TIMES (
INCREASE C
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT D TIMES (
CLEAR D
CLEAR V
)
REPEAT V TIMES (
INCREASE D
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT E TIMES (
CLEAR E
CLEAR V
)
REPEAT V TIMES (
INCREASE E
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT F TIMES (
CLEAR F
CLEAR V
)
REPEAT V TIMES (
INCREASE F
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT G TIMES (
CLEAR G
CLEAR V
)
REPEAT V TIMES (
INCREASE G
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT H TIMES (
CLEAR H
CLEAR V
)
REPEAT V TIMES (
INCREASE H
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT I TIMES (
CLEAR I
CLEAR V
)
REPEAT V TIMES (
INCREASE I
CLEAR U
CLEAR V
)
REPEAT U TIMES (
INCREASE V
REPEAT J TIMES (
CLEAR J
CLEAR V
)
REPEAT V TIMES (
INCREASE J
CLEAR U
CLEAR V
)
)
)
)
)
)
)
)
)
)
CLEAR U
)
PRINT X
INCREASE T
# If all but A are 0, break
INCREASE U
REPEAT B TIMES ( CLEAR U )
REPEAT C TIMES ( CLEAR U )
REPEAT D TIMES ( CLEAR U )
REPEAT E TIMES ( CLEAR U )
REPEAT F TIMES ( CLEAR U )
REPEAT G TIMES ( CLEAR U )
REPEAT H TIMES ( CLEAR U )
REPEAT I TIMES ( CLEAR U )
REPEAT J TIMES ( CLEAR U )
REPEAT K TIMES ( CLEAR U )
REPEAT L TIMES ( CLEAR U )
REPEAT M TIMES ( CLEAR U )
REPEAT N TIMES ( CLEAR U )
REPEAT O TIMES ( CLEAR U )
REPEAT P TIMES ( CLEAR U )
REPEAT Q TIMES ( CLEAR U )
REPEAT R TIMES ( CLEAR U )
REPEAT U TIMES ( CLEAR T )
CLEAR U
REPEAT T TIMES (
INCREASE S INCREASE S INCREASE S INCREASE S INCREASE S
REPEAT S TIMES ( INCREASE S INCREASE S INCREASE S INCREASE S )
REPEAT S TIMES ( INCREASE S INCREASE S INCREASE S )
INCREASE S INCREASE S INCREASE S
INCREASE S INCREASE S INCREASE S
INCREASE S INCREASE S INCREASE S
INCREASE S INCREASE S INCREASE S
INCREASE S
REPEAT S TIMES ( # loop
REPEAT T TIMES ( # break
# If A, 3n+1
# Y previous bit and shl
# Else shl
INCREASE V
REPEAT A TIMES (
CLEAR V
CLEAR A
INCREASE U
INCREASE U
REPEAT B TIMES ( INCREASE U INCREASE Y )
CLEAR B
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT B TIMES (
CLEAR B
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE B
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT C TIMES ( INCREASE Y INCREASE U ) # |
CLEAR C
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT C TIMES (
CLEAR C
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE C
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT D TIMES ( INCREASE Y INCREASE U ) # |
CLEAR D
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT D TIMES (
CLEAR D
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE D
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT E TIMES ( INCREASE Y INCREASE U ) # |
CLEAR E
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT E TIMES (
CLEAR E
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE E
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT F TIMES ( INCREASE Y INCREASE U ) # |
CLEAR F
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT F TIMES (
CLEAR F
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE F
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT G TIMES ( INCREASE Y INCREASE U ) # |
CLEAR G
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT G TIMES (
CLEAR G
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE G
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT H TIMES ( INCREASE Y INCREASE U ) # |
CLEAR H
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT H TIMES (
CLEAR H
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE H
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT I TIMES ( INCREASE Y INCREASE U ) # |
CLEAR I
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT I TIMES (
CLEAR I
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE I
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT J TIMES ( INCREASE Y INCREASE U ) # |
CLEAR J
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT J TIMES (
CLEAR J
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE J
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT K TIMES ( INCREASE Y INCREASE U ) # |
CLEAR K
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT K TIMES (
CLEAR K
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE K
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT L TIMES ( INCREASE Y INCREASE U ) # |
CLEAR L
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT L TIMES (
CLEAR L
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE L
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT M TIMES ( INCREASE Y INCREASE U ) # |
CLEAR M
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT M TIMES (
CLEAR M
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE M
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT N TIMES ( INCREASE Y INCREASE U ) # |
CLEAR N
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT N TIMES (
CLEAR N
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE N
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT O TIMES ( INCREASE Y INCREASE U ) # |
CLEAR O
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT O TIMES (
CLEAR O
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE O
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT P TIMES ( INCREASE Y INCREASE U ) # |
CLEAR P
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT P TIMES (
CLEAR P
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE P
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT Q TIMES ( INCREASE Y INCREASE U ) # |
CLEAR Q
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT Q TIMES (
CLEAR Q
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE Q
CLEAR V
)
)
CLEAR U
REPEAT Z TIMES ( INCREASE U )
CLEAR Z
REPEAT Y TIMES ( INCREASE U )
CLEAR Y # Save current for future use
REPEAT R TIMES ( INCREASE Y INCREASE U ) # |
CLEAR R
REPEAT U TIMES ( # Count carry + previous + current
INCREASE V
REPEAT R TIMES (
CLEAR R
INCREASE Z # Carry
CLEAR V
)
REPEAT V TIMES (
INCREASE R
CLEAR V
)
)
CLEAR Z
CLEAR U
CLEAR Y
REPEAT X TIMES (
INCREASE X
INCREASE X
)
INCREASE X
PRINT X
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
# Convert back to decimal
CLEAR X
REPEAT R TIMES (
INCREASE X
REPEAT X TIMES ( INCREASE X )
)
REPEAT Q TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT P TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT O TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT N TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT M TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT L TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT K TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT J TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT I TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT H TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT G TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT F TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT E TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT D TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT C TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT B TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT A TIMES ( INCREASE X )
PRINT X
)
REPEAT V TIMES (
CLEAR V
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
# Convert back to decimal
CLEAR X
REPEAT R TIMES (
INCREASE X
REPEAT X TIMES ( INCREASE X )
)
REPEAT Q TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT P TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT O TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT N TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT M TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT L TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT K TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT J TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT I TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT H TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT G TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT F TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT E TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT D TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT C TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT B TIMES ( INCREASE X )
REPEAT X TIMES ( INCREASE X )
REPEAT A TIMES ( INCREASE X )
PRINT X
)
# If all but A are 0, break
INCREASE U
REPEAT B TIMES ( CLEAR U )
REPEAT C TIMES ( CLEAR U )
REPEAT D TIMES ( CLEAR U )
REPEAT E TIMES ( CLEAR U )
REPEAT F TIMES ( CLEAR U )
REPEAT G TIMES ( CLEAR U )
REPEAT H TIMES ( CLEAR U )
REPEAT I TIMES ( CLEAR U )
REPEAT J TIMES ( CLEAR U )
REPEAT K TIMES ( CLEAR U )
REPEAT L TIMES ( CLEAR U )
REPEAT M TIMES ( CLEAR U )
REPEAT N TIMES ( CLEAR U )
REPEAT O TIMES ( CLEAR U )
REPEAT P TIMES ( CLEAR U )
REPEAT Q TIMES ( CLEAR U )
REPEAT R TIMES ( CLEAR U )
REPEAT U TIMES ( CLEAR T )
CLEAR U
)
)
)
