TEST     START   1000
(5 , 20)(2 , 1)(6 , 93)
FIRST    STL     RETADR
(5 , 92)(1 , 46)(5 , 50)
CLOOP    JSUB    RDREC
(5 , 81)(1 , 19)(5 , 68)
         LDA     LENGTH
(1 , 20)(5 , 51)
         COMP    ONE
(1 , 6)(5 , 26)
         JEQ     ENDFIL
(1 , 16)(5 , 34)
         JSUB    WRREC
(1 , 19)(5 , 87)
         J       CLOOP
(1 , 15)(5 , 81)
ENDFIL   LDA     EOF
(5 , 34)(1 , 20)(5 , 18)
         STA     BUFFER
(1 , 41)(5 , 42)
         LDA     THREE
(1 , 20)(5 , 76)
         STA     LENGTH
(1 , 41)(5 , 51)
         JSUB    WRREC
(1 , 19)(5 , 87)
         LDL     RETADR
(1 , 24)(5 , 50)
         RSUB
(1 , 36)
EOF      BYTE    C'EOF'
(5 , 18)(2 , 3)(5 , 67)(4 , 9)(7 , 18)(4 , 9)
THREE    WORD    3
(5 , 76)(2 , 4)(6 , 51)
ZERO     WORD    0
(5 , 21)(2 , 4)(6 , 48)