loc.txt

0000	COPY	START	0
0000	FIRST	STL	RETADR
0003	CLOOP	JSUB	RDREC
0006		LDA	LENGTH
0009		COMP	ZERO
000C		JEQ	ENDFIL
000F		JSUB	WRREC
0012		J	CLOOP
0015	ENDFIL	LDA	EOF
0018		STA	BUFFER
001B		LDA	THREE
001E		STA	LENGTH
0021		JSUB	WRREC
0024		LDL	RETADR
0027		RSUB	
002A	EOF	BYTE	C'EOF'
002D	THREE	WORD	3
0030	ZERO	WORD	0
0033	RETADR	RESW	1
0036	LENGTH	RESW	1
0039	BUFFER	RESB	4096
1039	RDREC	LDX	ZERO
103C		LDA	ZERO
103F	RLOOP	TD	INPUT
1042		JEQ	RLOOP
1045		RD	INPUT
1048		COMP	ZERO
104B		JEQ	EXIT
104E		STCH	BUFFER,X
1051		TIX	MAXLEN
1054		JLT	RLOOP
1057	EXIT	STX	LENGTH
105A		RSUB	
105D	INPUT	BYTE	X'F1'
105E	MAXLEN	WORD	4096
1061	WRREC	LDX	ZERO
1064	WLOOP	TD	OUTPUT
1067		JEQ	WLOOP
106A		LDCH	BUFFER,X
106D		WD	OUTPUT
1070		TIX	LENGTH
1073		JLT	WLOOP
1076		RSUB	
1079	OUTPUT	BYTE	X'05'
107A		END	FIRST