Tolik-Trek/FFORMAT
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/FFORMAT.git synced 2026-06-15 01:11:44 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Форматирование 1.2Mb 5.25 дискет

Browse Source
This commit is contained in:
Tolik 2026-01-19 03:44:35 +10:00
parent 907d535faf
commit 9f3a12a1c6
8 changed files with 84 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
DIALOG.ASM
View File

@ -407,12 +407,12 @@ DialCyc: LD A,(HL) ;Next get includes objects
CP ListBox
JP Z,PListBox ;Put List box
CP Button
JP Z,PButton ; ¢áâ ¢¨âì ¡ãâ®­
JP Z,PButton ; ¢áâ ¢¨âì ª­®¯ªã
CP Frame
JP Z,PFrame
;
POP DE
DialExt: LD (IY+0),80h ;+5 End dialog table
DialExt: LD (IY+0),80h ;+5 End dialog table
POP AF
OUT (SLOT3),A
CALL PutDial ;Put dialog window
@ -423,7 +423,7 @@ SelLast: LD HL,DialTab+5
LD B,0
LD C,(HL)
LD A,C
LDIR ; § ¯®«­. ¡ãä¥à  DialTab+5
LDIR ; § ¯®«­. ¡ãä¥à  DialTab+5
LD C,A
DEC HL
LD E,L

2
FMAIN.ASM
View File

@ -137,7 +137,7 @@ Title: db " Floppy disk formatting utility. Version "
db major_version + "0","."
db (minor_version / 10) + "0",(minor_version % 10) + "0"
;db " (c) 2005-2025 "
db " (c) 2005-2025 Sprinter Team "
db " (c) 2005-2026 Sprinter Team "
;
;ds 562 ; 565 + start2 = 672 (_2 -_1)
;[]==============================================================[]

24
FORMAT.ASM
View File

