tests

DSS/API/SetVMod.asm

@@ -171,7 +171,6 @@ PIC_320X256_1:
 ; „«ï ¡ãä¥à  íªà ­  ¨á¯. 2-ï ¡ ­ª  à áè¨à¥­¨ï „Ž‘.
 SAVETXT:	PUSH	AF
 		LD	A,(VMODE)
-		;BIT	7,A
 		CP	%1000'0000
 		JR	NC,.NOSAVET
 		SUB	#02
@@ -188,7 +187,7 @@ SAVETXT:	PUSH	AF
 		LD	(BACKTXT.CURS),DE
 		POP	AF
 		LD	IX,#C000
-		LD	HL,#2050	;!FIXIT ¥á«¨ ⥪á⮢®¥ 40x32?
+		LD	HL,#2050
 		OR	A
 		JR	NZ,.SVTEXT1
 		LD	L,#28

DSS/KEYINTER.ASM

@@ -1096,29 +1096,29 @@ K_SND_W:	;DJNZ	K_RESET_BUFFER	;. [ ] 31/03/2024		subfunc 3
 ; ;
 ;-----------------------------------------------------------------------
 
-
+;!FIXIT ¥áâì ¢ ¡¨®á¥
+; DE - ç áâ®â 
+; HL - ¯à®¤®«¦¨â¥«ì­®áâì
 BEEP:		LD	A,#10
-		OUT	(ZX_Beeper),A
-		LD	B,D
-		LD	C,E
-.loop1:		DEC	BC
-		LD	A,B
-		OR	C
-		JR	NZ,.loop1
-		XOR	A	;LD	A,#00
-		OUT	(ZX_Beeper),A
-		LD	B,D
-		LD	C,E
-.loop2:		DEC	BC
-		LD	A,B
-		OR	C
-		JR	NZ,.loop2
+		CALL	.beep_loop
+		; A = 0
+		CALL	.beep_loop
+		;
 		DEC	HL
 		LD	A,H
 		OR	L
 		JR	NZ,BEEP
 		RET
-;
+		;
+.beep_loop:	OUT	(ZX_Beeper),A
+		LD	B,D
+		LD	C,E
+		;
+.loop:		DEC	BC
+		LD	A,B
+		OR	C
+		JR	NZ,.loop
+		RET
 	
 KEYBOARD_INIT:	DI
 		; reg 0

SHELL/Commands/HELP.ASM

@@ -3,6 +3,20 @@
 ; HELP. ‚뢮¤ íªà ­  ¯®¬®é¨
 ;
 ;///////////////////////////////////////////////////
-cmd_help:
-	ld	de,MAIN_MSG.HELP	; 身丰花 "COMMANDS: ..."
-	jp	ECHO_MESSAGE
+cmd_help:	LD	HL,.help_txt
+		LD	A,(color_screen)
+		EX	AF,AF'
+		XOR	A
+		LD	BC,BIOS.LP_PR_LINE_DIR
+		JP	ToBIOS			;!FIXIT â¥áâ®¢ë© ¢ à¨ ­â, ¯¥à¥¤¥« âì ­  DSS
+		;JP	ECHO_MESSAGE
+
+;				  1	    2	      3		4	  5	    6	      7		8
+;			01234567890123456789012345678901234567890123456789012345678901234567890123456789;
+.help_txt:	DB     "COMMANDS:\r\n"
+		DB     "SET  INFO       REN = RENAME    PATH    CLS [ink]\r\n"
+		DB     "CD = CHDIR      DEL = ERASE     HELP    VER = VERSION\r\n"
+		DB     "MD = MKDIR      TIME            ECHO    EXIT\r\n"
+		DZ     "RD = RMDIR      DATE            REBOOT  DIR [path] [/p /f]\r\n\n"
+;		;      ;	;	;	;	;	;	;	;	;	;	;							
+;

SHELL/Messages/main_txt.asm

@@ -19,7 +19,7 @@ MAIN_MSG:
 .DIR_2		EQU .DIR_2_
 .DIR_3		EQU .DIR_3_
 .DIR_4		EQU .DIR_4_
-.HELP		EQU .HELP_
+;.HELP		EQU .HELP_
 .CALCULATING	EQU .CALC_
 .CRLF		EQU .CRLF_
 .INFO_1		EQU .INFO_1_
@@ -51,12 +51,12 @@ MAIN_MSG:
 		  DZ   "	%4 Dir(s)\r			   %5 byte(s) capacity\r\n"
  stN .DIR_4_	: DZ   "	Free space	   %5 byte(s)\r\n"
  stN .DIR_3_	: DZ   "%4  %5    %3  %1 %2  	\r\n"				;DATE TIME SIZE FILENAME EXT 
-		;!TODO ¯¥ç â âì ­¥ ç¥à¥§ ECHO_MESSAGE
- stN .HELP_	: db   "COMMANDS:\r\n"
-		  db   "SET  INFO       REN = RENAME    PATH    CLS [ink]                               "
-		  db   "CD = CHDIR      DEL = ERASE     HELP    VER = VERSION                           "
-		  db   "MD = MKDIR      TIME            ECHO    EXIT                                    "
-		  DZ   "RD = RMDIR      DATE            REBOOT  DIR [path] [/p /f]                    \r\n\n"
+; 		;!TODO ¯¥ç â âì ­¥ ç¥à¥§ ECHO_MESSAGE
+;  stN .HELP_	: db   "COMMANDS:\r\n"
+; 		  db   "SET  INFO       REN = RENAME    PATH    CLS [ink]                               "
+; 		  db   "CD = CHDIR      DEL = ERASE     HELP    VER = VERSION                           "
+; 		  db   "MD = MKDIR      TIME            ECHO    EXIT                                    "
+; 		  DZ   "RD = RMDIR      DATE            REBOOT  DIR [path] [/p /f]                    \r\n\n"
  stN .CALC_	: DZ   "Calculating free space...\r"
  stN .INFO_1_	: DZ   "\r\nDrive	File System	Label		Serial number	Size in bytes\r\n"
  stN .INFO_2_	: DZ   " %9          \r\t %8\r\t\t\t %7\r\t\t\t\t\t %4\r\t\t\t\t\t\t\t %5\r\n"

SHELL/build.txt

@@ -1 +1 @@
-466
+479

Shared_Includes

@@ -1 +1 @@
-Subproject commit 7c03abc82040df54cec2bc6701b0f602fa08fd26
+Subproject commit 9143dcb7f8fd9cd3ae0bc179b94fced5efd8667f