Google
 

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