tec-exablaster-modem-4.solution.txt

PB035B
NEW SOLUTION 1
NOTE =================XA
GRAB 301
LINK 800
DROP
MARK DIAL
GRAB 301
SEEK X
TEST EOF
TJMP AFTER_DATA
COPY 11 T
MARK DIAL_LOOP
COPY F #DIAL
SUBI T 1 T
TJMP DIAL_LOOP
ADDI 11 X X
DROP
REPL WRITE_DATA
GRAB 300
MARK READ_DATA_LOOP
COPY F M
TEST EOF
FJMP READ_DATA_LOOP
COPY -9999 M
DROP
COPY -1 #DIAL
JUMP DIAL
MARK WRITE_DATA
LINK 800
MARK WRITE_DATA_LOOP
COPY M X
TEST X = -9999
TJMP WRITE_DATA_DONE
COPY X #DATA
JUMP WRITE_DATA_LOOP
MARK AFTER_DATA
DROP
GRAB 300
WIPE
GRAB 301
COPY 142 X
MARK DIAL2
COPY 11 T
COPY -1 #DIAL
MARK DIAL2_LOOP
COPY F #DIAL
SUBI T 1 T
TJMP DIAL2_LOOP
COPY X M
SUBI X 20 X
TEST EOF
FJMP DIAL2
WIPE
HALT
MARK WRITE_DATA_DONE
NOTE TIMER ROLE
COPY M T
MARK TIMER_COUNT
SUBI T 1 T
TJMP TIMER_COUNT
COPY 9999 #PAGE
NOTE =================XB
GRAB 300
LINK 800