Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;JOB%1(17) TO MAKE QUEUE.SHR AND QUEUE.LOW FROM QUEUE.MAC
;SUBMIT WITH COMMAND  .QUEUE I:=QUEUE/RESTART:1
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LOADER.SHR
;	WILD.REL
;	SCAN.REL
;	SCNMAC.MAC
;	HELPER.REL
;	C.MAC
;	QUEUER.REL
;	JOBDAT.REL
;	CREF.SHR
;[SELF]	QUEUE.MAC
;	QUEPRM.MAC  (OPTIONAL, NEEDED IF CHANGING OPTIONS)
;
;PARAMETERS WHICH MAY BE CHANGED:
;
;AD.XXX IS THE VALUE WHICH DEFAULTS IF THE SWITCH IS NOT TYPED.
;PD.XXX IS THE VALUE WHICH DEFAULTS IF THE SWITCH IS TYPED BUT
;	THE VALUE IS OMITTED.
;THESE VALUES ARE DECIMAL
;
;AD.AFT=0	;/AFTER:+ MINUTES
;PD.AFT=10
;
;AD.CDP=-60	;/CARDS  (-N MEANS N CARDS PER BLOCK)
;PD.DCP=2000
;
;AD.COP=1	;/COPIES
;PD.COP=1
;
;AD.COR=25K	;/CORE, WHICH WILL BE LOWERED TO CORMAX
;PD.COR=40K
;
;AD.DED=0	;/DEADLINE:+ MINUTES
;PD.DED=60
;
;AD.DPN=0	;/DEPENDENCY
;PD.DPN=0
;
;AD.LIM=-1	;/LIMIT  (-1 MEANS USE SWITCH FOR QUEUE SPECIFIED)
;PD.LIM=0
;
;AD.LPT=-1	;/PAGES (-N MEANS N PAGES PER BLOCK)
;PD.LPT=2000
;
;AD.LPT=1	;/LIST
;PD.LPT=1
;
;AD.NHD=1	;/HEADERS
;PD.NHD=1
;
;AD.OUT=4	;/OUTPUT
;PD.OUT=4
;
;AD.PLT=-1	;/TPLOT (-N MEANS N MINUTES PER BLOCK)
;PD.PLT=60
;
;AD.PRI=10	;/PRIORITY
;PD.PRI=20
;
;AD.PTP=-10	;/FEET  (-N MEANS N FEET PER BLOCK)
;PD.PTP=100
;
;AD.RST=0	;/RESTARTABLE
;PD.RST=1
;
;AD.SEQ=0	;/SEQUENCE
;PD.SEQ=0
;
;AD.STR=1	;/START
;PD.STR=1
;
;AD.TIM=300	;/TIME
;PD.TIM=3600
;
;AD.UNI=1	;/UNIQUE
;PD.UNI=2
;
;
;THE FOLLOWING ARE ALSO DECIMAL AND SUPPORTED:
;
;AI.CDP=0	;INPUT QUEUE /CARDS
;AI.LPT=200	;INPUT QUEUE /PAGES
;AI.PLT=10	;INPUT QUEUE /TPLOT
;AI.PTP=0	;INPUT QUEUE /FEET
;
;AO.CDP=100	;OUTPUT QUEUE EXTRA ADDON IF NEGATIVE DEFAULT /CARDS
;AV.CDP=1	;DIVISOR IF NEGATIVE DEFAULT /CARDS
;AO.LPT=20	;OUTPUT QUEUE EXTRA ADDON IF NEGATIVE DEFAULT /PAGES
;AV.LPT=1	;DIVISOR IF NEGATIVE DEFAULT /PAGES
;AO.PLT=5	;OUTPUT QUEUE EXTRA ADDON IF NEGATIVE DEFAULT /TPLOT
;AV.PLT=20	;DIVISOR IF NEGATIVE DEFAULT /TPLOT
;AO.PTP=20	;OUTPUT QUEUE EXTRA ADDON IF NEGATIVE DEFAULT /FEET
;AV.PTP=1	;DIVISOR IF NEGATIVE DEFAULT /FEET
;
;FS.COP=1	;DEFAULT NUMBER OF COPIES FOR SPOOLED OUTPUT
;FL.COP=1	;FORCED NUMBER OF COPIES FOR LOG FILE
;
;PUNCDP=0	;PUNCH COMMAND TO PTP (1=TO CDP)
;FTLSCK=0	;ALLOW ANY STATION NUMBER (1=RESTRICT TO LEGAL)
;
;
;THE FOLLOWING MACRO DEFINES THE LEGAL QUEUES:
;
;DEFINE QUEUES,<X <INP,LPT,CDP,PTP,PLT>>
;
;ONLY A SUBSET OF THE ABOVE ARE SUPPORTED.
;
;
;OUTPUT FILES:
;	QUEUE.SHR
;	QUEUE.LOW
;OUTPUT LISTINGS:
;	QUEUE  MAP
;	QUEUE  CREF LISTING
;	QUEUE.LOG
;
;
;COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*/X_DSK:PIP.SHR[10,7],COMPIL.SHR[10,7],MACRO.SHR[10,7],LOADER.SHR[10,7]
*/X_DSK:JOBDAT.REL[10,7],WILD.REL[10,7],QUEUER.REL[10,7],CREF.SHR[10,7]
*/X_DSK:SCAN.REL[10,7],SCNMAC.MAC[10,7],HELPER.REL[10,7],C.MAC[10,7]
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (ERROR) ;5.03 OR EARLIER
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.*
.GOTO A
A:.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.MAC+*.REL+QUE???.RND+QUEUE.RNH+QUEUE.HLP
.ASSIGN DSK: SYS:
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
;
.RUN DSK:PIP[10,7]
*QUEPRM.MAC/R_QUEPRM.MAC
.IF (ERROR) .GOTO B
.LOAD/LOAD /MAP:LPT:QUEUE /CREF /COMPILE QUEPRM.MAC+C.MAC+SCNMAC.MAC+QUEUE.MAC(P,,), SCAN.REL, HELPER.REL, WILD.REL,QUEUER.REL %A
.GOTO C
B:
 .LOAD/LOAD /MAP:LPT:QUEUE /CREF /COMPILE C.MAC+SCNMAC.MAC+QUEUE.MAC(P,,), SCAN.REL, HELPER.REL, WILD.REL,QUEUER.REL %A
.GOTO C
C: .SSAVE DSK:QUEUE
.VERSION
.IF (ERROR) .E 137
;
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:QUEUE
*/HELP
;
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=QUEUE.SHR+QUEUE.LOW
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE QUEUE SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE QUEUE.REL,MACRO.SHR,LOADER.SHR,CREF.SHR,C.MAC,HELPER.REL
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL,WILD.REL,QUEUER.REL,SCNMAC.MAC,SCAN.REL