Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-16 01:41:17 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

sys: fixed bug with installing system files on drive

Browse Source 
core: fixed bug with stack in RST_38_IM1.Portal
This commit is contained in:
Anatoliy Belyanskiy 2024-06-24 02:22:58 +10:00
parent 7c9c4311a4
commit 1fab894409
3 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
BOOT/boot.asm
View File

@ -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
@ -837,7 +837,7 @@ write_file: ld a,FAT_ATTR.ARCHIVE ;
push hl ; â®çª  ¢ë室 
;
; ç⥭¨¥ ä ©«  ¨§ ¡ ­®ª ¨ § ¯¨áì ­  ¤¨áª
ld a,(FILE1_PARAMS.id_blck) ; ¨¤¥­â¨ä. ¡«®ª  ¯ ¬ïâ¨
ld a,(FILE1_PARAMS.id_blck); ¨¤¥­â¨ä. ¡«®ª  ¯ ¬ïâ¨
;ld b,0 ; «®£. ­®¬¥à áâà ­¨æë ¢ ¡«®ª¥
ld bc,BIOS.GetMemPage ; ¯®«ãç¨âì 䨧. ­®¬¥à áâà ­¨æë ¢ ¡«®ª¥
rst ToBIOS
@ -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

14
DSS/DSS-MAIN.ASM
View File

@ -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
;
////////////////////////////////////////////////////////////////////////

2
DSS/build.txt
View File

@ -1 +1 @@
991
992