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

!  CTL FILE FOR BUILDING A KLAD PACK ON A STRUCTURE PREMOUNTED AS KLAD:
@
INIT::
@ENA
@ERROR
@CONN <UTILITIES>
@DEF FROM: PS:
@DEF TO: KLAD:
@TYPE FROM:<UTILITIES>WARNING.TXT
!
MOUNT::
@MOUNT STRU KLAD:
@IF (NOERROR) @GOTO DLUSER
@PLEASE ??? ERROR MOUNTING KLAD FOR MAKPAK ???
@GOTO FIN
@
!
DLUSER::
@PLEASE (MAKPAK) STRUCTURE MOUNTED
@DLUSER
*STR TO:
*LOAD FROM:DLUSER.TXT
*EXIT
@ENA
@BUILD TO:<OPERATOR>
PASS KLAD
ACC F-S
*
*
*
@
@PLEASE  (MAKPAK) 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  (MAKPAK) ??? ERROR COPYING FRONT END ???
@GOTO FIN
!
FEOK::
@PLEASE  (MAKPAK) FRONT-END SYSTEM BUILT
@CHKPNT COPTEN::
@GOTO MAKFOO
!
COPTEN::
!
!	FOR RESTART FOR COPYING 10 SIDE ONLY
@ENA
@ERROR
@CONN <UTILITIES>
@DEF FROM: PS:
@DEF TO: KLAD:
@TYPE FROM:<UTILITIES>WARNING.TXT
!
MOUNT::
@MOUNT STRU KLAD:
@IF (NOERROR) @GOTO DLUSER
@PLEASE ??? ERROR MOUNTING KLAD FOR MAKPAK ???
@GOTO FIN
@
!
MAKFOO::
@SILENCE
!	In case of empty directory create blank file...
@ENA
@NOERROR
@DEL <UTILITIES>MAKPAK.RUN
@ERROR
@TV
=I MAKPAK;X
*<UTILITIES>MAKPAK.RUN
@
!
COP10::
@COPY FROM:<1-DIAGNOSTICS>*.* TO:<1-DIAGNOSTICS>*.*
@IF (NOERROR) @GOTO COK10
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <1-DIAGNOSTICS> ! ABORTING... 
@CHKPNT COP10::
@GOTO FIN
!
COK10::
@PLEASE (MAKPAK) DIRECTORY <1-DIAGNOSTICS> COPIED
!
COP20::
@COPY FROM:<2-DIAGNOSTICS>*.* TO:<2-DIAGNOSTICS>*.*
@IF (NOERROR) @GOTO COK20
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <2-DIAGNOSTICS> ! CONTINUING... 
@CHKPNT COP20::
@GOTO COP30
!
COK20::
@PLEASE (MAKPAK) DIRECTORY <2-DIAGNOSTICS> COPIED
!
COP30::
@COPY FROM:<3-DIAGNOSTICS>*.* TO:<3-DIAGNOSTICS>*.*
@IF (NOERROR) @GOTO COK30
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <3-DIAGNOSTICS> ! CONTINUING... 
@CHKPNT COP30::
@GOTO COP40
!
COK30::
@PLEASE (MAKPAK) DIRECTORY <3-DIAGNOSTICS> COPIED
!
COP40::
@COPY FROM:<UETP.LIB>*.* TO:<UETP.LIB>*.*
@IF (NOERROR) @GOTO COK40
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <UETP.LIB> ! CONTINUING... 
@CHKPNT COP40::
@GOTO COP50
!
COK40::
@PLEASE (MAKPAK) DIRECTORY <UETP.LIB> COPIED
!
COP50::
@COPY FROM:<UTILITIES>*.* TO:<UTILITIES>*.*
@IF (NOERROR) @GOTO COK50
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <UTILITIES> ! CONTINUING... 
@CHKPNT COP50::
@GOTO COP60
!
COK50::
@PLEASE (MAKPAK) DIRECTORY <UTILITIES> COPIED
!
COP60::
@COPY FROM:<DN20>*.* TO:<DN20>*.*
@IF (NOERROR) @GOTO COK60
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <DN20> ! CONTINUING... 
@CHKPNT COP60::
@GOTO COP61
!
COK60::
@PLEASE (MAKPAK) DIRECTORY <DN20> COPIED
!

