e _vߋt&‰ vƇR 5@Ƈ ><Ĉxއ r& BL~7 eb7Ć~~FEFCzFSvh ***THIS VOLUME DOES NOT CONTAIN A HARDWARE BOOTABLE SYSTEM ***  w l  ť ť 0B p Aaw : ' UD$BA L &( U BQ Е*  & & @( fMICRORSXX<04JAN84134650MICRORSX[001BRUBACKUPVOLE11A [.t:#z04JAN84134650 V. xQz04JAN84134650 O. kz04JAN84134650[.NNz04JAN84134650 .*O:z04JAN84134650?.   Hz03JAN841602245ot:#z xQz kzNNz*O:z Hz MICRORSXMICRORSXT%<`TDU03JAN84160224DECNOVOCTSEPAUGJULJUNMAYAPRMARFEBJAN  CONTDATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATADATAy-Focedure. The illegal command was: ;B ; 'RECORD';OF; This command was ignored. The installation procedure will attempt to ; continue.U;_I; Please record this command. For further information, see the CorrectingSC; Common Errors of the installation guide for your software option.P;P .GOSUB ERRECM- .IF EXSTAT EQ .SETN EXSTAT . .GOTO 100.; E-.; Process conditionalization directives ?xxx.; Isolate the condition.130:n .SETT CNDINSo .TEST X .SETS REST X[2:]e.135:l .PARSE REST "?" COND REST .SETS CNDTF "T" .SETS X COND[1:2] .IF X NE "NO" .GOTO 137 .SETS CNDTF "F" .TEST COND_ .SETS COND COND[3:].137:u .; Check/Process FPP conditional .IF COND NE "FPP" .GOTO 140 .IF'CNDTF' $$FPP .GOTO 300r .GOTO 100.140:O .; Check/Process CIS conditional .IF COND NE "CIS" .GOTO 160 .IF'CNDTF' $$CIS .GOTO 300n .GOTO 100.150:e#.; Check/Process SYSLIB conditionaln .IF COND NE "SYSLIB" .GOTO 160T .IFT D$SLB .GOTO 155R .GOSUB SETSLB.155:  .IF'CNDTF' $$SLB .GOTO 300D .GOTO 100!.; Check/Process FCS conditional]1.160:S .IF COND NE "FCS" .GOTO 170 .IFT D$FCS .GOTO 165] .GOSUB SETFCS.165:o .IF'CNDTF' $$FCS .GOTO 300C .GOTO 100.170:1 .; Check/Process RMS conditional .IF COND NE "RMS" .GOTO 180 .IFT D$RMS .GOTO 175 .GOSUB SETFCS.175:O .IF'CNDTF' $$RMS .GOTO 300 .GOTO 100.180:1#.; Check/Process RMSDEF conditionalo .IF COND NE "FCSDEF" .GOTO 190  .IFT D$FCS .GOTO 182  .GOSUB SETFCS.182:1 .IFT D$SLB .GOTO 185  .GOSUB SETSLB.185: .IF'CNDTF' $$FCSD .GOTO 300 .GOTO 100.190:.#.; Check/Process RMSDEF conditional  .IF COND NE "RMSDEF" .GOTO 200 .IFT D$RMS .GOTO 192  .GOSUB SETFCS.192:1 .IFDF $$SLB .GOTO 195 .GOSUB SETSLB.195:N .IF'CNDTF' $$RMSD .GOTO 300 .GOTO 100.200:O=.; Conditional serviced. Look for another one and process it,0+.; else clean up and re-join main read loop.300:  .IF REST NE "" .GOTO 135F .SETS A1 A2 .SETS A2 A3 .SETS A3 A4 .SETS A4 A5 .SETS A5 A6 .SETS A6 A7 .SETS A7 A8 .SETS A8 A9 .TEST A1O .IF LT 3 .GOTO 120 .DISABLE LOWERCASE .SETS X A1  .ENABLE LOWERCASE .GOTO 110@.; This section processes each of the options from the .INS file.; ASSIGN option.PRASG:$ .DISABLE LOWERCASEO .SETS X A2 .ENABLE LOWERCASE .IF X EQ "MENU" .GOTO 100 .IF X EQ "HELP" .GOTO 100 .IF X NE "LOGICAL" .GOTO 120o.PRLOG:0 .INC NLASG  .SETS LAD'NLASG' A2 .SETS LAL'NLASG' A3 .GOTO 100.; USER_BACKUP optionS.PRUBK:E .SETS TYPE "U"A .GOTO FILCOM .; SYSTEM_BACKUP optionL.PRSBK:O .SETS TYPE "S" .GOTO FILCOME.; DELETE option.PRDEL: .SETS TYPE "D"T .GOTO FILCOMc.; FILE option.PRFIL:m .SETS TYPE "C" .PARSE A2 "/" A2 SWITCH$ .IF SWITCH EQ "KEEP" .SETS TYPE "K".FILCOM: .INC NFIL .SETS FIL'NFIL' A2O .SETS FIT'NFIL' TYPE. .GOTO 100.; REMOVE option.PRREM:P .SETS TYPE "R"S .GOTO INSCOMN.; INSTALL optionN.PRINS:. .SETS TYPE "T"E .PARSE A2 "/" A2 SWITCH' .IF SWITCH EQ "LIBRARY" .SETS TYPE "L";.INSCOM: .INC NINS .SETS INF'NINS' A2T .SETS INT'NINS' TYPEE .GOTO 100.; RUN_SYSTEM option.PRRNS:D .SETS TYPE "S"c .GOTO RUNCOMi.; RUN_IMMEDIATE option .PRRNI:S .SETS TYPE "I"H .GOTO RUNCOMQ.; ABORT option".PRABO:: .SETS TYPE "A"E.RUNCOM: .INC NRUN .SETS RUN'NRUN' A2. .SETS RUT'NRUN' TYPEp .GOTO 100.; LIBRARY_INSERT option.PRLBI: .SETS TYPE "I"o .GOTO LIBCOM.; LIBRARY_DELETE option.PRLBD:T .SETS TYPE "D"Q .GOTO INSCOMS.LIBCOM: .INC NLIB .SETS LIB'NLIB' A2F .SETS LIT'NLIB' TYPEN .GOTO 100.PRICP:0 .SETS INSCOM A2 .GOTO 100.PRIVP:. .SETS IVPCOM A2 .GOTO 100.PRRCP:N .SETS REMCOM A2 .GOTO 100.PRBST:T .INC NBAK .SETS BAK'NBAK' A2O .GOTO 100.PRERR:: .ENABLE LOWERCASE .PARSE RECORD "-" JUNK XS .GOSUB SCREEN;EC; The installation procedure has determined that this option cannotC; be installedNNz*O:zzjRz=pzOOzsz$OPz1OTz2OUz3OztQz-NDATADATADATADATADATADATADATADATADATADATA on your computer. The description of the problem is:L;T; 'X'S;PE; The installation will stop now. Please record the description, thenEB; consult the Correcting Common Errors section of the installation9; guide for your software option for further information.S;M .GOSUB ERREC1 .SETT $$INER. .EXIT B.PROCES: .CLOSE1.; P.;!.; Perform installation functionsO.; .IFF $$INST .GOTO INEND*.; First compose the list of volume labels .SETN I 0.i .SETN NVOL 1. .SETS VNM1 INDEVc.INA10:e .INC Ii .IF I GT NFIL .GOTO INA60 .SETS X FIT'I'  .IF X EQ "K" .GOTO INA20  .IF X EQ "C" .GOTO INA20o .GOTO INA10.INA20:  .SETS FILE FIL'I'.INA25:i .GOSUB PRSFNM .IF DEV EQ INDEV .GOTO INA50r .SETN J 1.f.INA30:f .INC JS .IF J GT NVOL .GOTO INA40 .SETS X VNM'J'< .IF X NE DEV .GOTO INA30S .GOTO INA50.INA40:m .INC NVOL .SETS VNM'NVOL' DEV.INA50:T .IFT MORE .GOTO INA25 .GOTO INA10.INA60:l".; Now do the real copy operations .SETN I 0.M, .SETS ERRTXT "Error while copying diskette".INB5: .INC IE .IF I GT NVOL .GOTO INB40 .SETS VOL VNM'I'X .TEST VOL .SETS VOLLAB VOL[1:-1] .IF I EQ 1 .GOTO INB7;'BEEP'O .GOSUB CHNGVL.INB7: .GOSUB SCREEN ; .IF I NE 1 ; Thank you. .IF I NE 1 ; 6 ; Now copying files from the diskette. This will take ; one to two minutes. .SETN J 0.V.INB10:S .INC J' .IF J GT NFIL .GOTO INB30 .SETS X FIT'J'O .IF X EQ "K" .GOTO INB20d .IF X EQ "C" .GOTO INB20 .GOTO INB10.INB20:E .SETS FILE FIL'J'.INB25:s .GOSUB PRSFNM .IF DEV NE VOL .GOTO INB27O .ENABLE QUIET4 COPY/UFD/OWN 'INDEV''DIR''NAME'.'TYP' 'OUTDEV''DIR' .DISABLE QUIETGF .IF NE .IF GT EXSTAT .SETN EXSTAT ' .IF NE .GOSUB NFATALw.INB27:f .IFT MORE .GOTO INB25 .GOTO INB10.INB30:t .IF I NE 1 .GOTO INB5$ .TESTFILE 'OUTDEV''DIR''INSNAM'.INS .IF EQ 1 .GOTO INB40 .ENABLE QUIET8 COPY/UFD/OWN 'INDEV''INDIR''INSNAM'.INS 'OUTDEV''INDIR' .DISABLE QUIETFF .IF NE .IF GT EXSTAT .SETN EXSTAT ' .IF NE .GOSUB NFATALM .GOTO INB5D.INB40: .IFT CNDINS .GOSUB WRTPRM .IF NBAK EQ 0 .GOTO INCDON  .ENABLE QUIET DMOUSE 'INDEV'/SIL/DEV  .DISABLE QUIETB .SETF $$MOU .GOSUB SCREEN .IFF $$CRT ;O0;'BEEP' Please remove the diskette from 'INDEV'.;U .GOSUB ERRECA.INBDON:.; Copy backup setsI .SETN I 0.Q.INC10:/ .INC II .IF I GT NBAK .GOTO INCDOND .SETS VOLLAB BAK'I';'BEEP'. .GOSUB CHNGVF .GOSUB SCREEN;>@; You will be requested to insert the group of diskettes labeled<; 'VOLLAB' starting with number 1 and continuing through theG; last diskette in sequence. The requests will be formatted as follows: ;.9;BAC - Mount disk 1 in 'INDEV' . Press "RETURN" when doneR;OG; You have already placed the first diskette in the drive. When you are8; asked to insert volume 1, please press the return key.;E; For each request starting with disk 2, remove the diskette which isB; currently in 'INDEV', and insert the diskette with the requestedD; number. When you have inserted the diskette, press the RETURN key.;o .GOSUB ERRECh .GOSUB SCREEN;t8; Running Backup program to copy diskettes. Please wait.;. .ENABLE QUIETD BAC/NOINI/IMAGE:RESTORE/SAVE_SET:'VOLLAB'/DIR/REPL 'INDEV' 'OUTDEV' .DISABLE QUIETiF .IF NE .IF GT EXSTAT .SETN EXSTAT ' .IF NE .GOSUB NFATALt .GOTO INC10.INCDON: .IFT $$MAPP .GOTO INCNDM  .ENABLE QUIET DMOUSE 'INDEV'/SIL/DEV .DISABLE QUIETt .SETF $$MOU .GOSUB SCREEN .SETS X ""t .IF NVOL GT 1 .SETS X "last " .IF NBAK GT 0 .SETS X "last "B;'BEEP' The 'X'diskette is copied. Please remove the diskette from); drive 'INDEV' and close the drive door.:;L .GOSUB ERRECI.INCNDM: .GOSUB SCREEN0; Installation processing will now be completed."; This will take about one minute.;T.; Do library insertsA .SETN I 0.C8 .SETS E-VRRTXT "Error while inserting routines in SYSLIB".IND10:E .INC IS .IF I GT NLIB .GOTO INDDON. .SETS X LIT'I'O .IF X NE "I" .GOTO IND10. .SETS X LIB'I'S .ENABLE QUIET LBR LB:[1,1]SYSLIB/RP='X' .DISABLE QUIETdF .IF NE .IF GT EXSTAT .SETN EXSTAT ' .IF NE .GOSUB NFATAL .GOTO IND10.INDDON:.INEND:l.; n.;4.; Perform installation and customization procedures.; .SETF INDX .IFNINS ...IND .SETT INDX .IFF $$MDFY .GOTO MDEND .IF INSCOM NE "" .GOTO MD10 .IFT $$INST .GOTO MDEND .IFT $$STUP .GOTO MDEND;I6; 'INSNAM' does not include a customization procedure.;S?; This message does not necessarily indicate an error. You have B; asked to run the customization procedure for an option that does(; not include a customization procedure.;B .GOSUB ERRECO .GOTO MDEND.MD10:= .SETS ERRTXT "Could not install Indirect command processor."d .ENABLE QUIET' .IFNINS ...IND INS $ICMRES/TASK=...INDF .DISABLE QUIETE .IFNINS ...IND .GOTO FATALD .GOSUB SCREEN;O3; Now running customization procedure for 'INSNAM'.d;  .ENABLE QUIET: IND @'$$SUDV'OPTIONINS LB:'INDIR''INSNAM'.INS LB:'INSCOM' .DISABLE QUIETrF .IF NE .IF GT EXSTAT .SETN EXSTAT % .IF EQ .GOTO MDEND ;cA; An error was reported while customizing 'INSNAM'. You can retry G; the installation as described in the Correcting Common Errors sectionS5; of the installation guide for your software option.F;S .GOSUB ERRECA.MDEND:O.; C.;.; Perform STARTUP functions.; .IFF $$STUP .GOTO STEND#.; First phase loop - Install tasksN .SETN PHAS 1. .SETN I 0.I4 .SETS ERRTXT "Error while installing option tasks." .SETF FAOPEN .SETT FAEXSTS.ST10: .INC IF .IF I GT NINS .GOTO ST15  .SETS X INT'I'e .IF X EQ "R" .GOTO ST10 .SETS PAR ""A" .IF X NE "T" .SETS PAR "/PAR:GEN" .SETS X INF'I'n .GOTO ST50n .; Second phase loop - Run tasks.ST15: .SETN PHAS 2. .SETN I 0.i1 .SETS ERRTXT "Error while running option tasks."r.ST20: .INC It .IF I GT NRUN .GOTO ST70O .SETS X RUT'I't .IF X EQ "A" .GOTO ST20 .SETS X1 """ .IF X EQ "S" .SETS X1 "/DELAY:1S" .SETS X RUN'I'a*.; Common section - check and open FASTART.ST50: .IFT FAOPEN .GOTO ST55  .IFF FAEXST .GOTO ST55X .SETF FAEXSTX .TESTFILE LB:[1,2]FASTART.CMD .IF NE 1 .GOTO ST55A .OPENA LB:[1,2]FASTART.CMDO .SETT FAOPENS .SETT FAEXSTp.DATA .;.DATA .; Option: 'INSNAM'..DATA .;.ST55:.; Process INSTALL commandsg .IF PHAS NE 1 .GOTO ST60N .ENABLE QUIET INS LB:'X''PAR' .DISABLE QUIET." .IFT FAEXST .DATA INS LB:'X''PAR' .IFF $$INST .GOTO ST10LF .IF NE .IF GT EXSTAT .SETN EXSTAT ' .IF NE .GOSUB NFATALA .GOTO ST10X.; Process RUN commandsE.ST60: .ENABLE QUIET RUN'X1' 'X' .DISABLE QUIETP .IFT FAEXST .DATA RUN'X1' 'X' .IFF $$INST .GOTO ST20TF .IF NE .IF GT EXSTAT .SETN EXSTAT ' .IF NE .GOSUB NFATAL .GOTO ST20.ST70: .IFT FAOPEN .CLOSEU.STEND:..; A.;..; Perform installation verification functions.; .IFF $$IVP .GOTO IVENDS .IF IVPCOM NE "" .GOTO IV10 .IFT $$INST .GOTO IVEND .IFT $$STUP .GOTO IVEND;A5; 'INSNAM' does not include a verification procedure.;N?; This message does not necessarily indicate an error. You haveRA; asked to run the verification procedure for an option that does '; not include a verification procedure.A; .GOSUB ERRECE .GOTO IVEND.IV10:= .SETS ERRTXT "Could not install Indirect command processor." .ENABLE QUIET' .IFNINS ...IND INS $ICMRES/TASK=...IND. .DISABLE QUIETV .IFNINS ...IND .GOTO FATALT .GOSUB SCREEN;T2; Now running verification procedure for 'INSNAM'.;d .ENABLE QUIET: IND @'$$SUDV'OPTIONINS LB:'INDIR''INSNAM'.INS LB:'IVPCOM' .DISABLE QUIETa .GOSUB ERRECR .IFF $$CRT ;n .GOSUB SCREENF .IF NE .IF GT NNz*O:zzjRz=pzOOzsz$OPz1OTz2OUz3OztQz-^DATADATADATADATADATADATADATADATADATADATAEXSTAT .SETN EXSTAT % .IF EQ .GOTO IVENDD;IA; An error was reported while verifying software option 'INSNAM'.D; See the Correcting Common Errors section of installation guide for; your software option.G; .GOSUB ERREC .IVEND:T.; o.;.; Perform removal procedure.; .SETF INDX .IFNINS ...IND .SETT INDX .IFF $$RMOV .GOTO RCEND .IF REMCOM EQ "" .GOTO RCENDU= .SETS ERRTXT "Could not install Indirect command processor."X .ENABLE QUIET' .IFNINS ...IND INS $ICMRES/TASK=...INDS .DISABLE QUIETT .IFNINS ...IND .GOSUB NFATAL .ENABLE QUIET: IND @'$$SUDV'OPTIONINS LB:'INDIR''INSNAM'.INS LB:'REMCOM' .DISABLE QUIET F .IF NE .IF GT EXSTAT .SETN EXSTAT % .IF EQ .GOTO RCENDr;m0; An error was reported while removing 'INSNAM'.; .GOSUB ERREC..RCEND:V.; R.;.; Perform removal functions.; .IFF $$RMOV .GOTO RMEND .SETN I 0.c.RM10: .INC I. .IF I GT NRUN .GOTO RM19S .SETS X RUN'I'E .ENABLE QUIET .IFACT 'X' ABORT/TASK 'X' .DISABLE QUIETA .IFACT 'X' .WAIT 'X'I .GOTO RM10P.RM19: .SETN I 0.S.RM20: .INC I' .IF I GT NINS .GOTO RM25< .SETS X INT'I'S .SETS NAME INF'I' .IF X EQ "L" .GOTO RM20 .IF X EQ "R" .GOTO RM21 .SETS FILE INF'I' .GOSUB PRSFNM.RM21: .TEST NAMEg .SETN NLEN  .IF LE 6 .GOTO RM23 .SETN NLEN 6..RM23: .SETS X NAME[1:'NLEN']O .ENABLE QUIET .IFINS 'X' REMOVE 'X' .DISABLE QUIETR .GOTO RM20S.RM25: .SETN I 0...RM26: .INC IF .IF I GT NINS .GOTO RM40I .SETS X INT'I'F .SETS NAME INF'I' .IF X NE "L" .GOTO RM26 .SETS FILE INF'I' .GOSUB PRSFNM .TESTPARTITION 'NAME' .TEST "NSP"N .ENABLE QUIET' .IF EQ 0 REMOVE/REGION 'NAME'  .DISABLE QUIET .GOTO RM26U.RM40: .SETN I 0.T.RM50: .INC I  .IF I GT NFIL .GOTO RM706 .SETS X FIT'I'E .SETS X1 FIL'I' .IF X EQ "D" .GOTO RM60 .IF X EQ "C" .GOTO RM60 .GOTO RM50'.RM60: .SETS FILE FIL'I'.RM65: .GOSUB PRSFNM .ENABLE QUIET# DELETE 'OUTDEV''DIR''NAME'.'TYP';*E .DISABLE QUIETE .IFT MORE .GOTO RM65N .GOTO RM50M.RM70: .SETN I 0.'.RM80: .INC I. .IF I GT NLIB .GOTO RM90T .SETS X LIT'I' .IF X NE "R" .GOTO IND10N .SETS X LIB'I'I .ENABLE QUIET LBR LB:[1,1]SYSLIB/DE='X' .DISABLE QUIETI .GOTO RM80:.RM90: .ENABLE QUIET& .TESTFILE 'OUTDEV''INDIR''INSNAM'.INS .IF NE 1 .GOTO RM100% DELETE 'OUTDEV''INDIR''INSNAM'.INS;*R.RM100:6& .TESTFILE 'OUTDEV''INDIR''INSNAM'.PRM .IF NE 1 .GOTO RM110% DELETE 'OUTDEV''INDIR''INSNAM'.PRM;* .RM110:.$ DELETE LB:[1,2]FASTART.CMD;*/NOWARN .DISABLE QUIET'.RMEND::.; N.;".; Perform system backup functions.; .IFF $$SBCK .GOTO SBEND.SBEND:.; S.; .; Perform user backup functions.; .IFF $$UBCK .GOTO UBEND.UBEND:O .EXIT EXSTAT.; E,.; Subroutine to ask questions about FCS/RMS.SETFCS: .SETT $$FCS .SETT $$RMS .SETT D$FCS .SETT D$RMS.SFCS10: .GOSUB SCREEN% .IFT $$CRT .SETS ANSPOS ESC+"[16;1H" ,; You can install this option to use either:;R#; F -- File Control Services (FCS)R+; R -- Record Management Services (RMS-11);; B -- Both FCS and RMS-11k;f9; Type F for FCS, R for RMS-11, or B for both, then press; the RETURN key.k.SFCS11:0 .ASKS TEMP1 'ANSPOS' Which do you want to use?  ; .IFT .GOTO SFCS12 .DISABLE LOWERCASEa .IF TEMP1 EQ "" .GOTO SFCS20T .SETS TEMP TEMP1[1:1] .IF TEMP EQ "B" .GOTO SFCS201 .IF TEMP EQ "F" .SETF $$RMS .IF TEMP EQ "F" .GOTO SFCS20 .IF TEMP EQ "R" .SETF $$FCS .IF TEMP EQ "R" .GOTO SFCS20i.SFCS12: .GOSUB BADANS;; Please answer the question by typing F, R, or B, and thenS; pressing the return key. .GOTO SFCS11-.SFCS20: .IFT D$SLB .GOTO STDREC .RETURN.; +.; Subroutine to ask questions about SYSLIBn.SETSLB: .SETF $$SLB .SETT D$SLB.SSLB10: .GOSUB SCREEN% .IFT $$CRT .SETS ANSPOS ESC+"[15;1H"EA; You can install this option so that some of its support libraryS@; rout-fines are placed in the system object library file, SYSLIB.;T:; If you are not sure whether to do this, answer NO to the; following question.b;y/; Answer the following question with YES or NO. .SSLB11:T.ASKS TEMP1 'ANSPOS' Do you want to include the support library routines in SYSLIB?  ; .IFT .GOTO SSLB12 .IF TEMP1 EQ "" .GOTO SSLB20D .DISABLE LOWERCASEO .SETS TEMP TEMP1[1:1] .ENABLE LOWERCASE .IF TEMP EQ "N" .GOTO SSLB20h .IF TEMP EQ "Y" .GOTO SSLB17u.SSLB12: .GOSUB BADANS1; Please answer the question by typing YES or NO. .GOTO SSLB11n.SSLB17: .SETT SLB.SSLB20:* .IFDF $$RMS .AND .IFDF $$FCS .GOTO STDREC .RETURN.; iF.; This routine is called whenever RMS and FCS are both requested, and2.; Syslib was specified, to set the SYSLIB default.STDREC: .SETF $$RMSDB .SETF $$FCSDE .SETT D$RMSD2 .SETT D$FCSDO8 .IFT $$FCS .AND .IFT $$RMS .AND .IFT $$SLB .GOTO STDR10 .IFT $$FCS .SETT $$FCSD .IFT $$RMS .SETT $$RMSD .RETURN.STDR10: .SETT $$FCSD.STDR15: .GOSUB SCREEN% .IFT $$CRT .SETS ANSPOS ESC+"[17;1H"1>; You have chosen to use both FCS and RMS, and you have chosen@; to place the support routines in SYSLIB. SYSLIB cannot contain>; the routines for both of these record access methods, so you1; must select either FCS or RMS to use in SYSLIB.S;8; If you are not sure which to select, answer FCS to the; following question..; 5; Answer F for FCS or R for RMS to the next question.M.STDR11:G .ASKS TEMP1 'ANSPOS' Which access method should be placed in SYSLIB ?  .IFT .GOTO STDR12 .IF TEMP1 EQ "" .GOTO STDR20u .DISABLE LOWERCASEa .SETS TEMP TEMP1[1:1] .ENABLE LOWERCASE .IF TEMP EQ "F" .GOTO STDR20t .IF TEMP EQ "R" .GOTO STDR17t.STDR12: .GOSUB BADANS.; Please answer the question by typing F or R. .GOTO STDR11.STDR17: .SETF $$FCSDh .SETT $$RMSDa.STDR20: .RETURN.; w>.; Subroutine to decompose a filespec into component parts and.; supply defaults.;>.; Input variable FILE = ddnn:[directory]filename.type;version<.; Output variables DEV DIR NAME TYP VER<.; Defaults xxyy: [dir] "" .INS ;0'.; (From .INS file)..PRSFNM: .IFNDF MORE .SETF MORE1 .IFT MORE .GOTO PRF5  .SETS DEV INDEV .SETS DIR INDIR .SETS NAME "" .SETS TYP "INS" .SETS VER "0".PRF5: .TEST FILE ":": .IF EQ 0 .GOTO PRF10 .SETS DEV FILE[1:]o .SETN PRFI .TEST FILEa! .SETS FILE FILE[PRFI+1:]d.PRF10:c .TEST FILE "]"e .IF EQ 0 .GOTO PRF20 .SETS DIR FILE[1:]Y .SETN PRFI .TEST FILEx! .SETS FILE FILE[PRFI+1:].PRF20: .SETT MORE( .SETT FLAGe .SETN BIAS 1 .TEST FILE "."F .IF NE 0 .GOTO PRF30 .SETF FLAGI .TEST FILE ","I .IF NE 0 .GOTO PRF30 .SETF MORES .TEST FILE "/" .IF NE 0 .GOTO PRF30 .SETN BIAS 00 .TEST FILEF.PRF30:R! .SETS NAME FILE[1:-BIAS]T .SETN PRFI .TEST FILER! .SETS FILE FILE[PRFI+1:] .IFF FLAG .RETURN .SETN BIAS 1D .TEST FILE ";"> .IF NE 0 .GOTO PRF40 .SETF FLAGS .TEST FILE ",": .IF NE 0 .GOTO PRF40 .SETF MOREA .TEST FILE "/" .IF NE 0 .GOTO PRF40 .SETN BIAS 0F .TEST FILEA.PRF40:T .SETS TYP FILE[1:-BIAS] .SETN PRFI .TEST FILE ! .SETS FILE FILE[PRFI+1:]0 .IFF FLAG .RETURN .SETN BIAS 10 .TEST FILE ","I .IF NE 0 .GOTO PRF50 .SETF MORE. .TEST FILE "/"S .IF NE 0 .GOTO PRF50 .SETN BIAS 0U .TEST FILEB.PRF50:. .SETN PRFI -BIASN .SETS VER FILE[1:PRFI]F .TEST FILET& .SETS FILE FILE[PRFI+BIAS+1:] .RETURN.; A.NFATAL: .SETF FERR< .GOTO ERCOM.FATAL:0 .SETT FERR .SETT $$INERA.ERCOM:T .GOSUB SCREEN5; An internal error occurred in the optional software.<; installation/modification procedure. This error may be due8; to a problem in the procedure or in the option you are9; attempting to install orNNz*O:zzjRz=pzOOzsz$OPz1OTz2OUz3OztQz-nDATADATADATADATADATADATADATADATADATADATA modify. The description of theP; internal error is:;E ; 'ERRTXT';0!; Please record this description.E .IFF FERR .GOTO FATL10T;T@; This procedure will stop now. See the Correcting Common Errors4; of the installation guide for the software option.;. .GOTO FATL20E.FATL10:; A; Although an error was encountered, the procedure will continue. @; The error may or may not affect its successful completion. For?; more information, see the Correcting Common Errors section int;; the installation guide for your software option for help.r;:.FATL20: .GOSUB ERRECl- .IF EXSTAT EQ .SETN EXSTAT O .IFF FERR .RETURN .EXIT l..; Subroutine to handle bad answers to queries.BADANS: .IFF $$CRT ;  .IFF $$CRT .RETURN ;'ANSPOS''ESC'[K ;'ESC'[K ;'ERRPOS''ESC'[Kr ;'ESC'[Ko ;'ERRPOS' .RETURNB.; Routine to wait for operator input, then clear screen, continue.ERREC:rA .ASKS X Press the RETURN key when you are ready to continue ... .RETURN".; Subroutine to clear/init screen.SCREEN: .IFF $$CRT .RETURNU ;F .RETURN@.; Routine to write the .PRM file corresponding to the .INS file.WRTPRM:" .OPEN 'OUTDEV''INDIR''INSNAM'.PRM .IFT $$CIS .DATA CIS YES .IFF $$CIS .DATA CIS NO .IFT $$FPP .DATA FPP YES .IFF $$FPP .DATA FPP NOE .IFT $$FCS .DATA FCS YES .IFF $$FCS .DATA FCS NOo .IFT $$RMS .DATA RMS YES .IFF $$RMS .DATA RMS NO .IFT $$FCSD .DATA FCSDEF YESw .IFF $$FCSD .DATA FCSDEF NO .IFT $$RMSD .DATA RMSDEF YES  .IFF $$RMSD .DATA RMSDEF NO .IFT $$SLB .DATA SYSLIB YES; .IFF $$SLB .DATA SYSLIB NO .CLOSE  .RETURN?.; Routine to read the .PRM file corresponding to the .INS fileI.RDPRM:P .SETT D$FCS .SETT D$RMS .SETT D$SLB .SETT D$FCSD .SETT D$RMSD.& .TESTFILE 'OUTDEV''INDIR''INSNAM'.PRM .IF NE 1 .RETURN# .OPENR 'OUTDEV''INDIR''INSNAM'.PRMM.RDP10:R .READ RECORD$ .IFT .GOTO RDP20 $ .IF RECORD EQ "CIS YES" .SETT $$CIS# .IF RECORD EQ "CIS NO" .SETF $$CISR$ .IF RECORD EQ "FPP YES" .SETT $$FPP# .IF RECORD EQ "FPP NO" .SETF $$FPP.$ .IF RECORD EQ "FCS YES" .SETT $$FCS# .IF RECORD EQ "FCS NO" .SETF $$FCSR$ .IF RECORD EQ "RMS YES" .SETT $$RMS# .IF RECORD EQ "RMS NO" .SETF $$RMSR( .IF RECORD EQ "FCSDEF YES" .SETT $$FCSD' .IF RECORD EQ "FCSDEF NO" .SETF $$FCSDA( .IF RECORD EQ "RMSDEF YES" .SETT $$RMSD' .IF RECORD EQ "RMSDEF NO" .SETF $$RMSD' .IF RECORD EQ "SYSLIB YES" .SETT $$SLB& .IF RECORD EQ "SYSLIB NO" .SETF $$SLB .GOTO RDP10.RDP20:S .CLOSER .RETURN%.; Subroutine to change disk volumes. .CHNGVF: .SETS SW "/FOR" .GOTO CHVL5.CHNGVL: .SETS SW VOLLAB.CHVL5:C .SETN ERCNT 0.R .ENABLE QUIET DMOUSE 'INDEV'/DEV/SILF .DISABLE QUIETO .SETF $$MOU.CHVL10: .GOSUB SCREEN; $; The diskette in 'INDEV' is copied.;$-; Please remove the diskette in drive 'indev'D4; and replace it with the diskette labeled 'VOLLAB'.;Q .IF SW NE "/FOR" .GOTO CHVL20?; There may be more than one diskette labeled 'VOLLAB'. If thisS9; is the case, they will be labeled, for example, 1 of 3,C2; 2 of 3 , 3 of 3. Insert the one labeled 1 of ...;S.CHVL20: .GOSUB ERRECE.CHVL30:& .IF X EQ "OVERRIDE" .SETS SW "/OV:ID" .ENABLE QUIET! MOUSE/SILENT/NOSHARE 'INDEV''SW' .DISABLE QUIET& .IF EQ .GOTO MOUGUD .INC ERCNTm .IF ERCNT GT 1 .GOTO MOUNGd .GOSUB INFUNY .GOTO CHVL30 .MOUNG:l .GOTO RDFATL..MOUGUD: .SETF $$MOU .RETURN.; /.; Routines to deal with disk mount/read errorst.INFUNY: .GOSUB SCREEN<; The diskette in 'INDEV' cannot be read.This may be because>; the diskette is inserted incorrectly or that you have placed ; the wrong diskette in 'INDEV'.;"5; Please make sure that the diskette labeled 'VOLLAB'; is inserted in 'INDEV'.X;T@; Please make sure that the diskette is inserted in 'INDEV' suchB; that the orange arrow on the diskette is aligned with the orange; bar on the drive.U;<; Please make sure that the door of drive 'INDEV' is closed.;r-v.x); We will try reading the diskette again.i;t .GOTO ERREC.RDFATL: .GOSUB SCREENB; The diskette in 'INDEV' still cannot be read. This may be due to:; problems either with the diskette or with drive 'INDEV'.; +; The installation procedure will stop now. ;'D; You can try the installation procedure over using another disketteF; drive, or a different copy of the software option (if you have one).;e .GOSUB ERRECd .EXIT a,.; Chain to installation or IVP command file.CHNFIL: .CHAIN 'P2'reading the diskette again.i;t .GOTO ERREC.RDFATL: .GOSUB SCREENB; The diskette in 'INDEV' still cannot be read. This may be due to:; problems either with the diskette or with drive 'INDEV'.; +; The installation procedure will stop now. ;'D; You can try the installation procedure over using another disketteF; drive, or a different copy of the software option (if you have one).;e .GOSUB ERRECd .EXIT a,.; Chain to installation or IVP command file.CHNFI.; Title: SHUTUP.CMD..; Version: 01.00S.; Author: C. B. Petrovic.; Date: 21-July-83.;.; Description:E.;9.; This is the Micro/RSX system shut down procedure. It R9.; determines if DECnet is installed and active. If bothO<.; conditions are found to be true, the network is stopped.:.; The procedure then asks the user if either a backup or7.; restore function is necessary and then performs the.; requested function.T.; .ENABLE SUBSTITUTION .DISABLE LOWERCASER .ENABLE CONTROL-Z .ENABLE ESCAPEM .SETS $TODAY  .SETS $VERSN "V01.00" .SETS $KEY "BACKRESTCONT" .SETT $QUIETi .SETT $$CRT .SETS $DEBG ""/ .SETF $DISP .SETF $NETu .SETF  .SETF n .SETF NETACT .SETF NETINSb .ONERR EXIT1t .SETS $DCL ""% .IF NE "DCL" .SETS $DCL "DCL " .;*.; See if TI: can accept escape sequences..; .SETN T0 < .IF T0 LT 15 .OR .IF T0 GT 16 .AND .IF T0 LT 24 .SETF $$CRT.;/.; Parse the command line and isolate switches.R.; .TEST P1R .IF EQ 0 .GOTO 1 .TEST P1 "/-MC"" .IF NE 0 .SETS $DEBG ";" .TEST P1 "/-QU" .IF NE 0 .SETF $QUIETS .TEST P1 "/-DI" .IF NE 0 .SETT $DISP.1:. .IFF $DISP .DISABLE DISPLAY .GOSUB SCREEN 1; SHUTUP.CMD - '$VERSN'C;""; Shut down the Micro/RSX system..;,.; Stop the Network if present on the system.; .IFACT NETACP .SETT NETACTT .IFINS NETACP .SETT NETINS  .SETS NODE " .IF NODE EQ "RSX11" .SETS NODE ""( .IFT NETACT .AND .IFT NETINS .SETT $NET) .IFF NETACT .AND .IFF NETINS .GOTO NONET.;' stopping network operations as of0); '