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
/
RPPATCH.ASM
< prev
next >
Wrap
Assembly Source File
|
1986-09-19
|
1KB
|
74 lines
; RPPATCH.ASM 6-5-86 gsd
; Simple patch to Report.COM for Kaypro Keyboard Arrow Keys
; Assembles with DRI MAC.COM
;
; These patches are intended to work with The Advent TurboROM.
; The patches simply swap the CP/M level arrow key definitions
; for MicroPRO type arrow key usage on start up of the program.
; On exit from the program the CP/M level definitiions are restored.
;
; All of the following files must be patched:
;
; DATASTAR.COM
; FORMGEN.COM
; REDIT.COM
; REPORT.COM
; RINSTALL.COM
;
;
; USE DDT TO PATCH REPORT.COM:
;
; A>DDT REPORT.COM
; DDT VERS 2.2
; NEXT PC
; 7F00 0100
; -IDSPATCH.HEX
; -R
; NEXT PC
; 7F00 0100
; -G0
;
; Warm Boot
; A>SAVE 126 REPORT.COM
;
djnz macro addr
db 10h
db low addr-($+1)
endm
org 0163h ; id string REPORT.COM 1.03
db '1.03'
org 2A7h
;
inisub: jmp morpat
;
unisub: jmp morpat
org 2deh
;
morpat: lhld 0001 ; GET WARM BOOT JMP ADDR
lxi d,32h ; offset to xlate table
dad d ; hl --> xlate table (bios)
lxi d,table ; de --> xlate table (local)
mvi b,4 ; count
;
loop: ; repeat
mov c,m ; swap *hl,*de
ldax d
mov m,a
mov a,c
stax d
inx h ; hl++, de++
inx d
djnz loop ; unitl bytes swaped
ret
;
table: db 'E'-40h ; up arrow
db 'X'-40h ; down arrow
db 'S'-40h ; left arrow
db 'D'-40H ; right arrow
end