home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / modcomp / dom5a. < prev    next >
Text File  |  2020-01-01  |  867b  |  48 lines
  1. $PROD DOM5A,,USL,NOLO,NO,DIRUL
  2. $IFN %1=HELP,P/$GOTO NOHELP
  3. $NOP
  4. $NOP  ** PROCEDURE TO ASSEMBLE A SOURCE MODULE AND PLACE
  5. $NOP  ** IN AN OBJECT LIBRARY.
  6. $NOP
  7. $NOP  ** ARG 1 - NAME OF PROGRAM TO BE ASSEMBLED
  8. $NOP  ** ARG 2 - FILE CONTAINING PROGRAM (DEF. %2)
  9. $NOP  ** ARG 3 - LISTING OPTION FOR M5A (DEF. %3)
  10. $NOP  ** ARG 4 - FILE TO BE USED FOR UL (DEF. %4)
  11. $NOP  ** ARG 5 - UL FILE DIRECTORIZED FLAG (DEF.)%5)
  12. $NOP
  13. $NOP  ** EXAMPLE - $DOM5A,NAME,BSL,LO,ULU
  14. $ENDDO
  15. $TAG NOHELP
  16. $ASS USL %2
  17. $IFM %1,4
  18. $EXE SED
  19.  ASS SI USL
  20.  POS %1
  21.  EXI
  22. $ASS  BO SCA
  23. $REW  BO
  24. $NOTE     ASSEMBLING %1 FROM %2 TO %4
  25. $EXE M5A,,%3,NOSC
  26. $WEO BO
  27. $IFN %5=DIRUL,P/$GOTO NODIR
  28. $ASS SI SCA UL %4
  29. $REW SI
  30. $EXE LIB,,NOLO
  31.  REC %1
  32.  EXIT
  33. $ASS BI BI BO BO SI SI
  34. $ENDDO
  35. $TAG NODIR
  36. $ASS SI SCA BI %4 BO SC
  37. $REW BI BO SI
  38. $EXE LIB,,NOLO
  39. LNA
  40. ADD 0
  41. DEL %1
  42. COP
  43. ASS BI SC BO %4
  44. REW BI BO
  45. COP
  46. EXI
  47. $ASS BI BI BO BO
  48.