@ -11,7 +11,8 @@ L4000 equ 0xC000 ;
; ”®à¬ â¨«ª 
FFORMAT:ld a,2 ; ç¨á«® ¯®¯ë⮪ ¨­¨æ. ‚ƒ93 ¯®á«¥ £«îª®¢
FFORMAT:
ld a,2 ; ç¨á«® ¯®¯ë⮪ ¨­¨æ. ‚ƒ93 ¯®á«¥ £«îª®¢
ld (try_init),a
FFORM1: call ClearMap ; ®ç¨áâ¨âì ª àâã
call Fresh ; ®¡­®¢¨âì ª®­áâ ­âë ®ª­  ä®à¬-­¨ï
@ -360,7 +361,7 @@ SysWR: ld a,(density)
_msdos: ld a,(MS_Boot.media5) ; ç¨á«® ᥪâ®à®¢ ­  FAT
ld e,a
ld hl,0
ld bc,512
ld bc,512 ; !HARDCODE
.loc0: add hl,bc
dec a
jr nz,.loc0
@ -995,9 +996,9 @@ L0B21: in a,(SLOT3)
call FILL ; c -> (hl), dec b
ld bc,0C00h ; 12 ᨭåà®-¡ ©â
call FILL
ld bc,03F6h ; 3 ¡ ©â  F6 |
call FILL ; | IAM
ld (hl),0FCh ; 1 ¡ ©â FC |
ld bc,03F6h ; 3 ¡ ©â  F6 (C2) |
call FILL ; | IAM
ld (hl),0FCh ; 1 ¡ ©â FC |
inc hl
; ­ ç «® ᥪâ®à  (+96 ¯¥à¢®£® ᥪâ®à  ®â ­ ç. ¤®à®¦ª¨)
L0B3E: ; GAP1, 50 ¡ ©â
@ -1008,7 +1009,7 @@ GAP: ld b,GAP1 ; GAP1/GAP3
ld bc,0C00h ; 12 ᨭåà®-¡ ©â®¢
call FILL
;
ld bc,03F5h ; 3 ¡ ©â  F5 ¬ àª¥à  |
ld bc,03F5h ; 3 ¡ ©â  F5 ¬ àª¥à  (A1) |
call FILL ; | IDAM
ld (hl),0FEh ; ¨ FE, ¥£® ¨¤¥­â¨ä¨ª â®à |
inc hl
@ -1024,7 +1025,7 @@ SecCode:ld (hl),2 ;
ld bc,0C00h ; 12 ᨭåà®-¡ ©â®¢
call FILL
; DATA AM
ld bc,03F5h ; 3 ¡ ©â  ¬ àª¥à 
ld bc,03F5h ; 3 ¡ ©â  F5 ¬ àª¥à  (A1)
call FILL
ld (hl),0FBh ; ¨ ¥£® ¨¤¥­â¨ä¨ª â®à
inc hl
@ -1065,6 +1066,7 @@ FILL: ld (hl),c
ret
;!FIXIT ¢®â ­ å¥à  á⥪®¬?
; ‡ ¯®«­¥­¨¥ ¡ãä¥à  áâàãªâãàë ¤®à®¦ª¨ ª®¤®¬ 0x4E
CLEAR: ld (L0ACD),sp
ld sp,0 ; § ¯®«­¥­¨¥ á 0xFFFF
@ -1135,7 +1137,7 @@ FSETUP: ld a,(_OS)
.sectorsPerCluster+1:
ld a,1 ; ᥪâ®à®¢ ­  ª« áâ¥à
ld (MS_Boot.media1),a
frm4: ld a,0xF0 ; ¡ ©â ä®à¬ â 
frm4: ld a,BOOT_SECTOR.Floppy_3x5_1x44 ; ¡ ©â ä®à¬ â 
ld (MS_Boot.media4),a
frm5: ld hl,16896 ; à §¬¥à FAT-®¢ + Root dir
ld (loc07+1),hl
@ -1496,11 +1498,11 @@ CalcTime:
; ¤«ï 720kB á¬. ¬¥âªã '#' |
;-------------------------------------------------+
MS_Boot:
.pc_code: db 0xEB,0xFE,0x00 ; 3 ¡ ©â , ª®¤ ¯¥à¥å®¤  ­  § £àã§ç¨ª
.pc_code: db 0xEB,0xFE,0x00 ; 0-2. 3 ¡ ©â , ª®¤ ¯¥à¥å®¤  ­  § £àã§ç¨ª
; 8 ¡ ©â, OEM ID
db "DSS "
.dss_major_ver: db "1."
.dss_minor_ver: db "71"
.dss_minor_ver: db "71" ;3-10
;BPB, 17 ¡ ©â
.BPB: dw 512 ; ¡ ©â ­  ᥪâ®à
.media1: db 1 ; # 2, ᥪâ®à®¢ ­  ª« áâ¥à
@ -1508,7 +1510,7 @@ MS_Boot:
.fat_num: db 2 ; ç¨á«® FAT-®¢
.media2: dw 224 ; # 112, § ¯¨á¥© ¢ ª®à­¥
.media3: dw 2880 ; # 1440, ¢á¥å ᥪâ®à®¢ ­  ¤¨áª¥
.media4: db 0xF0 ; # 0xF9, ¡ ©â ä®à¬ â 
.media4: db BOOT_SECTOR.Floppy_3x5_1x44 ; # 0xF9, ¡ ©â ä®à¬ â 
.media5: dw 9 ; # 3, ᥪâ®à®¢ ­  FAT
.media6: dw 18 ; # 9, ᥪâ®à®¢ ­  áâ®à®­ã
dw 2 ; ª®«-¢® áâ®à®­ ¤¨áª 

24
LISTBOX.ASM
View File

