24-sawayama-wonderdisc.asm

;XA

GRAB 300
LINK 800
DROP

COPY 8 #AUTH
COPY 0 #AUTH
COPY 3 #AUTH
COPY 2 #AUTH
COPY 7 #AUTH
COPY 1 #AUTH
COPY 0 #AUTH
COPY 4 #AUTH
COPY 9 #AUTH
COPY 5 #AUTH
COPY 1 #AUTH
COPY 2 #AUTH
COPY 5 #AUTH
COPY 2 #AUTH
COPY 6 #AUTH

MARK RWLOOP
GRAB 300
COPY F X
REPL READER
REPL WRITER
HALT

MARK WRITER
COPY #TRAK M
LINK 800
MAKE
MARK WRITEFILE
COPY M X
TEST X = -9999
TJMP GOTORWLOOP
COPY X F
JUMP WRITEFILE


MARK READER
LINK 801
GRAB M
MARK READFILE
TEST EOF
TJMP SENDEOF
COPY F T
TEST T > -9999;ISNUMERIC
FJMP REGION
SEEK -1
COPY F M
JUMP READFILE
MARK REGION
COPY X M; NEW REGION
JUMP READFILE

MARK SENDEOF
COPY -9999 M
JUMP DIE


MARK GOTORWLOOP
DROP
LINK -1
JUMP RWLOOP

MARK DIE