[GUIDA] Dumpare floppy NON PROTETTI del C64 SENZA X(E)1541

[Massi cadenti]

Questa guida fa uso del sistema Wireless

Codice: [Seleziona]

http://www.zimmers.net/anonftp/pub/cbm/crossplatform/transfer/datassette/wireless.zipPer dumpare floppy NON PROTETTI E SENZA ERRORI dal C64 al PC, si può utilizzare questo sistema.
Occorrente:
- C64 (o C128) e 1541 (o compatibili) funzionanti
- registratore (datassette) funzionante
- una musicassetta vuota (o cancellabile)
- un floppy con almeno 7 blocchi liberi (se è possibile vuoto, è meglio)
- un modo per leggere cassette audio e registrarle su PC (hifi, walkman)

Descrizione:
Il punto critico della procedura spiegata nel readme riguarda la copia del programma da usare sul C64. Il sistema lì descritto semplicemente non funziona.
Ho quindi studiato un altro sistema, che è per forza di cose macchinoso, ma che funziona al 100%.
Per trovarvi il programma su disco digitate sul C64 reale il seguente listato:

Codice: [Seleziona]

0 rem salva wireless by m.p. software
10 restore
20 ln=390:ck=0:cn=0:dima$(1537):printchr$(147);
30 fori=1to17
40 reada
50 ifa>255thenprint"errore nella linea data"ln-10" oppure"ln:end
60 ifa<>int(a)thenprint"verifica le virgole nella linea data"ln:end
70 ck=ck+a:cn=cn+1:a$(cn)=chr$(a)
80 nexti
90 readgk
100 ifgk<>ckthenprint"errore nella linea data n."ln:end
110 ln=ln+10:ck=0:i=0
120 ifln<1290then30
130 fori=1to7
140 reada
150 ifa>255thenprint"errore nella linea data"ln-10" oppure"ln:end
160 ifa<>int(a)thenprint"verifica le virgole nella linea data"ln:end
170 ck=ck+a:cn=cn+1:a$(cn)=chr$(a)
180 nexti
190 readgk
200 ifgk<>ckthenprint"errore nella linea data finale"ln:end
210 readul
220 iful<>9999thenprint"hai saltato qualche linea, verifica tutto":end
230 print"tutte le linee sono ok"
240 print"provvedo a scrivere il file su disco"
250 print"preparare un disco formattato e premere un tasto"
260 poke198,0:wait198,1:poke198,0
270 open1,8,1,"wireless copy"
280 fori=1to1537
290 print#1,a$(i);
300 nexti
310 close1
320 open15,8,15
330 input#15,n,n$,t,s
340 close15
350 ifn<>0thenprint"errore sul disco:"
360 ifn<>0thenprintn","n$","t","s:end
370 print"operazione completata con successo."
380 print"arrivederci!!":end
390 data1,8,15,8,10,0,158,50,50,50,50,45,83,65,77,0,0,670
400 data0,32,32,85,49,32,50,32,32,48,32,32,32,49,32,32,52,653
410 data32,35,32,48,32,49,32,50,32,51,32,52,32,53,32,54,32,680
420 data55,32,56,32,57,49,48,49,49,49,50,49,51,49,52,49,53,829
430 data49,54,49,55,49,56,49,57,50,48,50,49,50,50,50,51,50,866
440 data52,50,53,50,54,50,55,50,56,50,57,51,48,51,49,51,50,877
450 data51,51,51,52,51,53,32,96,9,32,231,11,96,169,1,160,8,1154
460 data162,34,32,189,255,169,1,162,8,160,2,32,186,255,32,192,255,2126
470 data169,15,160,8,162,19,32,189,255,169,15,162,8,168,32,186,255,2004
480 data32,192,255,162,1,32,198,255,160,0,32,158,9,145,254,200,208,2293
490 data248,32,231,255,96,234,234,32,107,8,32,218,8,162,106,32,1,2036
500 data13,201,89,240,241,76,123,227,169,2,160,13,162,251,32,189,255,2443
510 data169,15,162,8,168,32,186,255,32,192,255,32,231,255,96,162,1,2251
520 data134,252,202,134,253,169,0,133,250,169,14,133,251,169,0,133,254,2650
530 data169,4,133,255,166,252,164,253,32,16,10,32,114,8,32,11,11,1662
540 data230,253,165,253,166,252,221,207,10,208,12,169,0,133,253,230,252,3014
550 data165,252,201,36,240,20,165,251,201,253,208,214,162,127,32,230,9,2766
560 data32,156,13,32,237,11,76,225,8,162,127,32,230,9,32,156,13,1551
570 data160,0,162,0,189,129,6,145,250,230,250,165,250,208,2,230,251,2627
580 data232,224,4,208,238,32,237,11,96,32,230,9,32,221,9,32,135,1982
590 data10,162,0,138,157,128,6,232,224,5,208,248,96,32,129,255,32,2062
600 data116,10,162,181,32,75,9,160,0,169,1,153,0,216,169,6,153,1612
610 data0,217,153,0,218,153,0,219,200,208,237,24,162,7,32,240,255,2325
620 data169,192,32,210,255,200,192,40,208,248,162,16,32,230,9,32,221,2448
630 data9,32,194,8,76,84,9,32,207,255,141,128,6,72,162,8,14,1437
640 data128,6,46,129,6,46,130,6,46,131,6,46,132,6,144,32,173,1213
650 data129,6,73,183,141,129,6,173,130,6,73,29,141,130,6,173,131,1659
660 data6,73,193,141,131,6,173,132,6,73,4,141,132,6,202,208,204,1831
670 data104,96,32,159,255,32,228,255,240,248,96,138,72,162,8,160,0,2285
680 data24,32,240,255,169,32,32,210,255,200,192,40,208,248,162,8,160,2467
690 data0,24,32,240,255,104,170,189,0,13,240,6,32,210,255,232,208,2210
700 data245,96,152,72,160,19,224,0,240,5,200,200,202,208,251,185,16,2475
710 data8,141,28,8,200,185,16,8,141,29,8,104,170,160,19,224,0,1449
720 data240,5,200,200,202,208,251,185,16,8,141,31,8,200,185,16,8,2104
730 data141,32,8,162,57,32,230,9,160,12,185,16,8,153,86,5,200,1496
740 data192,17,208,245,96,120,72,165,1,41,252,133,1,104,145,250,72,2114
750 data165,1,9,3,133,1,104,88,96,32,98,10,76,147,252,234,234,1683
760 data120,169,148,141,20,3,169,10,141,21,3,169,8,133,2,133,3,1393
770 data88,96,120,169,49,141,20,3,169,234,141,21,3,88,96,169,107,1714
780 data205,18,208,208,251,166,2,189,199,10,234,234,141,32,208,141,33,2479
790 data208,169,134,205,18,208,208,251,141,32,208,141,33,208,198,3,208,2573
800 data12,162,5,134,3,198,2,208,4,162,8,134,2,76,49,234,11,1404
810 data12,15,1,15,12,11,0,21,21,21,21,21,21,21,21,21,21,276
820 data21,21,21,21,21,21,21,19,19,19,19,19,19,19,18,18,18,334
830 data18,18,18,17,17,17,17,17,0,0,0,160,0,185,1,4,153,642
840 data0,4,200,208,247,172,254,4,200,140,255,4,160,0,96,162,88,2194
850 data32,230,9,32,73,10,169,0,133,2,170,168,138,153,104,5,169,1597
860 data6,153,104,217,200,208,244,173,0,4,205,1,4,208,5,169,128,2029
870 data141,104,5,162,1,173,0,4,157,104,5,169,0,133,3,173,104,1438
880 data5,41,128,201,128,208,31,173,104,5,41,127,24,105,1,9,128,1459
890 data141,104,5,173,0,4,205,1,4,208,3,76,120,11,169,1,133,1358
900 data3,76,120,11,173,0,4,205,1,4,240,36,238,104,5,173,0,1393
910 data4,157,104,5,232,32,246,10,230,2,165,2,201,0,240,15,165,1810
920 data3,201,1,240,9,173,104,5,41,127,201,127,208,172,173,104,5,1894
930 data41,128,240,35,173,104,5,32,87,10,230,250,234,208,2,230,251,2260
940 data173,105,5,32,87,10,230,250,234,208,2,230,251,140,104,5,140,2206
950 data105,5,76,224,11,138,72,173,104,5,41,127,133,4,230,4,162,1614
960 data0,189,104,5,32,87,10,152,157,104,5,230,250,208,2,230,251,2016
970 data232,228,4,208,235,104,170,165,2,240,8,76,37,11,169,48,141,2078
980 data179,13,96,32,194,8,160,12,132,183,200,132,188,165,250,133,174,2251
990 data165,251,133,175,169,0,133,172,169,14,133,173,169,168,133,187,162,2506
1000 data5,32,240,12,32,141,12,165,1,41,252,133,1,32,161,12,169,1441
1010 data1,24,105,1,202,32,193,12,162,8,185,172,0,32,193,12,162,1496
1020 data6,200,192,5,234,208,242,160,0,162,4,177,187,196,183,144,3,2303
1030 data169,32,202,32,193,12,162,5,200,192,187,208,237,169,2,133,171,2306
1040 data32,161,12,152,32,193,12,132,215,162,7,234,177,172,32,193,12,1930
1050 data162,3,230,172,208,4,230,173,202,202,165,172,197,174,165,173,229,2861
1060 data175,144,231,234,165,215,32,193,12,162,7,136,208,246,200,132,192,2684
1070 data234,24,169,0,141,160,2,76,108,10,160,0,132,192,173,17,208,1806
1080 data41,239,141,17,208,202,208,253,136,208,250,120,96,160,0,169,2,2450
1090 data32,193,12,162,7,136,192,9,208,244,162,5,198,171,208,238,152,2329
1100 data32,193,12,162,7,136,208,247,202,202,96,133,189,69,215,133,215,2451
1110 data169,8,133,163,6,189,165,1,41,244,32,227,12,162,17,234,9,1812
1120 data8,32,227,12,162,14,198,163,208,233,96,202,208,253,144,5,162,2327
1130 data11,202,208,253,133,1,96,134,171,238,179,13,32,56,248,162,56,2193
1140 data32,230,9,32,143,246,96,169,48,141,179,13,32,230,9,32,221,1862
1150 data9,96,0,0,0,73,78,83,69,82,84,32,68,73,83,75,32,937
1160 data84,79,32,66,69,32,67,79,80,73,69,68,32,65,78,68,32,1073
1170 data80,82,69,83,83,32,69,78,84,69,82,0,82,69,65,68,73,1168
1180 data78,71,32,66,76,79,67,75,32,45,32,84,82,65,67,75,44,1070
1190 data32,83,69,67,84,79,82,58,0,67,79,77,80,82,69,83,83,1174
1200 data73,78,71,32,66,76,79,67,75,0,67,79,80,89,32,78,69,1111
1210 data88,84,32,68,73,83,75,32,89,47,78,32,63,0,73,78,83,1078
1220 data69,82,84,32,84,65,80,69,32,65,78,68,32,80,82,69,83,1154
1230 data83,32,69,78,84,69,82,13,0,165,1,41,16,240,3,32,221,1229
1240 data9,96,32,32,68,84,68,32,86,79,76,85,77,69,32,48,0,973
1250 data31,87,73,82,69,76,69,83,83,32,67,79,80,89,32,86,49,1167
1260 data46,48,32,40,67,41,32,49,57,57,56,32,83,65,77,73,32,887
1270 data83,73,76,65,83,84,69,32,32,32,32,32,32,32,32,32,32,853
1280 data32,32,32,32,32,80,82,69,83,83,32,82,69,84,85,82,78,1069
1290 data154,0,73,48,0,0,82,357,9999Mi rendo conto che è lungo, ma al suo interno contiene vari modi per verificare che tutte le linee data siano a posto.
Una volta dato il RUN se tutto è a posto verrà chiesto di inserire un disco vuoto nel drive (basta che vi siano 7 blocchi e non sia protetto da scrittura) e verrà salvato direttamente su quel disco il file WIRELESS COPY, che andrà caricato normalmente come qualunque altro programma.
Quando lanciato, comincerà a leggere tutto il disco (che NON deve essere protetto o contenere errori!) traccia per traccia e settore per settore. L'operazione è molto lenta (circa 10-15 minuti) e di tanto in tanto registrerà sulla cassetta il contenuto della memoria (3 passaggi in genere). E' importante che non registriate sulla primissima parte della cassetta (non magnetizzata) perché non ci sono sibili lunghi ma i dati partono subito. Il formato è proprietario e andrà convertito su PC col metodo audio, per essere quindi generato il D64 direttamente dal programma WINWIRE (incluso nel pacchetto).

Per copiare i dischi protetti (non protetti in modo esagerato...) è necessario usare prima lo zipcode sixpack in modo da copiare la facciata protetto (o con errori) su due dischi (o due facciate di disco) non protetti. Poi da VICE si userà sempre zipcode sixpack per passare tutto su un G64.

Se digitate il listato, fate attenzione a non confondere la lettera l con il numero 1 !! Il listato è scritto tutto minuscolo in modo che possiate copiarlo così com'è in vice senza doverlo digitare... se avete dubbi se si tratta di 1 o di lettera l, copiatelo nel vice e guardate lì!!