Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - iogen.c07
There is 1 other file named iogen.c07 in the archive. Click here to see a list.
 INS 23/1	;07C1
	;RLF	30-JUN-83	[1474] Correction to edit 1450
	;RLF	22-APR-83	[1464] Correction to edit 1450
 INS 52/3	;07C2
		DQ%ALR==400		;[1474] FREE EVERY RECORD IN ALL FILES
 REP 29/55	;07C3
		TLNE	W1,DQ%EVR+DQ%KEY	;[1450] EITHER WITH KEY OR "EVERY"?
		JRST	ERENQ2			;[1450] YES.
		MOVEI	DW,E.747		;[1450] MUST HAVE EITHER ONE,
		PUSH	PP,TC			;[1450] OR IT IS A FATAL
		PUSHJ	PP,OPFAT		;[1450] ERROR.
 WIT
		TLNE	W1,DQ%EVR+DQ%KEY+DQ%ALR	;[1450] [1474] ONE OF THE THREE?
		JRST	ERENQ2			;[1450] YES.
		MOVEI	DW,E.747		;[1450] MUST HAVE ONE OF THEM,
		PUSH	PP,TC			;[1450] OR IT IS A FATAL
		PUSHJ	PP,OPFAT		;[1450] [1464] ERROR.
 SUM 133975