home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / KAYPRO / ADVENT1.ARK / DSPATCH.ASM < prev    next >
Assembly Source File  |  1986-09-19  |  2KB  |  133 lines
  1. ; DSPATCH.ASM 6-5-86 gsd
  2. ; Simple patch to DataStar for Kaypro Keyboard Arrow Keys
  3. ; Assembles with DRI MAC.COM
  4. ; 
  5. ; These patches are intended to work with The Advent TurboROM.
  6. ; The patches simply swap the CP/M level arrow key definitions
  7. ; for MicroPRO type arrow key usage on start up of the program.
  8. ; On exit from the program the CP/M level definitiions are restored.
  9. ;
  10. ; All of the following files must be patched:
  11. ;
  12. ;    DATASTAR.COM
  13. ;    FORMGEN.COM
  14. ;    REDIT.COM
  15. ;    REPORT.COM
  16. ;    RINSTALL.COM
  17. ;
  18. ; USE DDT TO PATCH DATASTAR.COM:
  19. ;
  20. ; A>DDT DATASTAR.COM
  21. ; DDT VERS 2.2
  22. ; NEXT PC
  23. ; 6A00 0100
  24. ; -IDSPATCH.HEX
  25. ; -R
  26. ; NEXT PC
  27. ; 6A00 0100
  28. ; -G0
  29. ;
  30. ; Warm Boot 
  31. ; A>SAVE 105 DATASTAR.COM
  32. ;
  33. ; USE DDT TO PATCH FORMGEN.COM:
  34. ;
  35. ; A>DDT FORMGEN.COM
  36. ; DDT VERS 2.2
  37. ; NEXT PC
  38. ; 8500 0100
  39. ; -IDSPATCH.HEX
  40. ; -R
  41. ; NEXT PC
  42. ; 8500 0100
  43. ; -G0
  44. ;
  45. ; Warm Boot 
  46. ; A>SAVE 132 FORMGEN.COM
  47. ;
  48. ; USE DDT TO PATCH REDIT.COM:
  49. ;
  50. ; A>DDT REDIT.COM
  51. ; DDT VERS 2.2
  52. ; NEXT PC
  53. ; 7100 0100
  54. ; -IDSPATCH.HEX
  55. ; -R
  56. ; NEXT PC
  57. ; 7100 0100
  58. ; -G0
  59. ;
  60. ; Warm Boot 
  61. ; A>SAVE 112 REDIT.COM
  62. ;
  63. ; USE DDT TO PATCH REPORT.COM:
  64. ;
  65. ; A>DDT REPORT.COM
  66. ; DDT VERS 2.2
  67. ; NEXT PC
  68. ; 7F00 0100
  69. ; -IDSPATCH.HEX
  70. ; -R
  71. ; NEXT PC
  72. ; 7F00 0100
  73. ; -G0
  74. ;
  75. ; Warm Boot 
  76. ; A>SAVE 126 REPORT.COM
  77. ;
  78. ; USE DDT TO PATCH RINSTALL.COM:
  79. ;
  80. ; A>DDT RINSTALL.COM
  81. ; DDT VERS 2.2
  82. ; NEXT PC
  83. ; 7900 0100
  84. ; -IDSPATCH.HEX
  85. ; -R
  86. ; NEXT PC
  87. ; 7900 0100
  88. ; -G0
  89. ;
  90. ; Warm Boot 
  91. ; A>SAVE 120 RINSTALL.COM
  92. ;
  93.  
  94. djnz    macro addr
  95.     db 10h
  96.     db low addr-($+1)
  97.     endm
  98.  
  99.     org 0173h    ; id string DATASTAR.COM 1.42
  100.     db    '1.42'
  101.     org 2A7h
  102. ;
  103. inisub:    jmp    morpat
  104. ;
  105. unisub: jmp    morpat
  106.  
  107.     org 2deh
  108. ;
  109. morpat:    lhld    0001        ; GET WARM BOOT JMP ADDR
  110.     lxi    d,32h        ; offset to xlate table
  111.     dad    d        ; hl --> xlate table (bios) 
  112.     lxi    d,table        ; de --> xlate table (local)
  113.     mvi    b,4        ; count 
  114. ;
  115. loop:                ; repeat
  116.     mov    c,m        ;   swap *hl,*de
  117.     ldax    d
  118.     mov    m,a
  119.     mov    a,c
  120.     stax    d
  121.     inx    h        ;   hl++, de++
  122.     inx    d
  123.     djnz    loop        ; unitl bytes swaped
  124.         ret
  125. ;
  126. table:    db    'E'-40h        ; up arrow
  127.     db    'X'-40h        ; down arrow
  128.     db    'S'-40h        ; left arrow
  129.     db    'D'-40H        ; right arrow
  130.  
  131.     end
  132.  
  133.