SIC-Example-err5.txt

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   RESW    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