.ENABLE GLOBAL .ENABLE SUBSTITUTION .ONERR 777 ;********************************************************************** ;* FORTRAN IV INSTALLATION * ;********************************************************************** ; ; PLEASE REFER TO THE FORTRAN IV RT-11 INSTALLATION GUIDE ; FOR ASSISTANCE IN ANSWERING THE QUESTIONS POSED BY THIS ; DIALOGUE. ; ;********************************************************************** ; .SETS MT "M" .SETS PD "PD" .SETS DX "DX" .SETS DY "DY" .SETS DU "DU" .SETF MAG .SETF DISK ; ; .1: .ASKS [1:3:"DX0"] IN WHAT IS THE PHYSICAL NAME OF YOUR DISTRIBUTION DEVICE LOAD 'IN' ASS 'IN' INP .IF EQ .GOTO 2 ; INCORRECT DEVICE SPECIFICATION .GOTO 1 .2: .ASKS [1:3:"DM0"] OUT WHAT IS THE PHYSICAL NAME OF YOUR TARGET DEVICE LOAD 'OUT' ASS 'OUT' OUP .IF EQ .GOTO 3 ; INCORRECT DEVICE SPECIFICATION .GOTO 2 .3: .IF MT EQ IN[1:1] .SETT MAG ; ; PLEASE NOTE: ; IF FORTRAN IV IS ALREADY INSTALLED ON YOUR SYSTEM, ; IT WILL BE NECESSARY TO UNPROTECT EXISTING FORTRAN SYSTEM ; FILES. IN PARTICULAR, IF FORLIB.OBJ AND FORTRA.SAV EXIST ; ALREADY ON YOUR OUTPUT DEVICE, THEY MUST BE UNPROTECTED. ; IF FORTRA.HLP EXISTS ON EITHER YOUR SYSTEM DEVICE OR YOUR ; OUTPUT DEVICE, IT MUST BE UNPROTECTED AS WELL. ; .ASK PROTEC ARE THERE PROTECTED FORTRAN SYSTEM FILES ON YOUR OUTPUT DEVICE .IFT PROTEC .GOTO 777 ; ; ********************************************* ; * FORTRAN IV COMPILER INSTALLATION * ; ********************************************* ; ; .ASK COMP DO YOU WISH TO INSTALL THE FORTRAN IV COMPILER .IFF COMP .GOTO 200 ; ; ; YOU MAY EITHER INSTALL THE PRE-BUILT FORTRAN IV COMPILER, OR SELECT ; OPTIONS FOR TAILORING YOUR OWN COMPILER. THE PREBUILT COMPILER ; IS AN INLINE/THREADED COMPILER. BY DEFAULT, THIS COMPILER GENERATES ; THREADED CODE THAT IS HARDWARE INDEPENDENT. ; .ASK PRECOM DO YOU WISH TO INSTALL THE PRE-BUILT COMPILER .IFF PRECOM .GOTO 104 ; ;********************************************************* .IF DX EQ IN[1:2] .GOTO 101 .IF DY EQ IN[1:2] .GOTO 101 .IF DU EQ IN[1:2] .GOTO 100 ; .GOTO 102 ; .100: .ASK DISK DO YOU HAVE THE RX50 DISKETTE DISTRIBUTION .IFF DISK .GOTO 102 ; .101: .SETT DISK ; FOR DISKETTE DISTRIBUTION VOLUME 3 CONTAINS THE PRE-BUILT COMPILER. .102: ; MOUNT YOUR DISTRIBUTION MEDIUM. .103: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOTO 103 .ift mag .goto 1030 .TESTFILE INP:FORTRA.SAV .IF NE .GOTO 102 .1030: COPY INP:FORTRA.SAV OUP: .GOTO 199 ; .104: ; ; ****** FORTRAN IV COMPILER OPTIONS SELECTION ****** ; .IF DX EQ IN[1:2] .GOTO 106 .IF DY EQ IN[1:2] .GOTO 106 .IF DU EQ IN[1:2] .GOTO 105 .IFT MAG .GOTO 109 .GOTO 111 ; .105: .ASK DISK DO YOU HAVE THE RX50 DISKETTE DISTRIBUTION .IFF DISK .GOTO 111 ; .106: .SETT DISK ; **** PLEASE NOTE **** ; ; FOR DISKETTE DISTRIBUTION VOLUME 1 IS FOR THE COMPILER. ; HOWEVER, THE COMPILER OPTIONS SELECTION PROGRAM RESIDES ; ON VOLUME 3. THIS FILE WILL FIRST BE COPIED TO THE SYSTEM ; DEVICE, AND DELETED AFTER IT IS EXECUTED. ; ; ; .106A: ; MOUNT VOLUME 3 IN YOUR DISTRIBUTION DEVICE ; .107: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOTO 107 .TESTFILE INP:FORGEN.SAV .IF NE .GOTO 106A COPY/NOL INP:FORGEN.SAV SY: .107A: ; ; MOUNT VOLUME 1 IN YOUR DISTRIBUTION DEVICE .108: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOTO 108 .TESTFILE INP:FROOT.OBJ .IF NE .GOTO 107A RUN FORGEN ; DEL/NOQ FORGEN.SAV .GOTO 114 .109: ; ; MOUNT YOUR MAGTAPE DISTRIBUTION MEDIUM .110: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOTO 110 ;.TESTFILE INP:COPCOM.COM ;.IF NE .GOTO 109: COPY/NOL INP:COPCOM.COM OUP: COPY/NOL INP:DELCOM.COM OUP: $@OUP:COPCOM DEASS INP ASS 'OUT' INP .GOTO 113 .111: ; MOUNT YOUR DISTRIBUTION MEDIUM .112: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOTO 112 .TESTFILE INP:FORGEN.SAV .IF NE .GOTO 111 .113: RUN INP:FORGEN ; .114: $@OUP:FORBLD .199: .IFF MAG .GOTO 200 .IFT PRECOM .GOTO 200 ASS 'IN' INP .ASK DELCOM DELETE COMPILER DISTRIBUTION FILES FROM TARGET DISK .IFF DELCOM .GOTO 200 $@OUP:DELCOM ; .200: ; ********************************************* ; * FORTRAN IV OTS INSTALLATION * ; ********************************************* ; .ASK OTS DO YOU WISH TO INSTALL THE FORTRAN IV OTS .IFF OTS .GOTO 400 ; .IFF COMP .GOTO 202 .ASK DIFF DO YOU WISH TO CHANGE THE ASSIGNMENT OF INSTALLATION DEVICES .IFF DIFF .GOTO 202 .201: .1A: .ASKS [1:3:"DX0"] IN WHAT IS THE PHYSICAL NAME OF YOUR DISTRIBUTION DEVICE LOAD 'IN' ASS 'IN' INP .IF EQ .GOTO 2A ; INCORRECT DEVICE SPECIFICATION .GOTO 1A .2A: .ASKS [1:3:"DM0"] OUT WHAT IS THE PHYSICAL NAME OF YOUR TARGET DEVICE LOAD 'OUT' ASS 'OUT' OUP .IF EQ .GOTO 3A ; INCORRECT DEVICE SPECIFICATION .GOTO 2A .3A: ; .202: ; ; YOU MAY EITHER INSTALL THE PRE-BUILT FORTRAN IV OTS LIBRARY, ; OR SELECT OPTIONS TO TAILOR YOUR OWN LIBRARY. THE PRE-BUILT ; LIBRARY IS HARDWARE INDEPENDENT, SUPPORTS NEITHER VIRTUAL ARRAYS ; NOR STAND-ALONE FORTRAN, AND DOES NOT PERFORM ARRAY BOUNDS ; CHECKING. ; .ASK PREOTS DO YOU WISH TO INSTALL THE PRE-BUILT LIBRARY .IFF PREOTS .GOTO 208 ; .IFF COMP .GOTO 203 .IFT DISK .GOTO 205 .GOTO 307 .203: .IF DX EQ IN[1:2] .GOTO 205 .IF DY EQ IN[1:2] .GOTO 205 .IF PD EQ IN[1:2] .GOTO 205 .IF DU EQ IN[1:2] .GOTO 204 ; .GOTO 206 .204: .ASK DISK DO YOU HAVE THE RX50 DISKETTE DISTRIBUTION .IFF DISK .GOTO 206 .205: ; VOLUME 3 OF THE DISKETTE DISTRIBUTION CONTAINS THE PRE-BUILT OTS. .206: ; MOUNT YOUR DISTRIBUTION DEVICE. .207: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOTO 207 .ift mag .goto 2070 .TESTFILE inp:FORLIB.OBJ .IF NE .GOTO 206 .2070: .307: COPY INP:FORLIB.OBJ OUP: .GOTO 299 ; ; ******* OPTIONS SELECTION FOR FORTRAN IV OTS ******* .208: ; ; .IFF COMP .GOTO 209 .IFT DISK .GOTO 213 .IFT MAG .GOTO 211 .GOTO 216 .209: .IF DX EQ IN[1:2] .GOTO 213 .IF DY EQ IN[1:2] .GOTO 213 .IF PD EQ IN[1:2] .GOTO 213 .IF DU EQ IN[1:2] .GOTO 210 .IF MT EQ IN[1:1] .GOTO 211 .GOTO 214 ; DU CHECK .210: .ASK DISK DO YOU HAVE THE RX50 DISKETTE DISTRIBUTION .IFF DISK .GOTO 214 .GOTO 213 .211: ; MAGTAPE COPY ; MOUNT YOUR MAGTAPE DISTRIBUTION .212: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOT 212 ;.TESTFILE INP:COPOTS.COM ;.IF NE .GOTO 211 COPY/NOL INP:COPOTS.COM OUP: COPY/NOL INP:DELOTS.COM OUP: $@COPOTS DEASS INP ASS 'OUT' INP .GOTO 216 .213: ; DISKETTE INSTALLATION ; ; VOLUME 2 OF DISKETTE DISTRIBUTION IS FOR THE OTS. .214: ; PLEASE MOUNT YOUR DISTRIBUTION MEDIUM ; .215: .ASK CONT CONTINUE .IFF CONT .GOTO 215 .TESTFILE INP:OTSGEN.SAV .IF NE .GOTO 214 .216: RUN INP:OTSGEN $@OUP:OTSBLD .299: .IFF MAG .GOTO 400 .IFT PREOTS .GOTO 400 ASS 'IN' INP .ASK DELOTS DELETE OTS DISTRIBUTION FILES FROM TARGET DISK .IFF DELOTS .GOTO 400 $@OUP:DELOTS .400: ; ; ********************************************* ; * FORTRAN IV INSTALLATION VERIFICATION * ; ********************************************* ; .ASK VER DO YOU WISH TO VERIFY YOUR FORTRAN INSTALLATION .IFF VER .GOTO 500 .IFT COMP .GOTO 401 .IFF OTS .GOTO 402 .401: .IFT disk .GOTO 407 .402: .IF DX EQ IN[1:2] .GOTO 404 .IF DY EQ IN[1:2] .GOTO 404 .IF PD EQ IN[1:2] .GOTO 404 .IF DU EQ IN[1:2] .GOTO 403 .GOTO 405 .403: .ASK DISK DO YOU HAVE THE RX50 DISKETTE DISTRIBUTION .IFF DISK .GOTO 405 .404: ; ; VOLUME 3 OF THE DISKETTE DISTRIBUTION CONTAINS THE VERIFICATION PROGRAM ; .405: ; MOUNT YOUR DISTRIBUTION MEDIUM .406: .ASK CONT ARE YOU READY TO CONTINUE .IFF CONT .GOTO 406 .IFF MAG .GOTO 407 .IFF COMP .GOTO 407 .GOTO 407A .407: .IFT MAG .GOTO 4070 .TESTFILE INP:DEMO.FOR .IF NE .GOTO 405 .4070: COPY/NOL INP:DEMO.FOR oup: COPY/NOL INP:FORTRA.HLP oup: COPY/NOL INP:FORCOM.COM oup: ; .407A: .ASK SYSCOM IS THE FORTRAN COMPILER INSTALLED ON YOUR SYSTEM DEVICE .ASK SYSLIB IS THE FORTRAN OTS LIBRARY BUILT INTO SYSLIB .IFF SYSCOM .GOTO 408 COMPILE/object:oup:demo oup:DEMO .GOTO 409 .408: $@FORCOM .409: .IFT SYSLIB .GOTO 410 .ASKS [1:6:"FORLIB"] OTSNAM WHAT IS THE NAME OF YOUR FORTRAN LIBRARY LINK/execute:OUP:demo oup:DEMO,OUP:'OTSNAM' .GOTO 411 .410: LINK/execute:oup:demo DEMO .411: RUN oup:DEMO .GOTO 500 .777: ; ;******* ERROR DURING INSTALLATION ******* ; .500: ; ; DEASS INP DEASS OUP ; ; **** FORTRAN IV INSTALLATION COMPLETE IF NO ERROR MESSAGES PRINTED **** ; ; PLEASE REFER TO THE FORTRAN IV INSTALLATION GUIDE FOR ; INFORMATION ON PRESERVING YOUR FORTRAN SYSTEM. .STOP