19-digital-library.asm

;XA

GRAB 300
MARK READFILE
COPY F X
REPL GOANDCOPY
JUMP READFILE

MARK GOANDCOPY
LINK 800

MARK FINDSHELF
TEST X > 99
FJMP FOUNDSHELF
LINK 800
SUBI X 100 X
JUMP FINDSHELF

MARK FOUNDSHELF
ADDI 200 X T
GRAB T
REPL COPIER

MARK READER
COPY F M
JUMP READER

MARK COPIER
MAKE
MARK COPY
TEST MRD
FJMP END
COPY M F
JUMP COPY

MARK END
LINK -1
JUMP END