новая команда /SETHDD в TR-DOS

This commit is contained in:
Anatoliy Belyanskiy 2024-01-27 03:42:21 +10:00
parent 9d3482c7b0
commit aee7f4e05f
3 changed files with 19 additions and 18 deletions

@ -1 +1 @@
Subproject commit e7e58e7b816a25137a0a253321164e863bbe782e Subproject commit 5cb5d02cf145ff2d6d14fca5a5f9a5fb2ec6a673

View File

@ -440,7 +440,8 @@ READ_BPB:
; ;
LD BC,256*1 + TRDOS_ROM_CMD.READ LD BC,256*1 + TRDOS_ROM_CMD.READ
CALL MSD_R_W_UT CALL MSD_R_W_UT
CALL READ_BPB.PARAMS ;
CALL .PARAMS
RET NC RET NC
JP .ERROR_MSDOS JP .ERROR_MSDOS
.MAIN: LD A,SYS_PAGE .MAIN: LD A,SYS_PAGE

View File

@ -431,7 +431,7 @@ READ_ONLY:
FDD_SET: FDD_SET:
LD A,(OPER_DISK) LD A,(OPER_DISK)
LD B,A LD B,A
LD C,#CC ;!HARDCODE BIOS.FDD_TO_DRV LD C,BIOS.FDD_TO_DRV
;!TEST 06/01/2024 á®å࠭塞 á®áâ®ï­¨¥ ¯à¥à뢠­¨© § ç¥¬-â® ;!TEST 06/01/2024 á®å࠭塞 á®áâ®ï­¨¥ ¯à¥à뢠­¨© § ç¥¬-â®
JP EXP_FNS JP EXP_FNS
;CALL EXP_FNS ;CALL EXP_FNS
@ -466,7 +466,7 @@ RAMD_SET1:
LD A,(OPER_DISK) LD A,(OPER_DISK)
LD B,A LD B,A
POP AF POP AF
LD C,#CB ;!HARDCODE BIOS.RAMD_TO_DRV LD C,BIOS.RAMD_TO_DRV
;!TEST 06/01/2024 á®å࠭塞 á®áâ®ï­¨¥ ¯à¥à뢠­¨© § ç¥¬-â® ;!TEST 06/01/2024 á®å࠭塞 á®áâ®ï­¨¥ ¯à¥à뢠­¨© § ç¥¬-â®
JP EXP_FNS JP EXP_FNS
;CALL EXP_FNS ;CALL EXP_FNS
@ -521,7 +521,7 @@ CHOOSE_HDD:
CP #0D CP #0D
JR Z,.error JR Z,.error
; ­®¬¥à à §¤¥«  ; ­®¬¥à à §¤¥« 
INC DE ;INC DE
LD A,(DE) LD A,(DE)
CP "4" CP "4"
JR NC,.error JR NC,.error
@ -531,21 +531,21 @@ CHOOSE_HDD:
RLA RLA
RLA RLA
LD C,A LD C,A
; master/slave ; ; master/slave
; DEC DE
; LD A,(DE)
; CP "2"
; JR NC,.error
; CP "0"
; JR C,.error
; SUB "0"
; RLA
; OR C
; LD C,A
; Primary/Secondary, master/slave
DEC DE DEC DE
LD A,(DE) LD A,(DE)
CP "2" CP "4"
JR NC,.error
CP "0"
JR C,.error
SUB "0"
RLA
OR C
LD C,A
; Primary/Secondary
DEC DE
LD A,(DE)
CP "2"
JR NC,.error JR NC,.error
CP "0" CP "0"
JR C,.error JR C,.error