.;************************************************************************ .;************************************************************************ .;*********************** S R D . C M D ********************* .;************************************************************************ .;************************************************************************ .; .; S R D . C M D V6.3 19-JUL-83 .; .; This command file was created along with version 6.0 .; of SRD. It is intended for use with ...AT., and seems .; to work under IAS V3.0, and RSX-11M V3.1 and 3.2 and V4.0. .; .; This command file will create the necessary files to build .; SRD, and optionally assemble and task-build. .; .; TO BUILD SRD FOR THE FOLLOWING SYSTEMS: .; .; R$$11M -- RSX-11M MAPPED .; R$$11U -- RSX-11M UNMAPPED .; R$$11D -- RSX-11D .; I$$AS -- IAS V3.0 .; R$$MPL -- RSX-11M Plus V2.0 .; .; MODIFICATIONS: .; .; 01-DEC-81 Bob Turkelson(RBD) .; Correct problem with wrong switch settings when .; used to display help. .; Move /00 default value to 3rd switch initialization word .; Remove some references to SYSLIB when building with FCSRES .; .; 10-Jul-82 Bob Denny .; Modified by Bob Denny for RSX-11M V4 to catch proper CLI .; and install proper task names. Also, there were bugs in the .; switch defaulting and when running this file with a YES to .; "Have you already build SRDSYS?". This file is now a merge .; (done by hand!!) of Turkelsons 01-Dec-81 file and the one .; that I originally did from V6.0 for RSX-11M V4.0. .; Finally, the ODL file produced for FCSRES on RSX V4.0 is .; set up for the PLAS FCSRES. Had to add question for V4.0. .; Changed BIGMAC/BIGTKB to MAC/TKB for V4.0. Untested on .; V3.2!! Support for help spawn to CLI... for M V4.0 so .; will go to proper CLI. Do not use SRD to purge, else your .; possibly valuable V6.0 baseline files may be wiped out. .; (Hint: I set protection on em to [R,R,R,R]!) Removed .; listings and maps specs from command lines. Typical user .; just wants SRD to run! .; .; 18-May-83 Bob Turkelson .; Modified for the switches added in Glen Everhart's Spring .; and Fall 1982 versions (now merged into this version). .; .; 01-Jun-83 Carl E. Friedberg Seaport Systems Inc., NYC NY 10038 .; Modified for /MU support under MPLUS; flattened out .; Incorporate MPlus supervisor mode library .; Add symbol INSSLP if installed here .; so we can remove it when finished .; 19-Jul-83 Bob Turkelson .; Fixed incorect label in GOTO (0025); this distribution .; has correction files already applied, so skipped over .; sections to perform the SLP updates. .; .; .BEGIN: .DISABLE LOWERCASE .SETT MAC .SETT TKB .SETT SRD .SETT INSSLP .IFNINS ...SLP .SETF INSSLP .IFNINS ...MAC .SETF MAC .IFNINS ...TKB .SETF TKB .SETF R$$MV4 .SETF M$$CLI .SETF R$$11M .SETF R$$11U .SETF R$$MPL .SETF R$SUPL .SETF R$$MP2 .SETF D$$CAL .SETF F$$CS .SETF R$$11D .SETF I$$AS .SETT E$$IS .SETF E$$XTK .SETN EXTEND 1024. .SETS $C "" .ENABLE SUBSTITUTION .ENABLE ESCAPE .SETS END ".END" .; We have to do this to stop AT. getting upset ; ; Question/Answer phase ; ; To get help hit ESCAPE from any prompt. ; .; For this distribution, correction files have already .; been applied, so skip this section .GOTO 0010 .; .0005: .ASK SLP Do you want to apply V6.3 corrections .IFF .GOTO 0007 ; ; Prior to building SRD, you should have the baseline V6.0 ; sources in this UIC. These files are the ones which come ; with the distribution kit. In addition, there are several ; SLP correction files, which when applied, create SRD V6.3, ; the current version. If you have not already applied ; these corrections, you should answer YES to the following ; question: ; .GOTO 0005 .0007: .IFF SLP .GOTO 0010 .; ah, this might just be SLPFSL? .IFINS SLP .GOTO 0008 .IF EQ 6 INS $SLPFSL .IFINS SLP .GOTO 0008 .IF EQ 6 ; Please ignore the INS error message above. INS $SLP .IFINS SLP .GOTO 0008 ; Please ignore the INS error message above. ; INS $SLPRES .IFINS SLP .GOTO 0008 ; ; You must find a version of the DEC utility SLP in order to ; proceed with the construction of version 6.3. When you have ; found it and brought it over to this system, please try ; again, or ask for help. .GOTO THEEND .0008: .IF NE "MCR" .XQT MCR SLP @SRD.COR .IF EQ "MCR" .XQT SLP @SRD.COR .0010: .SETT PROCED .ASK R$$MPL Are you using RSX11M+ .IFF .GOTO 0011 ; ; If you are using any version of the M-Plus ; Operating System, answer Yes ; .GOTO 0010 .0011: .IFF R$$MPL .GOTO 0015 .ASK R$SUPL Supervisor Mode Supported .IFF .GOTO 0012 ; ; If your M-Plus system has a resident supervisor ; mode library (FCSFSL) answer Yes ; .GOTO 0011 .0012: .ASK R$$MP2 Version 2.0 or higher .IFF .GOTO 0013 ; ; If you are running M Plus Version 2.0, this sets the ; format of commands to MCR if you are running under DCL ; ; If you are running M Plus Version 1.0 answer NO ; .0013: .SETT E$$IS .SETT E$$XTK .SETT D$$CAL .SETT M$$CLI .SETS OPTNS "/MM/MU" .SETS SY$TEM "RSX-11M Plus V 1.0" .IFT R$$MP2 .SETS SY$TEM "RSX-11M Plus V2.0" .IFF R$$MPL .GOTO 0014 .IFNINS TKB INS $TKBFSL .IFNINS MAC INS $MACFSL .0014: .IFNINS TKB INS $TKBRES .IFNINS TKB INS $TKB .IFNINS MAC INS $MACRES .IFNINS MAC INS $MAC .GOTO 0040 .0015: .ASK SYSTEM Are you using RSX-11M, MAPPED .IFF .GOTO 0020 ; ; If you are using RSX-11M V3.0 or later, and you ; are using the MAPPED system, answer yes to this ; question. ; .GOTO 0015 ; .0020: .IFF SYSTEM .GOTO 0100 .SETT R$$11M .SETS OPTNS "/MM" .0021: .ASK R$$MV4 Are you running RSX-11M Version 4.0 or later .IFF .GOTO 0022 ; ; If you are running RSX-11M Version 4.0, This sets the ; format of commands to MCR if you are running under DCL, ; and determines the overlay description that will be used ; with FCSRES. The PLAS overlayed FCSRES is assumed. ; ; If you are running RSX-11M Version 3.2 or earlier, answer NO ; to this question. ; .GOTO 0021 .0022: .IFT R$$MV4 .GOTO 0023 .SETS SY$TEM "RSX-11M V3.2 or earlier, Mapped" .IFF MAC INS $BIGMAC .IFF TKB INS $BIGTKB .GOTO 0025 .0023: .IF NE "MCR" .SETS $C "MCR " .SETS SY$TEM "RSX-11M V4.0 Mapped" .IFF MAC INS $MAC .IFF TKB INS $TKB .0024: .ASK M$$CLI Do you have DCL or User-written CLI support .IFF .GOTO 0025 ; ; If you have DCL or User-written CLI support in your ; system, SRD will spawn a command for HELP to the ; CLI to which the users terminal is currently ; connected. If you answer YES to this question, the ; /HE switch will spawn "HELP SRD" to "CLI..." (terminals ; current CLI). If you answer NO to this question, the ; "HELP SRD" command will be always be spawned to MCR. ; .GOTO 0024 .0025: .ASK E$$XTK Do you have the extend task directive .IFF .GOTO 0030 ; ; If your system has the extend-task directive, SRD ; will take advantage of it, growing and shrinking ; as required to process directories. If you want ; SRD to take advantage of this, answer YES to the ; following question. ; .GOTO 0025 .0030: .ASK D$$CAL Are you using dynamic checkpoint allocation .IFF .GOTO 0040 ; ; If your system is generated with dynamic checkpoint ; allocation, and you want SRD to take advantage of ; it, answer yes to the following question. ; .GOTO 0030 ; .0040: .ASK F$$CS Are you using FCSRES .IFF .GOTO 0050 ; ; If you have built FCSRES on your system, it will be ; used by SRD, thus decreasing the total size of SRD ; by approximately 3 k-words. The ODL file produced ; will be tailored to Version 3.2 or earlier, or to ; the PLAS overlayed FCSRES that is available from ; SYSGEN. ; .GOTO 0040 ; .0050: .IFT R$$MPL .GOTO 0410 .ASK E$$IS Does your machine have EIS .IFF .GOTO 0410 ; ; EIS stands for the Extended Instruction Set. This question ; is asked so that the SOB instruction can be correctly ; simulated on a non-EIS machine. (E.G. 11-03,11-40, etc) ; .GOTO 0050 ; .0100: .ASK SYSTEM Are you using RSX-11M, UNMAPPED .IFF .GOTO 0110 ; ; If you are using RSX-11M UNMAPPED, answer yes ; to the following question. This merely tells the ; taskbuilder to build the task with the /-MM switch. ; .GOTO 0100 ; .0110: .IFF SYSTEM .GOTO 0200 .SETT R$$11U .SETS OPTNS "/-MM" .SETS SY$TEM "RSX-11M Unmapped" .IFF MAC INS $MAC !Install small MAC .IFF TKB INS $TKB !Install small TKB ; .0150: .ASK E$$IS Does your machine have EIS .IFF .GOTO 0410 ; ; EIS stands for the Extended Instruction Set. This question ; is asked so that the SOB instruction can be correctly ; simulated on a non-EIS machine. (E.G. 11-03,11-40, etc) ; .GOTO 0150 ; .0200: .ASK SYSTEM Are you using RSX-11D .IFF .GOTO 0210 ; ; If you are using RSX-11D V6.2 or before, then answer yes to ; the following question. Note that this will produce ; the exact same SRD as for IAS, except that the naming ; conventions will be different. ; .GOTO 0200 ; .0210: .IFF SYSTEM .GOTO 0300 .SETS OPTNS "/MU" .SETT R$$11D .SETS SY$TEM "RSX-11D" .IFF MAC INS $BIGMAC .IFF TKB INS $BIGTKB .GOTO 0410 ; .0300: .ASK SYSTEM Are you using IAS .IFF .GOTO 0310 ; ; If you are using any of the three flavors of IAS V3.0 or ; IAS V2.0, answer yes to the following question. Note that ; in the task-build command file, that SYSRES is used as the ; default system library. ; .GOTO 0300 ; .0310: .IFF SYSTEM .GOTO BEGIN .SETS OPTNS "/MU" .SETT I$$AS .SETS SY$TEM "IAS" .IFF MAC INS $BIGMAC .IFF TKB INS $BIGTKB .GOTO 0410 ; .0410: .IFT E$$XTK .GOTO 0420 .ASKN [1024.:24576.:8192.] EXTEND Enter task extension .IFF .GOTO 0420 ; ; The task extension defines the buffer area used by SRD to ; read the directory file into. The task extension must be ; specified in units of 256. word blocks. A good means of ; determining the size needed is to look at the [0,0] directory ; for the largest directory file, and have this extension large ; enough to handle it. The smallest extension(1024.) will handle ; directories up to 4. blocks long, where the largest extension ; (24576.) will handle directories up to 98. blocks long. The ; default extension will handle directories up to 32. blocks long. ; .GOTO 0410 ; .0420:; ; Creating Switch Defaults ; .SETN SWINI 0 .SETN SW2INI 0 .SETN SW3INI 0 .1420: .ASK X Do you want the sort to be in name order .IFF .GOTO 1421 .SETF X ; ; If you answer Y, the default sort order will be ; Name, Extension, Version ; If you answer N, the default sort order will be ; Extension, Name, Version ; .GOTO 1420 .1421: .IFT X .SETN SWINI SWINI+100000 .ASK X Do you want the directory to be listed by default .IFF .GOTO 1422 .SETF X ; ; If you answer Y to this question, an implicit /LI will ; be included in every SRD operation. If you answer no, ; no files will be listed unless you use an explicit ; /LI, /FU or /MI. ; .GOTO 1421 .1422: .IFT X .SETN SWINI SWINI+2 .ASK X Do you want to use the Revision Date in Date Matches .IFF .GOTO 1423 .SETF X ; ; If you answer Y to this question then, by default, the ; Revision Date will be included in all matches including ; a date (/DA, /AF, /AE, /BF, /BE). ; If you answer N the Creation Date will be used. ; .GOTO 1422 .1423: .IFT X .SETN SW2INI SW2INI+40 .ASK X Do you want the listings sorted by default .IFF .GOTO 1424 .SETF X ; ; If you answer Y to this question any directory listings you ; request will automatically be sorted (unless you specify /-SR). ; If you answer N the directory will only be sorted if you specify ; /SR. ; .GOTO 1423 .1424: .IFT X .SETN SW2INI SW2INI+100 .ASK X Do you want System Accounts in [*,*] searches .IFF .GOTO 1425 .SETF X ; ; If you answer Y to this question any directory listings in ; which the group part of the UIC is wild (*) will include ; System Accounts (those with a group code of 0-10). ; If you answer N such accounts will be excluded by default. ; .GOTO 1424 .1425: .IFT X .SETN SW2INI SW2INI+400 .ASK X Do you want to include [0,0] in [*,*] searches .IFF .GOTO 1426 .SETF X ; ; If you answer Y to this question any directory listings in ; which the group part of the UIC is wild (*) will include ; the Master File Directory ([0,0]). ; If you answer N the MFD will be excluded by default. ; .GOTO 1425 .1426: .IFT X .SETN SW3INI SW3INI+1 .ASK X Do you want output device attached if terminal .IFF .GOTO 1427 .SETF X ; ; If you answer Y to this question then, by default, the ; output device, if it is a terminal, will be attached. ; If you answer N it will not be attached. ; .GOTO 1426 .1427: .IFT X .SETN SW2INI SW2INI+1000 .ASK X Do you want implicit wildcarding .IFF .GOTO 1428 .SETF X ; ; If you answer Y to this question then, by default, all ; file specifications you enter will be treated as if they ; were terminated by an *. ; If you answer N to this question then this implicit ; wildcarding is disabled. ; .GOTO 1427 .1428: .IFT X .SETN SW2INI SW2INI+20000 .ASK X Do you REALLY want implicit wildcarding during delete .IFF .GOTO 1429 .SETF X ; ; If you answer Y to this question then, by default, if /WI ; is specified, explicitly or implictly, then all ; file specifications you enter will be treated as if they ; were terminated by an *. even during a delete operation. ; If you answer N to this question then this implicit ; wildcarding during delete is disabled. ; ; CAUTION: This option is dangerous when defaulted!! ; .GOTO 1428 .1429: .IFT X .SETN SW2INI SW2INI+10000 .ASK X Do you want the Type 2 Middle Size Listing .IFF .GOTO 1430 .SETF X ; ; If you answer Y to this question then, by default, specifying ; the /MI switch for a Middle Size listing will list out:- ; ; Filename Filesize Creation Date/Time File ID ; ; If you answer N to this question it will list out:- ; ; Filename Creation Date/Time Revision Date/Time ; .GOTO 1429 .1430: .IFT X .SETN SW2INI SW2INI+100000 .ASK X Do you want the command line to appear in the header .IFF .GOTO 1432 .SETF X ; ; If you answer Y to this question then, by default, the SRD ; command line will appear in the header following the line ; showing the UIC. If you answer no, the command line will ; not be listed unless you use an explicit /HD. ; .GOTO 1430 .1432: .IFT X .SETN SW3INI SW3INI+4 .ASK X Do you want the summary listing by default .IFF .GOTO 1434 .SETF X ; ; If you answer Y to this question then, by default, a summary ; line will appear after the files listed for each directory ; stating the number of files selected and the total number of ; files in the directory. If switch /FU, /MI, /DA, /AF, /AE, ; /BF, or /BE is specified, then an additional summary line ; will give the number of blocks used and allocated for the ; files selected. If you answer N, the summary is omitted ; unless you use an explicit /SM switch. ; .GOTO 1432 .1434: .IFT X .SETN SW3INI SW3INI+2 .ASK X Do you want two blanks preceding file names listed .IFF .GOTO 1436 .SETF X ; ; If you answer Y to this question then, by default, two blank ; characters appear on each file listing line ahead of the file ; name. Some widely used versions of SRD inserted these two ; blanks, while others did not. Some users have programs written ; to read SRD output listings which expect one of the two formats. ; If you answer N, no blank characters appear ahead of the file ; name unless you use an explicit /BK switch. ; .GOTO 1434 .1436: .IFT X .SETN SW3INI SW3INI+10 ; .ASK PROCED Q/A complete, do you want to continue .IFF .GOTO 0422 .SETF X ; ; If you answer Y, then the command files to build SRD will ; be created. If you answer N, then this command file will ; exit without generating anything but a passing memory. ; .GOTO 0420 ; .0422: .IFF PROCED .GOTO END ; Creating SRD.BLD .OPEN SRD.BLD .ENABLE DATA ; ; SRD.BLD - Task Build file for an 'SY$TEM' system .DISABLE DATA .IFT R$$MP2 .OR .IFT R$$MV4 .DATA ; Built by SRD.CMD on '' at '