Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
quench.c09
There is 1 other file named quench.c09 in the archive. Click here to see a list.
REP 42/1 ;09C1
QUHEDT==520 ;EDIT NUMBER
WIT
QUHEDT==522 ;EDIT NUMBER
INS 215/7 ;09C2
;521 QUEUE does not properly process the /TAG and /BEGIN
; switches. We do not use the /BEGIN default when a
; /TAG switch is omitted. We also do not detect when
; these two mutually exclusive switches are type on
; the same command line.
; SPR 10-34676 7-MAY-84/CTK
;
;522 We do not allow /ASSIST to be modified because we
; don't have code in QUEUE or QUASAR to support it,
; we don't even have the bits defined. The QUASAR
; edit 1214 and QMANGR edit 2255 are required for
; this edit to be functional if these are not
; installed the /ASSIST functionality will not work.
; SPR 10-34294 GCO 10046 14-MAY-84/CTK
;
REP 5/15 ;09C3
QUELOP: MOVE S1,[10,,[IOWD SWTCHL,SWTCHN
WIT
QUELOP:
;**;[522]ADD AND REVAMP CODE AT QUELOP:+0L 14-JUN-84/CTK
SETOM S.ASST ;[522]INITIALIZE SWITCH VALUE
MOVE S1,[10,,[IOWD SWTCHL,SWTCHN
INS 14/15 ;09C4
MOVE S1,S.ASST ;[522]GET THE SWITCH
MOVEM S1,T.ASST ;[522]SAVE IT, TO CHECK ORIGIN
REP 42/30 ;09C5
SMX S.TAG,-1
WIT
;**;[521]DELETE 1 LINE IN QSM MACRO 7-MAY-84/CTK
REP 23/40 ;09C6
SKIPE CREFLG ;IS THIS A CREATE ???
JRST CRE2.1 ;NO,,SKIP THIS
MOVE S1,S.BATL ;GET THE LOG FILE TYPE CODE
LSH S1,^D24 ;SHIFT IT TO THE RIGHT POSITION
IORM S1,Q.IDEP(Q) ;SAVE IT FOR QMANGR
MOVE S1,S.ASST ;GET THE OPERATOR INTRVN CODE
LSH S1,^D30 ;SHIFT IT TO THE RIGHT POSITION
IORM S1,Q.IDEP(Q) ;SAVE IT FOR QMANGR
CRE2.1: SKIPL MODFLG ;MODIFING?
JRST CRE2.2 ;NO
SKIPL S.ASST ;/ASSISTANCE?
N$FATE <CMA>,,<Can't modify /ASSISTANCE switch>
SKIPL S.BATL ;/BATLOG?
N$FATE <CMB>,,<Can't modify /BATLOG switch>
CRE2.2: MOVEI S1,2 ;SET LOG FILE COUNTER
WIT
;**;[522]ADD AND REVAMP CODE CREI2:+60L 14-JUN-84/CTK
MOVE S1,S.ASST ;[522]GET THE OPERATOR INTRVN CODE
LSH S1,^D30 ;[522]SHIFT IT TO THE RIGHT POSITION
SKIPN CREFLG ;[522]IS THIS A CREATE ???
JRST CRE2.1 ;[522]YES, SKIP THIS AND STORE IT
SKIPGE T.ASST ;[522]WAS /ASSIST TYPED BY USER ?
JRST CRE2.2 ;[522]NO, SO DON'T DO IT
TLO S1,(1B12) ;[522]YES--SET MODIFY FLAG
CRE2.1: IORM S1,Q.IDEP(Q) ;[522]SAVE IT FOR QMANGR
CRE2.2: SKIPE CREFLG ;[522]IS THIS A CREATE ???
JRST CRE2.3 ;[522]NO, SKIP THIS STUFF
MOVE S1,S.BATL ;[522]GET THE LOG FILE TYPE CODE
LSH S1,^D24 ;[522]SHIFT IT TO THE RIGHT POSITION
IORM S1,Q.IDEP(Q) ;[522]SAVE IT FOR QMANGR
CRE2.3: SKIPL MODFLG ;[522]MODIFING?
JRST CRE2.4 ;[522]NO
SKIPL S.BATL ;[522]YES, /BATLOG?
N$FATE <CMB>,,<Can't modify /BATLOG switch>
CRE2.4: MOVEI S1,2 ;[522]SET LOG FILE COUNTER
REP 16/53 ;09C7
MOVE S1,LOGCNT ;GET FILE COUNTER IF INPUT
CAIN S1,1 ;CTL FILE SPEC?
JRST [MOVE T1,S.TAG ;GET /TAG VALUE
CAMN T1,[-1] ;NOT SPECIFIED?
SETZ T1, ;THEN CLEAR IT
JRST .+1] ;AND CONTINUE
MOVEM T1,Q.FBIT(J) ;SAVE IN REQUEST
WIT
;**;[521]REVAMP CODE AT LOOKDD:+15L 7-MAY-84/CTK
TLNN T1,770000 ;[521]IS IT SIXBIT ???
JRST LKDD.1 ;[521]NO, SO LET'S STORE IT AWAY
MOVE S1,DQTYPE ;[521]YES, GET THE OBJECT TYPE
;[521]MAKE SURE IT'S A BATCH REQUEST
CAXE S1,SIXBIT /LP/ ;[521]"QUEUE foo:=x.x" COMMAND ?
CAXN S1,0 ;[521]IS IT HERE ???
MOVE S1,O.DEV ;[521]NO, MUST BE HERE
CAXE S1,SIXBIT /INP/ ;[521]IS IT BATCH ??
SETZ T1, ;[521]NO ... IGNORE /TAG SWITCH
LKDD.1: MOVEM T1,Q.FBIT(J) ;[521]SAVE IN REQUEST
REP 58/67 ;09C8
SP TAG,S.TAG,.SWSIX##,,FS.VRQ!FS.NFS
WIT
;**;[521]CHANGE 1 LINE IN SWTCHS MACRO 7-MAY-84/CTK
SP TAG,F.STRT,.SWSIX##,,FS.VRQ!FS.NFS ;[521]
INS 16/76 ;09C9
;**;[522]ADD 1 LINE AFTER STRTOF:+0L 14-JUN-84/CTK
T.ASST: BLOCK 1 ;[522]USER INPUT STATE WORD -1 IF NOT INPUT
INS 22/81 ;09C10
;**;[522]DOCUMENT THE BIT USAGE 14-JUN-84/CTK
REP 26/81 ;09C11
; 4-5: (FUTURE)
WIT
; 4-5: /ASSISTANCE
REP 30/81 ;09C12
;12-17: (FUTURE)
WIT
; 12: 1 IF /MODIFY/ASSISTANCE
;13-17: (FUTURE)
SUM 202536