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 / TROMPAT1.LBR / RIPATCH.AQM / RIPATCH.ASM
Assembly Source File  |  2000-06-30  |  1KB  |  74 lines
  1. ; RIPATCH.ASM 6-5-86 gsd
  2. ; Simple patch to RINSTALL 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. ;
  19. ; USE DDT TO PATCH RINSTALL.COM:
  20. ;
  21. ; A>DDT RINSTALL.COM
  22. ; DDT VERS 2.2
  23. ; NEXT PC
  24. ; 7900 0100
  25. ; -IDSPATCH.HEX
  26. ; -R
  27. ; NEXT PC
  28. ; 7900 0100
  29. ; -G0
  30. ;
  31. ; Warm Boot 
  32. ; A>SAVE 120 RINSTALL.COM
  33. ;
  34.  
  35. djnz    macro addr
  36.     db 10h
  37.     db low addr-($+1)
  38.     endm
  39.  
  40.     org 0167h    ; id string RINSTALL.COM 1.03
  41.     db    '1.03'
  42.     org 2A7h
  43. ;
  44. inisub:    jmp    morpat
  45. ;
  46. unisub: jmp    morpat
  47.  
  48.     org 2deh
  49. ;
  50. morpat:    lhld    0001        ; GET WARM BOOT JMP ADDR
  51.     lxi    d,32h        ; offset to xlate table
  52.     dad    d        ; hl --> xlate table (bios) 
  53.     lxi    d,table        ; de --> xlate table (local)
  54.     mvi    b,4        ; count 
  55. ;
  56. loop:                ; repeat
  57.     mov    c,m        ;   swap *hl,*de
  58.     ldax    d
  59.     mov    m,a
  60.     mov    a,c
  61.     stax    d
  62.     inx    h        ;   hl++, de++
  63.     inx    d
  64.     djnz    loop        ; unitl bytes swaped
  65.         ret
  66. ;
  67. table:    db    'E'-40h        ; up arrow
  68.     db    'X'-40h        ; down arrow
  69.     db    'S'-40h        ; left arrow
  70.     db    'D'-40H        ; right arrow
  71.  
  72.     end
  73.  
  74.