home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / modcomp / dofr5. < prev    next >
Text File  |  2020-01-01  |  1KB  |  58 lines
  1. $PROD DOFR5,,USL,NONE,NOLO,NO,MAP,NOBLK,DIRUL
  2. $IFN %1=HELP,P/$GOTO NOHELP
  3. $NOP
  4. $NOP  ** COMPILE A FORTRAN MODULE AND PLACE OBJECT IN A UL LIBRARY.
  5. $NOP  ** ARG 1 - NAME OF PROGRAM TO BE COMPILED
  6. $NOP  ** ARG 2 - FILE CONTAINING PROGRAM (DEF. %2)
  7. $NOP  ** ARG 3 - LIST OPTION FOR FR5 (DEF. %3)
  8. $NOP  ** ARG 4 - LIST OPTION FOR M5A  (DEF. %4)
  9. $NOP  ** ARG 5 - FILE TO BE USED FOR UL (DEF. %5)
  10. $NOP  ** ARG 6 - IS EXTRA COMPILE OPTION (DEF. %6)
  11. $NOP  ** ARG 7 - IS BLKD IF BLOCK DATA TO DELETE ALSO (DEF. %7)
  12. $NOP  ** ARG 8 - IS DIRUL IF DIRECTORIZED UL (DEF. %8)
  13. $NOP  ** EXAMPLE - $DOFR5 NAME,BSL,LO,,ULU
  14. $NOP
  15. $ENDDO
  16. $TAG NOHELP
  17. $IF %2=SI,7
  18. $ASS USL %2
  19. $IFM %1,5
  20. $EXE SED
  21. ASS SI USL
  22. POS %1
  23. EXI
  24. $REW SO
  25. $NOTE    COMPILING %1 FROM %2 TO %5
  26. $IF %3=NONE,P/$EXE FR5,,NOLO,NOMAP,$23,$4E
  27. $IFN %3=NONE,P/$EXE FR5,,%6,%3,$23,$4E
  28. $WEO SO
  29. $ASS SI SO BO SCA
  30. $REW SI BO
  31. $EXE M5A,,%4,NOSC
  32. $WEO BO
  33. $IF %5=NO,P/$GOTO NOUL
  34. $IFN %8=DIRUL,P/$GOTO NODIR
  35. $ASS SI SCA UL %5
  36. $REW SI
  37. $EXE LIB,,NOLO
  38. REC %1
  39. $IF %7=BLKD,P/REC B:%1
  40. EXIT
  41. $TAG NOUL
  42. $ASS BI BI BO BO
  43. $ENDDO
  44. $TAG NODIR
  45. $ASS SI SCA BI %5 BO SC
  46. $REW BI BO SI
  47. $EXE LIB,,NOLO
  48. LNA
  49. ADD 0
  50. DEL %1
  51. $IF %7=BLKD,P/DEL BLK:D
  52. COP
  53. ASS BI SC BO %5
  54. REW BI BO
  55. COP
  56. EXI
  57. $ASS BI BI BO BO
  58.