Trailing-Edge
-
PDP-10 Archives
-
bb-d868b-bm_tops20_v3a_2020_dist
-
3a-sources/qprm.mac
There are 5 other files named qprm.mac in the archive. Click here to see a list.
SUBTTL Larry Samberg/LSS 12 Jul 74
IF2,<IFE %.QPS2,<TAPE>>
;VERSION INFORMATION
QPMVER==2 ;MAJOR VERSION
QPMMIN==0 ;MINOR VERSION
QPMEDT==14 ;EDIT LEVEL
QPMWHO==0 ;WHO LAST PATCHED
%%QPM==<BYTE (3)QPMWHO(9)QPMVER(6)QPMMIN(18)QPMEDT>
;COPYRIGHT (C) 1974, 1977, 1978 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND 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. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;This parameter file will be considered to be the official
;definition of the QMANGR parameter area. The symbol names
;and definitions used in this file supersede all previously
;issued documentation. All fields labeled 'Reserved to DEC'
;are subject to change without notice, and the user is
;advised not to assume that they will not be used, or that
;they contain zero. To ensure upward compatibility, they
;should be set to zero.
IFNDEF %.Q,<%.Q==0> ;IF USER DIDN'T DEFINE IT
;DEFINE %.Q AS FOLLOWS
; -1 TO ASSEMBLE IN BOTH PASSES
; -2 TO INCLUDE AN END STATEMENT
; -3 TO ASSEMBLE AS A UNIVERSAL FILE
IF1,<
%.QEND==0
IFE %.Q+2,<%.QEND==1>
IFE %.Q+3,<%.QEND==1>
%.QPS2==0
IFN %.Q,<%.QPS2==1>
>;END OF IF1
DEFINE .TITL.(V,E),<
IFE %.Q+3,<
UNIVER QPRM Queue System Symbol Table %'V(E)
>
IFE %.Q+2,<
TITLE QPRM Queue System Symbol Definitions %'V(E)
>>
.TITL.(\QPMVER,\QPMEDT)
PURGE .TITL.
; TABLE OF CONTENTS FOR QPRM
;
;
; SECTION PAGE
; 1. Revision History...................................... 3
; 2. Queue Independent Header.............................. 4
; 3. Input Queue Header Extension.......................... 6
; 4. Output Queue Header Extension......................... 7
; 5. File Specification Block.............................. 8
; 6. Filespec MODIFY Block................................. 9
; 7. Paper Formats......................................... 10
; 8. Control, Log, and Output File Offsets................. 11
SUBTTL Revision History
;1 CREATE FILE
;2 INSERT FILE FORMATS
;3 INSERT CUSP NAMES AND CODES
;4 INSERT CONTROL AND LOG FILE OFFSETS
;5 INSERT PAPER FORMATS
;6 INSERT OFFSETS FOR FIRST FILE IN OUTPUT REQUEST
;7 INSERT /MODIFY EXTENSION TO FILESPEC BLOCK
;10 FIX SOME RANDOM BUGS AND ADD SOME MORE DOCUMENTATION
;11 CHANGE CUSP-NAME CODES FROM QO%XXX TO %QOXXX
;12 CHANGE PAPER FORMATS FROM QF%XYY TO %QFXYY
;13 MAKE THIS VERSION 2
;14 RE-DEFINE QF.SKP, AND DEFINE QF.IRP AND %QOFRS
SUBTTL Queue Independent Header
LOC 0
Q.MEM: BLOCK 1 ;USED BY QMANGR
;WHEN CALLED BY K-QUE,
; 0-17 CONTAIN ADDRESS OF NEWLOG ROUTINE
; 18-35 CONTAIN ADDRESS OF CHARACTER TYPER
;Q.MEM IS NOT WRITTEN INTO THE .QUE FILE
Q.OPR: BLOCK 1 ;REQUEST INFORMATION
QO.SCH==777777B17 ;ADDRESS OF SCHEDULER OR LISTER ROUTINE
QO.VER==77B23 ;PARAMTER AREA FORMAT VERSION NUMBER
QO.CSP==77B29 ;REQUESTING CUSP
%QOQUE==1 ;QUEUE
%QOCDK==2 ;CDRSTK
%QOBTN==3 ;BATCON
%QOSPL==4 ;SPOOL
%QOBSC==5 ;BASIC
%QOCPD==6 ;COPYED
%QOSPT==7 ;SPRINT
%QOFRS==10 ;FOROTS
QO.ROP==77B35 ;REQUESTED OPERATION
.QORCR==1 ;CREATE
.QORDF==2 ;DEFER
.QORZD==3 ;ZDEFER
.QORLS==4 ;LIST
.QORMD==5 ;MODIFY
.QORKL==6 ;KILL
.QORSC==7 ;SCHEDULE
.QORRL==10 ;RELEASE
.QORRQ==11 ;REQEUE
.QORDL==12 ;FAST LIST
.QORCP==13 ;CHECKPOINT
.QORNX==14 ;NEXT-JOB (RELEASE AND SCHEDULE)
Q.LEN: BLOCK 1 ;BLOCK LENGTHS
QL.HLN==777B8 ;LENGTH OF HEADER
QL.FLN==777B17 ;LENGTH OF A FILE SPEC
QL.NFL==777777 ;NUMBER OF FILES
Q.DEV: BLOCK 1 ;GENERIC DESTINATION DEVICE
QD.GDN==777777B17 ;GENERIC DEVICE NAME
QD.PDS==777777 ;PHYSICAL DEVICE SPEC
;0 IF GENERIC
;1-77 IF STATION
;1000-1777 IF PHYSICAL
;CONTINUED
Q.PPN: BLOCK 1 ;PPN OF USER
Q.JOB: BLOCK 1 ;JOB NAME
Q.SEQ: BLOCK 1 ;SEQUENCE NUMBER
Q.PRI: BLOCK 1 ;PRIORITY
;;0-17 RESERVED TO CUSTOMER
QP.PRO==777B26 ;PROTECTION OF QUEUE REQUEST
;;27-29 RESERVED TO DEC
QP.PRI==77 ;EXTERNAL PRIORITY
Q.PDEV: BLOCK 1 ;PROCESSING DEVICE
Q.TIME: BLOCK 1 ;START TIME OF JOB
Q.CREA: BLOCK 1 ;CREATION TIME OF JOB
Q.AFTR: BLOCK 1 ;AFTER PARAMETER
Q.DEAD: BLOCK 1 ;DEADLINE PARAMTER
QT.REL==1B0 ;IF QT.REL IS SET IN ANY OF Q.TIME,
; Q.CREA,Q.AFTR OR Q.DEAD, THE TIME
; IS RELATIVE TO CURRENT TIME
Q.CNO: BLOCK 1 ;CHARGE NUMBER
Q.USER: BLOCK 2 ;USERS NAME (2 WORDS)
;;On MODIFY request:
;; Q.TIME contains PPN mask
;; Q.CREA contains Job Name mask
LOC Q.TIME
Q.PPNM: BLOCK 1
LOC Q.CREA
Q.JOBM: BLOCK 1
SUBTTL Input Queue Header Extension
LOC Q.USER+2
;; ! ---FORMAT OF Q.IDEP--- !
;; !-------------------------------------------------------------------------!
;; !N !UNI !P! ! OUT ! !DMT! DEPENDENCY !
;; !-------------------------------------------------------------------------!
Q.IDEP: BLOCK 1 ;DEPENDENCY WORD
QI.NRS==1B0 ;NO-RESTART BIT
QI.UNI==3B2 ;UNIQUENESS
.QIUNO==0 ;NO UNIQUENESS
.QIUYS==1 ;UNIQUE PPN
.QIUSD==2 ;UNIQUE SUB-DIRECTORY (SFD)
QI.PAB==1B3 ;PRE-ABORTTED OR ILLEGAL RESTART
QI.MNR==1B3 ;ON MODIFY, MODIFY QI.NRS
;;4-5 RESERVED TO DEC
QI.OUT==7B8 ;/Z PARAMTER TO KJOB
.QIONO==0 ;/Z:0 NO AUTO-QUEUEING
.QIOLG==1 ;/Z:1 QUEUE THE LOG
.QIOSP==2 ;/Z:2 QUEUE ALL SPOOLED FILES AND LOG
.QIOLS==3 ;/Z:3 /Z:2 + *.LST
.QIOAL==4 ;/Z:4 /Z:3 + ALL DEFERED FILES
;;9-17 RESERVED TO DEC
QI.DMT==3B19 ;DEPENDENCY MODIFY TYPE
.QIDAB==0 ;ABSOLUTE
.QIDPL==1 ;PLUS (ADDITIVE)
.QIDMI==2 ;MINUS
.QIDNM==3 ;NO MODIFY
QI.DEP==177777 ;DEPENDENCY PARAMETER
Q.ILIM: BLOCK 1 ;CORE AND TIME LIMITS
QM.COR==777777B17 ;CORE LIMIT IN WORDS
QM.TIM==777777 ;CPU TIME LIMIT IN SECONDS
Q.ILM2: BLOCK 1 ;LPT AND CDP LIMITS
QM.LPT==777777B17 ;LPT LIMIT (PAGES)
QM.CDP==777777 ;CDP LIMIT (CARDS)
Q.ILM3: BLOCK 1 ;PTP AND PLT LIMITS
QM.PTP==777777B17 ;PTP LIMIT (FEET)
QM.PLT==777777 ;PLOT LIMIT (MINUTES)
Q.IDDI: BLOCK 6 ;FULL PATH TO DEFAULT DIRECTORY
.QIHED==.-Q.OPR ;LENGTH OF INPUT QUEUE HEADER
SUBTTL Output Queue Header Extension
LOC Q.USER+2
Q.OFRM: BLOCK 1 ;FORMS TYPE
Q.OSIZ: BLOCK 1 ;REQUEST SIZE
QS.LIM==777777B17 ;LIMIT
QS.BLK==777777 ;BLOCKS * COPIES (UNITS OF 8 BLOCKS)
Q.ONOT: BLOCK 2 ;ANNOTATION (2 WORDS)
.QOHED==.-Q.OPR ;LENGTH OF OUTPUT QUEUE HEADER
SUBTTL File Specification Block
LOC 0
Q.FSTR: BLOCK 1 ;FILE STRUCTURE
Q.FDIR: BLOCK 6 ;FULL PATH TO FILE
Q.FNAM: BLOCK 1 ;FILE NAME
Q.FEXT: BLOCK 1 ;EXTENSION
QE.EXT==777777B17 ;EXTENSION
;;18-35 RESERVED TO CUSTOMER
Q.FRNM: BLOCK 1 ;RENAMED NAME (QUE:.QUD[,])
Q.FBIT: BLOCK 1 ;START PARAMETER
QB.APF==1B0 ;ARTIFICIALLY PRESERVED FILE
QB.TAG==7777777777 ;5 CHARACTER (6BIT) TAG FOR BATCON
QB.SLN==777777 ;STARTING LINE NUMBER
;THE OUTPUT SPOOLERS ALWAYS USE BITS
; 18-35 AS A STARTING LINE NUMBER
; IF BITS 6-11 ARE ZERO, BATCON USES
; 18-35 AS A START LINE NUMBER, ELSE
; 6-35 ARE A START TAG.
;; ! ---FORMAT OF Q.FMOD--- !
;; !-------------------------------------------------------------------------!
;; !I !L !D! !S!N!R! ! SPC ! PFM ! FFM ! DSP ! COPIES !
;; !-------------------------------------------------------------------------!
Q.FMOD: BLOCK 1 ;STATUS BITS
QF.IRP==1B0 ;INDIRECT REQUEST POINTER
QF.LOG==1B1 ;THIS IS THE LOG FILE
QF.DEF==1B2 ;FILE DOES NOT YET EXIST
;;3 RESERVED TO DEC
QF.SKP==1B4 ;SKIP THIS FILE
QF.NFH==1B5 ;NO FILE HEADERS WANTED
QF.RVC==1B6 ;RESTARTED VIA CHKPNT OR REQUE
;;7-17 RESERVED TO DEC
QF.SPC==7B20 ;SPACING CODE
QF.PFM==7B23 ;PAPER FORMAT (SEE SEPARATE SECTION)
QF.FFM==7B26 ;FILE FORMAT
.QFFAS==1 ;ASCII
.QFFFO==2 ;FORTRAN
.QFFCO==3 ;COBOL
.QFFCR==4 ;CREF
.QFFRU==5 ;RUNOFF
.QFF11==6 ;ELEVEN (PDP-11 PAPER TAPE FORMAT)
QF.DSP==7B29 ;DISPOSITION
.QFDPR==1 ;PRESERVE
.QFDRE==2 ;RENAME
.QFDDE==3 ;DELETE
QF.COP==77B35 ;NUMBER OF COPIES
Q.FRPT: BLOCK 2 ;REPORT SPECIFICATION (2 WORDS)
SUBTTL Filespec MODIFY Block
LOC 0
;The filespec MODIFY block is tacked on the end of
;the filespec during a modify request. It is
;defined here as 0-origin since it may start
;following Q.FMOD or Q.FRPT+1 depending on whether
;it is queue format version 0 or 1.
Q.FDRM: BLOCK 6 ;DIRECTORY MASK
Q.FNMM: BLOCK 1 ;FILENAME MASK
Q.FEXM: BLOCK 1 ;FILENAME EXTENSION MASK
QF.EXM==777777B17 ;FILENAME EXTENSION
;;18-35 RESERVED TO CUSTOMER
Q.FMDM: BLOCK 1 ;MODIFIER MASK
SUBTTL Paper Formats
;The PAPER FORMAT field consists of bits 21, 22, 23 of
;Q.FMOD. This field is generated by the /PRINT, /PUNCH
;/PLOT, and /TAPE switches to QUEUE.
;PAPER FORMATS FOR LPT QUEUE (/PRINT)
%QFLAR==1 ;ARROW FORMAT
%QFLAS==2 ;ASCII FORMAT
%QFLOC==3 ;OCTAL FORMAT
%QFLSU==4 ;SUPPRESS FORMAT
;PAPER FORMATS FOR PTP QUEUE (/TAPE)
%QFTAS==1 ;ASCII FORMAT
%QFTIM==2 ;IMAGE FORMAT
%QFTIB==3 ;IMAGE BINARY FORMAT
%QFTBI==4 ;BINARY FORMAT
;PAPER FORMATS FOR CDP QUEUE (/PUNCH)
%QFCAS==1 ;ASCII FORMAT
%QFCBC==2 ;026 (BCD) FORMAT
%QFCBI==3 ;BINARY FORMAT
%QFCIM==5 ;IMAGE FORMAT
;PAPER FORMAT FOR PLT QUEUE (/PLOT)
%QFPIM==1 ;IMAGE FORMAT
%QFPAS==2 ;ASCII FORMAT
%QFPBI==3 ;BINARY FORMAT
SUBTTL Control, Log, and Output File Offsets
LOC .QIHED+1
; CONTROL FILE OFFSETS
Q.CSTR: BLOCK 1 ;FILE-STRUCTURE
Q.CDIR: BLOCK 6 ;DIRECTORY
Q.CNAM: BLOCK 1 ;FILE NAME
Q.CEXT: BLOCK 1 ;EXTENSION
Q.CRNM: BLOCK 1 ;RENAMED NAME
Q.CBIT: BLOCK 1 ;START PARAMETER
Q.CMOD: BLOCK 1 ;STATUS BITS
; LOG FILE OFFSETS
Q.LSTR: BLOCK 1 ;FILE STRUCTURE
Q.LDIR: BLOCK 6 ;DIRECTORY
Q.LNAM: BLOCK 1 ;FILENAME
Q.LEXT: BLOCK 1 ;EXTENSION
Q.LRNM: BLOCK 1 ;RENAMED NAME
Q.LBIT: BLOCK 1 ;START PARAMETER
Q.LMOD: BLOCK 1 ;STATUS BITS
; OFFSETS FOR FIRST FILE IN AN OUTPUT REQUEST
LOC .QOHED+1
Q.OSTR: BLOCK 1 ;FILE STRUCTURE
Q.ODIR: BLOCK 6 ;DIRECTORY
Q.ONAM: BLOCK 1 ;FILE NAME
Q.OEXT: BLOCK 1 ;EXTENSION
Q.ORNM: BLOCK 1 ;RENAMED NAME
Q.OBIT: BLOCK 1 ;START PARAMETER
Q.OMOD: BLOCK 1 ;STATUS BITS
RELOC 0
LOC 0
PURGE QPMVER,QPMMIN,QPMEDT,QPMWHO,%%QPM
IF1,<ASUPPRESS>
IFN %.QEND,<
IF2,<PURGE %.Q,%.QEND,%.QPS2>
END
>
IFE %.QEND,<
IF2,<PURGE %.Q,%.QEND,%.QPS2>
>