SetHDD --> HDD

This commit is contained in:
Anatoliy Belyanskiy 2024-01-29 00:19:10 +10:00
parent 44ea99c6ba
commit 66d3e3bb6b
5 changed files with 114 additions and 82 deletions

View File

@ -1155,6 +1155,7 @@ WG93_EXE_:
JP WG93_EXE JP WG93_EXE
;************************************** ;**************************************
DISPLAY "2k" DISPLAY "2k"
;INCLUDE 'trdos/tr_msd_4.asz'
BLOCK #0840-$,255 BLOCK #0840-$,255
INCLUDE 'trdos/tr_msd_3.asz' INCLUDE 'trdos/tr_msd_3.asz'
@ -1215,6 +1216,7 @@ ZG_RUS:
; ;
;************************************** ;**************************************
;************************************** ;**************************************
INCLUDE 'trdos/tr_msd_4.asz'
BLOCK #1000 - $,255 BLOCK #1000 - $,255
;************************************** ;**************************************

View File

@ -249,7 +249,7 @@ LOOP_FIND:
LD A,(DE) LD A,(DE)
CP 13 CP 13
JR Z,CMD_EXE1 JR Z,CMD_EXE1
CP 20H CP ' '
JR Z,CMD_EXE JR Z,CMD_EXE
JR NEXT_WORD2 JR NEXT_WORD2
CMD_EXE: CMD_EXE:

View File

@ -275,7 +275,7 @@ SKEEP_XX1:
;***************************************** ;*****************************************
MADE_next_blk: MADE_next_blk:
PUSH BC PUSH BC
LD C,#95 ;!HARDCODE BIOS.GetMemPageNext (#C7) LD C,BIOS.GetMemPageNext
CALL EXP_FNS CALL EXP_FNS
POP BC POP BC
INC L ; SET ZF, if END BLK !!! INC L ; SET ZF, if END BLK !!!
@ -441,9 +441,15 @@ FAT_ALL:
POP AF POP AF
SCF SCF
RET RET
;-----------------------------------------------------------------------
;INCLUDE 'trdos/tr_msd_4.asz'
;-----------------------------------------------------------------------
BLOCK #09FF-$, #FF BLOCK #09FF-$, #FF
BLOCK #0A01-$, #FF ;牀え<E78980><E38188>瓷┤ ▲<><E296B2> <20>ム襤<E383A0><EFBFBD>
DW #FFFF
;-----------------------------------------------------------------------
NO_END_CLAST: NO_END_CLAST:
; PUSH AF ; PUSH AF
@ -605,6 +611,7 @@ HDD_ERROR:
HDD_PROG_E: HDD_PROG_E:
LD HL,HD_TX2 LD HL,HD_TX2
JP AUTO_03E4 JP AUTO_03E4
; ;
;*************************************************************************** ;***************************************************************************

101
TRDOS/TR_MSD_4.ASZ Normal file
View File

@ -0,0 +1,101 @@
HDD_SET:;!TEST
.loop: LD A,(DE)
INC DE
CP ' '
JR Z,.loop
CP #0D
JR Z,.init
;
DEC DE
DEC DE
JP CHOOSE_HDD
;
.init: ;!TEST 06/01/2024 㡨ࠥ¬ «¨è­¨¥ ⥫®¤¢¨¦¥­¨ï
;LD C,BIOS.HDD_INIT and #BF
;CALL HD_CMD
LD C,BIOS.HDD_INIT
CALL EXP_FNS
;
JP C,HDD_PROG_E
LD A,(ZX_VARS.OPER_DISK)
LD B,A
XOR A
LD C,BIOS.HDD_TO_DRV
;!TEST 06/01/2024 á®å࠭塞 á®áâ®ï­¨¥ ¯à¥à뢠­¨© § ç¥¬-â®
JP EXP_FNS
;CALL EXP_FNS
;EI
;RET
;
;[ ] 07/01/2024
;¢ë室: A: bit1 - Primary/Secondary, bit0 - master/slave, bit2..3: ¨á¯®«ì§ãî騩áï à §¤¥« ¢ MBR
CHOOSE_HDD:
PUSH DE
LD A,(ZX_VARS.OPER_DISK)
LD C,BIOS.GET_DRV_ST
CALL EXP_FNS
POP DE
JR C,.error
AND #40 ;!HARDCODE HDD
CALL Z,.setUp_HDD
;
.loop: LD A,(DE)
INC DE
CP ' '
JR Z,.loop
LD A,(DE)
CP #0D
JR Z,.error
.cont: ; ­®¬¥à à §¤¥« 
;INC DE
LD A,(DE)
CP "4"
JR NC,.error
CP "0"
JR C,.error
SUB "0"
RLA
RLA
LD C,A
; ; 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
LD A,(DE)
CP "4"
JR NC,.error
CP "0"
JR C,.error
SUB "0"
OR C
;
LD C,BIOS.HDD_PART
CALL EXP_FNS
RET NC
;
.error: LD HL,MSG_3
JP ERR_EXIT
;
.setUp_HDD:
LD A,(ZX_VARS.OPER_DISK)
LD B,A
XOR A
LD C,BIOS.HDD_TO_DRV
PUSH DE
CALL EXP_FNS
POP DE
RET
;

View File

@ -439,25 +439,6 @@ FDD_SET:
;RET ;RET
; ;
HDD_SET:;!TEST 06/01/2024 㡨ࠥ¬ «¨è­¨¥ ⥫®¤¢¨¦¥­¨ï
;LD C,BIOS.HDD_INIT and #BF
;CALL HD_CMD
LD C,BIOS.HDD_INIT
CALL EXP_FNS
;
JP C,HDD_PROG_E
LD A,(ZX_VARS.OPER_DISK)
LD B,A
XOR A
LD C,BIOS.HDD_TO_DRV
;!TEST 06/01/2024 á®å࠭塞 á®áâ®ï­¨¥ ¯à¥à뢠­¨© § ç¥¬-â®
JP EXP_FNS
;CALL EXP_FNS
;EI
;RET
;
RAMD_SET: RAMD_SET:
CALL RAMD_SYM CALL RAMD_SYM
RET C RET C
@ -500,63 +481,4 @@ RAMD_SYM:
RAMD_SYM_OK: RAMD_SYM_OK:
POP AF POP AF
RET RET
;
;[ ] 07/01/2024
CHOOSE_HDD:
PUSH DE
LD A,(ZX_VARS.OPER_DISK)
LD C,BIOS.GET_DRV_ST
CALL EXP_FNS
POP DE
JR C,.error
AND #40 ;!HARDCODE HDD
JR Z,.error
;
.loop: LD A,(DE)
INC DE
CP ' '
JR Z,.loop
LD A,(DE)
CP #0D
JR Z,.error
; ­®¬¥à à §¤¥« 
;INC DE
LD A,(DE)
CP "4"
JR NC,.error
CP "0"
JR C,.error
SUB "0"
RLA
RLA
LD C,A
; ; 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
LD A,(DE)
CP "4"
JR NC,.error
CP "0"
JR C,.error
SUB "0"
OR C
;
LD C,BIOS.HDD_PART
CALL EXP_FNS
RET NC
;
.error: LD HL,MSG_3
JP ERR_EXIT
;bit0: Primary/Secondary, bit1 - master/slave, bit2..3: ¨á¯®«ì§ãî騩áï à §¤¥« ¢ MBR