Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
quench.c08
There is 1 other file named quench.c08 in the archive. Click here to see a list.
REP 41/1 ;08C1
QUHWHO==0 ;WHO AST PATCHED
QUHEDT==504 ;EDIT NUMBER
WIT
QUHWHO==0 ;WHO LAST PATCHED
QUHEDT==520 ;EDIT NUMBER
REP 16/4 ;08C2
DM PRI, 62, 10, 20 ;EXTERNAL PRIORITY
WIT
DM PRI, 63, 10, 20 ;[510] EXTERNAL PRIORITY
REP 156/7 ;08C3
WIT
;
;505 The /UNIT switch value for a print request is set to the
; system default in QUASAR's data base when a /MODIFY is done.
; SPR # 10-34145 14-SEP-83/CTK
;
;506 QUASAR CRL and RRF crashes when a batch job is submitted
; with the log file device of NUL: and a /OUTPUT:LOG switch.
; SPR 10-34200 30-SEP-83/CTK
;
;507 QUEUE does not correctly place batch log files
; when the user has a UFD on two structures, the user
; is pathed into an SFD on the second structure, the SFD
; does not exist on the first structure, and the batch
; control file is in the first structure's UFD.
; SPR 10-34208 2-OCT-83/CTK
;
;510 Don't let user specify /PRIORITY:0. Rest of GALAXY abides to
; 1 to 63. Also make sure SCAN lets /PRIORITY:63 get by.
; SPR 10-34293 16-Nov-83 /LWS
;
;511 Edit 505 to QUENCH is incorrect. The /UNIT switches
; no longer cleared by /MODIFY but it causes problems
; with /CREATE when no /UNIT is specified. A garbage
; value is used for a unit when the reqest is listed.
; SPR 10-34389 18-JAN-84/CTK
;
;512 Generate a warning error message if /UNIQUE is abbreivated
; to avoid confusion with the /UNIT switch for print requests etc.
; SPR 10-34130 14-FEB-84/CTK
;
;513 Remove EDIT 507, it introduced other log file placement problems
; and incorrect error messages.
; NO SPR 20-FEB-84/CTK
;
;514 Remove EDIT 512, people don't believe you should be warned
; when you type a command confusing the /UNIT and /UNIQUE
; switches.
; NO SPR 28-FEB-84/CTK
;
;515 EDIT 506 introduced an extraneous error message when
; the object file does not exist.
; NO SPR 5-MAR-84/CTK
;
;516 We do not use the /OUTPUT: switch default from GALGEN
; because we reference the wrong symbol, OUTPLOG,
; reference the correct symbol, INPLOG, instead.
; SPR 10-33499 5-MAR-84/CTK
;
;517 SUBMIT on behalf of fails when ERSATZ or PATHOLOGICAL
; devices are part of the input file spec, for example
; "SUBMIT [10,10]=CTL:X,NUL:" will fail.
; SPR 10-34508 15-MAR-84/CTK
;
;520 The /DESTINATION:FOODOO passes the SIXBIT translation
; of the node name instead of number. So pass the octal
; node number if possible, monitor knows about node,
; and SIXBIT node name allowing QUASAR to do the translation.
; SPR 10-34584,10-34586 20-MAR-84/CTK
;
INS 36/24 ;08C4
;**;[506]ADD 4 LINES AT INDEF1:+28L 30-SEP-83/CTK
;**;[515]CHANGE AC USAGE OF EDIT 506 5-MAR-84/CTK
MOVEI TF,%EQONL ;[515]LOAD OUTPUT NOLOG BIT
MOVS S2,.FXDEV(I) ;[506]GET LOGFILE DEVICE
CAIN S2,'NUL' ;[506]IS IT NUL:???
MOVEM TF,S.OUT ;[515]YES, SET THE EXPLICIT BIT
REP 24/26 ;08C5
INDFTU: MOVSI T1,-1 ;YES--USE HIM FOR DEFAULT
WIT
;**;[517]ADD CODE AT INDFTU:+0L 15-MAR-84/CTK
INDFTU: MOVE T1,.FXDEV(I) ;[517]GET DEVICE
MOVEM T1,PTHBLK+.PTFCN;[517]STORE FOR PATH. UUO
MOVE T1,[.PTMAX,,PTHBLK] ;[517]SET UP THE UUO
PATH. T1, ;[517]GET THE BITS
SETZM PTHBLK+.PTSWT ;[517]FAILURE, NOT ERSATZ
MOVE T1,PTHBLK+.PTSWT ;[517]GET THE BITS
TXNN T1,PT.IPP ;[517]IMPLIED PPN ???
JRST INDFU1 ;[517]NO, DEFAULT THE PPN
SETZM .FXDIR(I) ;[517]YES, CLEAR PPN
SETOM .FXDIM(I) ;[517]AND IT'S NOT WILD ANY MORE
MOVSI T1,.FXDIR(I) ;[517]ALSO CLEAR ANY SPECIFIED PATH
HRRI T1,.FXDIR+1(I) ;[517]
BLT T1,.FXDIR+2*.FXLND-1(I) ;[517]CLEAR IT
ANDCAM S1,.FXMOD(I) ;[517]CAN'T SPECIFY DEVICE
ANDCAM S1,.FXMOM(I) ;[517]OR DIRECTORY
JRST INDEFD ;[517]SET UP DIRECTORY NOW
INDFU1: MOVSI T1,-1 ;[517]YES--USE HIM FOR DEFAULT
REP 33/37 ;08C6
SKIPL S2,S.PRI ;GET EXTERNAL PRIORITY
SKIPA ;GET ONE,,CONTINUE ONWARD
SKIPE CREFLG ;NOT SPECIFIED. IS THIS CREATE ?
SKIPA ;NO,,LEAVE AS -1
MOVEI S2,0 ;YES,,SET TO 0
ANDI S2,77 ;MASK TO FIT
WIT
;**;[510] Change code after CREA1A+5L. 16-Nov-83 /LWS
SKIPN S2,S.PRI ;[510] /PRIORITY:0 SPECIFIED?
N$FATE <PZR>,,</PRIORITY:0 not in range 1 to 63> ;[510] SEE YA
JUMPG S2,CREA1B ;[510] OK IF GREATER THAN ZERO
SKIPN CREFLG ;NOT SPECIFIED. IS THIS CREATE ?
MOVEI S2,0 ;YES,,SET TO 0
CREA1B: ANDI S2,77 ;[510] MASK TO FIT
REP 29/39 ;08C7
MOVEI S2,OUTPLOG ;DEFAULT TO /OUTPUT:LOG
WIT
;**;[516]CHANGE 1 LINE AT CREI.3:+4L 5-MAR-84/CTK
MOVEI S2,INPLOG ;[516]DEFAULT TO /OUTPUT:LOG
REP 55/58 ;08C8
CAMN S1,[-1] ;ANY AT ALL?
MOVEI S1,0 ;NOPE
SKIPN ARGBK2+.ROBLK+.ROBAT ;ANYTHING SPECIFIED?
WIT
;**;[511]REVAMP CODE AT BLDR.4:+2L 18-JAN-84/CTK
MOVE S2,CREFLG ;[511]GET CREFLG
JUMPN S2,BLD.4A ;[511]CREATE ???
CAMN S1,[-1] ;[511]YES ... CHECK FOR ANYTHING
MOVEI S1,0 ;[511]NOPE
BLD.4A: SKIPN ARGBK2+.ROBLK+.ROBAT ;[511]ANYTHING SPECIFIED?
REP 47/60 ;08C9
SETN.6: MOVE S1,T2 ;GET THE NAME IN S1
POPJ P, ;AND RETURN
WIT
;**;[520]ADD 9 LINES AT SETN.6:+0L 20-MAR-84/CTK
SETN.6: MOVEI T1,2 ;[520]GET ARG BLOCK LENGTH
MOVE S1,[XWD .NDRNN,T1] ;[520]NAME TO NUMBER FUNCTION
NODE. S1, ;[520]CONVERT THE NODE NAME
JRST SETN.7 ;[520]CAN'T, CHECK FOR ANF SOFTWARE
POPJ P, ;[520]RETURN, NODE NUMBER IN S1
SETN.7: CAMN S1,[XWD .NDRNN,T1] ;[520]AC UNCHANGED ???
N$FATE <DSI>,,<DESTINATION SWITCH ILLEGAL> ;[520]YES,
;[520]NO ANF SUPPORT
MOVE S1,T2 ;[520]SO GET THE NAME IN S1,
;[520]AND LET QUASAR CONVERT IT
POPJ P, ;[520]RETURN
REP 40/67 ;08C10
SL OUTPUT,S.OUT,OUTP,OUTPLOG
WIT
;**;[516]CHANGE 1 LINE IN SWTCHS MACRO 5-MAR-84/CTK
SL OUTPUT,S.OUT,OUTP,INPLOG ;[516]
SUM 135898