tec-exablaster-modem-3.solution.txt

PB026B
NEW SOLUTION 1
GRAB 300
LINK 800
COPY 399 X
MARK START
TEST EOF
FJMP DIAL
WIPE
HALT
MARK DIAL
COPY -1 #DIAL
@REP 11
COPY F #DIAL
@END
REPL TRANSCRIBE
ADDI 1 X X
REPL CONNECTION
MARK READREST
TEST EOF
FJMP ENDREST
KILL
WIPE
REPL PROBE
@REP 5
NOOP
@END
GRAB X
JUMP START
MARK PROBE
GRAB X
LINK 800
LINK -1
KILL
LINK 800
SEEK 9999
JUMP TRANSCRIBE_LOOP
MARK ENDREST
COPY F M
JUMP READREST
HALT
HALT
MARK TRANSCRIBE
MAKE
MARK TRANSCRIBE_LOOP
COPY M F
JUMP TRANSCRIBE_LOOP
MARK CONNECTION
LINK 800
GRAB 200
MARK CONNECTION_LOOP
SEEK 1
COPY 11 T
MARK CONN_READ_LOOP
COPY F M
SUBI T 1 T
TJMP CONN_READ_LOOP
TEST EOF
FJMP CONNECTION_LOOP
KILL
DROP
GRAB X
LINK -1
JUMP START