Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
qsrque.c08
There is 1 other file named qsrque.c08 in the archive. Click here to see a list.
REP 37/10 ;08C1
TXNN P3,.QIFNC+.QIRET ;INTERNAL CALL or ARCHIVE MSG ???
SKIPL G$QUEU## ;NO,,IS CREATING TURNED OFF ???
SKIPA ;INTERNAL or ARCHIVE or CREATES ON !!
PJRST E$OHR## ;EXTERNAL and CREATES OFF IS AN ERROR
AOS S1,REQIDN ;GET THE REQUEST ID
WIT
;**;[1152]REVAMP CODE AT CREA.0:+15 18-SEP-83/CTK
TXNE P3,.QIFNC+.QIRET ;[1152]INTERNAL CALL OR ARCHIVE MSG ???
JRST CRE.0A ;[1152]YEP, DON'T CHECK OBJECT QUEUE
$CALL CHKQUE ;[1152]OBJECT QUEUE AVAILABLE ???
CRE.0A: AOS S1,REQIDN ;[1152]QUEUE AVAILABLE..GET REQUEST ID
REP 30/12 ;08C2
MOVE S1,.QEROB+.ROBTY(AP) ;GET THE OBJECT TYPE
WIT
;**;[1161] Insert 6 lines after CREA.4+8L. 17-Nov-83 /LWS
MOVX S1,EQ.CHG ;[1161] GET PRIORITY CHANGED BIT
TDNN S1,.EQSEQ(M) ;[1161] IS IT LIT?
JRST CRE.4B ;[1161] NO,,CONTINUE
ANDCAM S1,.EQSEQ(M) ;[1161] YES,,TURN IT OFF
MOVX S1,MXUPRI ;[1161] GET PRIORITY REQUEST WAS CHANGED TO
$TEXT (G$CCHR##,<[Requested priority changed to user maximum of ^D/S1/]>) ;[1161]
CRE.4B: MOVE S1,.QEROB+.ROBTY(AP) ;[1161] GET THE OBJECT TYPE
INS 50/15 ;08C3
;CTK
SUBTTL CHKQUE -- CHECK IF QUEUE IS ENABLED/DISABLED
;**;[1152]ADD CHKQUE SUBROUTINE 18-SEP-83/CTK
;
; CHKQUE IS USED TO DETERMINE IF THE OBJECT QUEUE REQUESTED BY THE
; USER IS ENABLED OR DISABLED. (E.G. MOUNT-REQUESTS, ETC.)
;
;CALL: MOVE S2,REQUESTED OBJECT TYPE
; $CALL CHKQUE
; RETURN HERE ONLY IF THE QUEUE IS ENABLED.
;
;NOTE: RETURN THROUGH THE ERRCDS MACRO (QSRMAC) IF QUEUE IS DISABLED.
; THE OLD SYSTEM (A$ENABLE/A$DISABLE) MERELY SET A GLOBAL
; FLAG (G$QUEUE) WHICH WAS CHECKED IN OTHER GALAXY MODULES BEFORE
; ALLOWING THE USER QUEUE REQUEST.
;
CHKQUE: $SAVE <S1> ;[1152]SAVE THIS FOR NOW
MOVE S1,G$QUEUE## ;[1152]GET THE FLAGS (E.XXXX)
TXNE S1,E.TAPQ ;[1152]TAPE MOUNTS DISABLED?
CAXE S2,.OTMNT ;[1152]IS THAT THE OBJECT REQUESTED?
SKIPA ;[1152]....
PJRST E$MTA## ;[1152]THIS LOOSES..
TXNE S1,E.DSKQ ;[1152]DISK MOUNTS DISABLED?
CAXE S2,.OTMNT ;[1152]IS THAT THE OBJECT REQUESTED?
SKIPA ;[1152]....
PJRST E$DSK## ;[1152]LOOSE BIG...
TXNE S1,E.INPQ ;[1152]BATCH QUEUES DISABLED?
CAXE S2,.OTBAT ;[1152]IS THAT THE OBJECT REQUESTED?
SKIPA ;[1152]....
PJRST E$INP## ;[1152]OH WELL, JUST DIE..
TXNE S1,E.LPTQ ;[1152]PRINT QUEUES DISABLED?
CAXE S2,.OTLPT ;[1152]IS THAT THE OBJECT REQUESTED?
SKIPA ;[1152]....
PJRST E$LPT## ;[1152]BETTER LUCK NEXT TIME
TXNE S1,E.PLTQ ;[1152]PLOTTER QUEUES DISABLED?
CAXE S2,.OTPLT ;[1152]IS THAT THE OBJECT REQUESTED?
SKIPA ;[1152]....
PJRST E$PLT## ;[1152]LOOSER..
;CONTINUED ON THE NEXT PAGE
;CONTINUED FROM PREVIOUS PAGE...
TXNE S1,E.CDPQ ;[1152]CARD READER QUEUES AROUND?
CAXE S2,.OTCDP ;[1152]IS THAT THE OBJECT REQUESTED?
SKIPA ;[1152]....
PJRST E$CDP## ;[1152]LOOSER (DOES IT MATTER?
TXNE S1,E.PTPQ ;[1152]HOWS ABOUT PAPER TAPE PUNCH?
CAXE S2,.OTPTP ;[1152]...
SKIPA ;[1152]....
PJRST E$PTP## ;[1152]HAS ANYONE EVER USED THIS?
$RETT ;[1152]THIS IS A WINNER
REP 43/16 ;08C4
CRQODP: CAIN T2,1 ;BLOCK LENGTH MUST BE 1
CAIE P2,.QHTOU ;AND THIS MUST BE AN OUTPUT QUEUE
WIT
;**;[1171] Change 1 line and delete 1 line at CRQODP+0L. /LWS
CRQODP: CAIE T2,1 ;[1171] BLOCK LENGTH MUST BE 1
REP 31/18 ;08C5
STORE T4,.EQROB+.ROBND(P1) ;OK,,SAVE THE NODE NAME/NUMBER
WIT
;**;[1201]REVAMP AND ADD CODE AT CRQNOD:+2L 30-MAR-84/CTK
SKIPN T4 ;[1201]HE SET IT, SO SKIP THIS
MOVE T4,G$LNBR## ;[1201]DEFAULT, TO LOCAL NODE NUMBER
STORE T4,.EQROB+.ROBND(P1) ;[1201]LET'S SAVE A NAME/NUMBER
TLNN T4,600000 ;[1201]IS IT BINARY ?
JRST .RETT ;[1201]YES, DON'T CONVERT AND RETURN
MOVE S1,T4 ;[1201]GET NODE NAME/NUMBER
PUSHJ P,N$GNOD## ;[1201]LET'S FIND THE NODE
JUMPF .RETT ;[1201]DID WE FIND THE NODE ???
MOVE S1,NETNBR(S2) ;[1201]YES, GET THE NUMBER
SKIPE S1 ;[1201]IS THERE A VALID NODE NUMBER ?
CQND.1: STORE S1,.EQROB+.ROBND(P1) ;OK,,SAVE THE NODE NAME/NUMBER
SUM 178017