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