@ -1178,18 +1178,18 @@ ItemList:
db " 1.44 Mb 80 18 DS/HD",0Dh ; 0
db " 1.52 Mb 80 19 DS/HD",0Dh ; 1
db " 1.60 Mb 80 20 DS/HD",0Dh ; 2
db " 1.64 Mb 82 20 DS/HD",0Dh ;
db " 1.66 Mb 83 20 DS/HD",0Dh ;
db " 1.68 Mb 80 21 DS/HD",0Dh ;
db " 1.72 Mb 82 21 DS/HD",0Dh ;
db " 1.74 Mb 83 21 DS/HD",0Dh ;
db " 720 kB 80 09 DS/DD",0Dh ;
db " 800 kB 80 10 DS/DD",0Dh ;
db " 820 kB 82 10 DS/DD",0Dh ;
db " 830 kB 83 10 DS/DD",0Dh ;
db " 636 kB - 80 - 16 TR-DOS",0Dh ;
db " 800 kB - 80 - 05 CPM-80",0Dh ;
db " 1.2 Mb 80 15 DS/HD",0Dh ;
db " 1.64 Mb 82 20 DS/HD",0Dh ; 3
db " 1.66 Mb 83 20 DS/HD",0Dh ; 4
db " 1.68 Mb 80 21 DS/HD",0Dh ; 5
db " 1.72 Mb 82 21 DS/HD",0Dh ; 6
db " 1.74 Mb 83 21 DS/HD",0Dh ; 7
db " 1.2 Mb 80 15 DS/HD",0Dh ; 8
db " 720 kB 80 09 DS/DD",0Dh ; 9
db " 800 kB 80 10 DS/DD",0Dh ; 10
db " 820 kB 82 10 DS/DD",0Dh ; 11
db " 830 kB 83 10 DS/DD",0Dh ; 12
db " 636 kB - 80 - 16 TR-DOS",0Dh ; 13
db " 800 kB - 80 - 05 CPM-80",0Dh ; 14
db 0

98
MAP.ASM
View File

