code:
;XA LOCAL GRAB 300 MARK SAYNUMLOOP COPY F X TEST X > -1 TJMP SEND MODE ;GLOBAL COPY 1 X MARK SEND COPY X M TJMP SEND2 MODE ;LOCAL MARK SEND2 TEST EOF FJMP SAYNUMLOOP MODE ;GLOBAL COPY 0 M SEEK -9999 COPY 0 X MARK PHOFFSETLOOP TEST F > -1 FJMP PHFOUND ADDI X 1 X JUMP PHOFFLOOPEND MARK PHFOUND COPY X M MARK PHOFFLOOPEND TEST EOF FJMP PHOFFSETLOOP DROP GRAB 301 COPY 8 X MARK WRITEOUTER COPY 11 T MARK WRITELOOP COPY M F SUBI T 1 T TJMP WRITELOOP SUBI X 1 X COPY X T COPY T M TJMP WRITEOUTER
code:
;XB GLOBAL MARK PHCOUNT COPY M T ADDI X T X TJMP PHCOUNT MODE ;LOCAL ADDI X 1 T MARK PADFILE COPY 0 M SUBI T 1 T TJMP PADFILE SUBI 4 X X MARK PHLOOP MODE ;GLOBAL COPY M T MODE ;LOCAL MULI T 2 M SUBI 8 T T ADDI T X T MULI T 2 M ADDI X 1 X TEST X < 4 COPY T M TJMP PHLOOP
code:
;XC LOCAL MAKE COPY 0 F COPY 12 T MARK SETUP1 COPY M F COPY 0 F SUBI T 1 T TJMP SETUP1 MARK SETUP2 SEEK -9999 SEEK M ADDI M 1 X COPY F T TJMP BACK2BACK SEEK -1 SUBI X 1 F SEEK X ADDI X 1 X MULI X -1 X COPY X F JUMP SETUP2END MARK BACK2BACK SEEK T SEEK 1 COPY F T TJMP B2BOK SEEK 1 COPY F T MARK B2BOK SEEK -1 COPY 0 F SEEK 1 SUBI T 2 F MARK SETUP2END COPY M T TJMP SETUP2 LINK 800 MODE ;GLOBAL MARK DIAL SEEK -9999 COPY 2 T MARK DIALLOOP @REP 5 SEEK F COPY F #DIAL @END SUBI T 1 T TJMP DIALLOOP SEEK F COPY F #DIAL COPY #DIAL T FJMP INCREMENT COPY -1 #DIAL SEEK -9999 COPY 11 T MARK PLAYBACKLP SEEK F COPY F M SUBI T 1 T TJMP PLAYBACKLP COPY M T FJMP DONE MARK INCREMENT SEEK 9999 SEEK -2 MARK INCREMENT2 ADDI F 1 X SEEK -1 MODI X 10 F TEST X > 9 SEEK -3 TJMP INCREMENT2 JUMP DIAL MARK DONE WIPE