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