tst2

DSS/drivers/Input/MOUSE.ASM

@@ -543,7 +543,7 @@ MOUSE:		LD	A,(MODE_M)
 		IN	A,(SLOT3)
 		LD	XL,A
 		;
-		LD	A,#54
+		LD	A,#54			;!HARDCODE video page
 		;
 		CALL	GET_SYMBOL_ADDR
 		;
@@ -669,16 +669,16 @@ CLEAR_MOUSE_BUFFER:
 		LD	(READ_M.Step),A
 		RET
 	ELSE
-		;RET	NC
-		;JR	CLEAR_MOUSE_BUFFER
-		JR	C,CLEAR_MOUSE_BUFFER
-		SCF
-		RET
+		RET	NC
+		JR	CLEAR_MOUSE_BUFFER
+		; JR	C,CLEAR_MOUSE_BUFFER
+		; SCF
+		; RET
 	ENDIF
 
 ;----------------------------------------------------------------------;
 
-READ_M:		;[ ] 18/02/2024 ¯à®¢¥àª  ­  ¯¥à¥¯®«­¥­¨¥ ¡ãä¥à 
+READ_M:		/*;[ ] 18/02/2024 ¯à®¢¥àª  ­  ¯¥à¥¯®«­¥­¨¥ ¡ãä¥à 
 		 ; reg 1
 		 LD	A,1
 		 OUT	(PORT_MOUSE.Ctrl),A
@@ -698,6 +698,7 @@ READ_M:		;[ ] 18/02/2024
 		 ;
 		 JR	CLEAR_MOUSE_BUFFER
 		;
+*/
 	IF MOUSE_INT_ENABLED
 .Prepare:	LD	HL,.Step
 		LD	A,(HL)
@@ -721,8 +722,8 @@ READ_M:		;[ ] 18/02/2024
 		LD	L,A
 	ENDIF
 		AND	%0100'0000
-		;RET	Z
-		JP	Z,CLEAR_MOUSE_BUFFER
+		RET	Z
+		;JP	Z,CLEAR_MOUSE_BUFFER
 		;
 	IF MOUSE_INT_ENABLED
 		INC	(HL)
@@ -799,22 +800,22 @@ READ_M:		;[ ] 18/02/2024
 		OR	D
 		LD	D,A
 		;
-; 		LD	A,L
-; 		RLCA 
-; 		RLCA 
-; 		RLCA 
-; 		RES	6,A
-; 		JR	NC,.STBU
-; 		SET	6,A
-; .STBU:		RLCA 
-; 		RLCA 
-; 		AND	#03
 		LD	A,L
-		AND	#30
-		RRCA 
-		RRCA 
-		RRCA 
-		RRCA 
+		RLCA 
+		RLCA 
+		RLCA 
+		RES	6,A
+		JR	NC,.STBU
+		SET	6,A
+.STBU:		RLCA 
+		RLCA 
+		AND	#03
+		; LD	A,L
+		; AND	#30
+		; RRCA 
+		; RRCA 
+		; RRCA 
+		; RRCA 
 		;
 		LD	(MOUSE_BUTTONS),A
 		CALL	SENSE
@@ -896,13 +897,13 @@ DECY:	LD	A,E
 SENSE:	LD	HL,(SENSEXY)
 	LD	A,L
 	; [x] 15/03/2024 ⥯¥àì ¯®¯à ¢ª¨ çã¢á⢨⥫쭮á⨠¯® ª®®à¤¨­ â ¬ à ¡®â îâ ª®à४⭮
-	 ;OR	L
-	 ;RET	Z
-	 ;DEC	A
-	 ;RET	Z
-	 CP	2
-	 CCF
-	 JR	NC,.check_Y
+	 OR	L
+	 RET	Z
+	 DEC	A
+	 RET	Z
+	;  CP	2
+	;  CCF
+	;  JR	NC,.check_Y
 	;
 	LD	A,E
 	BIT	7,A