Google
 

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