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