Update of /cvsroot/z88dk/z88dk/libsrc/_DEVELOPMENT/target/spectrum
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv15491
Modified Files:
__kbd_driver.asm
Log Message:
add keyboard echo
Index: __kbd_driver.asm
===================================================================
RCS file: /cvsroot/z88dk/z88dk/libsrc/_DEVELOPMENT/target/spectrum/__kbd_driver.asm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** __kbd_driver.asm 28 Mar 2014 03:38:33 -0000 1.3
--- __kbd_driver.asm 28 Mar 2014 04:57:21 -0000 1.4
***************
*** 2,6 ****
;; simple keyboard driver ;;;;;
! LIB l_jphl
LIB error_enotsup_zc, error_znc, error_lznc
--- 2,6 ----
;; simple keyboard driver ;;;;;
! LIB l_jphl, asm_fzx_putc
LIB error_enotsup_zc, error_znc, error_lznc
***************
*** 35,39 ****
--- 35,46 ----
call __kbd_getchar
+ push hl
+
+ call __kbd_echo
+
+ pop hl
ld h,0
+
+ or a
ret
***************
*** 74,77 ****
--- 81,93 ----
jr c, __kbd_eatc_exit ; if char is disqualified
+ push bc
+ push de
+
+ ld a,l
+ call __kbd_echo
+
+ pop de
+ pop bc
+
dec bc ; num chars remaining to consume -= 1
jr __kbd_eatc_loop
***************
*** 121,124 ****
--- 137,148 ----
inc de
+ push bc
+ push de
+
+ call __kbd_echo
+
+ pop de
+ pop bc
+
jr __kbd_read_loop
***************
*** 199,200 ****
--- 223,230 ----
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+ __kbd_echo:
+
+ jp asm_fzx_putc
+
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
------------------------------------------------------------------------------