Google
 

Trailing-Edge - PDP-10 Archives - ap-c796e-sb - opr.ato
There are 4 other files named opr.ato in the archive. Click here to see a list.
;    TURN ON TRANSACTION LOG
:TLOG
;    BRING UP DAEMON WHICH WILL DETACH
;    THIS IS DONE HERE BEFORE ANY OTHER JOBS
;    IN CASE THEY NEED TO MAKE FACT OR LONG
;    SLEEP ENTRIES
:SLOGIN 1/2
:SILENCE
R DAEMON
;    BRING UP TWO OMOUNTS TO PROCESS FILE AND MOUNT
;    REQUESTS.  GIVE THEM DTA1 AND DTA2
:SLOGIN 1/2
:SILENCE
:DEFINE M1=
M1-ASSIGN DTA1
M1-G SYS:OMOUNT
M1-START
M1-KILL:MOUNT
:REVIVE
M1-START
:SLOGIN 1/2
:SILENCE
:DEFINE M2=
M2-ASSIGN DTA2
M2-G SYS:OMOUNT
M2-START
M2-KILL:MOUNT
:REVIVE
M2-START
;    BRING UP CDRSTK TO HANDLE BATCH INPUT
;    ONE IS NEEDED FOR EACH CENTRAL CARD READER
;    IT SHOULD COME UP QUICKLY SO OPERATOR CAN
;    FEED CARDS AFTER A RELOAD
:SLOGIN 1/2
:SILENCE
:DEFINE C=
C-R CDRSTK
:REVIVE
C-START
;    BRING UP BATCON NEXT SO BATCH JOBS CAN GET
;    BUSY RESTARTING OR CLEANING UP
;    ANY SCHEDULING COMMANDS SHOULD BE INCLUDED AFTER
;    THE RUN AND BEFORE THE :REV
:SLOGIN 1/2
:SILENCE
:DEFINE B=
B-R BATCON
:REVIVE
B-START
;    BRING UP THE SPOOLERS TO HANDLE SYSTEM OUTPUT
;    QUEUES.  ANY SCHEDULING COMMANDS SHOULD BE
;    INCLUDED AFTER THE RUN AND BEFORE THE :REV
:SLOGIN 1/2
:SILENCE
:DEFINE L=
L-R LPTSPL
:REVIVE
L-START
:SLOGIN 1/2
:SILENCE
:DEFINE PT=
PT-R PTPSPL
:REVIVE
PT-START
:SLOGIN 1/2
:SILENCE
:DEFINE CP=
CP-R CDPSPL
:REVIVE
CP-START
:SLOGIN 1/2
:SILENCE
:DEFINE PL=
PL-R PLTSPL
;    LOCK PLOT OUTPUT BECAUSE THERE ARE NO
;    HEADERS YET.  LOCKING WILL STOP THE SPOOLER
;    BETWEEN JOBS.
PL-LOCK /SET
:REVIVE
PL-START