test2.txt

COPY START 2000
EOF BYTE C'EOF'
abc RESB 2 .X
THREE WORD 3
ZERO WORD 20
RETADR RESW 1
LENGTH RESW 1
BUFFER RESB 4096
.
A WORD 1000
FIRST SUB ZERO
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
 A1 RSUB
 A2  RSUB

.
.
INPUT BYTE X'F1'
MAXLEN WORD 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 
.
.
.
OUTPUT BYTE X'05'
.

WRREC LDX ZERO ...................
WLOOP TD OUTPUT
JEQ WLOOP
LDCH BUFFER ,X
WD OUTPUT
TIX LENGTH
JLT WLOOP
 RSUB
END FIRST