Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qmangr.c09
There is 1 other file named qmangr.c09 in the archive. Click here to see a list.
REP 2/1 ;09C1
WIT
REP 40/1 ;09C2
QMAEDT==:2254 ;EDIT NUMBER
WIT
QMAEDT==:2257 ;EDIT NUMBER
DEL 51/1 ;09C3
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1984.
INS 201/3 ;09C4
; 2255 Add code to support modifing the /ASSIST switch.
; If this patch is installed QUASAR edit 1214
; is required or all modify batch queue messages
; will be rejected.
; SPR 10-34294 GCO 10046 14-JUN-84/CTK
;
; 2256 Add ACK codes in messages sent to QUASAR so we can
; keep in synch and not display text that's not expected.
; SPR 10-34791 GCO 10059 26-Jul-84 /LWS
;
; 2257 Move COPYRIGHT macro after entry points. ASCIZ doesn't
; execute very well.
; GCO 10090 31-Aug-84 /LWS
;
REP 6/4 ;09C5
;WHEN CALLED BY K-QUE,
WIT
;WHEN CALLED BY K-QUE,
REP 19/6 ;09C6
;;4-5 RESERVED TO DEC
WIT
;**;[2255]ADD SYMBOL AT Q.IDEP:+7L 14-JUN-84/CTK
QI.AST==3B5 ;[2255]/ASSIST SWITCH
REP 28/6 ;09C7
;12-17 RESERVED TO DEC
WIT
;**;[2255]ADD SYMBOL AT Q.IDEP:+15L 14-JUN-84/CTK
QI.MNA==1B12 ;[2255]ON MODIFY, MODIFY QI.AST
;[2255]13-17 RESERVED TO DEC
REP 17/14 ;09C8
PBOUT
WIT
PBOUT
INS 32/14 ;09C9
;**;[2257] Put COPYRIGHT macro after entry points. /LWS
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1984.
INS 48/14 ;09C10
;**;[2256] Add definitions for user ACK code fields. /LWS
ACK.NT==400000,,0 ;[2256] Mask for /NOTIFY
ACK.JB==377400,,0 ;[2256] Mask for job number
ACK.UT==377,,777777 ;[2256] Mask for UDT bits
INS 21/15 ;09C11
;**;[2256] Insert 1 line after QMANGR+17L /LWS
PUSHJ P,BLDACK ;[2256] GO BUILD AN ACK CODE
REP 51/22 ;09C12
;Here to default to user account string
WIT
;Here to default to user account string
INS 34/25 ;09C13
;**;[2255]ADD 5 LINES AT MOD.1A:+7L 14-JUN-84/CTK
LOAD T2,Q.IDEP(S1),QI.MNA ;[2255] *** GRP 1, WRD 11 = /ASSIST ***;
SETO T1, ;[2255]SET -1
SKIPE T2 ;[2255]SKIP IF NO CHANGE
LOAD T1,Q.IDEP(S1),QI.AST ;[2255]GET /ASSIST: BITS
PUSHJ P,GRPSTO ;[2255]STORE /ASSIST
REP 20/28 ;09C14
FAIL(<NCL Not enough core to receive list answer>)
WIT
FAIL(<NCL Not enough core to receive list answer>)
INS 45/28 ;09C15
;**;[2256] Insert 3 lines after LIST.0+2L /LWS
MOVE S2,ACKCOD(E) ;[2256] GET THE CODE WE WANT TO SEE
CAME S2,.MSCOD(P1) ;[2256] EXPECTING THIS MESSAGE?
JRST LIST.1 ;[2256] NO, IGNORE IT
REP 46/36 ;09C16
RCVA.A: SKIPN DEBUGW ;DEBUGGING?
WIT
;**;[2256] Insert 3 lines at RCVA.A+0L /LWS
RCVA.A: MOVE S2,ACKCOD(E) ;[2256] GET ACK CODE WE'RE EXPECTING
CAME S2,.MSCOD(M) ;[2256] IS IT?
JRST RCVACK ;[2256] NO, IGNORE IT
SKIPN DEBUGW ;DEBUGGING?
INS 10/38 ;09C17
;**;[2256] Insert 2 lines after MSGSND+6L /LWS
MOVE T1,ACKCOD(E) ;[2256] GET ACK CODE
MOVEM T1,.MSCOD(M) ;[2256] PUT IN MESSAGE HEADER
REP 2/42 ;09C18
FPID:
WIT
FPID:
REP 7/43 ;09C19
WIT
REP 69/43 ;09C20
> ;END OF FTUUOS
WIT
;**;[2256] Include new suboutine after OCTNAM subroutine.
;SUBROUTINE TO BUILD AN ACK CODE
;ACK CODE STORED IN ACKCOD(E).
BLDACK: PUSH P,S1 ;[2256] SAVE S1
SETZM ACKCOD(E) ;[2256] CLEAR TARGET
PJOB S1, ;[2256] GET OUR JOB NUMBER
STORE S1,ACKCOD(E),ACK.JB ;[2256] PUT IN PROPER PLACE
MOVX S1,%CNDTM ;[2256] GET UDT
GETTAB S1, ;[2256] ASK THE MONITOR
SETZ S1, ;[2256] OH WELL
STORE S1,ACKCOD(E),ACK.UT ;[2256] STORE IN UDT FIELD OF CODE
POP P,S1 ;[2256] RESTORE S1
POPJ P, ;[2256] RETURN
> ;END OF FTUUOS
INS 33/44 ;09C21
;**;[2256] Insert 1 line /LWS
ACKCOD:! BLOCK 1 ;[2256] ACKCOD FOR KEEPING IN SYNCH
SUM 56064