+ K_SETUP: две новые подфункции для вкл/выкл курсора

DSS/KEYINTER.ASM

@@ -110,22 +110,23 @@ UNCODE		DW	0	;
 
 
 
-WAITKEY	LD	HL,HOST
-	LD	A,(HEAD)
-	CP	(HL)
-	JR	Z,WAITKEY
-	CALL	GETSYM
-	LD	A,E
-	AND	A
-	RET
+WAITKEY:	LD	HL,HOST
+		LD	A,(HEAD)
+		CP	(HL)
+		JR	Z,WAITKEY
+		CALL	GETSYM
+		LD	A,E
+		AND	A
+		RET
+;
 
-SCANKEY	LD	HL,HOST
-	LD	A,(HEAD)
-	CP	(HL)
-	RET	Z
-	CALL	GETSYM
-	LD	A,E
-	RET
+SCANKEY:	LD	HL,HOST
+		LD	A,(HEAD)
+		CP	(HL)
+		RET	Z
+		CALL	GETSYM
+		LD	A,E
+		RET
 ;
 
 ;
@@ -209,6 +210,7 @@ ECHOKEY:        CALL	Cursor_On	                ;
                 LD	A,E
                 AND	A
                 RET
+;
 
 Cursor:		;!TODO «®£¨ç­¥¥ ªãàá®à®¬ ¬®à£ âì ¨ èà¨äâë ¬¥­ïâì ¨§ ¡¨®á  ¦¥?
 .Flag+1:	LD A,0                                  ; ä« £ ªãàá®à  00-­¥â/01-¥áâì
@@ -219,7 +221,7 @@ Cursor_On:	LD	C,BIOS.LP_GET_PLACE		; 㧭
 		RST	ToBIOS
 		LD	(Cursor_Off.pos),DE
 		XOR	A
-		LD	C,BIOS.WIN_GET_SYM	        ; ¯®«ãç¨âì ᨬ¢®«
+		LD	C,BIOS.WIN_GET_SYM		; ¯®«ãç¨âì ᨬ¢®«
 		RST	ToBIOS
 		;
 		LD	A,%0010'0000
@@ -1011,12 +1013,31 @@ K_SND_R:	DJNZ	K_SND_W
 		AND	A
 		RET
 		;					subfunc 2
-K_SND_W:	;DJNZ	K_RESET_BUFFER	;. [ ] 31/03/2024		subfunc 3 ­ã¦­  «¨?
-		DJNZ	K_SETUP.ERROR
+K_SND_W:	;DJNZ	K_RESET_BUFFER	; [ ] 31/03/2024		subfunc 3 ­ã¦­  «¨?
+		DJNZ	K_CURSOR_ON	; [ ] 26/04/2025 ã¯à ¢«¥­¨¥ ¢¨¤¨¬®áâìî ªãàá®à 
 		;
 		LD	(SOUND_K),A
 		AND	A
 		RET
+;
+
+		; [ ] 26/04/2025 ã¯à ¢«¥­¨¥ ¢¨¤¨¬®áâìî ªãàá®à 
+K_CURSOR_ON:	DJNZ	K_CURSOR_OFF
+		LD	A,(VMODE)
+		RLA
+		JP	NC,Cursor_On
+		RET
+;
+
+		; [ ] 26/04/2025 ã¯à ¢«¥­¨¥ ¢¨¤¨¬®áâìî ªãàá®à 
+K_CURSOR_OFF:	DJNZ	K_SETUP.ERROR
+		LD	A,(VMODE)
+		RLA
+		JP	NC,Cursor_Off
+		RET
+;
+
+
 		;
 ; 		;. [ ] 31/03/2024			subfunc 3 ­ã¦­  «¨?
 ; K_RESET_BUFFER:	DJNZ	K_SETUP.ERROR

DSS/build.txt

@@ -1 +1 @@
-35
+36

Shared_Includes

@@ -1 +1 @@
-Subproject commit e0dd54cb5615a23ea55bd217578aab57481fcf77
+Subproject commit a6c50f572424e88f6199d639fa8109d53b71142c