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