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

DIALOG.ASM

@@ -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

FMAIN.ASM

@@ -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)
 ;[]==============================================================[]

FORMAT.ASM

@@ -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 |
+	ld	bc,03F6h		; 3 ¡ ©â  F6 (C2) |
-	call	FILL                    ;            | IAM
+	call	FILL                    ;                 | IAM
-	ld	(hl),0FCh		; 1 ¡ ©â FC  |
+	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			; ª®«-¢® áâ®à®­ ¤¨áª 

LISTBOX.ASM

@@ -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.64 Mb   82   20   DS/HD",0Dh	; 3
-	db	"  1.66 Mb   83   20   DS/HD",0Dh	;
+	db	"  1.66 Mb   83   20   DS/HD",0Dh	; 4
-	db	"  1.68 Mb   80   21   DS/HD",0Dh	;
+	db	"  1.68 Mb   80   21   DS/HD",0Dh	; 5
-	db	"  1.72 Mb   82   21   DS/HD",0Dh	;
+	db	"  1.72 Mb   82   21   DS/HD",0Dh	; 6
-	db	"  1.74 Mb   83   21   DS/HD",0Dh	;
+	db	"  1.74 Mb   83   21   DS/HD",0Dh	; 7
-	db	"   720 kB   80   09   DS/DD",0Dh	;
+	db	"   1.2 Mb   80   15   DS/HD",0Dh	; 8
-	db	"   800 kB   80   10   DS/DD",0Dh	;
+	db	"   720 kB   80   09   DS/DD",0Dh	; 9
-	db	"   820 kB   82   10   DS/DD",0Dh	;
+	db	"   800 kB   80   10   DS/DD",0Dh	; 10
-	db	"   830 kB   83   10   DS/DD",0Dh	;
+	db	"   820 kB   82   10   DS/DD",0Dh	; 11
-	db	"   636 kB - 80 - 16  TR-DOS",0Dh	;
+	db	"   830 kB   83   10   DS/DD",0Dh	; 12
-	db	"   800 kB - 80 - 05  CPM-80",0Dh	;
+	db	"   636 kB - 80 - 16  TR-DOS",0Dh	; 13
-	db	"   1.2 Mb   80   15   DS/HD",0Dh	;
+	db	"   800 kB - 80 - 05  CPM-80",0Dh	; 14
 	db	0
 
 

MAP.ASM

@@ -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
+.loc6:		dw	.loc7			;0  1.44 Mb
-		dw	.loc8
+		dw	.loc8			;1  1.52 Mb
-		dw	.loc9
+		dw	.loc9			;2  1.60 Mb
-		dw	.loc10
+		dw	.loc10			;3  1.64 Mb
-		dw	.loc11
+		dw	.loc11			;4  1.66 Mb
-		dw	.loc12
+		dw	.loc12			;5  1.68 Mb
-		dw	.loc13
+		dw	.loc13			;6  1.72 Mb
-		dw	.loc14
+		dw	.loc14			;7  1.74 Mb
-		dw	.loc15
+		dw	.loc052			;8   1.2 Mb
-		dw	.loc16
+		dw	.loc15			;9  720 kB 
-		dw	.loc17
+		dw	.loc16			;A  800 kB 
-		dw	.loc18
+		dw	.loc17			;B  820 kB 
-		dw	.loc50
+		dw	.loc18			;C  830 kB 
-		dw	.loc51
+		dw	.loc50			;D  TR-DOS 
-		dw	.loc052
+		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
+.loc1:	dw	.loc2			; 1.44Mb
-	dw	.loc3
+	dw	.loc3			; 1.52Mb
-	dw	.loc4
+	dw	.loc4			; 1.60Mb
-	dw	.loc5
+	dw	.loc5			; 1.64Mb
-	dw	.loc6
+	dw	.loc6			; 1.66Mb
-	dw	.loc7
+	dw	.loc7			; 1.68Mb
-	dw	.loc8
+	dw	.loc8			; 1.72Mb
-	dw	.loc9
+	dw	.loc9			; 1.74Mb
-	dw	.loc10
+	dw	.loc17			;  1.2Mb 5.25
-	dw	.loc11
+	dw	.loc10			;  720kB
-	dw	.loc12
+	dw	.loc11			;  800kB
-	dw	.loc13
+	dw	.loc12			;  820kB
-	dw	.loc15
+	dw	.loc13			;  830kB
-	dw	.loc16
+	dw	.loc15			;  TR-DOS  16 ᥪâ. ¯® 256 ¡ ©â
-	dw	.loc17
+	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	.cpm			; CPM-80
-	jp	z,.cpm			; 1.2Mb
-	jp	.loc17			; 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			; ¯®á«. á«ã¦. ᥪâ®à
+	BYTE	30 	; 32		; ¯®á«. á«ã¦. ᥪâ®à
-	WORD	14848			; à §¬¥à FAT-®¢ + Root dir
+	WORD	14848	; 15872		; à §¬¥à FAT-®¢ + Root dir
 	WORD	2400			; ᥪâ®à®¢ ­  ¤¨áª¥
 	WORD	7			; ᥪâ®à®¢ ­  FAT
 	BYTE	#F9			; ¡ ©â ä®à¬ â 

RADIO.ASM

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

Shared_Includes

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

Version.inc

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