Update of /cvsroot/z88dk/z88dk/libsrc/_DEVELOPMENT/target/spectrum
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv5517
Modified Files:
__kbd_driver.asm
Log Message:
failed to save ix around calls to fzx driver and added echo to seek
Index: __kbd_driver.asm
===================================================================
RCS file: /cvsroot/z88dk/z88dk/libsrc/_DEVELOPMENT/target/spectrum/__kbd_driver.asm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** __kbd_driver.asm 28 Mar 2014 04:57:21 -0000 1.4
--- __kbd_driver.asm 29 Mar 2014 05:02:49 -0000 1.5
***************
*** 5,8 ****
--- 5,10 ----
LIB error_enotsup_zc, error_znc, error_lznc
+ defc LASTK = 23560
+
__kbd_driver:
***************
*** 102,106 ****
ld a,l
! ld (23560),a ; shove unconsumed char back into LASTK, may not last
ld c,e
--- 104,108 ----
ld a,l
! ld (LASTK),a ; shove unconsumed char back into LASTK, may not last
ld c,e
***************
*** 192,195 ****
--- 194,202 ----
call __kbd_getchar
+
+ push de
+ call __kbd_echo
+ pop de
+
jr __kbd_seek_loop
***************
*** 201,205 ****
xor a
! ld (23560),a
ret ; carry reset
--- 208,212 ----
xor a
! ld (LASTK),a
ret ; carry reset
***************
*** 209,213 ****
__kbd_getchar:
! ld a,(23560) ; LASTK
or a
--- 216,220 ----
__kbd_getchar:
! ld a,(LASTK) ; LASTK
or a
***************
*** 217,221 ****
xor a
! ld (23560),a ; consume the keypress
ld a,l
--- 224,228 ----
xor a
! ld (LASTK),a ; consume the keypress
ld a,l
***************
*** 226,230 ****
__kbd_echo:
! jp asm_fzx_putc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 233,242 ----
__kbd_echo:
! push ix
!
! call asm_fzx_putc
!
! pop ix
! ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
------------------------------------------------------------------------------