diff --git a/Shared_Includes b/Shared_Includes index aca9ce3..e9d481a 160000 --- a/Shared_Includes +++ b/Shared_Includes @@ -1 +1 @@ -Subproject commit aca9ce3f859bf53c76b0d710e108543226697f91 +Subproject commit e9d481a5565338505710b08e50d22a8579c400be diff --git a/TRDOS/TR_HDD_4.ASZ b/TRDOS/TR_HDD_4.ASZ index 0149b0d..f6ce3d4 100644 --- a/TRDOS/TR_HDD_4.ASZ +++ b/TRDOS/TR_HDD_4.ASZ @@ -56,56 +56,73 @@ HDD_PROG_E: ; HDD_SET:;!TEST -.loop: LD A,(DE) - INC DE - CP " " - JR Z,.loop - CP "\r" - JR Z,.init - ; - DEC DE - DEC DE - JP CHOOSE_HDD - ;CALL CHOOSE_HDD - ;CALL READ_BPB - ;RET - ; +.loop: LD A,(DE) + INC DE + CP " " + JR Z,.loop + CP "\r" + JR Z,.init + ; + DEC DE + DEC DE + JP CHOOSE_HDD + ;CALL CHOOSE_HDD + ;CALL READ_BPB + ;RET + ; ; [x] new tr-hdd -.init: ;CALL CORRECT_CUR_DIR - DI - IN A,(SLOT3) - LD C,A - LD A,SYS_PAGE - OUT (SLOT3),A - ; - LD E,DRIVE_CODES.TRDOS.HDD - LD A,(SYS_PAGE.CURRENT_DIR_DRIVE_COPY) - CP #FF - JR Z,.skip - ; - CP E - JR C,.skip - LD (SYS_PAGE.CURRENT_DIR_DRIVE),A - ; - AND #0F - LD (SYS_PAGE.CURRENT_HDD),A - ; -.skip: LD A,C - OUT (SLOT3),A - ; - PUSH DE - LD C,BIOS.HDD_INIT - CALL EXP_FNS - POP DE - JP C,HDD_PROG_E - ; - ; LD BC,(ZX_VARS.OPER_DISK - 1) - ; LD A,(ZX_VARS.OPER_DISK) - ; LD B,A - ; XOR A - ;LD E,A - LD C,BIOS.SET_DISK_REDIR - JP EXP_FNS +.init: ;CALL CORRECT_CUR_DIR + DI + LD BC,SLOT3 + IN B,(C) + ;LD C,A + LD A,SYS_PAGE + OUT (SLOT3),A + ; + LD E,DRIVE_CODES.TRDOS.HDD + LD A,(SYS_PAGE.CURRENT_DIR_DRIVE_COPY) + CP #FF + SCF + JR Z,.skip + ; + CP E + JR C,.skip + LD (SYS_PAGE.CURRENT_DIR_DRIVE),A + ; + AND #0F + ; !TEST + OUT (C),B + ; + PUSH DE + LD C,BIOS.HDD_PART + CALL EXP_FNS + POP DE + JR C,CHOOSE_HDD.error + ; + LD C,BIOS.SET_DISK_REDIR + JP EXP_FNS + ; + ;LD (SYS_PAGE.CURRENT_HDD),A + ; + ; +;.skip: LD A,C +; OUT (SLOT3),A +.skip: OUT (C),B + ; + PUSH DE + LD C,BIOS.HDD_INIT + CALL EXP_FNS + POP DE + JP C,HDD_PROG_E + ; + ; LD BC,(ZX_VARS.OPER_DISK - 1) + ; LD A,(ZX_VARS.OPER_DISK) + ; LD B,A + ; XOR A + ;LD E,A + LD C,BIOS.SET_DISK_REDIR + JP EXP_FNS + ;[x] 29/01/2024 ;выход: A: bit1 - Primary/Secondary, bit0 - master/slave, bit2..3: использующийся раздел в MBR @@ -137,7 +154,7 @@ CHOOSE_HDD: SUB "0" OR C ; - PUSH AF +.part: PUSH AF LD C,BIOS.HDD_PART CALL EXP_FNS POP BC diff --git a/TRDOS/TR_MSD_2.ASZ b/TRDOS/TR_MSD_2.ASZ index c7474c8..4c74a04 100644 --- a/TRDOS/TR_MSD_2.ASZ +++ b/TRDOS/TR_MSD_2.ASZ @@ -129,23 +129,22 @@ MSDOS_NEXT_FL: ;********************************** MSDOS_CAT: - PUSH DE + PUSH DE CALL AUTO_1D97 ; CLS CALL OPEN_CH2 - LD A,"\r" - RST #10 - POP DE ; СТРОКА ПОСЛЕ CAT - -CAT_SPACES: - LD A,(DE) - CP " " - JR NZ,CAT_NO_SPACE - INC DE - JR CAT_SPACES -CAT_NO_SPACE: - CP "\r" - JR NZ,CAT_ALL - LD DE,CAT_FILES + LD A,"\r" + RST #10 + POP DE ; СТРОКА ПОСЛЕ CAT +.loop: LD A,(DE) + CP " " + ;JR NZ,CAT_NO_SPACE + INC DE + JR Z,.loop + DEC DE + ;CAT_NO_SPACE: + CP "\r" + JR NZ,CAT_ALL + LD DE,CAT_FILES CAT_ALL: ; CALL MSDOS_FIND_FILE CALL MSDOS_1ST_FL diff --git a/TRDOS/TR_MSD_3.ASZ b/TRDOS/TR_MSD_3.ASZ index 4e676f6..6da06c7 100644 --- a/TRDOS/TR_MSD_3.ASZ +++ b/TRDOS/TR_MSD_3.ASZ @@ -34,7 +34,7 @@ INIT_RMD: RAMD_FAT_PROG: CALL AUTO_1D97 ; CLS CALL OPEN_CH2 - LD HL,SYS_PAGE.RAMD_FAT + LD HL,SYS_PAGE.RAM_TABLE RAMD_F_L1: DI IN A,(SLOT3) diff --git a/TRDOS/TR_MSD_S.ASZ b/TRDOS/TR_MSD_S.ASZ index 5901d72..f746db5 100644 --- a/TRDOS/TR_MSD_S.ASZ +++ b/TRDOS/TR_MSD_S.ASZ @@ -190,7 +190,7 @@ MSD_R_W_LOOP: LD A,SYS_PAGE OUT (SLOT2),A LD A,(ZX_VARS.MED_START) - LD HL,SYS_PAGE.RAMD_FAT-#4000 + LD HL,SYS_PAGE.RAM_TABLE-#4000 LD L,A LD L,(HL) LD A,C diff --git a/ZX_EXP/EXP_FN2.ASM b/ZX_EXP/EXP_FN2.ASM index 601d219..75178f0 100644 --- a/ZX_EXP/EXP_FN2.ASM +++ b/ZX_EXP/EXP_FN2.ASM @@ -715,7 +715,7 @@ INIT_SYS_ALL: LD DE,CNF_0 LD (CONFIG_DE-4000h),DE - LD HL,TASK_DATA-4000h ; убить все задачи ;SYS_PAGE.CURRENT_TASK + LD HL,TASK_DATA-4000h ; убить все задачи ;SYS_PAGE.CURRENT_TASK.ID LD DE,TASK_DATA+1-4000h LD BC,0FFH LD (HL),0 diff --git a/ZX_EXP/EXP_HDD.ASM b/ZX_EXP/EXP_HDD.ASM index f7903e6..04b1b9d 100644 --- a/ZX_EXP/EXP_HDD.ASM +++ b/ZX_EXP/EXP_HDD.ASM @@ -215,7 +215,7 @@ HD_RD_CONT2: LD A,SYS_PAGE OUT (SLOT3),A EX AF,AF' - LD HL,SYS_PAGE.RAMD_FAT + LD HL,SYS_PAGE.RAM_TABLE LD L,A LD A,(HL) OUT (SLOT3),A @@ -315,7 +315,7 @@ HD_WR_LOOP: LD A,SYS_PAGE OUT (SLOT3),A EX AF,AF' - LD HL,SYS_PAGE.RAMD_FAT + LD HL,SYS_PAGE.RAM_TABLE LD L,A LD A,(HL) OUT (SLOT3),A