12-workhouse.asm

;XA

GRAB 300
COPY F X
DROP
LINK 800
GRAB 199

MARK LOOKUSER
TEST F = X
TJMP USERFOUND
SEEK 2
JUMP LOOKUSER

MARK USERFOUND
SEEK 1
COPY F X; USERFILE
DROP

LINK 799
GRAB X; USERFILE
SEEK 2

COPY 0 X
MARK LOOP
TEST EOF
TJMP AFTER
ADDI F X X
TEST X < 75
TJMP LOOP
SEEK -1
COPY 75 F
SUBI X 75 X
JUMP LOOP

MARK AFTER
TEST X > 75
FJMP SMALL
SUBI X 75 X
COPY 75 F
JUMP AFTER

MARK SMALL
COPY X F
DROP