home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskermit / msvrmx.mac < prev    next >
Text File  |  2020-01-01  |  3KB  |  194 lines
  1. AFIG=0A
  2. MGO\BR
  3. EDEFS\NL
  4. QUIMSSKER.ASM TO MSSKER.A86\NL
  5. EFIX\NL
  6. EKER\NL
  7. QUIMSSCMD.ASM TO MSSCMD.A86\NL
  8. EFIX\NL
  9. QUIMSSCOM.ASM TO MSSCOM.A86\NL
  10. EFIX\NL
  11. ECOMM\NL
  12. QUIMSSFIL.ASM TO MSSFIL.A86\NL
  13. EFIX\NL
  14. QUIMSSFIN.ASM TO MSSFIN.A86\NL
  15. EFIN\NL
  16. QUIMSSRCV.ASM TO MSSRCV.A86\NL
  17. EFIX\NL
  18. QUIMSSSCP.ASM TO MSSSCP.A86\NL
  19. EFIX\NL
  20. QUIMSSSEN.ASM TO MSSSEN.A86\NL
  21. EFIX\NL
  22. QUIMSSSER.ASM TO MSSSER.A86\NL
  23. EFIX\NL
  24. QUIMSSSET.ASM TO MSSSET.A86\NL
  25. EFIX\NL
  26. ESET\NL
  27. QUIMSSTER.ASM TO MSSTER.A86\NL
  28. EFIX\NL
  29. QUIMSVRMX.CSD TO :BB:\NL
  30. /R\NL;\BR\NL\BR
  31. B-\BR\CRPBIND2.CSD\NL
  32. B-\BR\CRPBIND.CSD\NL
  33. B-\BR\CRPLINK.CSD\NL
  34. B-\BR\CRPASM.CSD\NL
  35. QE\MM
  36. MDEFS\BR
  37. EPCT\NL
  38. SKY
  39. EDEF1\NL
  40. EDEF2\NL
  41. EDEF3\NL
  42. EDEF4\NL
  43. EDEF5\MM
  44. MPCT\BR
  45. SKN
  46. /R%\BR%1%\BR\MM
  47. MDEF1\BR
  48. JS\CD\XZ\XZI$SAVE NOLIST\NL
  49. cibufl\TBequ\TB128\NL
  50. cobufl\TBequ\TB1024\NL\BR\MM
  51. MDEF2\BR
  52. Fverdef\BR\CL\CH
  53. I%*DEFINE(\BR
  54. Rmacro\BR)(\BR
  55. Fdb\BR-\BR\XX\RB
  56. RMS\BRRMX\BR\CR\CH\RB
  57. I (RMX 22 Apr)')\BR\CD\XZ\MM
  58. MDEF3\BR
  59. Fbufsiz\BRFequ\BRE+W\NL
  60. TAE+N\NLDJADI2048\BR
  61. Fportmax\BRFequ\BRE+W\NL
  62. TAE+N\NLDJAD
  63. I10\CR\CH\NL%set(portmax,10)\BR\MM
  64. MDEF4\BR
  65. Fmkeyw\BR
  66. \CL\CHTA
  67. Fendm\BR
  68. \CL\CR\CH\CR
  69. DJAD
  70. I%*DEFINE(mkeyw(key,val))(db\TB(%LEN(%key))-2,%key,'$'\NL
  71. \TBdw\TB%val)\BR\MM
  72. MDEF5\BR
  73. JE2-\NLcode\BR
  74. \CRDJED
  75. I%IF(%OS EQ 86)THEN(\NL
  76. cgroup\TBgroup\TBcode\NL
  77. \TBassume\TBcs:cgroup,ds:datas,ss:stack\NL
  78. stack\TBsegment\TBstack 'stack'\NL
  79. stack\TBends\NL
  80. datas\TBsegment\TBpublic 'datas'\NL
  81. datas\TBends\NL
  82. code\TBsegment\TBpublic 'code'\NL
  83. code\TBends\NL
  84. )ELSE(\NL
  85. \TBassume\TBds:datas\NL
  86. stack\TBstackseg\TB0\NL
  87. datas\TBsegment\TBRW public\NL
  88. datas\TBends\NL
  89. code\TBsegment\TBER public\NL
  90. code\TBends\NL
  91. )FI\NL
  92. $RESTORE\NL\BR
  93. -fname\BRR13\BR15\BR\MM
  94. M+W\BR/e+W1\BR\MM
  95. M+W1\BRcn9=!iswhte\NL\XN9f~\RB\BR\CR\MM
  96. M-W\BR/e-W1\BR\MM
  97. M-w1\BRcn9=!iswhte\NL\XN9f~\RB\BR\CL\MM
  98. M+N\BR/e+N1\BR\MM
  99. M+N1\BRcn9=iswhte\NL\XN9f~\RB\BR\CR\MM
  100. MFIX\BR
  101. EPCT\NL
  102. EINCL\NL
  103. EVERD\NL
  104. JEI;\BR
  105. JS/EMKEY\NL
  106. SKNJS
  107. F\NLdatas\BRFsegment\BR\XA
  108. F\NLcode\BRFsegment\BR\XA
  109. Fassume\BR\CL\CH\XA
  110. I\NL\TBextrn\TBdosint:near\NL\BR
  111. /EDOS\NL
  112. SKN
  113. EEND\MM
  114. MINCL\BR
  115. JS/EFINCL\BR\CL\CH\XA
  116. I$INCLUDE(MSSDEF.H86)\BR\MM
  117. MFINCL\BRFinclude\BR-\BRCn8=curpos\NL\CL\CHE+W\NLCn8=curpos==n8\NL\CR\CH\XN
  118. 8F~\RB\BR\MM
  119. MVERD\BR
  120. JSRverdef\BR%verdef\BR\MM
  121. MMKEY\BR
  122. SKY
  123. Fmkeyw\BR
  124. TA\CL\CHTB
  125. SKN
  126. F;\BRTC
  127. CN9=curpos>taga\NL
  128. JA\XN9EMK1\NL\MM
  129. MMK1\BR
  130. JBSKY
  131. Rmkeyw\BR%mkeyw\BR
  132. SKN
  133. F'\BR\CLI(%(\BR\CR\CH
  134. CN9=(tagc<curpos)*(tagc-curpos-2)\NL
  135. \XN9\CLE-W\NL\CRI)\BR-'\BR\CRI)\BR\MM
  136. MDOS\BR
  137. SKY
  138. Fint\BRTA
  139. E+W\NLTB
  140. EDOS1\NL\MM
  141. MDOS1\BR
  142. Fdos\BRTC
  143. CN9=curpos-3==tagb\NL
  144. JA\XN9EDOS2\NL\MM
  145. MDOS2\BR
  146. 3\CLDJCD
  147. Icall\TBdosint\BR\MM
  148. MEND\BR
  149. JE-ends\BR
  150. 4\CRDJED
  151. I\NL\TBend\NL\BR\MM
  152. MKER\BR
  153. JSFpublic\BR\CR\CH
  154. I, start\BR
  155. SKN
  156. F\NLCSTACK\BR\CL\CHDF\BR\CR\CH\CRD
  157. SKY/Rcstack\BRstack\BR\MM
  158. MCOMM\BR
  159. -spkout:\BRI;\BRF\BRI\TBdeleted to use s/r in MSXRMX\NL\XF\TB\BR
  160. -extrn\BR\CR\CHI, spkout:near\BR
  161. -rept\BR4\CRE+W\NLTAE+N\NLBJAB\CL\CH\XZ
  162. I%REPEAT(%\XSB)(\BR
  163. \CR\CH\CR\XZI)\BR
  164. JL2\NLI\TBpublic\TBspkcnt\NL\BR\MM
  165. MFIN\BR
  166. EFINCL\NL
  167. \XZ
  168. F\NLdatas\BR\XZ\XZ\CL\CH
  169. I%IF(%OS EQ 86)THEN(\NL
  170. datas\TBsegment\TBpublic 'datas'\NL
  171. )ELSE(\NL
  172. datas\TBsegment\TBRW public\NL
  173. )FI\NL
  174. msfinal\TBdb\TB?\NL\BR
  175. EEND\MM
  176. MSET\BR
  177. -public\BR\CR\CH
  178. I, takset, bdtab\BR
  179. JSF\NLmaketab\BR\CL\CHDF\NLENDM\BR\CL\CH\CDD
  180. I$SAVE NOGEN\NL
  181. %*DEFINE(maketab)(\NL
  182. $SAVE NOGEN\NL
  183. %SET(cnt,0)\NL
  184. %REPEAT(256)(\NL
  185. \TBdb\TB%cnt\NL
  186. %SET(cnt,%cnt+1)\NL
  187. )\NL
  188. \TBdb\TB0\NL
  189. $RESTORE\NL
  190. )\NL
  191. $RESTORE\NL\BR
  192. RKermit-MS\BRKermit-RMX\BR
  193. Rmaketab\BR%maketab\BR\MM
  194.