sys: fixed bug with installing system files on drive

core: fixed bug with stack in RST_38_IM1.Portal

BOOT/boot.asm

@@ -94,7 +94,7 @@
 
 ; ¢¥àá¨ï ¯à®£à ¬¬ë
 major_version		equ	2			; áâ. ­®¬¥à ¢¥àᨨ
-minor_version		equ	0			; ¬«. ­®¬¥à
+minor_version		equ	1			; ¬«. ­®¬¥à
 ;;
 SECTORS_OF_LOADER	EQU	4			; ᥪâ®à®¢ § £àã§ç¨ª 
 .IN_BPB			EQU	1
@@ -864,11 +864,13 @@ write_file:	ld	a,FAT_ATTR.ARCHIVE	;
 		RST	ToDSS
 		pop	bc
 		jr	c,.error
+		; write_ok
+		; [ ] Fixed 24/06/2024 ª ª®©-â® ¯¥à¥¦¨â®ª ¯à®è«®£® 
+		 ;cp	-1			; § ¯¨á ­® ¬¥­ì襥 ç¨á«® ¡ ©â ?
+		 ;ld	a,DSS_Error.sys.DISK_FULL
+		 ;scf
+		 ;jr	nz,.error		; ¤ , ­  ¤¨áª¥ ­¥â ¬¥áâ 	
 		;
-.write_ok:	cp	-1			; § ¯¨á ­® ¬¥­ì襥 ç¨á«® ¡ ©â ?
-		ld	a,DSS_Error.sys.DISK_FULL
-		scf
-		jr	nz,.error		; ¤ , ­  ¤¨áª¥ ­¥â ¬¥áâ 	
 		ld	a,b			; a=䨧¨ç. áâà ­¨æ 
 		ld	c,BIOS.GetMemPageNext 	; ¯®«ãç¨âì ­®¬¥à á«¥¤. 䨧. áâà ­¨æë ¡«®ª 
 		rst	ToBIOS

DSS/DSS-MAIN.ASM

@@ -148,10 +148,24 @@ RST_38_IM1:	JP	.Handler
 .Portal:	PUSH	AF
 		LD	A,(RST_0x30.drv_page)
 		OUT	(SLOT0),A
+		;POP	AF
+		PUSH	HL
+		LD	HL,(RST_38_IM1+1)
+		XOR	A
+		CP	H
+		JR	NZ,.error
+		LD	A,low .Handler
+		CP	L
+		JR	NZ,.error
+		POP	HL
 		POP	AF
 		CALL	INTx38_Handler
 		JR	.Portal
 		;
+.error:		POP	HL
+		POP	AF
+		JR	.Portal
+		;
 
 ////////////////////////////////////////////////////////////////////////
 

DSS/build.txt

@@ -1 +1 @@
-991
+992