;*; Updated on 04-Apr-91 at 3:05 PM by Steve Archuleta; edit time: 0:00:26
; PTR.SBR - SUBROUTINE TO SCAN SPOOLER QUEUE & FIND PRINTER NAMES
;
; 06/13/85 - D. EICHBAUER
; 11/15/85 - VERSION 2.0 - ADD INTER-TASK COMMUNICATIONS FOR
; RETRIEVING SPOOLERS UNDER TASK MANAGER. D. EICHBAUER
;
; PROPRIETARY PROGRAM MATERIAL
;
; THIS MATERIAL IS THE PROPERTY OF DALE A. EICHBAUER,
; 692 E. FREELAND ROAD, MERRILL, MICHIGAN, 48637. PERMISSION
; TO COPY & USE IS GRANTED FOR NON-PROFIT USES ONLY.
;
;
SEARCH SYS
SEARCH SYSSYM
AUTOEXTERN
OBJNAM PTR.SBR
VMAJOR=2.
VMINOR=0.
VSUB=0.
VEDIT=100.
VWHO=1.
; OFFSETS IN ARGUMENT BLOCK FOR MESSAGE SOCKET OPEN CALL
; ALL MAY BE SKIPPED FOR THOSE WITH AMOS/L 1.3 AND ABOVE
OM.FLG = 0
OM.LEN = 2
OM.MAX = 4
OM.MSR = 6
; ERROR FLAG DEFINITIONS FOR MESSAGE SYSTEM FOR THOSE WITH EARLY AMOS/L.
; ALL MAY BE SKIPPED FOR THOSE WITH AMOS/L 1.3 AND ABOVE.
M$EAOP = 12
M$EDNN = 4
M$EDSF = 13
M$EDSN = 14
M$EMTL = 15
M$ENMB = 10
M$ENMP = 2
M$ENMS = 3
M$ENNN = 5
M$ENQB = 11
M$ENSK = 1
M$ESAE = 7
M$ESNN = 6
; FIELD DEFINITIONS FOR MESSAGE BLOCK FOR THOSE WITH EARLY AMOS/L.
; LAST TWO ARE NEEDED BY ALL DUE TO ERRORS AND OMISSIONS IN SYSSYM.UNV
MS.FLG = 0
MS.SRC = 2
MS.DST = 10
MS.SIZ = 16
MS.PPN = 20
MS.PRV = 22
MS.COD = 24
MS.SPR = 26 ; CORRECTS OMISSION FROM SYSSYM.UNV (see text)
MS.DAT = 36 ; CORRECTS ERROR IN SYSSYM.UNV (see text)
; OFFSETS FROM A3 FOR PARAMETERS PASSED FROM BASIC
PARMS=0
TYPE.1=2
ADD.1=4
SIZE.1=10
PHDR -1,PV$RPD,PH$REE!PH$REU
BR START
ASCII / COPYRIGHT (C) 1985 DALE A. EICHBAUER /
EVEN
START: MOV ADD.1(A3),A2 ; POINT TO ARRAY TO RETURN
MOV LPTQUE,D2 ; GET BEGINNING OF SPOOLERS
BEQ TASK ; IF NOT FOUND, THEN RUNNING
; UNDER TASK MANAGER FOR SPOOLERS
MOV D2,A1 ; USE THIS AS AN INDEX
LOOP: ADD #10,A1 ; POINT TO PRINTER NAME IN TABLE
UNPACK ; GET THE PRINTER NAME
UNPACK ; NOW GET THE SECOND HALF
MOV D2,A1 ; RESTORE BEGINNING OF TABLE ENTRY
MOV @A1,A1 ; POINT TO NEXT ENTRY
MOV A1,D2 ; SEE IF END OF CHAIN
BNE LOOP ; IF NOT, KEEP GOING
TASK: PUSH ; USE THE STACK
PUSH ; FOR THE ARGUMENT BLOCK
PUSH ; FOR THE OPEN SOCKET CALL
MOV SP,A6 ; POINT TO ARGUMENT BLOCK
MOVW #-100000,OM.FLG(A6) ; SET FLAGS TO ENABLE SOCKET
MOVW #2000,OM.LEN(A6) ; SET MAXIMUM MESSAGE LENGTH TO 1024
MOVW #12,OM.MAX(A6) ; SET MAX # OF PENDING MESSAGES TO 10
CLR OM.MSR(A6) ; CLEAR MESSAGE SERVICE ROUTINE ADDRESS
OPNMSG @A6,D6 ; OPEN MESSAGE SOCKET
POP ; NOW CLEAR THE STACK
POP ; BACK TO WHERE IT WAS
POP
TST D6 ; SEE WHAT STATUS WAS RETURNED
BEQ ITC.OK ; IF OK, THEN CONTINUE
CMP D6,#M$ENMS ; SEE IF OLD VERSION OF AMOS/L
JNE ERROR ; IF NOT, ERROR, SO GO TO ERROR ROUTINE
RTN ; ELSE JUST GO BACK TO BASIC
ITC.OK:
MOV A4,A1 ; NOW POINT TO MESSAGE BLOCK (IMPURE)
MOV #45,D6 ; LOOP COUNTER
NULLS: CLR (A1)+ ; CLEAR A WORD IN MESSAGE BLOCK
SOB D6,NULLS ; AND LOOP BACK TILL DONE
MOV A4,A1 ; POINT TO START OF MESSAGE BLOCK AGAIN
MOVW #-3,14(A1) ; SET FOR LPTSPL SOCKET
MOVW #224,MS.SIZ(A1) ; SET MESSAGE SIZE TO 148 BYTES TOTAL
CLRW MS.COD(A1) ; CLEAR THE MESSAGE CODE
MOVW #"UU,MS.SPR(A1) ; PUT UNIQUE ID ON MESSAGE (SAME AS AM)
MOVW #1,MS.SPR+2(A1)
CLR MS.SPR+6(A1)
JOBIDX A5
MOV JOBNAM(A5),MS.DAT+2(A1) ; SEND OUR JOB NAME
TST JOBTRM(A5) ; SEE IF JOB HAS TRMDEF
BEQ NOTRM ; IF NOT, DON'T LOOK FOR IT
MOV JOBTRM(A5),A5 ; POINT TO TRMDEF
SUB #4,A5 ; POINT TO TERMINAL NAME
MOV @A5,MS.SPR+6(A1) ; SAVE IT IN SPARE AREA
NOTRM: CLRW MS.FLG(A1) ; CLEAR THE FLAGS WORD
SNDMSG @A1,D6,0 ; SEND THE MESSAGE TO THE SPOOLER
TST D6 ; CHECK RETURN STATUS
BEQ CONT ; IF OK, GO AROUND
CMP D6,#M$EDSF ; SEE IF SOCKET FULL
BNE EXIST ; IF NOT, SEE IF IT DOESN'T EXIST
SLEEP #1000. ; SLEEP FOR 1/10 SECOND
BR NOTRM ; AND TRY AGAIN
EXIST: CMP D6,#M$ESNN ; SEE IF LPTSPL EXISTS
BNE ERROR ; IF NOT, THEN ERROR
BR EXIT ; ELSE JUST GO BACK TO BASIC
CONT: WTMSG #10000. ; WAIT FOR NO MORE THAN 1 SECOND
BNE EXIT ; IF NO RESPONSE, EXIT
RCVMSG @A1,D6,0 ; RECEIVE THE MESSAGE
TST D6 ; TEST FOR VALID MESSAGE
BNE ERROR ; IF NOT, PROCESS ERROR
CMPW MS.SPR(A1),#"UU ; CHECK FOR PROPER RESPONSE
BNE CONT ; IF NOT, WAIT FOR NEXT
TSTW 30(A1) ; SEE IF END OF LIST
BNE EXIT ; IF SO, FINISH UP
PUSH A1
LEA A1,32(A1) ; POINT TO FIRST PRINTER NAME
UNPACK ; GET FIRST HALF OF PRINTER NAME
UNPACK ; AND SECOND HALF
POP A1
TSTW 114(A1) ; SEE IF SECOND ONE
BNE EXIT
PUSH A1
LEA A1,116(A1) ; POINT TO SECOND PRINTER NAME
UNPACK
UNPACK
POP A1
BR CONT ; AND WAIT FOR NEXT MESSAGE
EXIT:
CLSMSG D6 ; CLOSE MESSAGE SOCKET
RTN ; BACK TO BASIC
ERROR:
; XY 24,1 ; PUT MESSAGE AT BOTTOM OF SCREEN
; XY -1,9
; XY -2,4 ; MAKE IT IN RED FOR COLOR TERMINALS
TYPE <Error in ITC While Reading Printer Names>
; XY -2,1 ; BACK TO WHITE
TTYI ; RING BELL
BYTE 7,0
EVEN
SLEEP #30000. ; WAIT 3 SECONDS SO THEY CAN SEE MESSAGE
JMP EXIT ; THEN BACK TO BASIC
ASCII / COPYRIGHT (C) 1985 DALE A. EICHBAUER /
EVEN
END