listing.tmp~

0000	COPY	START	0	
0000	FIRST	STL	RETADR	17202F
0003		LDB	#LENGTH	69202F
0006		BASE	LENGTH	
0006	CLOOP	+JSUB	RDREC	4B101038
000A		LDA	LENGTH	032028
000D		COMP	#0	290000
0010		JEQ	ENDFIL	332007
0013		+JSUB	WRREC	4B10105F
0017		J	CLOOP	3F2FEC
001A	ENDFIL	LDA	=C'EOF X'	032010
001D		STA	BUFFER	0F2018
0020		LDA	#3	010003
0023		STA	LENGTH	0F200F
0026		+JSUB	WRREC	4B10105F
002A		J	@RETADR	3E2005
002D	=C'EOF X'	BYTE	C'EOF X'	454F462058
0032	RETADR	RESW	1
0035	LENGTH	RESW	1
0038	BUFFER	RESB	4096
1038	BUFFEND	EQU	*	
1038	MAXLEN	EQU	BUFFEND/BUFFER	
1038	RDREC	CLEAR	X	B410
103A		CLEAR	A	B400
103C		CLEAR	S	B440
103E		+LDT	#MAXLEN	7510004A
1042	RLOOP	TD	INPUT	E32019
1045		JEQ	RLOOP	332FFA
1048		RD	INPUT	DB2013
104B		COMPR	A,S	A004
104D		JEQ	EXIT	332008
1050		STCH	BUFFER,X	57C003
1053		TIXR	T	B850
1055		JLT	RLOOP	3B2FEA
1058	EXIT	STX	LENGTH	134000
105B		RSUB		4F0000
105E	INPUT	BYTE	X'F1'	F1
105F	WRREC	CLEAR	X	B410
1061		LDT	LENGTH	774000
1064	WLOOP	TD	=X'05'	E32011
1067		JEQ	WLOOP	332FFA
106A		LDCH	BUFFER,X	53C003
106D		WD	=X'05'	DF2008
1070		TIXR	T	B850
1072		JLT	WLOOP	3B2FEF
1075		RSUB		4F0000
1078	=X'05'	BYTE	X'05'	05
		END	FIRST