Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 INS 22/1	;04C1
	;V12B****************
	;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 7/23	;04C2
		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	;04C3
		JRST	OVRPUT		;JUMP OVER PUTOP
 WIT
	;[D1305]	JRST	OVRPUT		;JUMP OVER PUTOP
			POPJ	PP,	;[1305] RETURN
 INS 41/23	;04C4
			POPJ	PP,	;[1305]
 INS 22/26	;04C5
		TSWF	FERROR		;[1331] WAS ADV ITEM SYNTAXED?
		JRST	BADADV		;[1331] YES - GIVE ERROR
 REP 34/26	;04C6
		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	;04C7
		MOVEI	TE,4		; LOAD RUNTIME SIZE IN AC4
 WIT
	;[D1303] MOVEI	TE,4		; LOAD RUNTIME SIZE IN AC4
 INS 106/27	;04C8
		MOVEI	TE,4		;[1303] LOAD RUNTIME SIZE IN AC4
 INS 8/50	;04C9
	;IMPROPER ADVANCING DATA-NAME LINES  [1331]

	BADADV:	MOVEI	DW,E.288	;[1331] DATA-NAME WAS SYNTAXED
		JRST	ADVERA		;[1331]
 INS 10/64	;04C10
		JUMPE	TA,UKADRY	;[1302] IF NO KEY, GIVE FATAL DIAG MSG.
 SUM 8701