zhongff
commented
6 years ago note xa
MARK 0 GRAB 301 SEEK X MARK 1 COPY F M ADDI X 1 X COPY X T MODI T 11 T TEST T = 0 FJMP 1 DROP GRAB 300 MARK 2 SEEK -9999 COPY F M COPY F M TEST M = 1 FJMP 2 DROP COPY -1 M JUMP 0
note xb
LINK 800 MARK 0 TEST X = 88 TJMP 3 MARK 1 COPY M #DIAL ADDI X 1 X COPY X T MODI T 11 T TEST T = 0 FJMP 1 LINK 800 GRAB 200 MARK 2 COPY M F COPY M F TEST EOF COPY T M FJMP 2 DROP LINK -1 COPY M #DIAL JUMP 0 MARK 3 HALT
.