code:
;XA
LINK 800
COPY 999 T
MARK LPL
COPY T #LOCK
ADDI X #LOCK X
SUBI T 111 T
TJMP LPL
COPY X #LOCK
LINK 800
COPY 0 X
COPY 999 T
MARK LPL2
COPY T #LOCK
ADDI X #LOCK X
SUBI T 111 T
TJMP LPL2
COPY X #LOCK
;XB
GRAB 300
COPY 10 T
MARK LP
SUBI T 1 T
COPY F M
TJMP LP
;XC
MAKE
COPY 0 F
COPY 0 F
COPY 10 T
MARK LP
COPY M F
SUBI T 1 T
TJMP LP
SEEK -9999
SEEK 2
COPY F X
COPY 16 T
MARK WAIT
SUBI T 1 T
TJMP WAIT
LINK 800
LINK 800
DROP
; FIND
@REP 4
LINK 80@{1,1}
GRAB 200
TEST F = X
FJMP SKIP@{1,1}
COPY 80@{1,1} T
JUMP FOUND
MARK SKIP@{1,1}
DROP
LINK -1
@END
GRAB 400
LINK 800
DROP
LINK 801
GRAB 200
TEST F = X
FJMP SKIP
COPY 801 T
JUMP FOUND
MARK SKIP
DROP
LINK -1
LINK 802
COPY 802 T
GRAB 200
SEEK 1
MARK FOUND
SEEK 3
COPY F X
DROP
LINK -1
GRAB 400
COPY 10 F
COPY T F
SEEK 4
COPY X F
COPY 10 X
MARK COPY
DROP
LINK T
GRAB 200
SEEK X
COPY F X
COPY F T
DROP
LINK -1
GRAB 400
SEEK 9999
COPY X F
COPY T F
SEEK -9999
ADDI F 2 X
SEEK -1
TEST X = 44
TJMP DONE
COPY X F
COPY F T
JUMP COPY
MARK DONE
VOID F
VOID F
LINK -1
LINK -1
LINK -1