COP61::
@COPY <UTILITIES>MAKPAK.RUN FROM:<DECNET>
@COPY FROM:<DECNET>*.* TO:<DECNET>*.*
@IF (NOERROR) @GOTO COK61
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <DECNET> ! CONTINUING... 
@CHKPNT COP61::
@GOTO COP62
!
COK61::
@DELETE FROM:<DECNET>MAKPAK.RUN
@DELETE TO:<DECNET>MAKPAK.RUN
@PLEASE (MAKPAK) DIRECTORY <DECNET> COPIED
!
COP62::
@COPY <UTILITIES>MAKPAK.RUN FROM:<DECNET-SOURCES>
@COPY FROM:<DECNET-SOURCES>*.* TO:<DECNET-SOURCES>*.*
@IF (NOERROR) @GOTO COK62
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <DECNET-SOURCES> ! CONTINUING... 
@CHKPNT COP62::
@GOTO COP63
!
COK62::
@DELETE FROM:<DECNET-SOURCES>MAKPAK.RUN
@DELETE TO:<DECNET-SOURCES>MAKPAK.RUN
@PLEASE (MAKPAK) DIRECTORY <DECNET-SOURCES> COPIED
!
COP63::
@COPY <UTILITIES>MAKPAK.RUN FROM:<DECNET-TOOLS>
@COPY FROM:<DECNET-TOOLS>*.* TO:<DECNET-TOOLS>*.*
@IF (NOERROR) @GOTO COK63
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <DECNET-TOOLS> ! CONTINUING... 
@CHKPNT COP63::
@GOTO COP70
!
COK63::
@DELETE FROM:<DECNET-TOOLS>MAKPAK.RUN
@DELETE TO:<DECNET-TOOLS>MAKPAK.RUN
@PLEASE (MAKPAK) DIRECTORY <DECNET-TOOLS> COPIED
!
COP70::
@COPY FROM:<FIELD-IMAGE>*.* TO:<FIELD-IMAGE>*.*
@IF (NOERROR) @GOTO COK70
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <FIELD-IMAGE> ! CONTINUING... 
@CHKPNT COP70::
@GOTO COP80
!
COK70::
@PLEASE (MAKPAK) DIRECTORY <FIELD-IMAGE> COPIED
!
COP80::
@COPY FROM:<F-S>*.* TO:<F-S>*.*
@IF (NOERROR) @GOTO COK80
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <F-S> ! CONTINUING... 
@CHKPNT COP80::
@GOTO COP90
!
COK80::
@PLEASE (MAKPAK) DIRECTORY <F-S> COPIED
!
COP90::
@COPY FROM:<MANUALS>*.* TO:<MANUALS>*.*
@IF (NOERROR) @GOTO COK90
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <MANUALS> ! CONTINUING... 
@CHKPNT COP90::
@GOTO COP100
!
COK90::
@PLEASE (MAKPAK) DIRECTORY <MANUALS> COPIED
!
COP100::
@COPY FROM:<MFG>*.* TO:<MFG>*.*
@IF (NOERROR) @GOTO COK100
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <MFG> ! CONTINUING... 
@CHKPNT COP100::
@GOTO COP101
!
COK100::
@PLEASE (MAKPAK) DIRECTORY <MFG> COPIED
!
!
COP101::
@COPY FROM:<MFG.SRC>*.* TO:<MFG.SRC>*.*
@IF (NOERROR) @GOTO COK101
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <MFG.SRC> ! CONTINUING... 
@CHKPNT COP101::
@GOTO COP102
!
COK101::
@PLEASE (MAKPAK) DIRECTORY <MFG.SRC> COPIED
!
!
COP102::
@COPY FROM:<MFG.CMDS>*.* TO:<MFG.CMDS>*.*
@IF (NOERROR) @GOTO COK102
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <MFG.CMDS> ! CONTINUING... 
@CHKPNT COP102::
@GOTO COP103
!
COK102::
@PLEASE (MAKPAK) DIRECTORY <MFG.CMDS> COPIED
!
COP103::
@COPY <UTILITIES>MAKPAK.RUN FROM:<MFG.UPD>
!
@COPY FROM:<MFG.UPD>*.* TO:<MFG.UPD>*.*
@IF (NOERROR) @GOTO COK103
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <MFG.UPD> ! CONTINUING... 
@CHKPNT COP103::
@GOTO COP110
!
COK103::
@DELETE FROM:<MFG.UPD>MAKPAK.RUN
@DELETE TO:<MFG.UPD>MAKPAK.RUN
@PLEASE (MAKPAK) DIRECTORY <MFG.UPD> COPIED
!
COP110::
@COPY <UTILITIES>MAKPAK.RUN FROM:<NEW-SYSTEM>
@COPY FROM:<NEW-SYSTEM>*.* TO:<NEW-SYSTEM>*.*
@IF (NOERROR) @GOTO COK110
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <NEW-SYSTEM> ! CONTINUING... 
@CHKPNT COP110::
@GOTO COP120
!
COK110::
@DEL FROM:<NEW-SYSTEM>MAKPAK.RUN
@DEL TO:<NEW-SYSTEM>MAKPAK.RUN
@PLEASE (MAKPAK) DIRECTORY <NEW-SYSTEM> COPIED
!
!
COP120::
@COPY <UTILITIES>MAKPAK.RUN FROM:<NEW-SUBSYS>
@COPY FROM:<NEW-SUBSYS>*.* TO:<NEW-SUBSYS>*.*
@IF (NOERROR) @GOTO COK120
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <NEW-SUBSYS> ! CONTINUING... 
@CHKPNT COP120::
@GOTO COP130
!
COK120::
@DEL FROM:<NEW-SUBSYS>MAKPAK.RUN
@DEL TO:<NEW-SUBSYS>MAKPAK.RUN
@PLEASE (MAKPAK) DIRECTORY <NEW-SUBSYS> COPIED
!
COP130::
@COPY FROM:<OPERATOR>*.* TO:<OPERATOR>*.*
@IF (NOERROR) @GOTO COK130
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <OPERATOR> ! CONTINUING... 
@CHKPNT COP130::
@GOTO COP140
!
COK130::
@PLEASE (MAKPAK) DIRECTORY <OPERATOR> COPIED
!
COP140::
@COPY FROM:<SUBSYS>*.* TO:<SUBSYS>*.*
@IF (NOERROR) @GOTO COK140
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <SUBSYS> ! CONTINUING... 
@CHKPNT COP140::
@GOTO COP150
!
COK140::
@PLEASE (MAKPAK) DIRECTORY <SUBSYS> COPIED
!
COP150::
@NOERROR
@RENAME FROM:<6-DIAGNOSTICS>DUMP.*.* FROM:<SYSTEM>*.*
@ERROR
@COPY FROM:<SYSTEM>*.* TO:<SYSTEM>*.*
@IF (NOERROR) @GOTO COK150
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <SYSTEM> ! CONTINUING... 
@CHKPNT COP150::
@GOTO COP160
!
COK150::
@NOERROR
@RENAME FROM:<6-DIAGNOSTICS>DUMP.*.* FROM:<SYSTEM>*.*
@ERROR
@PLEASE (MAKPAK) DIRECTORY <SYSTEM> COPIED
!
COP160::
@COPY FROM:<UNSUPPORTED>*.* TO:<UNSUPPORTED>*.*
@IF (NOERROR) @GOTO COK160
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <UNSUPPORTED> ! CONTINUING... 
@CHKPNT COP160::
@GOTO COP170
!
COK160::
@PLEASE (MAKPAK) DIRECTORY <UNSUPPORTED> COPIED
!
COP170::
@COPY FROM:<UTILITIES>*.* TO:<UTILITIES>*.*
@IF (NOERROR) @GOTO COK170
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <UTILITIES> ! CONTINUING... 
@CHKPNT COP170::
@GOTO COP180
!
COK170::
@PLEASE (MAKPAK) DIRECTORY <UTILITIES> COPIED
!
COP180::
@COPY FROM:<TOOLS>*.* TO:<TOOLS>*.*
@IF (NOERROR) @GOTO COK180
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <TOOLS> ! CONTINUING... 
@CHKPNT COP180::
@GOTO COP185
!
COK180::
@PLEASE (MAKPAK) DIRECTORY <TOOLS> COPIED
!
COP185::
@COPY FROM:<HELP>*.* TO:<HELP>*.*
@IF (NOERROR) @GOTO COK185
!
@PLEASE  (MAKPAK) ??? ERROR COPYING <HELP> ! CONTINUING... 
@CHKPNT COP185::
@GOTO COP190
!
COK185::
@PLEASE (MAKPAK) DIRECTORY <HELP> COPIED
!
COP190::
@DAY
!
COPEND::
@CHKPNT COPEND::
@PLEASE (MAKPAK) 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
;	This next step to verify files and to make a KLAD.DIR which
;	can be used by STRCOM.
;
@VDIR TO:<*>*.*.0,
@NO USER
@SEPARATE
@OUTPUT TO:<UTILITIES>KLAD.DIR
@
!
@IF (NOERROR) @GOTO MAKDMP
@PLEASE  (MAKPAK) ??? ERROR IN VDIR <*> COMMAND ! CONTINUING... 
!
MAKDMP::
@SYS:MAKDMP
*CREATE KLAD:<SYSTEM>DUMP.EXE.1 4096
@IF (ERROR) @GOTO DMPERR
*EXIT
@GOTO COPLOG
!
DMPERR::
@PLEASE  (MAKPAK) ??? ERROR RUNNING MAKDMP ! CONTINUING... 
!
!
! As a record of this copy run...
COPLOG::
@CONN FROM:<UTILITIES>
@SILENCE
@CHKPNT COPLOG::
@COPY FROM:<UTILITIES>MAKPAK.LOG TO:<UTILITIES>THIS-PACK.BLD
@REVIVE
!
END::
@CONN FROM:<UTILITIES>
@PLEASE (MAKPAK) REMOVE NEWLY CREATED PACK
@GOTO FIN
%ERR::
ERR::
@PLEASE ??? ERROR ON MASTER PACK, PLEASE CORRECT***
@DISM STR KLAD:/REMOVE
FIN::
%FIN::
@