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