Trailing-Edge
-
PDP-10 Archives
-
decuslib10-08
-
43,50512/debque.mac
There are no other files named debque.mac in the archive.
TITLE DEBQUE
;Routine for NETSPL to use DEBUG queues instead of normal ones
;
;This changes the global QSRGETTAB to get private QUASAR
; instead of the system QUASAR
;
; Implicit inputs
;
; NONE
;
; Implicit outputs
;
; QSRGETTAB is changed
SEARCH JOBDAT
T1=1 ;Scratch AC
%SIQPV==22,,126 ;GETTAB for SID of Private QUASAR
DEBQUE::
OUTSTR [ASCIZ "[NETDQU Debug queue in Use]
"]
MOVE T1,[%SIQPV] ;Gettab for private QUASAR
MOVEM T1,QSRGETTAB## ;store it for when we want to get QUASAR's SID.
JRST TOP.F## ;Go to mainline code
LIT
LOC .JBREN
EXP DEBQUE ;This is the REENTER entry point
END