TEST     START   1000
FIRST    STL     RETADR
CLOOP    JSUB    RDREC
         LDA     LENGTH
         COMP    ONE
         JEQ     ENDFIL
         JSUB    WRREC
         J       CLOOP
ENDFIL   LDA     EOF
         STA     BUFFER
         LDA     THREE
         STA     LENGTH
         JSUB    WRREC
         LDL     RETADR
         RSUB
EOF      BYTE    C'EOF'
THREE    WORD    3
ZERO     WORD    0