! TAPEDR.COM ! ! ! Author: Nick Bourgeois Version: 90k27a ! 9605 Giddings Ave. NE ! Albuquerque, NM 87109 ! (505) 828-9566 ! ! ! Description: ! ! Compile and link the modules for the TAPEDR.SAV program. ! ! ! Edit Record: ! ! 12-Oct-90: Original creation started. ! 08-Nov-90: Original creation completed. ! 27-Nov-90: Added module to convert HDR1 date. Eliminated ! generation of .LST files. ! !*********************************************************************** ! DATE TIME ! DISPLAY SET ERROR NONE DEL/NOQ *.(LST,OBJ) SET ERROR WARNING DISPLAY CLRSCR RUN SY:F77 CLRSCR=CLRSCR/W DISPLAY CNVDAT RUN SY:F77 CNVDAT=CNVDAT/W DISPLAY DOEOF1 RUN SY:F77 DOEOF1=DOEOF1/W DISPLAY DOHDR1 RUN SY:F77 DOHDR1=DOHDR1/W DISPLAY DOHDR2 RUN SY:F77 DOHDR2=DOHDR2/W DISPLAY DORCD1 RUN SY:F77 DORCD1=DORCD1/W DISPLAY GETFLD RUN SY:F77 GETFLD=GETFLD/W DISPLAY GETID RUN SY:F77 GETID=GETID/W DISPLAY GETLEN RUN SY:F77 GETLEN=GETLEN/W DISPLAY MNTTAP RUN SY:F77 MNTTAP=MNTTAP/W DISPLAY OPNFIL RUN SY:F77 OPNFIL=OPNFIL/W DISPLAY RDVOL1 RUN SY:F77 RDVOL1=RDVOL1/W DISPLAY TAPEDR RUN SY:F77 TAPEDR=TAPEDR/W DISPLAY TDINIT RUN SY:F77 TDINIT=TDINIT/W DISPLAY TDQUIT RUN SY:F77 TDQUIT=TDQUIT/W DISPLAY TDWORK RUN SY:F77 TDWORK=TDWORK/W DISPLAY WRTDIR RUN SY:F77 WRTDIR=WRTDIR/W ! TIME ! DISPLAY SET ERROR NONE DEL TAPEDR.(MAP,SAV) SET ERROR ERROR COPY/CONC (TDWORK+CNVDAT).OBJ WORK.OBJ COPY/CONC (WORK+DOEOF1+DOHDR1+DOHDR2+DORCD1).OBJ WORK.OBJ COPY/CONC (WORK+GETFLD+GETID+GETLEN+WRTDIR).OBJ WORK.OBJ RUN SY:LINK TAPEDR,TAPEDR=TAPEDR,MTLIB,SY:F77OTS/A/G/W// CLRSCR/O:1 TDINIT,MNTTAP,OPNFIL,RDVOL1/O:1 WORK/O:1 TDQUIT/O:1 // ^C DEL WORK.OBJ ! TIME ! DISPLAY RUN SY:SETSIZ TAPEDR/D:4 ! TIME ! ! End of file, TAPEDR.COM.