Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/ptycon.ato
There are 29 other files named ptycon.ato in the archive. Click here to see a list.
SILENCE
LOG
DEFINE ^$OPR
CONN OPR
LOG OPERATOR FOO OPERATOR
ENA
^ESEND * Warning RED pack mounted !!
MOUNT STRUCTURE USER: /NOWAIT
MOUNT STRUCTURE USER1: /NOWAIT
!in case of dn22-test , change next 7 lines
;X
;DEFINE DN22
;CONN DN22
;log operator foo operator
;DO <UETP.LIB>22-LOAD
;X
;CONN OPR
OPR
TAKE SYS:SYSTEM.CMD
PUSH
ENA
^ESET LOGIN ANY
^ESEND * SYSTEM IN OPERATION
CHECKD
CHECK DIRECTORY PS:
EXIT
APPEND PS:<SPOOL>ORION-SYSTEM-LOG.002.* PS:<SPOOL>ORION-OLD.LOG
DELETE PS:<SPOOL>ORION-SYSTEM-LOG.002.*
POP
^X
NO SILENCE
W ALL
CONN OPR
;in case of UETP AUTO-RESTART change next 7 lines
DEF UETP
CONN UETP
LOG F-S FOO
UETP-DO CLEAN
CONN UETP