Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/cobolc.c04
There are no other files named cobolc.c04 in the archive.
INS 23/1 ;04C1
;JEH 02-FEB-82 [1335] Declare DATAB entries for all indexes if REPORT
; SECTION is scanned for their use by REPORT WRITER stmts
;
INS 23/3 ;04C2
SETZM BLDIX## ;[1335]
INS 53/144 ;04C3
SETOM BLDIX ;[1335] TURN ON BUILD INDEXES FLAG
MOVE TA,CURHLD ;[1335] SAVE CURHLD
MOVEM TA,HLDSAV ;[1335]
HRRZ TA,HLDLOC ;[1335] FIND START OF HLDTAB
AOJ TA, ;[1335]
MOVE TA,CURHLD ;[1335] STORE IN CURHLD
PUSHJ PP,CLNHLD## ;[1335] BUILD DATAB ENTRIES FOR INDEXES
MOVE TA,HLDSAV ;[1335] RESTORE CURHLD
MOVEM TA,CURHLD ;[1335]
SETZM BLDIX ;[1335] SHUT OFF FLAG
SUM 80434