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