COPY     START   1000
FIRST    STL     RETADR
CLOOP    JSUB    RDREC
         LDA     LENGTH
         COMP    ZERO
         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
RETADR   RESW    1
LENGTH   RESW    1
BUFFER   RESB    4096
RDREC    LDX     ZERO
         LDA     ZERO
RLOOP    TD      INPUT
         JEQ     RLOOP
         RD      INPUT
         COMP    ZERO
         JEQ     EXIT
         STCH    BUFFER,X
         TIX     MAXLEN
         JLT     RLOOP
EXIT     STX     LENGTH
         RSUB
INPUT    BYTE    X'F1'
MAXLEN   WORD    4096
WRREC    LDX     ZERO
WLOOP    TD      OUTPUT
         JEQ     WLOOP
         LDCH    BUFFER,X
         WD      OUTPUT
         TIX     LENGTH
         JLT     WLOOP
         RSUB
OUTPUT   BYTE    X'05'
         END     FIRST