RUNOFF.MAC/AU/-BF=RUNOFF.OLD
\
-33,35
; SIG MODIFICATIONS
;	SIG01		CLEAN UP OPERATOR WAIT
;	SIG02		RSTS CHANGES
;
; THIS PROGRAM WAS TRANSLATED FROM THE PDP-10 VERSION OF RUNOFF
; AUTHORED BY B. CLEMENTS.
;
;
;	LOCAL MACROS
;	
	.MACRO 	MSGPUT	NAM
	CALL	$ERMSG
	.WORD	MG'NAM
	.ENDM
;
-159,195
HFIN::  .WORD	160.,0,0
INBUF:: .BLKB	162.
HFOUT:: .WORD	256.,0,0
OUBUF:: .BLKB	256.
; GENERAL
-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
	TSTNE	$SBPSW,40$	;SUBPAGE?
	INC	PAGENO		;COUNT PAGE NUMBER
40$:	CALL	OPRWAT		;WAIT FOR OPERATOR TO POSITION FORMS
50$:	RETURN

-1144,1145
	TSTEQ	$HDRSW,160$	;NO HEADERS TO BE PRINTED?
	CALL	SKIP1		;SKIP ONE LINE
-1216
;
;	ROUTINE TO SPACE TO TOP OF FORM
;
FFEED::;
	BITEQ	#FFDSW,$SWTCH,10$ ;SPACING WITH LINE FEEDS?
	MOV	#FF,R1		;OUTPUT A FORMFEED
	CALL	FOUT
	BR	30$		;ADJUST COUNTS
10$:	MOV	LINEC,R2	;GET LINE POSITION
15$:	SUB	LPPG,	R2	;GET - NUMBER OF LINES TO TOP OF PAGE
	BPL	15$		;IF PL LOOP
20$:	CALL	CRLF		;SPACE TO NEXT LINE
	INC	R2
	BLT	20$
30$:	CLR	LINEC		;CURRENT LINE NOW ZERO
	RETURN
;
;	ROUTINE TO PROMPT OPERATOR AND WAIT FOR SIGNAL TO
;	CONTINUE
;
OPRWAT::;
	BITEQ	#PAUSW,$SWTCH,50$ ;DON'T WAIT FOR NEW PAPER?
	BITEQB	#FD.TTY,TTBLK+F.RCTL,50$ ;IS TI: DEVICE A TERMINAL
	CALL	OUTPUT		;FLUSH ANY OUTPUT
	BICB	#FD.CR,TTBLK+F.RATT  ;KEEP FCS FROM ADDING LINE FEED
	MSGPUT	WIGL		;WAKE THE OPERATOR UP
	BISB	#FD.CR,TTBLK+F.RATT  ;RE-ENABLE CARRIAGE CONTROL
	CALL	TTC4N		;READ A CHARACTER
50$:	RETURN			;RETURN
/