доработки KEYSCAN

src/bios/rom/SETUP/KEY.asm

@@ -170,8 +170,16 @@ KEYSCAN:
         LD      IX,KEYFLAG
 RESCANN:
         IN      A,(Z84.SIO.Ch_A.Ctrl)
-        BIT     0,A
+	AND	1
 	RET	Z
+	;[ ] 18/02/2024 ¯à®¢¥àª  ­  ¯¥à¥¯®«­¥­¨¥ ¡ãä¥à 
+	 ; A = 1
+	 ; reg 1
+	 OUT	(Z84.SIO.Ch_A.Ctrl),A
+	 IN	A,(Z84.SIO.Ch_A.Ctrl)
+	 AND	%0010'0000	; check receiver overrun error
+	 JP	NZ,Receiver_Overrun
+	;
         IN      A,(Z84.SIO.Ch_A.Data)
         CP      #F0
         JR      Z,F0_KEY
@@ -186,9 +194,12 @@ RESCANN:
         CALL    SHIFTS
         RES     FLAG_E0,(IX+KEYFLG)
         RES     FLAG_E1,(IX+KEYFLG)
-        RET     Z                                                       ;IT'S SHIFT KEY
+	;[ ] 29/02/2024 ¢ë£à¥¡á⨠¢¥áì ¡ãä¥à
+	 JR	Z,RESCANN	;IT'S SHIFT KEY
+	 ; RET	Z		;IT'S SHIFT KEY
+	;
         CALL    INPCODE                                                 ;L - AT POS. CODE
-.PUTCODE:
+	;PUTCODE
         LD      HL,#1C00                                                ;Caps Lock
         AND     A
         SBC     HL,DE
@@ -734,3 +745,25 @@ BPP2:
 ;         OUT     (Z84.SIO.Ch_A.Ctrl),A
 ;         RET
 ;------------------------------;????? à §®¡à âìáï 
+
+;[ ] 18/02/2024 ¯à®¢¥àª  ­  ¯¥à¥¯®«­¥­¨¥ ¡ãä¥à 
+Receiver_Overrun:
+	; empty the buffer
+	IN	A,(Z84.SIO.Ch_A.Data)
+	IN	A,(Z84.SIO.Ch_A.Ctrl)
+	RRCA
+	JR	C,Receiver_Overrun
+	; reg 0 - reset errors
+	LD	A,%0011'0000
+	OUT	(Z84.SIO.Ch_A.Ctrl),A
+	;!TODO ¯à¨ ¤¥â¥ªâ¥ ¯¥à¥¯®«­¥­¨ï ¡ãä¥à  ¯à®æ  á­ïâì ª« ¢¨è¨ ¨§ ¯®àâ  #FE ᯥªâà㬠
+	;
+	LD	(IX+K_SHIFT),0
+	LD	(IX+KEYFLG),0
+	;
+	; LD	A,(HOST)
+	; LD	(HEAD),A
+	;
+	AND	A
+	RET
+;