Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/iogen.c05
There are 2 other files named iogen.c05 in the archive. Click here to see a list.
INS 23/1 ;05C1
;RLF 01-OCT-82 [1412] Make LSU work for ISAM sequential read
;SMI 02-AUG-82 [1375] Bad move generated on variable length records
;JEH 28-JUN-82 [1370] Make CURAKT an absolute addr so XPAND updates
; it correctly
REP 11/10 ;05C2
TLNE W1,(1B10) ;READ NEXT?
WIT
LDB TE,FI.ORG ;[1412] GET FILE ORGANIZATION
CAIE TE,%ACC.I ;[1412] IS IT INDEXED?
JRST RDGNX ;[1412] NO,
LDB TE,FI.FAM ;[1412] YES,CHECK ACCESS MODE.
CAIE TE,%FAM.S ;[1412] IF YES, JUST DO READ NEXT.
RDGNX: TLNE W1,(1B10) ;[1412] OTHERWISE, CHECK FOR READ NEXT.
REP 21/49 ;05C3
LDB TB,DA.DEP ;[1030] IS THE DEPENDING VARIABLE AT THIS LEVEL?
JUMPN TB,VLTST3 ;[1030] YES
WIT
LDB TB,DA.DLL ;[1375][1030] IS THE DEPENDING VARIABLE AT THIS LEVEL?
JUMPE TB,VLTST3 ;[1375][1030] YES
REP 27/59 ;05C4
MOVEM TA,CURAKT## ;SAVE REL. ADDR
ADD TA,AKTLOC ;GET ABS PTR
WIT
ADD TA,AKTLOC ;[1370] GET ABS PTR
MOVEM TA,CURAKT## ;[1370] SAVE REL. ADDR - no, abs addr
REP 41/59 ;05C5
ADD TA,AKTLOC ;GET ABS LOC IN ALTERNATE KEY TABLE
WIT
;[1370] ADD TA,AKTLOC ;GET ABS LOC IN ALTERNATE KEY TABLE
SUM 104978