RUNOFF.MAC/AU/-BF=RUNOFF.OLD
\
-33,35
; SIG MODIFICATIONS								;**NEW**
;	SIG01		CLEAN UP OPERATOR WAIT					;**NEW**
;	SIG02		RSTS CHANGES						;**NEW**
;										;**NEW**
; THIS PROGRAM WAS TRANSLATED FROM THE PDP-10 VERSION OF RUNOFF			;**NEW**
; AUTHORED BY B. CLEMENTS.							;**NEW**
;										;**NEW**
;	LOCAL MACROS								;**NEW**
;										;**NEW**
	.MACRO	MSGPUT	NAM							;**NEW**
	CALL	$ERMSG								;**NEW**
	.WORD	MG'NAM								;**NEW**
	.ENDM									;**NEW**
;										;**-2
-159,195
HFIN::	.WORD	160.,0,0							;**-4
INBUF::	.BLKB	162.								;**-7
HFOUT::	.WORD	256.,0,0							;**-17
OUBUF::	.BLKB	256.
; GENERAL									;**-4
-204
LPPG::	.BLKW	1		;HARDWARE LINES PER PAGE
HWLPP::	.WORD	HWPLN		;INITIAL VALUE FOR LPPG
INI$SW::.WORD	HYPSW!SPLSW	;INITIAL VALUE FOR $SWTCH
IUL::	.WORD	'N		;INITIAL UNDERLINE SWITCH
-276,276
LFSPAC==1			;FINAL VERTICAL SPACING ON LISTS
-282,284
NSMARG==5			;SECONDARY MARGIN CHANGE ON NOTES
-828
	CALL	OUTPUT
-848
	CALL	OUTPUT		;OUTPUT LOGICAL LINE
-1057,1074
	CALL	FFEED		;SPACE TO TOP OF FORM				;SIG01
	TSTNE	$SBPSW,40$	;SUBPAGE?					;SIG01
	INC	PAGENO		;COUNT PAGE NUMBER				;SIG01
40$:	CALL	OPRWAT		;WAIT FOR OPERATOR TO POSITION FORMS		;SIG01
50$:	RETURN									;SIG01
										;**-17
-1144,1145
	TSTEQ	$HDRSW,160$	;NO HEADERS TO BE PRINTED?
	CALL	SKIP1		;SKIP ONE LINE
-1216
;										;SIG01
;	ROUTINE TO SPACE TO TOP OF FORM						;SIG01
;										;SIG01
FFEED::;									;SIG01
	BITEQ	#FFDSW,$SWTCH,10$ ;SPACING WITH LINE FEEDS?			;SIG01
	MOV	#FF,R1		;OUTPUT A FORMFEED				;SIG01
	CALL	FOUT								;SIG01
	BR	30$		;ADJUST COUNTS					;SIG01
10$:	MOV	LINEC,R2	;GET LINE POSITION				;SIG01
15$:	SUB	LPPG,	R2	;GET - NUMBER OF LINES TO TOP OF PAGE		;SIG01
	BPL	15$		;IF PL LOOP					;SIG01
20$:	CALL	CRLF		;SPACE TO NEXT LINE				;SIG01
	INC	R2								;SIG01
	BLT	20$								;SIG01
30$:	CLR	LINEC		;CURRENT LINE NOW ZERO				;SIG01
	RETURN									;SIG01
;										;SIG01
;	ROUTINE TO PROMPT OPERATOR AND WAIT FOR SIGNAL TO			;SIG01
;	CONTINUE								;SIG01
;										;SIG01
OPRWAT::;									;SIG01
	BITEQ	#PAUSW,$SWTCH,50$ ;DON'T WAIT FOR NEW PAPER?			;SIG01
	BITEQB	#FD.TTY,TTBLK+F.RCTL,50$ ;IS TI: DEVICE A TERMINAL		;SIG01
	CALL	OUTPUT		;FLUSH ANY OUTPUT				;SIG01
	BICB	#FD.CR,TTBLK+F.RATT ;KEEP FCS FROM ADDING LINE FEED		;SIG01
	MSGPUT	WIGL		;WAKE THE OPERATOR UP				;SIG01
	BISB	#FD.CR,TTBLK+F.RATT ;RE-ENABLE CARRIAGE CONTROL			;SIG01
	CALL	TTC4N		;READ A CHARACTER				;SIG01
50$:	RETURN			;RETURN						;SIG01
/