home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / mbas521.mod < prev    next >
Encoding:
Text File  |  1986-06-14  |  2.3 KB  |  84 lines
  1. MBASIC Rev. 5.21 DELete key modification
  2.  
  3.         By Tom Harrold    NOV,1984
  4.  
  5.     I have scaned  the local  BBS  for a  doc to  modify
  6. MBASIC to make the DEL key to do the same as Back space key.
  7. I  found  one   that   was  called   "MBASIC.MOD".  Well  it
  8. did not work  with my  MBASIC.COM  so,   I took on the task.
  9. The following  will allow  you to  modify  MBASIC REV. 5.21. 
  10. You must  have on a  disk  containing   MBASIC.COM,  DDT.COM 
  11. (or  SID.COM),   and  plus   24k  bytes of  space  on  disk.
  12.  
  13. THIS WILL CHANGE THE DELETE KEY TO FUNCTION LIKE BACK SPACE.
  14.  
  15. A>MBASIC        <---- TYPE mbasic to test if you need this mod.
  16.  
  17. BASIC-80 Rev. 5.21            <--- mbasic sign on message.
  18. [CP/M Version]
  19. Copyright 1977-1981 (C) by Microsoft
  20. Created: 28-Jul-81
  21. 30776 Bytes free
  22. Ok
  23.  
  24. TOX\X\M        <--- type something, I typed tom and then press del key.
  25. Syntax error        if it do not print a slash "\" then forget this
  26. Ok
  27. LISTY\Y\    <--- another example: I typed "list" and "y" and then del.
  28. Ok            this is to show how the del key works, it sucks!
  29. SYSTEM        <--- get back to cp/m.
  30. A>DDT MBASIC.COM    <--- now, type "ddt mbasic.com"
  31. DDT VERS 2.2
  32. NEXT  PC
  33. 6000 0100
  34. -G0        <--- EXIT DDT
  35. A>SAVE 96 MBASIC.BAK    <--- save a copy of mbasic
  36. A>DDT MBASIC.COM    <--- get into ddt again with mbasic
  37. DDT VERS 2.2
  38. NEXT  PC
  39. 6000 0100
  40.  
  41. -L4B41 <--- type L and 4b41  and compare the following to your list.
  42.  
  43.  
  44.   4B41  LDA  0792
  45.   4B44  ORA  A
  46.   4B45  MVI  A,5C
  47.   4B47  STA  0792
  48.   4B4A  JNZ  4B55
  49.   4B4D  DCR  B
  50.   4B4E  JZ   4B27
  51.   4B51  CALL 40D6
  52.   4B54  INR  B
  53.   4B55  DCR  B
  54.   4B56  DCX  H
  55. -
  56. -A4B41        <--- type A and 4b41 then return.
  57. 4B41  MVI A,08    <--- type "mvi a,08"
  58. 4B43  JMP 4BBC    <--- type "jmp 4bbc"
  59. 4B46  .        <--- end assembly
  60. -
  61. -L4B41    <--- type L and 4b41  and compare the following to your list.
  62.  
  63.   4B41  MVI  A,08
  64.   4B43  JMP  4BBC
  65.   4B46  MOV  E,H
  66.   4B47  STA  0792
  67.   4B4A  JNZ  4B55
  68.   4B4D  DCR  B
  69.   4B4E  JZ   4B27
  70.   4B51  CALL 40D6
  71.   4B54  INR  B
  72.   4B55  DCR  B
  73.   4B56  DCX  H
  74. -G0    <--- type G and 0 to get back to cp/m.
  75. A>SAVE 96 MBASIC.COM    <--- save your new mbasic.com
  76. A>MBASIC    <--- and test it out.
  77. A>ERA MBASIC.BAK  <--- type this if you like the new mod, 
  78.     If some how its not working for you, give it to somebody that can
  79. or drop the whole thing and go back and REName mbasic.bak to mbasic.com.
  80.     type the following: REN MBASIC.COM=MBASIC.BAK
  81.  
  82.  
  83. sincerly yours Tom Harrold.
  84.