@ -156,9 +156,9 @@ Setup_Map: xor a
jr z,.loc4
cp 7
jr z,.loc4
cp 10
cp 11 ;B 820 kB
jr z,.loc4
cp 11
cp 12 ;C 830 kB
jr z,.loc4
; 80 ¤®à®¦¥ª
ld a,0FFh
@ -219,7 +219,7 @@ Setup_Map: xor a
ld a,h
add a,l
ld hl,.loc52 ; " "
cp 13 ; ¯ã­ªâ CPM-80 ?
cp 14 ; ¯ã­ªâ CPM-80 ?
jr z,.loc21
; ms-dos, tr-dos
ld hl,.loc29 ; "Optimize sectors"
@ -236,21 +236,21 @@ Setup_Map: xor a
ldir
ret
;
.loc6: dw .loc7
dw .loc8
dw .loc9
dw .loc10
dw .loc11
dw .loc12
dw .loc13
dw .loc14
dw .loc15
dw .loc16
dw .loc17
dw .loc18
dw .loc50
dw .loc51
dw .loc052
.loc6: dw .loc7 ;0 1.44 Mb
dw .loc8 ;1 1.52 Mb
dw .loc9 ;2 1.60 Mb
dw .loc10 ;3 1.64 Mb
dw .loc11 ;4 1.66 Mb
dw .loc12 ;5 1.68 Mb
dw .loc13 ;6 1.72 Mb
dw .loc14 ;7 1.74 Mb
dw .loc052 ;8 1.2 Mb
dw .loc15 ;9 720 kB
dw .loc16 ;A 800 kB
dw .loc17 ;B 820 kB
dw .loc18 ;C 830 kB
dw .loc50 ;D TR-DOS
dw .loc51 ;E CP/M-80
;
.loc7: db "1.44 Mb"
.loc8: db "1.52 Mb"
@ -260,13 +260,13 @@ Setup_Map: xor a
.loc12: db "1.68 Mb"
.loc13: db "1.72 Mb"
.loc14: db "1.74 Mb"
.loc052: db " 1.2 Mb"
.loc15: db "720 kB "
.loc16: db "800 kB "
.loc17: db "820 kB "
.loc18: db "830 kB "
.loc50: db "TR-DOS "
.loc51: db "CP/M-80"
.loc052: db " 1.2 Mb"
;
.loc19: db "(Standart mode) "
.loc29: db "(Optimize sectors)"
@ -307,21 +307,21 @@ Space: push af
pop af
ret
.loc1: dw .loc2
dw .loc3
dw .loc4
dw .loc5
dw .loc6
dw .loc7
dw .loc8
dw .loc9
dw .loc10
dw .loc11
dw .loc12
dw .loc13
dw .loc15
dw .loc16
dw .loc17
.loc1: dw .loc2 ; 1.44Mb
dw .loc3 ; 1.52Mb
dw .loc4 ; 1.60Mb
dw .loc5 ; 1.64Mb
dw .loc6 ; 1.66Mb
dw .loc7 ; 1.68Mb
dw .loc8 ; 1.72Mb
dw .loc9 ; 1.74Mb
dw .loc17 ; 1.2Mb 5.25
dw .loc10 ; 720kB
dw .loc11 ; 800kB
dw .loc12 ; 820kB
dw .loc13 ; 830kB
dw .loc15 ; TR-DOS 16 ᥪâ. ¯® 256 ¡ ©â
dw .loc16 ; CP/M-80 5 ᥪâ. ¯® 1024 ¡ ©â
;
.loc2: db "1457664" ; 1.44Mb
.loc3: db "1539584" ; 1.52Mb
@ -332,12 +332,12 @@ Space: push af
.loc8: db "1745408" ; 1.72Mb
.loc9: db "1765888" ; 1.74Mb
.loc10: db " 730112" ; 720kB
.loc17: db "1228800" ; 1.2Mb 5.25
.loc11: db " 812032" ; 800kB
.loc12: db " 832512" ; 820kB
.loc13: db " 842752" ; 830kB
.loc15: db " 651264" ; TR-DOS 16 ᥪâ. ¯® 256 ¡ ©â
.loc16: db " 819200" ; CP/M-80 5 ᥪâ. ¯® 1024 ¡ ©â
.loc17: db "1228800" ; 1.2Mb 5.25
;
.loc14: db " 0" ; á¡à®á¨âì ç¨á«® bad-ᥪâ®à®¢
@ -349,13 +349,13 @@ SetCyl: push af
jr z,.loc2
cp 6
jr z,.loc2
cp 10
cp 11 ; 820kB
jr z,.loc2
cp 4
jr z,.loc3
cp 7
jr z,.loc3
cp 11
cp 12 ; 830kB
jr z,.loc3
ld a,80-1 ; 80 ¤®à®¦¥ª
.loc1: ld (TRACKS+1),a
@ -387,6 +387,8 @@ SetMedia:
dec a
jp z,.loc8 ; 1.74Mb
dec a
jp z,.loc17 ; 1.2Mb
dec a
jp z,.loc9 ; 720kB
dec a
jp z,.loc10 ; 800kB
@ -396,9 +398,7 @@ SetMedia:
jp z,.loc14 ; 830kB
dec a
jp z,.trdos ; TR-DOS
dec a
jp z,.cpm ; 1.2Mb
jp .loc17 ; CPM-80
jp .cpm ; CPM-80
;1.44Mb
.loc1: ld hl,108 ; à §¬¥à ¬¥¦á¥ªâ. ¯à®¡¥« 
@ -419,7 +419,7 @@ SetMedia:
ld (ASect+1),hl
ld hl,9 ; ᥪâ®à®¢ ­  FAT
ld (FSect+1),hl
.loc13: ld a,0F0h ; ¡ ©â ä®à¬ â 
.loc13: ld a,BOOT_SECTOR.Floppy_3x5_1x44 ; ¡ ©â ä®à¬ â 
.l1_2: ld (frm4+1),a
ld a,1 ; ᥪâ®à®¢ ­  ª« áâ¥à
ld (FSETUP.sectorsPerCluster),a
@ -586,7 +586,7 @@ SetMedia:
ld (FSETUP.lastSector),a
ld hl,3 ; ᥪâ®à®¢ ­  FAT
ld (FSect+1),hl
ld a,0F9h ; ¡ ©â ä®à¬ â 
ld a,BOOT_SECTOR.Floppy_5x25_720 ; ¡ ©â ä®à¬ â 
ld (frm4+1),a
ld a,2 ; ᥪâ®à®¢ ­  ª« áâ¥à
ld (FSETUP.sectorsPerCluster),a
@ -662,7 +662,7 @@ SetMedia:
jp .loc12
; 5.25 1,2Mb
.loc17: ld hl,54 ; à §¬¥à ¬¥¦á¥ªâ. ¯à®¡¥« 
.loc17: ld hl,84 ;54 ; à §¬¥à ¬¥¦á¥ªâ. ¯à®¡¥« 
ld (GAP3),hl
ld hl,#0012
ld (Avail+2),hl ; 4 ¡ ©â  à §¬¥à  ä®à¬ â 
@ -672,15 +672,15 @@ SetMedia:
ld (FSETUP.sectorsAll),a
ld hl,15 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (FSETUP.sectorsSide),hl
ld a,32 ; ¯®á«. á«ã¦. ᥪâ®à
ld a,30 ; ¯®á«. á«ã¦. ᥪâ®à
ld (FSETUP.lastSector),a
ld hl,14848 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl
ld hl,2400 ; ᥪâ®à®¢ ­  ¤¨áª¥
ld (ASect+1),hl
ld hl,8 ; ᥪâ®à®¢ ­  FAT
ld hl,7 ; ᥪâ®à®¢ ­  FAT
ld (FSect+1),hl
ld a,#F9 ; ¡ ©â ä®à¬ â 
ld a,BOOT_SECTOR.Floppy_5x25_1x20 ; ¡ ©â ä®à¬ â 
jp .l1_2
@ -896,7 +896,7 @@ SetDrive:
.d1440: ld hl,(CurElem1) ; ⥪. ¯®«®¦. 㪠§ â¥«ï ä®à¬ â 
ld a,h
add a,l
cp 8 ; ¯ã­ªâ 720kB ¨ ­¨¦¥
cp 9 ; ¯ã­ªâ 720kB ¨ ­¨¦¥ ;!HARDCODE
jr nc,.loc2
ld a,13h
jr .loc3 ; ä®à¬ âë 1.44Mb..1.52Mb
@ -1209,8 +1209,8 @@ CreateSerialNumber:
DWORD #0012C000 ; 4 ¡ ©â  à §¬¥à  ä®à¬ â 
BYTE 15 ; ç¨á«® ᥪâ®à®¢
WORD 15 ; ᥪâ®à®¢ ­  áâ®à®­ã
BYTE 32 ; ¯®á«. á«ã¦. ᥪâ®à
WORD 14848 ; à §¬¥à FAT-®¢ + Root dir
BYTE 30 ; 32 ; ¯®á«. á«ã¦. ᥪâ®à
WORD 14848 ; 15872 ; à §¬¥à FAT-®¢ + Root dir
WORD 2400 ; ᥪâ®à®¢ ­  ¤¨áª¥
WORD 7 ; ᥪâ®à®¢ ­  FAT
BYTE #F9 ; ¡ ©â ä®à¬ â 

8
RADIO.ASM
View File

@ -858,10 +858,10 @@ EIkeys: BIT 7,(IX+1)
JR NZ,ILwork
LD A,(HL) ; what+1
RES 5,A
; CP 9 ; Tab
; JR Z,SetInLn
; cp 0Dh ; $$$
; jr z,SetInLn
CP 9 ; Tab
JR Z,SetInLn
cp 0Dh ; $$$
jr z,SetInLn
CP (IX+7) ;Hot key
RET NZ
SetInLn: CALL MoveObj ;Select Input line

2
Shared_Includes

@ -1 +1 @@
Subproject commit 6073b8787867fe5d217d064c9f5f77972303148c
Subproject commit 9969d693207ce7705386b622be41fa243585f4d9

2
Version.inc
View File

@ -3,4 +3,4 @@
; ¢¥àá¨ï ¯à®£à ¬¬ë
major_version equ 1
minor_version equ 16
minor_version equ 17