.ENABLE SUBSTITUTION
.ASKS OLDK CURRENT DISC FROR CODE TO BE SAVED
ASN 'OLDK' = OL:
.ASKS NWDK NEW DISC TO COLLECT SAVE COPY ON
ASN 'NWDK'=NW:
.ASK DRIV COPY DRIVER AND DUMP PROGRAMS TO SAVE DISC
.IFF DRIV .GOTO 10
.ASKS OLDU UIC OF DRIVER ON 'OLDK' [DEFAULT [103,110]]
.IF OLDU EQ "" .SETS OLDU "[103,110]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,2]]
.IF NWDU EQ "" .SETS NWDU "[77,2]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'CDDRV.MAC
/NV=OL:'OLDU'CDTAB.MAC
/NV=OL:'OLDU'CDPREF.MAC
/NV=OL:'OLDU'CDDRV.CMD
/NV=OL:'OLDU'CDDUMP.MAC
/NV=OL:'OLDU'CDDUMP.CMD
/NV=OL:'OLDU'CDTRIN.MAC
/NV=OL:'OLDU'CDTRIN.CMD
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.10:
.ASK CDPSRC SAVE CDPACK SOURCES
.IFF CDPSRC .GOTO 30
.ASKS OLDU UIC OF CDPACK SOURCES ON 'OLDK' [DEFAULT [77,3]]
.IF OLDU EQ "" .SETS OLDU "[77,3]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,3]]
.IF NWDU EQ "" .SETS NWDU "[77,3]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'*.MAC
/NV=OL:'OLDU'*.CMD
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.30:
.ASK CDPLIB SAVE CDPACK LIBRARY
.IFF CDPLIB .GOTO 40
.ASKS OLDU UIC OF CDPACK LIBRARY ON 'OLDK' [DEFAULT [77,4]]
.IF OLDU EQ "" .SETS OLDU "[77,4]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,4]]
.IF NWDU EQ "" .SETS NWDU "[77,4]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'CDPACK.OLB
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.40:
.ASK CDPTST SAVE SIMPLE TEST PROGRAMS USING CDPACK
.IFF CDPTST .GOTO 50
.ASKS OLDU UIC OF SOURCES ON 'OLDK' [DEFAULT [77,5]]
.IF OLDU EQ "" .SETS OLDU "[77,5]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,5]]
.IF NWDU EQ "" .SETS NWDU "[77,5]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'RCVLUP.*
/NV=OL:'OLDU'XMTLUP.*
/NV=OL:'OLDU'RCVTST.*
/NV=OL:'OLDU'XMTTST.*
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.50:
.ASK QIOTST SAVE TEST PROGRAMS USING DIRECT QIOS
.IFF QIOTST .GOTO 60
.ASKS OLDU UIC OF SOURCES ON 'OLDK' [DEFAULT [77,6]]
.IF OLDU EQ "" .SETS OLDU "[77,6]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,6]]
.IF NWDU EQ "" .SETS NWDU "[77,6]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'QIORCV.*
/NV=OL:'OLDU'QIOXMT.*
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.60:
.ASK CDTEST SAVE CD ECHO TEST PROGRAM CDTEST
.IFF CDTEST .GOTO 70
.ASKS OLDU UIC OF CDTEST ON 'OLDK' [DEFAULT [77,7]]
.IF OLDU EQ "" .SETS OLDU "[77,7]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,7]]
.IF NWDU EQ "" .SETS NWDU "[77,7]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'CDTEST.*
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.70:
.ASK RCVXMT SAVE RCVXMT PROGRAM
.IFF RCVXMT .GOTO 20
.ASKS OLDU UIC OF RCVXMT ON 'OLDK' [DEFAULT [77,10]]
.IF OLDU EQ "" .SETS OLDU "[77,10]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,10]]
.IF NWDU EQ "" .SETS NWDU "[77,10]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'RCVXMT.*
/NV=OL:'OLDU'RXINIT.FTN
/NV=OL:'OLDU'RXSUMM.FTN
/NV=OL:'OLDU'RCVXMT.INC
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.80:
.ASK CDPDBG SAVE CDPACK DEBUGGING TEST PROGRAMS
.IFF CDPDBG .GOTO 90
.ASKS OLDU UIC OF SOURCES ON 'OLDK' [DEFAULT [77,20]]
.IF OLDU EQ "" .SETS OLDU "[77,20]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,20]]
.IF NWDU EQ "" .SETS NWDU "[77,20]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'*.FTN
/NV=OL:'OLDU'*.CMD
/NV=OL:'OLDU'*.MAC
/NV=OL:'OLDU'*.COM
/NV=OL:'OLDU'*.INC
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.90:
.ASK CRNLIB SAVE CERNLIB.MLB
.IFF CRNLIB .GOTO 100
.ASKS OLDU UIC OF CERN LIBRARIES ON 'OLDK' [DEFAULT [77,100]]
.IF OLDU EQ "" .SETS OLDU "[77,100]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,100]]
.IF NWDU EQ "" .SETS NWDU "[77,100]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'CERNLIB.MLB
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.100:
.ASK RSXLIB SAVE PARTIAL CERN RSXLIB
.IFF RSXLIB .GOTO 110
.ASKS OLDU UIC OF LIBRARY ON 'OLDK' [DEFAULT [77,100]]
.IF OLDU EQ "" .SETS OLDU "[77,100]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,100]]
.IF NWDU EQ "" .SETS NWDU "[77,100]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'RSXLIB.OLB
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
.; -------------------------------------------------------------------
.;
.110:
.ASK DOCUMS SAVE DOCUMENTS
.IFF DOCUMS .GOTO 120
.ASKS OLDU UIC OF DOCUMENTS ON 'OLDK' [DEFAULT [77,200]]
.IF OLDU EQ "" .SETS OLDU "[77,200]"
.ASKS NWDU UIC TO BE COPIED TO ON NEW DISC [DEFAULT [77,200]]
.IF NWDU EQ "" .SETS NWDU "[77,200]"
.SETS UIC <UIC>
.OPEN COPY.TMP
.ENABLE DATA
'NWDK'/DF
/NV=OL:'OLDU'*.RNO
/NV=OL:'OLDU'*.MEM
.DISABLE DATA
.CLOSE
SET /UIC='NWDU'
PIP @'UIC'COPY.TMP
SET /UIC = 'UIC'
PIP COPY.TMP;*/DE
