mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 01:11:48 +03:00
554 lines
11 KiB
NASM
554 lines
11 KiB
NASM
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||
; FAT 12-16
|
||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||
|
||
;[BEGIN]
|
||
;//MODULE: FAT_X
|
||
;//CREATE: 19-05-1998 AUTHOR: Denis Parinov
|
||
;//UPDATE: 24-10-1999 DNS Restore module
|
||
;---------------------------------------------------------------
|
||
;Rev Date Name Description
|
||
;---------------------------------------------------------------
|
||
;RX01 10-02-1999 DNS UPGRADE FAT CASH
|
||
;---------------------------------------------------------------
|
||
|
||
; “áâ ®¢¨âì ç «ìë© ª« áâ¥à ¤«ï ç⥨ï
|
||
R_CLUST LD HL,#0001
|
||
LD (G_CLUST.num),HL
|
||
RET
|
||
|
||
; ©â¨ ¯¥à¢ë© ᢮¡®¤ë© ª« áâ¥à
|
||
G_CLUST:
|
||
.num+1: LD HL,#0001
|
||
.loop: INC HL ; ®¬¥à ª« áâ¥à
|
||
CALL R_F_FAT ; ¯à®ç¨â âì ¨§ ª¥è FAT- ®¬¥à á«¥¤. ª« áâ¥à
|
||
CP DSS_Error.sys.DISK_FULL
|
||
SCF
|
||
RET Z ; ®è¨¡ª ?
|
||
LD A,D
|
||
OR E
|
||
JR NZ,.loop
|
||
LD (G_CLUST.num),HL
|
||
XOR A
|
||
RET
|
||
|
||
; HL - CLUSTER
|
||
INC_FAT PUSH HL
|
||
CALL G_CLUST
|
||
POP DE
|
||
RET C
|
||
;
|
||
PUSH HL
|
||
PUSH HL
|
||
EX DE,HL ; hl=®¬¥à ª« áâ¥à
|
||
.loop: CALL R_F_FAT ; ¯à®ç¨â âì ¨§ ª¥è FAT- ®¬¥à á«¥¤. ª« áâ¥à
|
||
EX DE,HL
|
||
JR NC,.loop ; ¥ ª®¥æ 楯®çª¨
|
||
EX DE,HL
|
||
POP DE ; ®¬¥à ª« áâ¥à
|
||
CALL W_T_FAT ; § ¯¨á âì ¢ ª¥è FAT- ®¬¥à ª« áâ¥à
|
||
;!FIXIT <¥â ª®âà®«ï ®è¨¡ª¨>
|
||
;
|
||
;
|
||
POP HL
|
||
LD DE,(FatBuffer.ENDCLUS) ; ®¬¥à ª« áâ¥à
|
||
CALL W_T_FAT ; § ¯¨á âì ¢ ª¥è FAT- ®¬¥à ª« áâ¥à
|
||
;!TEST ;!TODO 2/12/23 [ ] ¡ £ á ¨§¡ëâ®ç®© § ¯¨áìî WR_FAT?
|
||
CALL WR_FAT ; ¯®¤ª«. ¡ ªã ª¥è FAT ¨ § ¯¨á âì ¥£® ¤¨áª
|
||
;
|
||
AND A
|
||
RET
|
||
;RX01
|
||
|
||
;-----------------------------------------------------------
|
||
; <20>à®ç¨â âì ¨§ ª¥è FAT- ®¬¥à á«¥¤. ª« áâ¥à
|
||
; ¢å®¤: hl = ®¬¥à ª« áâ¥à
|
||
; ¢ë室: hl = ®¬¥à ª« áâ¥à
|
||
; de = ®¬¥à á«¥¤. ª« áâ¥à
|
||
; CF - ª®¥æ 楯®çª¨
|
||
;!FIXIT ¤ «¥¥ § â®çª â®, çâ® ¢ DE ¢á¥£¤ 0 - à §¤¥« ¥ ¡®«ìè¥ 2Gb
|
||
;-----------------------------------------------------------
|
||
;!FIXIT ®â¤ ñâ à §ë© CF ¯à¨ 㤠箬 § ¢¥à襨¨ ¢ § ¢¨á¨¬®á⨠®â FAT16/FAT12
|
||
R_F_FAT:
|
||
EX DE,HL
|
||
LD HL,(FAT_Max_Cluster)
|
||
AND A
|
||
SBC HL,DE
|
||
EX DE,HL
|
||
LD A,DSS_Error.sys.DISK_FULL
|
||
RET C
|
||
|
||
SET_PAGE_X FATPAGE
|
||
|
||
PUSH HL
|
||
PUSH AF
|
||
LD A,(FatBuffer.FAT_TYP)
|
||
CP "2" ; fat12
|
||
JR Z,R_F_F12
|
||
; fat16, ¯à®áâ® ç¨â âì á«¥¤. ®¬¥à
|
||
R_F_F16:
|
||
LD A,H
|
||
LD B,H
|
||
;AND #0F
|
||
AND FAT_CACHE.Size_Mask_16
|
||
LD H,A
|
||
LD A,B
|
||
; A=A/16 ; A - BLOCK FAT (1 BLOCK = 8192 BYTES)
|
||
DUP FAT_CACHE.Degree_16
|
||
RRCA
|
||
EDUP
|
||
;AND #0F
|
||
AND FAT_CACHE.Part_Mask_16
|
||
;
|
||
ADD HL,HL ; HL - FAT OFFSET (FROM CASH)
|
||
LD BC,(FatCache) ; C - BLOCK FAT IN CASH
|
||
CP C
|
||
CALL NZ,READ_FAT ; A != C - READ NEW BLOCK FAT
|
||
LD DE,FATPAGE.cache ; ç «® ª¥è FAT-
|
||
ADD HL,DE ; ï祩ªã FAT
|
||
LD E,(HL) ; ¯à®ç¨â âì ®¬¥à ª« áâ¥à
|
||
INC HL
|
||
LD D,(HL)
|
||
POP AF
|
||
OUT (SLOT3),A
|
||
;!TODO #FFF7 - ª« áâ¥à á ª®áïªç묨 ᥪâ®à ¬¨
|
||
LD HL,#FFEF ;!HARDCODE
|
||
XOR A ; DssErr.sys.NO_ERROR
|
||
SBC HL,DE ; ¯à®¢¥àª á«ã¦. ª« áâ¥àë
|
||
POP HL
|
||
RET
|
||
;
|
||
R_F_F12:
|
||
LD D,H
|
||
LD E,L
|
||
RR H
|
||
RR L ; ᤢ¨£ ¢¯à ¢® ç¥à¥§ CF
|
||
PUSH AF ; á®åà. ä« £
|
||
ADD HL,DE ; CLUSTER * 1.5
|
||
;
|
||
;!FIXIT å¥àï ª ª ï-â®
|
||
;IF COMPILE_UNUSED_CODE
|
||
LD A,H
|
||
LD B,H
|
||
AND #1F
|
||
LD H,A
|
||
LD A,B
|
||
RLCA
|
||
RLCA
|
||
RLCA
|
||
AND #07
|
||
LD BC,(FatCache) ; C - BLOCK FAT IN CASH
|
||
CP C
|
||
CALL NZ,READ_FAT ; ¯à®ç¨â âì ¢ ª¥è 16 ᥪâ®à®¢ FAT-
|
||
;ENDIF
|
||
;
|
||
LD DE,FATPAGE.cache ; ç «® ª¥è FAT-
|
||
ADD HL,DE ; ï祩ªã FAT
|
||
POP AF ; ¢®ááâ. ä« £
|
||
LD E,(HL)
|
||
INC HL
|
||
LD D,(HL)
|
||
JR C,R_F_F01
|
||
LD A,D
|
||
AND #0F
|
||
LD D,A
|
||
JP R_F_F02
|
||
;
|
||
R_F_F01:
|
||
LD A,E
|
||
AND #F0
|
||
RR D ; ¢¯à ¢® 4 ¡¨âa
|
||
RRA
|
||
RR D
|
||
RRA
|
||
RR D
|
||
RRA
|
||
RR D
|
||
RRA
|
||
LD E,A
|
||
R_F_F02:
|
||
POP AF
|
||
OUT (SLOT3),A
|
||
LD HL,#0FEF
|
||
XOR A ; ®¡ã«ï¥¬ CF ¨ ãáâ ¢«¨¢ ¥¬ ª®¤ ®è¨¡ª¨ = ã«î
|
||
SBC HL,DE ; ¯à®¢¥àª á«ã¦. ª« áâ¥àë
|
||
POP HL
|
||
RET
|
||
|
||
;-----------------------------------------------------------
|
||
; ‡ ¯¨á âì ¢ ª¥è FAT- ®¬¥à ª« áâ¥à
|
||
; ¢å®¤: de = ®¬¥à ª« áâ¥à
|
||
; hl = ? ®¬¥à ¯¥à¢®£® ª« áâ¥à
|
||
; ¢ë室: hl = ? ®¬¥à á«¥¤. ª« áâ¥à
|
||
; de = ®¬¥à ª« áâ¥à
|
||
; in: HL - CLUSTER
|
||
; out: DE - (CLUSTER)
|
||
;-----------------------------------------------------------
|
||
W_T_FAT:
|
||
PUSH DE
|
||
EX DE,HL
|
||
LD HL,(FAT_Max_Cluster)
|
||
AND A
|
||
SBC HL,DE
|
||
EX DE,HL
|
||
POP DE
|
||
LD A,DSS_Error.sys.DISK_FULL
|
||
RET C
|
||
EXX
|
||
SET_PAGE_X FATPAGE
|
||
EXX
|
||
PUSH HL
|
||
PUSH AF
|
||
; [x] 2/12/23 FAT ¥ ¢á¥£¤ ¬®£ § ¯¨á âìáï HDD
|
||
;LD A,1
|
||
;LD (FatCache.Update),A
|
||
;
|
||
LD A,(FatBuffer.FAT_TYP)
|
||
CP "2" ; fat12
|
||
JR Z,W_T_F12
|
||
W_T_F16:
|
||
PUSH DE
|
||
LD A,H
|
||
LD B,H
|
||
;AND #0F
|
||
AND FAT_CACHE.Size_Mask_16
|
||
LD H,A
|
||
LD A,B
|
||
; A=A/16 ; A - BLOCK FAT (1 BLOCK = 8192 BYTES)
|
||
DUP FAT_CACHE.Degree_16
|
||
RRCA
|
||
EDUP
|
||
;AND #0F
|
||
AND FAT_CACHE.Part_Mask_16
|
||
;
|
||
ADD HL,HL ; HL - FAT OFFSET (FROM CASH) ;!HARDCODE fat16 - à §¬¥à § ¯¨á¨ FAT
|
||
LD BC,(FatCache) ; C - BLOCK FAT IN CASH
|
||
CP C
|
||
CALL NZ,READ_FAT ; A != C - READ NEW BLOCK FAT
|
||
LD DE,FATPAGE.cache
|
||
ADD HL,DE ; ï祩ªã FAT
|
||
POP DE
|
||
LD (HL),E ; á®åà. ¢ ª¥è¥ FAT-
|
||
INC HL ; ®¬¥à ª« áâ¥à
|
||
LD (HL),D
|
||
POP AF ; ¢®ááâ. ¯®àâ
|
||
POP HL
|
||
OUT (SLOT3),A
|
||
; [x] 2/12/23 FAT ¥ ¢á¥£¤ ¬®£ § ¯¨á âìáï HDD
|
||
LD A,1
|
||
LD (FatCache.Update),A
|
||
;
|
||
XOR A
|
||
RET
|
||
;
|
||
; fat12
|
||
W_T_F12: ;!FIXIT ¯¥à¥¤¥« âì ¯¥à¥¬¥ë¥ FAT_CACHE
|
||
PUSH DE
|
||
LD D,H
|
||
LD E,L
|
||
; ADD HL,HL
|
||
; ADD HL,DE
|
||
; RR H
|
||
; RR L ;CLUSTER * 1.5
|
||
; PUSH AF
|
||
RR H
|
||
RR L ; ᤢ¨£ ¢¯à ¢® ç¥à¥§ CF
|
||
PUSH AF ; á®åà. ä« £
|
||
ADD HL,DE ; CLUSTER * 1.5
|
||
;
|
||
;!FIXIT å¥àï ª ª ï-â®
|
||
;IF COMPILE_UNUSED_CODE
|
||
LD A,H
|
||
LD B,H
|
||
AND #1F
|
||
LD H,A
|
||
LD A,B
|
||
RLCA
|
||
RLCA
|
||
RLCA
|
||
AND #07
|
||
LD BC,(FatCache) ; C - BLOCK FAT IN CASH
|
||
CP C
|
||
CALL NZ,READ_FAT ; ¯à®ç¨â âì ¢ ª¥è 16 ᥪâ®à®¢ FAT-
|
||
;ENDIF
|
||
;
|
||
LD DE,FATPAGE.cache
|
||
ADD HL,DE
|
||
POP AF
|
||
POP DE
|
||
JP C,W_T_F01 ; ®¬¥à ¥çñâë©
|
||
LD (HL),E
|
||
INC HL
|
||
LD A,(HL)
|
||
AND #F0
|
||
OR D
|
||
LD (HL),A
|
||
POP AF
|
||
POP HL
|
||
OUT (SLOT3),A
|
||
; [x] 2/12/23 FAT ¥ ¢á¥£¤ ¬®£ § ¯¨á âìáï HDD
|
||
LD A,1
|
||
LD (FatCache.Update),A
|
||
;
|
||
AND A
|
||
RET
|
||
;
|
||
W_T_F01:; ¢«¥¢® 4 ¡¨âa
|
||
SLA E
|
||
LD A,E
|
||
RL D
|
||
RLA
|
||
RL D
|
||
RLA
|
||
RL D
|
||
RLA
|
||
RL D
|
||
LD E,A
|
||
;
|
||
LD A,(HL)
|
||
AND #0F
|
||
OR E
|
||
LD (HL),A ; á®åà. ¢ ª¥è¥ FAT-
|
||
INC HL ; ®¬¥à ª« áâ¥à
|
||
LD (HL),D
|
||
POP AF
|
||
POP HL
|
||
OUT (SLOT3),A
|
||
AND A
|
||
RET
|
||
|
||
;RX01
|
||
;RE_FAT:
|
||
; <20>à®ç¨â âì ¢ ª¥è 16 ᥪâ®à®¢ FAT-
|
||
; A - NEW FAT BLOCK
|
||
READ_FAT:
|
||
PUSH HL
|
||
PUSH AF
|
||
LD A,(FatCache.Update)
|
||
OR A
|
||
CALL NZ,WR_FAT.Start
|
||
POP AF
|
||
LD L,A
|
||
LD H,0
|
||
LD (FatCache),HL
|
||
;FAT BLOCK ^ FAT_CACHE.Degree = SECTOR OF FAT
|
||
DUP FAT_CACHE.Degree_16
|
||
ADD HL,HL ;x2
|
||
EDUP
|
||
LD DE,(FatBuffer.FAT_FRM)
|
||
ADD HL,DE
|
||
EX DE,HL
|
||
;
|
||
LD XH,D
|
||
LD XL,E
|
||
;LD IX,0
|
||
;ADD IX,DE ; ®¬¥à «®£. ᥪâ®à
|
||
;
|
||
LD HL,0 ; áâ. à §àï¤ ; HL:IX - SECTOR FAT FOR READING
|
||
LD DE,FATPAGE.cache ; ªã¤ ; DE - FAT ADDRESS
|
||
LD A,(FatBuffer.DRIVE) ; ®¬¥à ¤¨áª
|
||
LD BC,FAT_CACHE.Sectors*256 + Dss.DRV.Read ;ॣ B * FAT_CACHE.Sector_Size = CASH SIZE
|
||
RST ToDSS.DRV
|
||
POP HL
|
||
RET
|
||
|
||
; <20>®¤ª«îç¨âì ¡ ªã ª¥è FAT ¨ § ¯¨á âì ¥£® ¤¨áª
|
||
WR_FAT: SET_PAGE_X FATPAGE
|
||
PUSH AF
|
||
CALL .Start ;!TODO ¥â ª®âà®«ï ®è¨¡®ª
|
||
POP AF
|
||
OUT (SLOT3),A
|
||
RET
|
||
; ‡ ¯¨áì ª¥è (¢á¥£®?) FAT- ¤¨áª
|
||
.Start: LD HL,(FatCache)
|
||
LD H,0
|
||
;FAT BLOCK * 16 = SECTOR OF FAT
|
||
DUP FAT_CACHE.Degree_16
|
||
ADD HL,HL ;x2
|
||
EDUP
|
||
; HL - ®¬¥à «®£. ᥪâ®à
|
||
PUSH HL
|
||
LD B,H
|
||
LD C,L ;BC - BLOCK OF FAT
|
||
LD DE,FAT_CACHE.Sectors
|
||
ADD HL,DE ;+ SIZE CASH (16 SECTORS)
|
||
LD A,E ;!HARDCODE ; MAX ç¨á«® ᥪâ®à®¢ ¤«ï çâ¥¨ï ¢ ªíè
|
||
LD DE,(CORE_BUFFERS.BootSector.S_P_F) ; ᥪâ®à®¢ FAT
|
||
AND A
|
||
SBC HL,DE
|
||
JR C,.WALLFAT
|
||
EX DE,HL
|
||
LD HL,FAT_CACHE.Sectors
|
||
; CF = 0
|
||
SBC HL,DE
|
||
JP C,.ERR
|
||
LD A,L
|
||
.WALLFAT:; !TODO çñ¡ áà §ã ¢ IX ¥ £à㧨âì FAT_FRM?
|
||
LD H,B
|
||
LD L,C
|
||
LD DE,(FatBuffer.FAT_FRM)
|
||
ADD HL,DE
|
||
EX DE,HL
|
||
;
|
||
LD XH,D
|
||
LD XL,E
|
||
;LD IX,0
|
||
;ADD IX,DE ; ®¬¥à «®£. ᥪâ®à
|
||
;
|
||
LD HL,0 ; áâ. à §àï¤
|
||
;HL:IX - SECTOR OF FAT FOR SAVE
|
||
LD DE,FATPAGE.cache ; ®âªã¤
|
||
LD B,A ; ç¨á«® ᥪâ®à®¢
|
||
LD C,Dss.DRV.Write ; § ¯¨áì ᥪâ®à®¢
|
||
LD A,(FatBuffer.DRIVE) ; ®¬¥à ¤¨áª
|
||
PUSH BC
|
||
RST ToDSS.DRV
|
||
POP BC ; b=ç¨á«® ᥪâ®à®¢
|
||
POP HL
|
||
LD DE,(FatBuffer.FAT2_XX)
|
||
ADD HL,DE
|
||
EX DE,HL
|
||
;
|
||
LD XH,D
|
||
LD XL,E
|
||
;LD IX,0
|
||
;ADD IX,DE ; ®¬¥à «®£. ᥪâ®à
|
||
;
|
||
LD DE,FATPAGE.cache
|
||
LD HL,0
|
||
LD A,(FatBuffer.DRIVE)
|
||
LD C,Dss.DRV.Write
|
||
RST ToDSS.DRV
|
||
AND A ;!TODO ¥â ª®âà®«ï ®è¨¡®ª
|
||
;
|
||
.ERR: LD A,0
|
||
LD (FatCache.Update),A
|
||
RET NC
|
||
POP HL
|
||
; CF = 1
|
||
RET
|
||
|
||
|
||
|
||
FatCache: WORD #0000
|
||
.Block EQU FatCache
|
||
.Update EQU FatCache+1
|
||
FAT_Max_Cluster: WORD #0FF0 ; ¬ ªá. ç¨á«® ª« áâ¥à®¢ FAT12 (¡¥§ á«ã¦.)
|
||
|
||
;//MODULE: FAT_X
|
||
;[END]
|
||
|
||
|
||
;RX01
|
||
;; HL - CLUSTER
|
||
;; DE - (CLUSTER)
|
||
;
|
||
;R_F_FAT EX DE,HL
|
||
; LD HL,(FAT_Max_Cluster)
|
||
; AND A
|
||
; SBC HL,DE
|
||
; EX DE,HL
|
||
; LD A,10
|
||
; RET C
|
||
; PUSH HL
|
||
; LD A,(FAT_TYP)
|
||
; CP "2"
|
||
; JP Z,R_F_F12
|
||
;R_F_F16 LD DE,768 ; DE - CLUSTERS IN CASH
|
||
; XOR A
|
||
;R_F_00H INC A ; HL - CLUSTER
|
||
; SBC HL,DE
|
||
; JP NC,R_F_00H
|
||
; ADD HL,DE
|
||
; ADD HL,HL ; HL - FAT OFFSET (FROM CASH)
|
||
; DEC A
|
||
; LD BC,(FatCache) ; A - ELEMENT OF CASH
|
||
; CP C
|
||
; CALL NZ,READ_FAT
|
||
; LD DE,FAT
|
||
; ADD HL,DE
|
||
; LD E,(HL)
|
||
; INC HL
|
||
; LD D,(HL)
|
||
; LD HL,#FFEF
|
||
; AND A
|
||
; SBC HL,DE
|
||
; POP HL
|
||
; LD A,0
|
||
; RET
|
||
;
|
||
;R_F_F12 LD D,H
|
||
; LD E,L
|
||
; ADD HL,HL
|
||
; ADD HL,DE
|
||
; RR H
|
||
; RR L
|
||
; PUSH AF
|
||
; EX DE,HL
|
||
; LD HL,(B_P_S)
|
||
; LD B,H
|
||
; LD C,L
|
||
; ADD HL,HL
|
||
; ADD HL,BC
|
||
; EX DE,HL
|
||
; XOR A ; DE - SIZE SECTOR * 3
|
||
;R_F_00 INC A ; HL - FAT OFFSET
|
||
; SBC HL,DE
|
||
; JP NC,R_F_00
|
||
; ADD HL,DE
|
||
; DEC A
|
||
;
|
||
;
|
||
|
||
;WR_FAT LD HL,(FatCache)
|
||
; LD H,0
|
||
; LD (FatCache),HL
|
||
; LD E,L
|
||
; LD D,H
|
||
; ADD HL,HL
|
||
; ADD HL,DE
|
||
; PUSH HL
|
||
; LD B,H
|
||
; LD C,L
|
||
; INC HL
|
||
; INC HL
|
||
; INC HL
|
||
; LD DE,(S_P_F)
|
||
; LD A,3
|
||
; AND A
|
||
; SBC HL,DE
|
||
; JP C,WR_FAT1
|
||
; EX DE,HL
|
||
; LD HL,3
|
||
; AND A
|
||
; SBC HL,DE
|
||
; JP C,FATERR
|
||
; LD A,L
|
||
;WR_FAT1 LD H,B
|
||
; LD L,C
|
||
; LD DE,(FAT_FRM)
|
||
; ADD HL,DE
|
||
; EX DE,HL
|
||
; LD IX,0
|
||
; ADD IX,DE
|
||
; LD DE,FAT
|
||
; LD HL,0
|
||
; LD B,A
|
||
; LD C,6
|
||
; LD A,(DRIVE)
|
||
; PUSH BC
|
||
; RST #18
|
||
; POP BC
|
||
; POP HL
|
||
; LD DE,(FAT2_XX)
|
||
; ADD HL,DE
|
||
; EX DE,HL
|
||
; LD IX,0
|
||
; ADD IX,DE
|
||
; LD DE,FAT
|
||
; LD HL,0
|
||
; LD A,(DRIVE)
|
||
; LD C,6
|
||
; RST #18
|
||
; RET
|
||
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |