Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/isam.c12
There are 2 other files named isam.c12 in the archive. Click here to see a list.
REP 28/1 ;12C1
ISMEDT==212 ;EDIT LEVEL
WIT
ISMEDT==213 ;EDIT LEVEL
INS 76/2 ;12C2
;.ENDA
;.AUTOPATCH 10
;.NOEDIT
;.ENDA
;.AUTOPATCH 11
;.NOEDIT
;.ENDA
;.AUTOPATCH 12
;
;.EDIT 213 Fix the INPUT file LOOKUP failure to put IF1LB+3 into TB
;; so that the error code can be used.
; MJC,26-AUG-85,SPR:20-20804
; A:SRC ISAM
;
;.ENDA
REP 22/13 ;12C3
PUSHJ PP,LOOKF ;WHAT HAPPENED?
WIT
PUSHJ PP,IFLOKF ;[213]WHAT HAPPENED?
INS 40/55 ;12C4
IFLOKF: HRRZ TB,IF1LB+3 ;[213]GET INPUT FILE LOOKUP ERROR CODE
SUM 50518