Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - iogen.c06
There is 1 other file named iogen.c06 in the archive. Click here to see a list.
 INS 23/1	;06C1
	;RLF	27-JAN-83	[1450] Give error message on FREE syntax error
 INS 49/3	;06C2
	;DEQUEUE FLAG BITS
		DQ%KEY==10		;[1450] FREE WITH KEY
		DQ%EVR==200		;[1450] FREE EVERY RECORD
 INS 26/55	;06C3
	IFN ANS74,<
		CAIE	W2,152			;[1450] DOING DEQUEUE?
		JRST	ERENQ2			;[1450] NO.
		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.
		POP	PP,TC			;[1450] RESTORE AC WE BORROWED.
	>;END IFN ANS74
 SUM 150261