inter.txt

0000	COPY    START   0000
0000	FIRST   STL   RETADR
0003	        LDB   #LENGTH
	        BASE  LENGTH
0006	CLOOP  +JSUB  RDREC
000A	        LDA   LENGTH
000D	        COMP    #0
0010	        JEQ   ENDFIL 
0013	       +JSUB  WRREC 
0017	        J     CLOOP 
001A	ENDFIL  LDA   =C’EOF’ 
001D	        LDA   =C'EOF'
0020	        STA   BUFFER
0023	        LDA   #3 
0026	        STA   LENGTH 
0029	       +JSUB  WRREC
002D	        J     @RETADR 
0030	RETADR  RESW   1 
0033	LENGTH  RESW   1 
0036	BUFFER  RESB   4096 
1036	BUFEND  EQU    * 
1036	MAXLEN  EQU    BUFEND
1036	RDREC   CLEAR  X 
1038	        CLEAR  A 
103A	        CLEAR  S 
103C	        +LDT   #MAXLEN
1040	RLOOP   TD     INPUT 
1043	        JEQ    RLOOP 
1046	        RD     INPUT 
1049	        COMPR  A,S 
104B	        JEQ    EXIT 
104E	        STCH   BUFFER,X 
1051	        TIXR   T 
1053	        JLT    RLOOP
1056	EXIT    STX    LENGTH 
1059	        RSUB 
105C	INPUT   BYTE   X’F1’
105D	WRREC   CLEAR  X 
105F	        LDT    LENGTH
1062	WLOOP   TD     =X’05’ 
1065	        JEQ    WLOOP 
1068	        LDCH   BUFFER,X 
106B	        WD     =X’05’ 
106E	        TIXR   T 
1070	        JLT    WLOOP 
1073	        RSUB 
	        END    FIRST
1076	*	=C’EOF’
1079	*	=X’05’
107A	*	=C'EOF'