Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - rpwgen.c05
There are 2 other files named rpwgen.c05 in the archive. Click here to see a list.
 REP 10/1	;05C1
	;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1974, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
 INS 19/1	;05C2
	;V12B
	;SMI	22-NOV-82	[1433] Fix 1373 when report has no PAGE HEADING groups
	;RJD	15-JUL-82	[1373] Corrects page advancing when more than 2 report
	; 			       header lines.
 INS 4/20	;05C3
		SETZM	RPWDPR		;[1433] SET PAGE HEADING DUMMY ROUTINE FLAG
 INS 39/20	;05C4
		SETOM	RPWDPR##	;[1433] SIGNAL THIS IS A DUMMY PAGE ROUTINE
 REP 52/20	;05C5
		JRST	PUTASY		;[200] ASSEMBLE AND RETURN
 WIT
	;[D1373]	JRST	PUTASY		;[200] ASSEMBLE AND RETURN
		PUSHJ	PP,PUTASY	;[1373]
		SKIPE	RPWDPR		;[1433] IS THIS A DUMMY PAGE ROUTINE ?
		POPJ	PP,		;[1433] YES, EXIT
		LDB	TE,RW.RHL##	;[1373] TEST IF HEADING LINES
		SKIPN	TE		;[1373] 
		POPJ	PP,		;[1373] NO, RETURN
		LDB	CH,RW.PC	;[1373] TO ALLOW MORE THAN 1 
		ANDI	CH,LMASKB	;[1373] REPORT HEADING LINES
		IORI	CH,AS.DAT	;[1373] GENERATE
		HRLI	CH,MOV##+AC16	;[1373]  <MOVE 16,PAGE-COUNTER>
		PUSHJ	PP,PUTASY	;[1373]
		MOVE	CH,[CAIN.##+AC16,,1]	;[1373] GENERATE <CAIN 16,1>
		PUSHJ	PP,PUTASY	;[1373] TO CHECK FOR FIRST PAGE
		LDB	CH,RW.LC	;[1373]
		ANDI	CH,LMASKB	;[1373] TO SET LINE-COUNTER AT END OF
		IORI	CH,AS.DAT	;[1373] REPORT HEADER
		HRLI	CH,MOV+AC15	;[1373] GENERATE <MOVE 15,LINE-COUNT>
		PUSHJ	PP,PUTASY	;[1373]
		MOVE	CH,[CAIE.##+AC16,,1]	;[1373] GENERATE <CAIE 16,1>
		JRST	PUTASY		;[1373] TO SKIP IF FIRST PAGE
 INS 34/30	;05C6

 INS 41/30	;05C7

 SUM 244632