This commit is contained in:
Tolik 2024-07-21 01:15:33 +10:00
parent b757fbf8ec
commit 433f4b32a9
4 changed files with 29 additions and 22 deletions

View File

@ -7063,27 +7063,22 @@ AUTO_3FEC:
;[x]] ¯®¯à ¢«¥­ë ­®¬¥à  ä㭪権 ¯à¨ ¢ë§®¢ å API ¨ ¯à룠¥â áà §ã ¢ BIOS ç¥à¥§ #3FF8 ;[x]] ¯®¯à ¢«¥­ë ­®¬¥à  ä㭪権 ¯à¨ ¢ë§®¢ å API ¨ ¯à룠¥â áà §ã ¢ BIOS ç¥à¥§ #3FF8
;-------[ From TR-DOS to API 4x ]------- ;-------[ From TR-DOS to API 4x ]-------
_mInfoBLOCK #3FF0-$, #FF _mInfoBLOCK #3FF0-$, #FF
HD_CMD: PUSH AF HD_CMD: PUSH AF
DI DI
LD A,SYS_PORT.EXTENSION LD A,SYS_PORT.EXTENSION
OUT (SYS_PORT.ROM),A OUT (SYS_PORT.ROM),A
POP AF POP AF
RET RET
;--------------------------------------- ;---------------------------------------
; ;
;----[ From TR-DOS to API #80..#FF]----- ;----[ From TR-DOS to API #80..#FF]-----
_mInfoBLOCK #3FF8-$, #FF _mInfoBLOCK #3FF8-$, #FF
EXP_FNS:;!TEST 06/01/2024 á®å࠭塞 á®áâ®ï­¨¥ ¯à¥à뢠­¨© § ç¥¬-â® EXP_FNS: JP EXP_FNS_PREPARE
;PUSH AF
;DI ;!TODO ¯®¤ã¬ âì, ª ª á®åà ­ïâì á®áâ®ï­¨¥ ¯à¥à뢠­¨© ¨ ­¨ç¥£® ­¥ á«®¬ âì
;XOR A ; SYS_PORT.BIOS
JP EXP_FNS_PREPARE
EXP_FNS_PREPARE_RET: EXP_FNS_PREPARE_RET:
; OUT (SYS_PORT.ROM),A
OUT (SYS_PORT.ROM),A POP AF
POP AF RET
RET
;--------------------------------------- ;---------------------------------------
; ;

@ -1 +1 @@
Subproject commit 7e812bc0267db168c5a5b17780e567a7a01cd927 Subproject commit 17997278e4aea455a68532547beb561fd216ad19

View File

@ -160,11 +160,11 @@ CHOOSE_HDD:
OUT (SLOT3),A OUT (SLOT3),A
; ;
; ;
XOR A ;XOR A
LD C,A ; ®¡­ã«¨âì C LD C,0 ; ®¡­ã«¨âì C
LD A,B LD A,B
;OR #40 ;OR #40
LD B,A ;LD B,A
; ;
; PUSH AF ; PUSH AF
; LD A,(ZX_VARS.OPER_DISK) ; LD A,(ZX_VARS.OPER_DISK)

View File

@ -323,11 +323,23 @@ END_TAB:
LD (ZX_VARS.CONT_DISK),A LD (ZX_VARS.CONT_DISK),A
LD B,A LD B,A
LD A,(ZX_VARS.PDOS_COPY) LD A,(ZX_VARS.PDOS_COPY)
AND 7CH AND #7C
OR B OR B
LD (ZX_VARS.PDOS_COPY),A LD (ZX_VARS.PDOS_COPY),A
OUT (FDC_93.DrvCTRL),A OUT (FDC_93.DrvCTRL),A
JP AUTO_03E1 ; [ ] 19/07/2024 ­  ª ¦¤ë© ¤¨áª âमá ᢮© à §¤¥« hdd ¬®¦­® § ¬ ¯¨âì
LD C,BIOS.GET_DISK_REDIR
CALL EXP_FNS
CP #40
JR C,.exit
;
AND #0F
LD C,BIOS.HDD_PART
CALL EXP_FNS
;LD HL,MSG_3
;CALL C,AUTO_03C3
;
.exit: JP AUTO_03E1
END_TAB2: END_TAB2:
SUB 4 SUB 4
@ -626,7 +638,7 @@ SPR_1: LD A,(DE)
RET NZ RET NZ
LD C,BIOS.RST_CONF.SP97_2 LD C,BIOS.RST_CONF.SP97_2
SP_1: LD A,(DE) SP_1: LD A,(DE)
CP #21 CP " "+1
CCF CCF
RET C RET C
CALL EXP_FNS CALL EXP_FNS