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