; FORMS.LIT Hash Code 720-147-113-744
;
; Have you ever wanted to know what forms were 'SET' on a printer, but
;upon typing a 'PRINT' command were stumped by the fact the queue was empty?
;
; Do you have a large variety of forms in frequent use or more than one
;printer?
;
; If you answered yes to either of the above questions then here's a
;short utility program for you. This program will display the forms currently
;'SET' on all printers in the line printer spooler queue.
; The procedure is simple, simply type 'FORMS' and the names of all
;printers in the LPTSPL with their associated forms will be displayed. This
;program will work whether your system has just one printer or a dozen.
;
;
; This program is written for the AMOS/L system.
;
;
;
; The TCRT calls I have used work on the Televideo 925/950. I'm not
;familiar with other terminals, adjustments may have to be made to get
;the desired half/normal intensity printing.
;
;
;
;
; 2/27/84 Steven G. McNaughton Quaker State Oil Refining Corp.
; Research Center
SEARCH SYS.UNV
SEARCH TRM.UNV
SEARCH SYSSYM.UNV
OFINI ;DEFINE IMPURE SPACE
OFDEF RADBUF,4 ;RAD50 BUFFER SPACE
OFDEF ASCBUF,6 ;ASCII STRING RESULT SPACE
OFDEF FLAG,2 ;END OF QUEUE FLAG
OFSIZ IMPSIZ
TOP:
GETIMP IMPSIZ,A5,EXIT ;GET AN IMPURE SPACE
CTRLC EXIT ;ON ABORT GO TO EXIT
MOV LPTQUE,A0 ;LOAD ADDRESS OF FIRST LP QUEUE BLOCK
MOV #-365,D1 ;HALF INTENSITY
TCRT
TYPESP <Printer Form>
MOV #177414,D1 ;RETURN TO NORMAL VIDEO
TCRT
CRLF
LOOP: MOV (A0),D0 ;GET ADDRESS OF NEXT LPTQUE BLOCK
TST D0 ;IS IT A ZERO (NO MORE QUEUE BLOCKS)
BNE NZFLG ;NO KEEP FLAG NON-ZERO
ZFLG: LEA A1,FLAG(A5)
MOVW #0,(A1) ;NO MORE QUEUE'S ZEROIZE FLAG
BR CONTIN
NZFLG:
LEA A1,FLAG(A5) ;MORE LPTQUE'S SO MAKE FLAG NON-ZERO
MOVW #1,(A1)
CONTIN:
CTRLC EXIT
LEA A1,RADBUF(A5) ;UNPACK MACRO USES A1 AS THE RAD50 ADDRESS
LEA A2,ASCBUF(A5) ;AND A2 AS THE ASCII STRING ADDRESS
CTRLC EXIT
MOV 10(A0),@A1 ;MOVE THE PRINTER NAME TO UNPACKED
UNPACK
UNPACK
CTRLC EXIT
LEA A2,ASCBUF(A5) ;REPOSITION THE ASCII BUFFER
CRLF
CTRLC EXIT
TTYL (A2) ;TYPE THE ASCII STRING
LEA A1,RADBUF(A5) ;RELOAD THE RAD50 BUFFER
LEA A2,ASCBUF(A5) ;RELOAD THE ASCII BUFFER
MOV 14(A0),@A1 ;MOVE THE FORMS NAME TO BE UNPACKED
UNPACK
UNPACK
CTRLC EXIT
LEA A2,ASCBUF(A5) ;REPOSITION THE ASCII BUFFER
MOV #-365,D1 ;HALF INTENSITY
TCRT
TYPESP <........>
MOV #177414,D1 ;NORMAL VIDEO
TCRT
CTRLC EXIT
TTYL (A2) ;TYPE THE ASCII STRING
CRLF
LEA A1,FLAG(A5) ;GET THE END OF QUEUE FLAG
MOVW (A1),D4 ;PUT IN A REGISTER TO CHECK IT
TST D4 ;IS IT ZERO?
BEQ EXIT ;IF SO ALL DONE - SO EXIT
MOV D0,A0 ;NOT ZERO - MORE QUEUE BLOCKS -
JMP LOOP ;GO GET THE NEXT ONE
EXIT:
CRLF
EXIT
END
