

                		;TEX PATCH #2, 28 JUN 78
                		;THIS PATCH CORRECTS AN ERROR WHICH OCCURS WHEN 
                		;THE $F FORM FEED OPTION IS USED.  
                		;IN PARTICULAR, THIS PATCH CAUSES A FORM FEED 
                		;ON THE FIRST PAGE, WHICH WAS NOT PREVIOUSLY DONE.
                
 1D59 =         PATCH		EQU	1D59H
 0980 =         L445		EQU	0980H
 1F11 =         SAV$LINELENGTH	EQU	1F11H
 1F0C =         FORM$FEED	EQU	1F0CH
 0672 =         PUTDEST		EQU	0672H
 000C =         FF		EQU	0CH
                
 0980           		ORG	L445
 0980 C3591D    		JMP	PATCH
                
                RETPAT:
                
 1D59           		ORG	PATCH
 1D59 32111F    		STA	SAV$LINELENGTH
 1D5C 3A0C1F    		LDA	FORM$FEED
 1D5F 17        		RAL
 1D60 0E0C      		MVI	C,FF
 1D62 DC7206    		CC	PUTDEST
 1D65 C38309    		JMP	RETPAT
 1D68           		END
