forum.system-cfg.com

Code : Tout sélectionner

=========================================
dos-5.25-simple-densite_mo5
=========================================

Programme pour initialiser une disquette DOS
a partir de la cassette

============================================
Création disquette a partir de la cassette
Formate la disquette
Charge le fichier binaire DOS en $6000
Copie le DOS dans la disquette
Charge le fichier binaire FAT en $6000
Copie FAT et DIRECTORY dans la disquette
============================================
10 CLEAR,&H5FFF
15 PRINT"Formatage de la disquette..."
16 EXEC&HA00A
19 PRINT"Copie du DOS..."
20 LOADM"DOSMO5SD"
30 POKE&H2048,8
40 POKE&H2049,0 
50 POKE&H204A,0 
80 POKE&H204E,0 
92 A=&H60
100 FORI%=0 TO5
101 POKE&H204B,I% 
110 FORJ%=1 TO15 STEP2  
111 POKE&H204C,J%
112 POKE&H204F,A 
113 POKE&H2050,0
114 EXEC&HA004 
115 POKE&H204C,J%+1
116 POKE&H2050,128
117 EXEC&HA004 
118 A=A+1
119 NEXT
120 NEXT
199 PRINT"Initialisation FAT et DIRECTORY..."
200 LOADM"DOSFATSD"
201 A=&H60
202 POKE&H204B,20 
210 FORJ%=1 TO15 STEP2  
211 POKE&H204C,J%
212 POKE&H204F,A 
213 POKE&H2050,0
214 EXEC&HA004 
215 POKE&H204C,J%+1
216 POKE&H2050,128
217 EXEC&HA004 
218 A=A+1
219 NEXT
300 PRINT"Fin de traitement."

Code : Tout sélectionner

//Table des secteurs logiques en fonction des secteurs physiques du Quick Disk
int qdsector[400] =
{
 321, 33,225,129,322, 34,226,130,323, 35,227,131,324, 36,228,132, //p20,2,14,8
 325, 37,229,133,326, 38,230,134,327, 39,231,135,328, 40,232,136,
 329, 41,233,137,330, 42,234,138,331, 43,235,139,332, 44,236,140,
 333, 45,237,141,334, 46,238,142,335, 47,239,143,336, 48,240,144,
 337,305,209,113,338,306,210,114,339,307,211,115,340,308,212,116, //p21,19,13,3
 341,309,213,117,342,310,214,118,343,311,215,119,344,312,216,120,
 345,313,217,121,346,314,218,122,347,315,219,123,348,316,220,124,
 349,317,221,125,350,318,222,126,351,319,223,127,352,320,224,128,
 353,289,193, 97,354,290,194, 98,355,291,195, 99,356,292,196,100, //p22,18,12,6
 357,293,197,101,358,294,198,102,359,295,199,103,360,296,200,104,
 361,297,201,105,362,298,202,106,363,299,203,107,364,300,204,108,
 365,301,205,109,366,302,206,110,367,303,207,111,368,304,208,112,
 369,273,177, 81,370,274,178, 82,371,275,179, 83,372,276,180, 84, //p23,17,11,5
 373,277,181, 85,374,278,182, 86,375,279,183, 87,376,280,184, 88,
 377,281,185, 89,378,282,186, 90,379,283,187, 91,380,284,188, 92,
 381,285,189, 93,382,286,190, 94,383,287,191, 95,384,288,192, 96,
 385,257,161, 65,386,258,162, 66,387,259,163, 67,388,260,164, 68, //p24,16,10,4
 389,261,165, 69,390,262,166, 70,391,263,167, 71,392,264,168, 72,
 393,265,169, 73,394,266,170, 74,395,267,171, 75,396,268,172, 76,
 397,269,173, 77,398,270,174, 78,399,271,175, 79,400,272,176, 80,
  17,241,145, 49, 18,242,146, 50, 19,243,147, 51, 20,244,148, 52, //p1,15,9,3
  21,245,149, 53, 22,246,150, 54, 23,247,151, 55, 24,248,152, 56,
  25,249,153, 57, 26,250,154, 58, 27,251,155, 59, 28,252,156, 60,
  29,253,157, 61, 30,254,158, 62, 31,255,159, 63, 32,256,160, 64,
   1,  9,  5, 13,  2, 10,  6, 14,  3, 11,  7, 15,  4, 12,  8, 16  //p0
};