XA
GRAB 301
LINK 800
NOTE DIAL 11DIGIT UNROLL
MARK DIALER
@REP 7
COPY F #DIAL
@END
NOTE FORK EARLY
REPL FORK
@REP 4
COPY F #DIAL
@END
NOTE PARENT: HANGUP+END?
TEST EOF
COPY -1 #DIAL
FJMP DIALER
LINK -1
JUMP END
MARK REPEATER
COPY X M
JUMP REPEATER
MARK FORK
COPY M T
COPY M X
MODE
LINK 800
REPL REPEATER
COPY T X
GRAB 200
MARK WRITE
COPY X F
COPY M F
TEST EOF
FJMP WRITE
MARK END
KILL
XB
GRAB 300
MARK INFLOOP
SEEK -9999
COPY F M
COPY F M
JUMP INFLOOP