FDD_5x_GET_PAR - теперь отдаёт тип установденного привода.

This commit is contained in:
Tolik 2026-01-27 22:30:10 +10:00
parent 2a4e06db96
commit 684c3228ee
2 changed files with 14 additions and 5 deletions

@ -1 +1 @@
Subproject commit 5a2e8b02b384c515510798a2b94537211dfaa310 Subproject commit a26f6ad2cf2eab977cab8baa0c83b0c2a91a5e53

View File

@ -24,7 +24,8 @@
; DE - Cylinders ; DE - Cylinders
; IX - Capacity sector in bytes ; IX - Capacity sector in bytes
; B - Flags ; B - Flags
; D7 - "1" - High Density, "0" - Double Density ; D7 - "1": High Density, "0": Double Density
; D1-2 - FDD type %01 - 3.5"; %10 - 5.25";
; D0 - FDD drv number ; D0 - FDD drv number
; A - D0 - "1" - Removable media ; A - D0 - "1" - Removable media
;[]===========================================================[] ;[]===========================================================[]
@ -46,6 +47,10 @@ FDD_5x_GET_PAR: CALL SELECT_FDD
LD E,(IY + FDD_TABLE_s.CYLINDL) LD E,(IY + FDD_TABLE_s.CYLINDL)
LD D,(IY + FDD_TABLE_s.CYLINDH) LD D,(IY + FDD_TABLE_s.CYLINDH)
LD B,(IY + FDD_TABLE_s.DISK) LD B,(IY + FDD_TABLE_s.DISK)
LD A,(IY + FDD_TABLE_s.ID)
SLA A
OR B
LD B,A
EX AF,AF' EX AF,AF'
OUT (SLOT3),A OUT (SLOT3),A
XOR A XOR A
@ -78,7 +83,11 @@ FDD_5x_SET_PAR: CALL SELECT_FDD
POP DE POP DE
LD (IY + FDD_TABLE_s.BytesPerSector),E LD (IY + FDD_TABLE_s.BytesPerSector),E
LD (IY + FDD_TABLE_s.BytesPerSector + 1),D LD (IY + FDD_TABLE_s.BytesPerSector + 1),D
LD (IY + FDD_TABLE_s.DISK),B LD A,B
AND %1000'0000
RES 7,(IY + FDD_TABLE_s.DISK)
OR (IY + FDD_TABLE_s.DISK)
LD (IY + FDD_TABLE_s.DISK),A
EX AF,AF' EX AF,AF'
OUT (SLOT3),A OUT (SLOT3),A
AND A AND A