START.MAC/AU/-BF=START.OLD
\
-32
; SIG MODIFICATIONS
;	SIG01	CLEAN UP WAIT FUNCTION
;	SIG02	RSTS CHANGES
;
-65,82
LIMIT:	.LIMIT
;+
-88,89
RUNOFF::MOV	SPSAV,SP	;RESET STACK POINTER
-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
	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
	MOV	R4,XBOT		; ..
	MOV	LIMIT+2,R2	;GET START OF FOOTNOTE AREA
	DEC	R2		;
	MOV	R2,FOOTP1	;STORE
	MOV	R2,FOOTP2	
	MOV	R2,FOOTP3	;IN BOTH POINTERS
	CALL	LINSET		;SET UP FOR LINE
	CALL	FFEED		;START AT TOP OF NEW FORM
	CALL 	OPRWAT		;WAIT FOR OPERATOR IF REQUESTED TO
	CLR	TTBLK+F.NRBD	;CLEAR OUTPUT BUFFER
	JMP	LGO		;AND INTO MAIN LOOP, LINE INPUT
ENDFIL::CALL	OUTPUT		;FLUSH LAST LINE


	.IF	NDF	RSTS

	BITEQ	#SPLSW,$SWTCH,10$ ;DON'T SPOOL TEXT FILE?
	PRINT$	#LSTBLK		;SUBMIT FILE TO PRINT SYMBIONT

	.ENDC



10$:	JMP	RUNOFF
/