; ; ASK BUILD V02.70 for RT-11 V5 ; .ENABLE SUBSTITUTION ; ; This generation process makes the following assumptions:- ; ; 1) The source volume is mounted and assigned AV:. ; ; 2) The resultant output files will be placed on AV:. ; ; 4) The appropriate language compilers FOR and MACRO together with ; LIBR,PIP and LINK are present on SY: ; .ASK $OK Are these assumptions correct ; .IFT $OK .GOTO 100 .; .5: .ASKS [0:4] VOL PHYSICAL name of the device [D:'''':] ; .IF = 0 .SETS VOL "SY0:" .PARSE VOL ":" DEV .SETS VOL DEV+":" .TESTDEVICE 'VOL' ; .TEST "MTD" ; .IF <> 0 .GOTO 10 .10: ASS 'VOL' AV: .; .IF NE 1 .GOTO 5 .; .100: .; ASS NL: LV: .; .IF NE 1 .GOTO 5 .; .ASK $LST Do you want listings ; .IFF $LST .GOTO 150 .; ASS 'VOL' LV: .; .150: .ASK $KPOBJ Do you want the .OBJ files kept ; .SETS PRG "MAC" .; .200: .SETF $F4TSK .; .SETF $F4LIB .; .205: .ASK $F4TSK Do you want the FORTRAN IV test task build ; .IFF $F4TSK .GOTO 300 .; .SETS F4LIB "SY:SYSLIB" .; .ASK $F4LIB Is your FORTRAN IV OTS in SY:SYSLIB ; .IFT $F4LIB .GOTO 300 .; .ASKS F4LIB File spec. for your FORTRAN IV OTS ; .300: .; ; ; Build all MACRO components ; RUN SY:MACRO AV:ASKACR,LV:ASKACR=AV:ASKPFX,ASKACR RUN SY:MACRO AV:ASKI,LV:ASKI=AV:ASKPFX,ASKI RUN SY:MACRO AV:ASKL,LV:ASKL=AV:ASKPFX,ASKL RUN SY:MACRO AV:ASKR,LV:ASKR=AV:ASKPFX,ASKR RUN SY:MACRO AV:ASKS,LV:ASKS=AV:ASKPFX,ASKS RUN SY:MACRO AV:ASKCZD,LV:ASKCZD=AV:ASKPFX,ASKCZD RUN SY:MACRO AV:ASKDSD,LV:ASKDSD=AV:ASKPFX,ASKDSD RUN SY:MACRO AV:ASKDPS,LV:ASKDPS=AV:ASKPFX,ASKDPS RUN SY:MACRO AV:ASKLCD,LV:ASKLCD=AV:ASKPFX,ASKLCD RUN SY:MACRO AV:ASKCUC,LV:ASKCUC=AV:ASKPFX,ASKCUC RUN SY:MACRO AV:ASKSCE,LV:ASKSCE=AV:ASKPFX,ASKSCE RUN SY:MACRO AV:ASKVME,LV:ASKVME=AV:ASKPFX,ASKVME RUN SY:MACRO AV:ASKRT,LV:ASKRT=AV:ASKRT .; .; ; ; For FORTRAN IV compilers ; ; Compile FORTRAN IV modules ; RUN SY:FORTRA AV:ASKFIO,LV:ASKFIO=AV:ASKFIO RUN SY:FORTRA AV:ASKFR,LV:ASKFR=AV:ASKFR RUN SY:FORTRA AV:ASKFS,LV:ASKFS=AV:ASKFS RUN SY:FORTRA AV:ASKFL,LV:ASKFL=AV:ASKFL RUN SY:FORTRA AV:ASKFNI,LV:ASKFNI=AV:ASKFNI RUN SY:FORTRA AV:ASKFNR,LV:ASKFNR=AV:ASKFNR RUN SY:FORTRA AV:ASKFPN,LV:ASKFPN=AV:ASKFPN RUN SY:FORTRA AV:ASKTIO,LV:ASKTIO=AV:ASKTIO RUN SY:FORTRA AV:ASKFPB,LV:ASKFPB=AV:ASKFPB RUN SY:FORTRA AV:ASKFER,LV:ASKFER=AV:ASKFER ; ; Remove any old object libraries ; RUN SY:PIP AV:ASKLIB.OBJ/D/X ; ; Build new library for FORTRAN IV ; LIBR AV:ASKLIB.OLB/CREATE AV:(ASKACR,ASKI,ASKR,ASKS,ASKL,ASKFER) LIBR AV:ASKLIB.OLB AV:(ASKFIO,ASKFR,ASKFS,ASKFNI,ASKCZD) LIBR AV:ASKLIB.OLB AV:(ASKFNR,ASKFPN,ASKFL,ASKSCE,ASKFPB) LIBR AV:ASKLIB.OLB AV:(ASKCUC,ASKDSD,ASKDPS,ASKTIO,ASKVME) LIBR AV:ASKLIB.OLB AV:(ASKRT,ASKLCD) ; .IFF $F4TSK .GOTO 600 ; ; Create test task ; RUN SY:FORTRA AV:ASKTST=AV:ASKTST RUN SY:LINK AV:ASKTST=AV:ASKTST,ASKLIB.OLB,'F4LIB' .; .; .600: .; .IFT $KPOBJ .GOTO 710 ; ; Delete the .OBJ files ; (this why is the library file is temporarily called .OLB) ; RUN SY:PIP ASK*.OBJ/D .; .710: ; ; Rename the library file to .OBJ ; REN AV:(ASKLIB.OLB ASKLIB.OBJ) ; ; Deassign logical devices ; DEAS AV: DEAS LV: ; .720: ; JOB DONE ! ; .STOP .; .;