Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cleanc.c09
There are 4 other files named cleanc.c09 in the archive. Click here to see a list.
INS 21/1 ;09C1
;MJC 5-SEP-84 [1544] Move check for TYPE DETAIL for SUM UPON from
; COBOLC. Setup RW.RSU and RW.UP1 in CLHUPN.
REP 26/7 ;09C2
CLHUPN: LDB TB,HL.LNK ;GET LINK TO RPWTAB UPON ENTRY
WIT
CLHUPN: PUSH PP,TA ;[1544] SAVE HLDTAB POINTER
PUSHJ PP,CLNHLQ ;[1544] DO QUALIFIER CHECKS
PUSH PP,TE ;[1544]
HRRZI TC,(TE) ;[1544] MAKE DATTAB PTR. TO DETAIL LINE
MOVE TA,TC ;[1544]
PUSHJ PP,LNKSET## ;[1544]
LDB TA,DA.RPW ;[1544] GET THE RPWTAB LINK
ADD TA,RPWLOC ;[1544] ADD OFFSET
LDB TB,RW.TYP## ;[1544] MUST BE TYPE DETAIL
CAIE TB,%RG.DE ;[1544]
PUSHJ PP,CLHUPE ;[1544] IT'S NOT - FATAL
SETO TB, ;[1544] SET REFERENCED-BY-SUM-UPON BIT
DPB TB,RW.RSU## ;[1544] IN DETAIL LINE
POP PP,TE ;[1544]
POP PP,TA ;[1544] THE CURRENT HLDTAB ENTRY
LDB TB,HL.LNK ;GET LINK TO RPWTAB UPON ENTRY
REP 31/7 ;09C3
JRST RPTDOE ;RETURN
WIT
MOVE TA,TB ;[1544] POINT TO THE UPON ENTRY
ADD TA,RPWLOC ;[1544] ADD OFFSET
DPB TC,RW.UP1## ;[1544] UPON ENTRY GETS DATTAB OF DETAIL
JRST RPTDOE ;RETURN
CLHUPE: HRRZI DW,E.364 ;[1544] SUM UPON MUST REF. TYPE DETAIL
JRST CLHBA1 ;[1544]
SUM 131075