.MCALL .MODULE .MODULE RESQUE,VERSION=1,COMMENT=,IDENT=NO ; Copyright (c) 1998 by Mentec, Inc., Nashua, NH. ; All rights reserved ; ; This software is furnished under a license for use only on a ; single computer system and may be copied only with the ; inclusion of the above copyright notice. This software, or ; any other copies thereof, may not be provided or otherwise ; made available to any other person except for use on such ; system and to one who agrees to these license terms. Title ; to and ownership of the software shall at all times remain ; in Mentec, Inc. ; ; The information in this document is subject to change without ; notice and should not be construed as a commitment by Digital ; Equipment Corporation, or Mentec, Inc. ; ; Digital and Mentec assume no responsibility for the use or ; reliability of its software on equipment which is not supplied ; by Digital or Mentec, and listed in the Software Product ; Description. ; Edit History: ; 001 George Stevens Overlaid version of RESORC. Created from RESORC ; Version 97 .NLIST .INCLUDE /SRC:RESPFX.MAC/ .LIST .SBTTL QUEUE - Show system queues ;+ ; Show the print and/or spooler queue. ;- ORIGIN RESQUE QUEUE:: TST A$$ ; Is this the all option. BNE 40$ ; Yes, then don't print it. CLR QUEFLG ; Say we have no queues BIT #SP.ON,SPSTAT(R5) ; Is the spooler running? BEQ 10$ ; If not, branch BIS #SP.SHO,SPSTAT(R5) ; Tell SP to show status MOV SP,QUEFLG ; Say we have a queue 10$: BIT #C1.QUE,$CNFG1(R5) ;Is QUEUE running? BEQ 30$ ; If not, branch MOV #CHAIN,R1 ; Get start of chain area MOV #QUEMAN,R2 ; Get start of RAD50 device name and cmd MOV #QCHAIN.,R3 ; Number of words to move in 20$: MOV (R2)+,(R1)+ ; Move the data into the chain area SOB R3,20$ ; Until the end .CHAIN ; Chain to QUEMAN 30$: TST QUEFLG BNE 40$ .PRINT #NOQUE ; Tell him that there are no queues. 40$: RETURN ; Return eh? NOQUE: .ASCIZ <15><12>"?RESORC-I-No queues active" .EVEN .END