Google
 

Trailing-Edge - PDP-10 Archives - k20v7a - utilities/maklad.ctl
There is 1 other file named maklad.ctl in the archive. Click here to see a list.
!	CTL file for building a KLAD pack on a structure premounted as KLAD:
!	from a master KLAD structure premounted as MAST:
@
INIT::
@ENA
@ERROR
@CONN <UTILITIES>
@DEF FROM: MAST:
@DEF TO: KLAD:
@TYPE FROM:<UTILITIES>WARNING.TXT
!
MOUNT::
@MOUNT STRU MAST:
@IF (NOERROR) @GOTO DLUSER
@PLEASE ??? ERROR MOUNTING MAST FOR MAKLAD ???
@GOTO FIN
@
@MOUNT STRU KLAD:
@IF (NOERROR) @GOTO DLUSER
@PLEASE ??? ERROR MOUNTING KLAD FOR MAKLAD ???
@GOTO FIN
@
!
DLUSER::
@PLEASE (MAKLAD) STRUCTURE MOUNTED
@DLUSER
*STR TO:
*LOAD FROM:DLUSER.TXT
*EXIT
@ENA
@BUILD TO:<OPERATOR>
PASS KLAD
ACC F-S
*
*
*
@
@PLEASE  (MAKLAD) NECESSARY DIRECTORIES CREATED 
@CHKPNT COPYFE::
!
COPYFE::
@RUN <UTILITIES>COPYFE
*FROM:<ROOT-DIRECTORY>FRONT-END-FILE-SYSTEM.BIN
*TO:<ROOT-DIRECTORY>FRONT-END-FILE-SYSTEM.BIN
@IF (NOERROR) @GOTO FEOK
!
@PLEASE  (MAKLAD) ??? ERROR COPYING FRONT END ???
@GOTO FIN
!
FEOK::
@PLEASE  (MAKLAD) FRONT-END SYSTEM BUILT
@CHKPNT COPTEN::
@GOTO MAKFOO
!
COPTEN::
!
!	FOR RESTART FOR COPYING 10 SIDE ONLY
@ENA
@ERROR
@CONN <UTILITIES>
@DEF FROM: MAST:
@DEF TO: KLAD:
@TYPE FROM:<UTILITIES>WARNING.TXT
!
MOUNT::
@MOUNT STRU KLAD:
@IF (NOERROR) @GOTO DLUSER
@PLEASE ??? ERROR MOUNTING KLAD FOR MAKLAD ???
@GOTO FIN
@
!
MAKFOO::
@SILENCE
!	In case of empty directory create blank file...
@ENA
@NOERROR
@DEL <UTILITIES>MAKLAD.RUN
@ERROR
@TV
=I MAKLAD;X
*<UTILITIES>MAKLAD.RUN
@
!
COP10::
@COPY FROM:<1-DIAGNOSTICS>*.* TO:<1-DIAGNOSTICS>*.*
@IF (NOERROR) @GOTO COK10
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <1-DIAGNOSTICS> ! ABORTING... 
@CHKPNT COP10::
@GOTO FIN
!
COK10::
@PLEASE (MAKLAD) DIRECTORY <1-DIAGNOSTICS> COPIED
!
COP20::
@COPY FROM:<2-DIAGNOSTICS>*.* TO:<2-DIAGNOSTICS>*.*
@IF (NOERROR) @GOTO COK20
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <2-DIAGNOSTICS> ! CONTINUING... 
@CHKPNT COP20::
@GOTO COP30
!
COK20::
@PLEASE (MAKLAD) DIRECTORY <2-DIAGNOSTICS> COPIED
!
COP30::
@COPY FROM:<3-DIAGNOSTICS>*.* TO:<3-DIAGNOSTICS>*.*
@IF (NOERROR) @GOTO COK30
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <3-DIAGNOSTICS> ! CONTINUING... 
@CHKPNT COP30::
@GOTO COP40
!
COK30::
@PLEASE (MAKLAD) DIRECTORY <3-DIAGNOSTICS> COPIED
!
COP40::
@COPY FROM:<UETP.LIB>*.* TO:<UETP.LIB>*.*
@IF (NOERROR) @GOTO COK40
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <UETP.LIB> ! CONTINUING... 
@CHKPNT COP40::
@GOTO COP50
!
COK40::
@PLEASE (MAKLAD) DIRECTORY <UETP.LIB> COPIED
!
COP50::
@COPY FROM:<UTILITIES>*.* TO:<UTILITIES>*.*
@IF (NOERROR) @GOTO COK50
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <UTILITIES> ! CONTINUING... 
@CHKPNT COP50::
@GOTO COP60
!
COK50::
@PLEASE (MAKLAD) DIRECTORY <UTILITIES> COPIED
!
COP60::
@COPY FROM:<DN20>*.* TO:<DN20>*.*
@IF (NOERROR) @GOTO COK60
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <DN20> ! CONTINUING... 
@CHKPNT COP60::
@GOTO COP61
!
COK60::
@PLEASE (MAKLAD) DIRECTORY <DN20> COPIED
!

