Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/impure.c12
There are 3 other files named impure.c12 in the archive. Click here to see a list.
 REP 10/1	;12C1
	;COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 25/1	;12C2
	;MJC	24-OCT-85	[1610] Add location for RD pointer in CLEANC
	;MJC	21-JUN-85	[1600] Add locations for INITIALIZE of tables
 INS 98/14	;12C3
		DEFIN CURRD,1	;[1610]RD RPWTAB POINTER FOR SUM REPORT CHECKING
 INS 105/15	;12C4
		DEFIN	INIDAT,1	;[1600] DATAB pointer of INITIALIZE counter
		DEFIN	INIVAL,1	;[1600] VALTAB of "1" for INITIALIZE dummy sub
		DEFIN	REPSUB,1	;[1600] Number of subscripts for REPLACING item
 INS 17/20	;12C5
		DEFIN	VSUBS,1		;[1600]NUMBER OF DUMMY "1" SUBS FOR INITIALIZE
		DEFIN	GSUB,1		;[1600]GIVEN SUBS FROM INITIALIZE PHASE D
		DEFIN	OCCTAG,1	;[1600]SAVED TAG FOR INITIALIZE OCCURS LOOP
		DEFIN	REPFLG,1	;[1600]ITEM OF MATCHING CLASS FOUND IF -1
 SUM 136307