diff --git a/DSS/API/MkDir.asm b/DSS/API/MkDir.asm index bd3c466..6bf4046 100644 --- a/DSS/API/MkDir.asm +++ b/DSS/API/MkDir.asm @@ -168,18 +168,6 @@ MKDIR: PUSH HL ; ст. разряд PUSH IX ; номер лог. сектора ; - ; IN A,(SLOT3) - ; PUSH AF - ; IN A,(SLOT0) - ; OUT (SLOT3),A - ; ; - ; LD A,(CORE_BUFFERS.FS_Buffer.DRIVE) - ; LD DE,CORE_BUFFERS.SECTOR_BUFFER+#C000 - ; LD BC,1*256 + Dss.DRV.Write - ; RST ToDSS.DRV - ; ; - ; POP AF - ; OUT (SLOT3),A CALL WRITE_SECTOR ; !FIXIT нет проверки на ошибку ; diff --git a/DSS/DOS_Proc.asm b/DSS/DOS_Proc.asm index 21dc66b..1bc60db 100644 --- a/DSS/DOS_Proc.asm +++ b/DSS/DOS_Proc.asm @@ -183,9 +183,9 @@ TMPNAME: DZ ' ' ; 12 ;----------------------------------------------------------------------; ; IN: A - drive number OPENDSK: ;!TEST DRV.Open обход R10 - LD C,A + LD B,A LD A,(CORE_BUFFERS.FS_Buffer.DRIVE) - CP C + CP B JR NZ,.open PUSH BC LD C,Dss.DRV.MediaCheck @@ -194,7 +194,7 @@ OPENDSK: ;!TEST DRV.Open JR Z,.exit JR .skip_open ;!FIXIT когда DRV.MediaCheck и DRV.Open будут отличаться ; -.open: LD A,C +.open: LD A,B ; .force: PUSH AF LD C,Dss.DRV.Open diff --git a/DSS/DSS-MAIN.ASM b/DSS/DSS-MAIN.ASM index af5b6c7..a3057e0 100644 --- a/DSS/DSS-MAIN.ASM +++ b/DSS/DSS-MAIN.ASM @@ -607,8 +607,8 @@ F_START: DI ;LD A,H ;LD A,0 ; - LD B,1 - CALL BOOTDSK + ;LD B,1 + CALL BOOTDSK.SET RET C ; EI