diff --git a/DSS/drivers/Input/MOUSE.ASM b/DSS/drivers/Input/MOUSE.ASM index 64add82..60a978b 100644 --- a/DSS/drivers/Input/MOUSE.ASM +++ b/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