Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - iogen.c05
There are 2 other files named iogen.c05 in the archive. Click here to see a list.
 INS 22/1	;05C1
	;V12B****************
	;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
	;JEH	13-JAN-82	[1331] Failure in phase E - write advancing data-name
	;				lines where data-name was syntaxed
	;DMN/JM 21-SEP-81	[1303] RMS Variable Length records take "Depending
	;				On" Error return
	;DMN/JM 21-SEP-81	[1302] Bad Table Link if RMS Record Key missing
	;DMN	31-AUG-81	[1305] WRONG CODE GEN FOR WRITE REC-NAME AFTER
	;			ADVANCING DATA-NAME, WHERE REC-NAME HAS OCCURS
	;			DEPENDING ON CLAUSE.
 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 7/23	;05C3
		SKIPN	TE,WDPITM##	;DEPENDING ITEM?
		 JRST	WADV5A		;NO, SKIP THIS
		TRNN	TE,-1		;ARE WE SURE?
		 JRST	WADV5A		;NO
 WIT
	;[D1305]	SKIPN	TE,WDPITM##	;DEPENDING ITEM?
		SKIPE	TE,WDPITM##	;[M1305] ;DEPENDING ITEM?
	;[D1305]	 JRST	WADV5A		;NO, SKIP THIS
		TRNN	TE,-1		;ARE WE SURE?
		 JRST	WADV5A		;NO
		PUSHJ	PP,WADVV	;[1305] GENERATE CODE FOR IT
		JRST	OVRPUT		;[1305] JUMP OVER PUTOP
	WADVV:				;[1305]
 REP 36/23	;05C4
		JRST	OVRPUT		;JUMP OVER PUTOP
 WIT
	;[D1305]	JRST	OVRPUT		;JUMP OVER PUTOP
			POPJ	PP,	;[1305] RETURN
 INS 41/23	;05C5
			POPJ	PP,	;[1305]
 INS 22/26	;05C6
		TSWF	FERROR		;[1331] WAS ADV ITEM SYNTAXED?
		JRST	BADADV		;[1331] YES - GIVE ERROR
 REP 34/26	;05C7
		PUSHJ	PP,PUTOP
 WIT
		SKIPE	TE,WDPITM##	;[1305] DEPENDING ITEM?
		TRNN	TE,-1		;[1305] ARE WE SURE?
		JRST	WDVG8A		;[1305] NO
		PUSHJ	PP,WADVV	;[1305] YES, GENERATE CODE FOR IT
		JRST	WDVG8B		;[1305] JUMP OVER PUTOP
	WDVG8A:				;[1305]
		PUSHJ	PP,PUTOP
	WDVG8B:				;[1305]
 REP 102/27	;05C8
		MOVEI	TE,4		; LOAD RUNTIME SIZE IN AC4
 WIT
	;[D1303] MOVEI	TE,4		; LOAD RUNTIME SIZE IN AC4
 INS 106/27	;05C9
		MOVEI	TE,4		;[1303] LOAD RUNTIME SIZE IN AC4
 REP 21/49	;05C10
		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
 INS 8/50	;05C11
	;IMPROPER ADVANCING DATA-NAME LINES  [1331]

	BADADV:	MOVEI	DW,E.288	;[1331] DATA-NAME WAS SYNTAXED
		JRST	ADVERA		;[1331]
 REP 27/59	;05C12
		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	;05C13
		ADD	TA,AKTLOC	;GET ABS LOC IN ALTERNATE KEY TABLE
 WIT
	;[1370]	ADD	TA,AKTLOC	;GET ABS LOC IN ALTERNATE KEY TABLE
 INS 10/64	;05C14
		JUMPE	TA,UKADRY	;[1302] IF NO KEY, GIVE FATAL DIAG MSG.
 SUM 8701