Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cobolc.c09
There are 4 other files named cobolc.c09 in the archive. Click here to see a list.
 REP 1/1	;09C1
	; UPD ID= 1533 on 2/22/84 at 9:32 AM by HOFFMAN                         
 WIT
	; UPD ID= 1631 on 6/7/84 at 8:22 PM by HOFFMAN                          
 REP 29/1	;09C2
	;JEH	14-FEB-84	[1515] If defining implied indexes for REPORT SECTION,
	;				check PCHOLD for correct core assignment
 WIT
	;V13****************
	;MJC     5-SEP-84	[1544] Move TYPE DETAIL check for SUM .. UPON .. to
	;			       CLEANC.  Set RW.RSU and RW.UP1 in CLEANC.
	;JEH	07-JUN-84	[1537] Fix edit 1424 - give error if fields are in 
	;				an ASCII record
	;JEH	14-FEB-84	[1515] If defining implied indexes for REPORT SECTION,
	;				check PCHOLD for correct core assignment
	;V12B***************
 REP 22/42	;09C3
		HRRZ	TB,TBLOCK+1		;[1424] GET LAST LINK IN TB FOR FNDFIL
		PUSHJ	PP,FNDFIL##		;[1424] FIND THE FILE TABLE
		  POPJ	PP,			;[1424] NO FILTAB LINK
		LDB	TC,FI.ERM		;[1424] GET FILE'S MODE
		CAIE	TC,%RM.7B		;[1424] IS IT ASCII?
 WIT
		HRRZ	TA,TBLOCK+1		;[1537] GET LAST LINK IN TA
	D38.L2:	PUSHJ	PP,LNKSET		;[1537]
		LDB	TC,DA.LVL		;[1537] AREA WE AT THE RECORD LEVEL?
		CAIN	TC,1			;[1537] 
		JRST	D38.L3			;[1537] YES
		PUSHJ	PP,FNDPOP		;[1537] RETURNS TB[ REL ADDR OF POP
		POPJ	PP,			;[1537] CAN'T FIND ONE
		MOVE	TA,TB			;[1537] SET UP TA
		JRST	D38.L2			;[1537] CHECK AGAIN?
	D38.L3:	LDB	TC,DA.USG##		;[1537] 
		CAIE	TC,%US.D7		;[1537] IS IT ASCII?
 REP 37/117	;09C4
		LDB	TA,HL.NAM	;GET NAMTAB ENTRY
		ADD	TA,NAMLOC
		HRRZ	TC,(TA)		;GET ADDRESS OF DATAB ENTRY
		MOVE	TA,TC
		PUSHJ	PP,LNKSET	;MAKE REAL ADDRESS
		LDB	TA,DA.RPW	;GET RPWTAB LINK
		ADD	TA,RPWLOC	;MAKE LINK REAL ADDRESS
		LDB	TD,RW.TYP	;GET TYPE OF REPORT GROUP
		CAIE	TD,%RG.DE	;DETAIL GROUP ?
		EWARNJ	E.364		;NO, GENERATE FATAL ERROR AND RETURN
		MOVE	TA,TB		;TA CONTAINS NEW ADDRESS OF RPWTAB UPON ENTRY
		ADD	TA,RPWLOC
		DPB	TC,RW.UP1##	;STORE POINTER TO RPWTAB ENTRY
		SETO	TB,
		DPB	TB,RW.RSU##	;SET REFERENCED-BY-SUM-UPON 
 WIT
	;[1544] MOVE TYPE DETAIL CHECK TO CLEANC
 SUM 252461