Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/isam.c04
There are no other files named isam.c04 in the archive.
REP 28/1 ;04C1
EDIT==162
WIT
EDIT==203
INS 3/2 ;04C2
;AUTOPATCH HISTORY FILE FOR 12B
;
;.BEGINR
;.VERSION 12B
;.AUTOPATCH 4
;
;.EDIT 203 PRINT KEY VALUE FOR DUP OR KEYS OUT OF ORDER MSG
; LEM,22-JAN-82,SPR:NONE
; A:SRC ISAM
;
;.EDIT 202 FIX ERROR MESSAGE SO ALL IS PRINTED
; JEH,02-OCT-81,SPR:10-31662
; A:SRC ISAM
;
;.EDIT 201 DEVELOPMENT EDIT
;
;.EDIT 200 RESTORE .FBSIZE TO + INFINITY FOR COBOL-20
; HAM/JM,11-SEP-81,SPR:NONE
; A:SRC ISAM
;
;.ENDA
;.ENDV
;.ENDR
REP 40/3 ;04C3
MTIND==101 ;INDUSTRU COMPATABLE MODE FUNCTION CODE FOR MTAPE UUO
WIT
MTIND==101 ;INDUSTRU COMPATABLE MODE FUNCTION CODE FOR MTAPE UUO
REP 1/16 ;04C4
WIT
REP 67/18 ;04C5
WIT
REP 83/19 ;04C6
WIT
REP 45/20 ;04C7
WIT
REP 15/21 ;04C8
WIT
REP 65/23 ;04C9
WIT
REP 39/25 ;04C10
WIT
REP 87/26 ;04C11
WIT
REP 150/28 ;04C12
WIT
REP 57/32 ;04C13
WIT
REP 14/35 ;04C14
CAMX1A: ILDB CH,TA
WIT
MOVE TF,TA ;[203]GET KEY BYTE-PNTR
CAMX1A: ILDB CH,TF ;[203]
REP 43/35 ;04C15
CAMX3A: ILDB CH,TA ;[155] GET NEXT CHAR
WIT
MOVE TF,TA ;[203]
CAMX3A: ILDB CH,TF ;[155][203] GET NEXT CHAR
REP 59/35 ;04C16
WIT
REP 67/36 ;04C17
WIT
REP 22/37 ;04C18
WIT
REP 50/38 ;04C19
;IFN TOPS20,< PUSHJ PP,OF2AFS >;[154]GET ASCII FILE SPEC
WIT
IFN TOPS20,< PUSHJ PP,OF2AFS >;[154]GET ASCII FILE SPEC ;[200]
REP 55/38 ;04C20
;IFN TOPS20,<
; MOVE TA,OF2DAT ;GET DEVICE NAME OF IDA FILE
; CALLI TA,$GETCH ;GET CHARACTERISTICS
; TLNN TA,$DSK ;A DISK?
; JRST ALLD13 ;NO
; TRNN SW,OPT.P ;SKIP IF A SEQ FILE
; PUSHJ PP,OF1SIZ ;CHANGE .FBSIZ TO +INFINITY
;>;END IFN TOPS20
WIT
IFN TOPS20,<
MOVE TA,OF2DAT ;GET DEVICE NAME OF IDA FILE ;[200]
CALLI TA,$GETCH ;GET CHARACTERISTICS ;[200]
TLNN TA,$DSK ;A DISK? ;[200]
JRST ALLD13 ;NO ;[200]
TRNN SW,OPT.P ;SKIP IF A SEQ FILE ;[200]
PUSHJ PP,OF1SIZ ;CHANGE .FBSIZ TO +INFINITY ;[200]
>;END IFN TOPS20 ;[200]
REP 87/38 ;04C21
WIT
REP 58/39 ;04C22
;NOW WRITE OUT ANY EMPTY INDEX BLOCKS REQUIRED
WIT
;NOW WRITE OUT ANY EMPTY INDEX BLOCKS REQUIRED
REP 102/39 ;04C23
;IFN TOPS20,< PUSHJ PP,OF1AFS >;[154] GET ASCIZ FILE SPEC
WIT
IFN TOPS20,< PUSHJ PP,OF1AFS >;[154] GET ASCIZ FILE SPEC ;[200]
REP 106/39 ;04C24
;IFN TOPS20,<
; MOVE TA,OF1DAT ;GET DEVICE NAME OF IDX FILE
; CALLI TA,$GETCH ;GET CHARACTERISTICS
; TLNE TA,$DSK ;SKIP IF NOT A DSK
; PUSHJ PP,OF1SIZ ;CHANGE .FBSIZ TO +INFINITY
;>;END IFN TOPS20
WIT
IFN TOPS20,<
MOVE TA,OF1DAT ;GET DEVICE NAME OF IDX FILE ;[200]
CALLI TA,$GETCH ;GET CHARACTERISTICS ;[200]
TLNE TA,$DSK ;SKIP IF NOT A DSK ;[200]
PUSHJ PP,OF1SIZ ;CHANGE .FBSIZ TO +INFINITY ;[200]
>;END IFN TOPS20 ;[200]
REP 116/39 ;04C25
;DISPLAY SOME OF THE FINAL STATISTICS
WIT
;DISPLAY SOME OF THE FINAL STATISTICS
REP 50/41 ;04C26
WIT
REP 12/42 ;04C27
WIT
REP 75/43 ;04C28
GETK4A: TYPE (%U inappropriate before X, U ignored
) ;[160]
WIT
GETK4A: TYPE (%U inappropriate before X - U ignored
) ;[202] [160]
REP 80/43 ;04C29
WIT
REP 38/44 ;04C30
WIT
REP 47/45 ;04C31
WIT
REP 75/46 ;04C32
WIT
REP 22/48 ;04C33
WIT
REP 69/49 ;04C34
WIT
REP 150/50 ;04C35
WIT
REP 16/53 ;04C36
WIT
REP 148/54 ;04C37
RTSERR: PUSHJ PP,CAMD
WIT
RTSERR: PUSHJ PP,CAMD
REP 28/55 ;04C38
WIT
REP 35/56 ;04C39
WIT
REP 19/58 ;04C40
WIT
REP 46/58 ;04C41
WIT
REP 19/59 ;04C42
WIT
REP 44/60 ;04C43
WIT
REP 15/61 ;04C44
WIT
REP 39/63 ;04C45
WIT
REP 68/66 ;04C46
WIT
REP 59/68 ;04C47
WIT
REP 47/69 ;04C48
WIT
REP 174/70 ;04C49
WIT
REP 25/71 ;04C50
WIT
REP 118/75 ;04C51
DATBPB: BLOCK 1 ;EBCDIC VARIABLE LENGTH BYTES PER BLOCK - OUTPUT
WIT
DATBPB: BLOCK 1 ;EBCDIC VARIABLE LENGTH BYTES PER BLOCK - OUTPUT
SUM 93257