fixed cmd /hdd in tr-dos rom

This commit is contained in:
Tolik 2024-08-24 04:21:20 +10:00
parent d80b79a832
commit 4a49ae559b
4 changed files with 18 additions and 3 deletions

Binary file not shown.

View File

@ -867,6 +867,7 @@ PrepareToZX: ;CALL init_zx_roms
; find first good partition
;
; ç¨á⪠ ¯¥à¥¬¥­­ëå ZX HDD
IN A,(SLOT3)
EX AF,AF
LD A,SYS_PAGE
@ -877,9 +878,15 @@ PrepareToZX: ;CALL init_zx_roms
LD L,A
LD (SYS_PAGE.CURRENT_DIR_SEC_L),HL
LD (SYS_PAGE.CURRENT_DIR_SEC_H),HL
DEC A
LD (SYS_PAGE.CURRENT_HDD),A
LD (SYS_PAGE.CURRENT_DIR_DRIVE),A
LD (SYS_PAGE.CURRENT_DIR_DRIVE_COPY),A
;
EX AF,AF
OUT (SLOT3),A
EX AF,AF
;
.loop: CALL FN_HDD_PART
JR NC,.start_zx

View File

@ -185,7 +185,7 @@ INIT_SYS_ALL:
DI
; LD HL,#8000
; LD DE,#8001
; LD (HL),0
; LD (HL),#FF
; LD BC,#3FFF
; LDIR
;
@ -198,7 +198,16 @@ INIT_SYS_ALL:
LD DE,SYS_PAGE.ID_FLAG - #4000
LD BC,ID_SPRINTER.Record1_Size
LDIR
; ç¨á⪠ ¯¥à¥¬¥­­ëå ZX HDD
XOR A
LD H,A
LD L,A
LD (SYS_PAGE.CURRENT_DIR_SEC_L - #4000),HL
LD (SYS_PAGE.CURRENT_DIR_SEC_H - #4000),HL
DEC A
LD (SYS_PAGE.CURRENT_HDD - #4000),A
LD (SYS_PAGE.CURRENT_DIR_DRIVE - #4000),A
LD (SYS_PAGE.CURRENT_DIR_DRIVE_COPY - #4000),A
; Disable user IM address in SYS_PAGE
XOR A
LD (SYS_PAGE.INT_ID - #4000),A

View File

@ -131,7 +131,6 @@ GET_SCORP_RAM: IN A,(SLOT3)
;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°;
;-----------------------------------------------------------------------;
;!TODO § ¤¥©á⢮¢ âì
GOTO_SPEC: IN A,(SLOT3)