Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
isam.c07
There is 1 other file named isam.c07 in the archive. Click here to see a list.
REP 8/1 ;07C1
;COPYRIGHT (C) 1971, 1980 BY
WIT
;COPYRIGHT (C) 1971, 1983 BY
REP 28/1 ;07C2
EDIT==206
WIT
EDIT==211
INS 47/2 ;07C3
;.AUTOPATCH 6
;.NOEDIT
;.ENDA
;
;.AUTOPATCH 7
;
;.EDIT 207 FIX EDIT 205 TO WORK CORRECTLY.
; DMN, 21-APR-83,SPR 10-33524
; A:SRC ISAM
;
;.EDIT 210 Fix edit 204 to work correctly.
; RLF, 6-JUN-83,SPR 20-19241
; A:SRC ISAM
;
;.EDIT 211 Fix reading of COBOL labels on tape
;; containing packed ISAM file
; JEH, 22-JUN-83,SPR:10-33979
; A:SRC ISAM
;
;.ENDA
REP 41/49 ;07C4
LAB.11: PUSHJ PP, @GETBYT ; GET NEXT CHAR
WIT
LAB.11: TRO SW,ONEBYT ;[211] TURN ON ONE BYTE AT A TIME SW
PUSHJ PP, @GETBYT ; GET NEXT CHAR
INS 181/54 ;07C5
TRCN TC,$ERA ;[207] IS THIS A MTA LABEL PROCESSING ERROR?
JRST LTCTS1 ;[207] YES
REP 185/54 ;07C6
TRCE TC,$ERA ; IS THIS A MTA LABEL PROCESSING ERROR?
JRST START ; NO
WIT
JRST START ; NO
LTCTS1: ;[207]
INS 25/57 ;07C7
MOVE IM,OM ;[210] OM IS NOW IM FOR FILE BEING BUILT.
SUM 226474