COP61::
@COPY <UTILITIES>MAKLAD.RUN FROM:<DECNET>
@COPY FROM:<DECNET>*.* TO:<DECNET>*.*
@IF (NOERROR) @GOTO COK61
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <DECNET> ! CONTINUING... 
@CHKPNT COP61::
@GOTO COP62
!
COK61::
@DELETE FROM:<DECNET>MAKLAD.RUN
@DELETE TO:<DECNET>MAKLAD.RUN
@PLEASE (MAKLAD) DIRECTORY <DECNET> COPIED
!
COP62::
@COPY <UTILITIES>MAKLAD.RUN FROM:<DECNET-SOURCES>
@COPY FROM:<DECNET-SOURCES>*.* TO:<DECNET-SOURCES>*.*
@IF (NOERROR) @GOTO COK62
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <DECNET-SOURCES> ! CONTINUING... 
@CHKPNT COP62::
@GOTO COP63
!
COK62::
@DELETE FROM:<DECNET-SOURCES>MAKLAD.RUN
@DELETE TO:<DECNET-SOURCES>MAKLAD.RUN
@PLEASE (MAKLAD) DIRECTORY <DECNET-SOURCES> COPIED
!
COP63::
@COPY <UTILITIES>MAKLAD.RUN FROM:<DECNET-TOOLS>
@COPY FROM:<DECNET-TOOLS>*.* TO:<DECNET-TOOLS>*.*
@IF (NOERROR) @GOTO COK63
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <DECNET-TOOLS> ! CONTINUING... 
@CHKPNT COP63::
@GOTO COP70
!
COK63::
@DELETE FROM:<DECNET-TOOLS>MAKLAD.RUN
@DELETE TO:<DECNET-TOOLS>MAKLAD.RUN
@PLEASE (MAKLAD) DIRECTORY <DECNET-TOOLS> COPIED
!
COP70::
@COPY FROM:<FIELD-IMAGE>*.* TO:<FIELD-IMAGE>*.*
@IF (NOERROR) @GOTO COK70
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <FIELD-IMAGE> ! CONTINUING... 
@CHKPNT COP70::
@GOTO COP80
!
COK70::
@PLEASE (MAKLAD) DIRECTORY <FIELD-IMAGE> COPIED
!
COP80::
@COPY FROM:<F-S>*.* TO:<F-S>*.*
@IF (NOERROR) @GOTO COK80
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <F-S> ! CONTINUING... 
@CHKPNT COP80::
@GOTO COP90
!
COK80::
@PLEASE (MAKLAD) DIRECTORY <F-S> COPIED
!
COP90::
@COPY FROM:<MANUALS>*.* TO:<MANUALS>*.*
@IF (NOERROR) @GOTO COK90
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <MANUALS> ! CONTINUING... 
@CHKPNT COP90::
@GOTO COP100
!
COK90::
@PLEASE (MAKLAD) DIRECTORY <MANUALS> COPIED
!
COP100::
@COPY FROM:<MFG>*.* TO:<MFG>*.*
@IF (NOERROR) @GOTO COK100
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <MFG> ! CONTINUING... 
@CHKPNT COP100::
@GOTO COP101
!
COK100::
@PLEASE (MAKLAD) DIRECTORY <MFG> COPIED
!
!
COP101::
@COPY FROM:<MFG.SRC>*.* TO:<MFG.SRC>*.*
@IF (NOERROR) @GOTO COK101
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <MFG.SRC> ! CONTINUING... 
@CHKPNT COP101::
@GOTO COP102
!
COK101::
@PLEASE (MAKLAD) DIRECTORY <MFG.SRC> COPIED
!
!
COP102::
@COPY FROM:<MFG.CMDS>*.* TO:<MFG.CMDS>*.*
@IF (NOERROR) @GOTO COK102
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <MFG.CMDS> ! CONTINUING... 
@CHKPNT COP102::
@GOTO COP110
!
COK102::
@PLEASE (MAKLAD) DIRECTORY <MFG.CMDS> COPIED
!
!
COP110::
@COPY <UTILITIES>MAKLAD.RUN FROM:<NEW-SYSTEM>
@COPY FROM:<NEW-SYSTEM>*.* TO:<NEW-SYSTEM>*.*
@IF (NOERROR) @GOTO COK110
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <NEW-SYSTEM> ! CONTINUING... 
@CHKPNT COP110::
@GOTO COP120
!
COK110::
@DEL FROM:<NEW-SYSTEM>MAKLAD.RUN
@DEL TO:<NEW-SYSTEM>MAKLAD.RUN
@PLEASE (MAKLAD) DIRECTORY <NEW-SYSTEM> COPIED
!
!
COP120::
@COPY <UTILITIES>MAKLAD.RUN FROM:<NEW-SUBSYS>
@COPY FROM:<NEW-SUBSYS>*.* TO:<NEW-SUBSYS>*.*
@IF (NOERROR) @GOTO COK120
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <NEW-SUBSYS> ! CONTINUING... 
@CHKPNT COP120::
@GOTO COP130
!
COK120::
@DEL FROM:<NEW-SUBSYS>MAKLAD.RUN
@DEL TO:<NEW-SUBSYS>MAKLAD.RUN
@PLEASE (MAKLAD) DIRECTORY <NEW-SUBSYS> COPIED
!
COP130::
@COPY FROM:<OPERATOR>*.* TO:<OPERATOR>*.*
@IF (NOERROR) @GOTO COK130
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <OPERATOR> ! CONTINUING... 
@CHKPNT COP130::
@GOTO COP140
!
COK130::
@PLEASE (MAKLAD) DIRECTORY <OPERATOR> COPIED
!
COP140::
@COPY FROM:<SUBSYS>*.* TO:<SUBSYS>*.*
@IF (NOERROR) @GOTO COK140
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <SUBSYS> ! CONTINUING... 
@CHKPNT COP140::
@GOTO COP150
!
COK140::
@PLEASE (MAKLAD) DIRECTORY <SUBSYS> COPIED
!
COP150::
@NOERROR
@RENAME FROM:<6-DIAGNOSTICS>DUMP.*.* FROM:<SYSTEM>*.*
@ERROR
@COPY FROM:<SYSTEM>*.* TO:<SYSTEM>*.*
@IF (NOERROR) @GOTO COK150
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <SYSTEM> ! CONTINUING... 
@CHKPNT COP150::
@GOTO COP160
!
COK150::
@NOERROR
@RENAME FROM:<6-DIAGNOSTICS>DUMP.*.* FROM:<SYSTEM>*.*
@ERROR
@PLEASE (MAKLAD) DIRECTORY <SYSTEM> COPIED
!
COP160::
@COPY FROM:<UNSUPPORTED>*.* TO:<UNSUPPORTED>*.*
@IF (NOERROR) @GOTO COK160
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <UNSUPPORTED> ! CONTINUING... 
@CHKPNT COP160::
@GOTO COP170
!
COK160::
@PLEASE (MAKLAD) DIRECTORY <UNSUPPORTED> COPIED
!
COP170::
@COPY FROM:<UTILITIES>*.* TO:<UTILITIES>*.*
@IF (NOERROR) @GOTO COK170
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <UTILITIES> ! CONTINUING... 
@CHKPNT COP170::
@GOTO COP180
!
COK170::
@PLEASE (MAKLAD) DIRECTORY <UTILITIES> COPIED
!
COP180::
@COPY FROM:<TOOLS>*.* TO:<TOOLS>*.*
@IF (NOERROR) @GOTO COK180
!
@PLEASE  (MAKLAD) ??? ERROR COPYING <TOOLS> ! CONTINUING... 
@CHKPNT COP180::
@GOTO COP190
!
COK180::
@PLEASE (MAKLAD) DIRECTORY <TOOLS> COPIED
!
COP190::
@DAY
!
COPEND::
@CHKPNT COPEND::
@PLEASE (MAKLAD) ALL DIRECTORIES COPIED
@REVIVE
@ENABLE
@NOERROR
@DEL TO:<OPERATOR>*.LOG
@EXP TO:<OPERATOR>
@DELETE TO:<SYSTEM>TGHA.DAT
@DELETE TO:<SYSTEM>TGHA.TRA
@EXPUNGE TO:<SYSTEM>
@DEL TO:<UTILITIES>*.LOG
@EXPUNGE TO:<UTILITIES>
!
COPDIR::
@ERROR
@VDIR TO:<*>,
@OUT TO:<OPERATOR>KLAD20.DIR
@
@IF (NOERROR) @GOTO MAKDMP
@PLEASE  (MAKLAD) ??? ERROR IN VDIR <*> COMMAND ! CONTINUING... 
!
MAKDMP::
@SYS:MAKDMP
*CREATE KLAD:<SYSTEM>DUMP.EXE 512
@IF (ERROR) @GOTO DMPERR
*EXIT
@GOTO COPLOG
!
DMPERR::
@PLEASE  (MAKLAD) ??? ERROR RUNNING MAKDMP ! CONTINUING... 
!
!
! As a record of this copy run...
COPLOG::
@CONN FROM:<UTILITIES>
@SILENCE
@CHKPNT COPLOG::
@COPY FROM:<UTILITIES>MAKLAD.LOG TO:<UTILITIES>THIS-PACK.BLD
@REVIVE
!
END::
@CONN FROM:<UTILITIES>
@PLEASE (MAKLAD) REMOVE NEWLY CREATED PACK
@GOTO FIN
%ERR::
ERR::
@PLEASE ??? ERROR ON MASTER PACK, PLEASE CORRECT***
@DISM STR KLAD:/REMOVE
FIN::
%FIN::
@