This commit is contained in:
Tolik 2026-04-25 03:46:08 +10:00
parent b38d6ccd48
commit 6e8b58f01c
5 changed files with 26 additions and 24 deletions

View File

@ -187,6 +187,16 @@ GET_LOGDRV_ENTRY:
;-------------------------------------------------
;-------------------------------------------------
CONVERT_SECTOR_SIZE:
LD A,XH
LD E,XL
RL E
RLA
RET
;-------------------------------------------------
;-------------------------------------------------
; RST 18h. ‚¥ªâ®à ¤¨áª®¢ëå ãáâனáâ¢
; ¢å®¤: a=­®¬¥à ãáâனá⢠ (0-25)

View File

@ -503,10 +503,7 @@ GetParams: ;EX DE,HL
EXX
;[ ] 04/01/2025 ¢®§¢à é¥­¨¥ à §¬¥à  ᥪâ®à 
EX AF,AF'
LD A,XH
LD E,XL
RL E
RLA
CALL CONVERT_SECTOR_SIZE
;
; SECTORS ON LOGICAL DISK
LD E,(IY+DRIVES_DRIVER.LOGDRV.SIZE_IN_SECTORS+0)

View File

@ -394,6 +394,10 @@ GenIOCTL: BIT 7,B
EX DE,HL
; H=0
LD C,H ;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
EXX
CALL CONVERT_SECTOR_SIZE
EXX
LD B,A ;[ ] 25/04/2026 ¢®§¢à é¥­¨¥ à §¬¥à  ᥪâ®à 
EXX
POP DE
POP HL

View File

@ -461,40 +461,31 @@ GenIOCTL: BIT 7,B
; D5 - "1" RESERVED
; D6 - ADDRESSING MODE LBA/CHS
; D7 - "1" RESERVED
.RGETPRM: ;EX DE,HL
;LD BC,Dss.DRV.GenIOCTL.Enter
;AND A
;SBC HL,BC
LD L,A
;LD A,BIOS.Error.Failure
;SCF
;RET NZ
;
.RGETPRM: LD L,A
EX AF,AF'
LD A,L
CALL GET_RAMDRV_NUM
PUSH AF
PUSH AF
EX AF,AF'
POP AF
LD C,BIOS.DRV_GET_PAR
RST ToBIOS
PUSH HL ;ç¨á«® £®«®¢®ª, ç¨á«® ᥪâ®à®¢ (­  楫¨­¤à)
PUSH DE ;ª®«¨ç¥á⢮ 樫¨­¤à®¢
EXX
CALL CONVERT_SECTOR_SIZE
POP HL ;ª®«¨ç¥á⢮ 樫¨­¤à®¢
POP BC ;ç¨á«® ᥪâ®à®¢ (­  楫¨­¤à)
LD D,0
LD E,B ;ç¨á«® £®«®¢®ª
LD B,D
EXX
LD B,A
LD A,L
RRA
JR C,.end
;
.loopShift: SLA E
RL D
RRA

@ -1 +1 @@
Subproject commit e1233b24a06f9be0c80349b47ab34cfceacc2486
Subproject commit e1dc7ec10dc9c7e9153a05884e42973a57378a63