Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/isam.c13
There are 10 other files named isam.c13 in the archive. Click here to see a list.
REP 29/1 ;13C1
EDIT==212
WIT
EDIT==213
INS 80/2 ;13C2
;.ENDA
;.ENDV
;.VERSION 12C
;.AUTOPATCH 13
;
;.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/11 ;13C3
PUSHJ PP,LOOKF ;WHAT HAPPENED?
WIT
PUSHJ PP,IFLOKF ;[213]WHAT HAPPENED?
INS 40/52 ;13C4
IFLOKF: HRRZ TB,IF1LB+3 ;[213]GET INPUT FILE LOOKUP ERROR CODE
SUM 181524