START.MAC/AU/-BF=START.OLD
\
-32
; SIG MODIFICATIONS								;**NEW**
;	SIG01	CLEAN UP WAIT FUNCTION						;**NEW**
;	SIG02	RSTS CHANGES							;**NEW**
;										;**NEW**
-65,82
LIMIT:	.LIMIT									;SIG02
;+										;**-17
-88,89
RUNOFF::MOV	SPSAV,SP	;RESET STACK POINTER				;**-1
-123,123
100$:	MOV	PRMRG,	RMARG	;SET RIGHT MARGIN
	TST	PNLPG		;SEE IF /PS::N GIVEN
	BNE	105$
	MOV	#INLPG,	PNLPG	;REINITIALIZE
105$:	MOV	PNLPG,	NLPG	;AND PAGE LENGTH
	CMPNEB	#'B,ULSWT,110$	;NOT BACKSPACE MODE?
-133,184
130$:	GTSK$S	#CSIBLK		;GET TASK PARAMETERS				;**-2
	MOV	CSIBLK+G.TSTS,R4 ;GET SIZE OF PARTITION IN BYTES
	GPRT$S	,#CSIBLK	;GET STARTING VIRTUAL ADDRESS
	ADD	$DSW,R4		;CALCULATE ENDING VIRTUAL ADDRESS
	MOV	R4,XTOP		;INITIAL INDEX POINTERS				;SIG01-2
	MOV	R4,XBOT		; ..						;SIG01-2
	MOV	LIMIT+2,R2	;GET START OF FOOTNOTE AREA			;SIG01-2
	DEC	R2		;						;SIG01-2
	MOV	R2,FOOTP1	;STORE						;SIG01-2
	MOV	R2,FOOTP2							;SIG01-2
	MOV	R2,FOOTP3	;IN BOTH POINTERS				;SIG01-2
	CALL	LINSET		;SET UP FOR LINE				;SIG01-2
	CALL	FFEED		;START AT TOP OF NEW FORM			;SIG01-2
	CALL	OPRWAT		;WAIT FOR OPERATOR IF REQUESTED TO		;SIG01-2
	CLR	TTBLK+F.NRBD	;CLEAR OUTPUT BUFFER				;SIG01-2
	JMP	LGO		;AND INTO MAIN LOOP, LINE INPUT			;SIG01-2
ENDFIL::CALL	OUTPUT		;FLUSH LAST LINE				;SIG01-2
										;SIG01-2
										;SIG01-2
	.IF	NDF	RSTS							;SIG01-2
										;SIG01-2
	BITEQ	#SPLSW,$SWTCH,10$ ;DON'T SPOOL TEXT FILE?			;SIG01-2
	PRINT$	#LSTBLK		;SUBMIT FILE TO PRINT SYMBIONT			;SIG01-2
										;**-17
	.ENDC


10$:	JMP	RUNOFF								;**-24
/