home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / norskdata / ndkerp.mcr < prev    next >
Text File  |  2020-01-01  |  2KB  |  118 lines
  1. ^B,KERMIT;
  2. ^L,*** Macro to compile, load and dump KERMIT ***
  3. ^F,1,Username to put BRF-code on (Default: Own user);
  4. ^D,1;
  5. ^F,2,List output file for Main code (MUST already exist);
  6. ^D,2,0;
  7. ^F,3,User to install HELP-files on (SYSTEM or HELP if to be publicly avail.);
  8. ^D,3,HELP;
  9. ^F,4,Command to activate H-version of ND-Pascal;
  10. ^D,4,H-Pascal;
  11. ^;
  12. @cc (It is OK if some of these command say "FILE ALREADY EXISTS")
  13. @cc Start assembling of Monitor-routines for Pascal:
  14. @create-file (\1)kermit-monitors:brf,,
  15. @mac
  16. )9ASSM KERMIT-MONITORS:MAC,,(\1)KERMIT-MONITORS
  17. )9EXIT
  18. @cc Start making HELP-library available.
  19. @\4
  20. compile h-main,,100
  21. ex
  22. @create-file helpgen:prog,,
  23. @nrl
  24. aut .
  25. s-l-a 164400
  26. load 100
  27. load (\1)kermit-monitors
  28. load pas-lib
  29. dump helpgen
  30. exit
  31. @cc Now make help-library, and copy it.
  32. @create-file kermit:hlib,,
  33. @create-file (\3)Kermit:help,,
  34. @copy-file (\3)Kermit:help Kermit:help
  35. @cc Make pointers into HELP-text:
  36. @cc Remember to run this program each time the HELP-file is edited/changed.
  37. @hold 5 2
  38. @helpgen
  39. @copy-file (\3)Kermit:hlib Kermit:hlib
  40. @cc Compile HELP-utility as a separate procedure:
  41. @create-file (\1)h-auxil:brf,,
  42. @\4
  43. compile h-auxil,,(\1)h-auxil
  44. exit
  45. @cc And NOW compile Kermit main code:
  46. @create-file (\1)Kermit:brf,,
  47. @\4
  48. compile Kermit,\2,(\1)Kermit
  49. exit
  50. @cre-file Kermit:prog,,
  51. @nrl
  52. size 1000
  53. aut .
  54. s-l-a 124000
  55. load (\1)Kermit
  56. load (\1)h-auxil
  57. load (\1)Kermit-monitors
  58. load pas-lib
  59. dump Kermit
  60. exit
  61. @cc Now remember to copy Kermit:Prog to SYSTEM
  62. @cc if it is to be publicly available.
  63. ^E;
  64. ^B,BAKER;
  65. ^L,*** Macro to take a backup of Kermit ***
  66. ^F,1,Dir.Name of Floppy;
  67. ^D,1,Floppy;
  68. ^F,2,UserName on Floppy;
  69. ^D,2,Supported-kermit;
  70. ^F,3,DirectoryName to copy from;
  71. ^D,3,Pack-54;
  72. ^F,4,UserName to copy from;
  73. ^D,4,Supported-Kermit;
  74. ^;
  75. @perf kermit GIVKER,\1,\2,\3,\4,,
  76. @ba-sy
  77. cop
  78. d \1 \2
  79. d \3 \4 kermit:symb l
  80. cop
  81. d \1 \2
  82. d \3 \4 Kermit:Mcro l
  83. cop 
  84. d \1 \2
  85. d \3 \4 kermit-mon:mac l
  86. cop 
  87. d \1 \2
  88. d \3 \4 H:symb l
  89. cop
  90. d \1 \2
  91. d \3 \4 plans:text l
  92. cop
  93. d \1 \2
  94. d \3 \4 read:me l
  95. exit
  96. ^E;
  97. ^B,GIVKER;
  98. ^L,*** Macro to copy out Kermit:Prog, :Help and :HLib ***
  99. ^F,1,Dir.Name of Floppy;
  100. ^D,1,Floppy;
  101. ^F,2,UserName on Floppy;
  102. ^D,2,Supported-Kermit;
  103. ^F,3,Directory to copy from;
  104. ^D,3,Pack-54;
  105. ^F,4,User to copy from;
  106. ^D,4,Supported-Kermit;
  107. ^;
  108. @ba-sy
  109. cop
  110. d \1 \2
  111. d \3 \4 Kermit:prog l
  112. cop
  113. d \1 \2
  114. d \3 \4 kermit:h l
  115. exit
  116. ^E;
  117. 
  118.