home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / sysutl / patcky11.lbr / FUPATCH.AZM / FUPATCH.ASM
Encoding:
Assembly Source File  |  1988-04-17  |  512 b   |  25 lines
  1.     ORG    100H
  2.     JMP    4600H
  3.  
  4.     ORG    4600H
  5.     LXI    H,1FC9H
  6.     SHLD    101H
  7.     LHLD    0001        ;BIOS ADDRESS +3
  8.     LXI     D,30H        ;OFFSET TO FUNCTION KEY ADDRESS POINTER
  9.     DAD    D
  10.     MOV    E,M
  11.     INX    H
  12.     MOV    D,M
  13.     LXI    H,0088H
  14.     DAD    D
  15.     MVI    M,13H        ;WORDSTAR LEFT CURSOR
  16.     LXI    D,8        ;OFFSET TO NEXT CONTROL KEY
  17.     DAD    D
  18.     MVI    M,4        ;WORDSTAR RIGHT CURSOR
  19.     DAD    D
  20.     MVI    M,5        ;WORDSTAR UP CURSOR
  21.     DAD    D
  22.     MVI    M,18H        ;WORDSTAR DOWN CURSOR
  23.     JMP     100
  24.     END
  25.