Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/accept.mic
There is 1 other file named accept.mic in the archive. Click here to see a list.
.SILENCE
;*****THIS FILE WILL GENERATE THE PROPER TIME LIMITS FOR ACCEPTANCE
;*****BATCH CONTROL FILES PLUS INPUT ONE TYPE OF TAPE
;*****CONTROL FILE
.IF ("'A" = "0") .GOTO INP
.IF ("'A" = "" ) .GOTO INP

.ERROR
.REVIVE
.SUB 'A.CTL[35,1414]/TIME/UNIQ:0,/DIS:DEL
.SILENCE
INP::
;******CALCULATE RUN TIMES FOR MEMORY AND CPU JOBS
.LET B ='B*60
.LET C =(72*60*60)/'B
.LET D = (318*60)/'C
.LET E = 'D/60
.LET F = 'D-(60*'E)
;*****INPUT MEMORY AND CPU CONTROL FILES
.REVIVE
.SUB PRL1.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB PRL2.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB PRL3.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB PRL4.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB PRL5.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB PRL6.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB PRL7.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB MEM1.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB MEM2.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB MEM3.CTL[35,1414]/TIME:'E:'F:/UNIQ:0/AFTER:+00:02:,/OUT:ERROR
.SUB CON.CTL[35,1414]/TIME/UNIQ:0,/OUT:ERROR
.SILENCE
.GOTO END
%ERR::
!//////////////////////////////////////////////////////
!ERROR IN ACCEPT.MIC
!//////////////////////////////////////////////////////
%CERR::
!//////////////////////////////////////////////////////
!ERROR IN ACCEPT.MIC
!//////////////////////////////////////////////////////
END::
%FIN::