1190,52,112:56,112::4830:"wMB(29709): MEDIUMBYTE 252=180KB 253=360KB 249=720KBMF(29710): MEDIUMFLAG 1=180 2=360 3=720 MM(29711): (1-4)MFM-MODELL 1541,1570,1571,1581$ DM(29712): DEVICE MFMG $DG(29713): DEVICE GCRz .ZM(29720)(29721)256: COUNTER MFM CLUSTER 8AC(29722)(29723)256: ACTUAL CLUSTER BZG(29730)(29731)256: COUNTER GCR BLOCKS LTG(29732): TRACK GCR VSG(29733): SECTOR GCR0 `VH(29714)(29715)256L jMF(29710):MM(29711)V t5290l ~828,DM:15,DM,15 829,DG:14,DG,15 840,(840)1: COUNTER CIA NMI'S 3400:-----------------------  $FB=COUNTER FOR.FLICKER PER BYTE  $FC,FD=VECTOR-  $FE=HIGHBYTE VECTOR AT BEGINNING^ ".64->1541 COPIES '.64' -FILES FROM "(DOUBLE DENSITY)----DISKS (NO "S) FROM A 1570/71/81 (A 1541 "DOESN'T WORK) TO A HEADERED "1541 -DISK. T WORKS WITH A 64 "AND ONE 1571, BUT BETTER ARE TWON "DRIVES TO SAVE THE 6-TIMES DISK-CHANGE.x "ECAUSE IT USES THE ORIGINAL KERNAL "ROUTINES, IT IS SLOW: ABOUT 25 MIN, "BUT IT SCHOULD WORK WITH ALL HARDWARE- ("SPEEDERS. HE ORIGINAL - 2"- ROUTINE CRASHES SOMETIMESC <"WITH THE 1571 IM 2Z MODE, WHAT OUi F"CAN SEE AT THE MISSING FLICKER. P"F THIS HAPPENS BEFORE THE COPY- Z"PROCESS, THEN OU MUST RESTART. d"F THIS HAPPENS DURING THE COPY-PROCESSn"THEN OU ONLY MUST WAIT ABOUT 10 SEC;>x"THEN THE PROGRAM RESTARTS AUTOMATICALY.i"!!! HE LINES 1000 AND 1010 MUSTN'T"BE 'RENUMBERD' !!!"EFORE AT : FORMAT -DISK (NO )"WITH 180/360/720K, COPY .64-FILE FROM"- TO THIS DISK. 52,112:56,112:4830"840,0,".";4I0YA:A128672I,A:II1:1510e251,ZAo".";wI0A:A228928I,A:II1:1550".";"I0,A:A329184I,A:II1:15806".";@I0 JA:A429440I,A:II1:1610T".";^I0AhA:A530023I,A:II1:1640Kr".";e|FT(30): FLOPPY-TYPEqI730{".";15,I,15:15ST01770: NO FLOPPY15,I,15,"UI":15,A,A$:B$(A$,4)B$"1541"FT(I)1B$"1570"FT(I)2B$"1571"FT(I)30B$"1581"FT(I)4^(A$,10)"CMD FD DOS"FT(I)4: CMD FD ?h15:s 0=NO 1=1541 2=1570 3=1571 4=1581,CMD FD& MF=MEDIUMFLAG -----------------0 1=180: 2=360D 3=720 N"":198,0:198,1:198,01X"REEWAREMb"EAR ETTER UANTITY`l"OCHEN DLERsv"AELDESTR. 9"-74912 IRCHARDT"ERMANY"@GMX.DE"---DEVICE-NUMBERA0J421I3071FT(I)J2020I" = "FT$(J)"A0AI(.]"NPUT (4-30) "A:"";A$iA(A$) (A4)(A30)2040DMA: MFM DEVICE "FLOPPY-TYPE*I244I,FT$(I)>IFT(DM)AIHR"NPUT (2-4) "A:"";A$\A(A$)*f(A2)(A4)2130@pMMA: MFM MODELLkz"-5.25"(34)"--DEVICE-NUMBER"sA0~J13I730FT(I)J2240I" = "FT$(J)A0AI"NPUT (4-30) "A:"";A$A(A$)(A4)(A30)22600DGA: GCR DEVICEGFT(DG)0FT(DG)1 "OPY FROM"DM"("FT$(MM)") TO"DG"("FT$(FT(DG))") "ORRECT (Y/N) 198,0:198,1:A$$ A$"Y"A$"N"A$(13)2330. A$"N"19508 828,DM:829,DG:B "INSERT ----DISK INTO DEVICE"DM" PL 198,0:198,1:A$vV --------------------------------` 15,DM,15:14,DG,15j A(0)t MM4230,2430,2430,2490:4230~ 15,"U0>M1": 1571-MODE "U0>M1 ":4280 15,"U0"(4): INQUIRE DISK1 "NQUIRE DISK ":4280B E51282490^ "O DISK":4150y "EADING BOOT BLOCK VH128:ZM0:AC0 TR0:SE1:SI0:AH128:4400 "ORMAT "; I3277132778:((I));:: "EKTOR-LENGTH "(32779)(32780)256> "KT.PER CLUSTER "(32781)m "ESERVED SKT. "(32782)(32783)256 "OPIES OF "(32784) "NTRIES IN ROOT "(32785)(32786)256 "EKTORS PER DISK "(32787)(32788)256-( MB(32789):"EDIA BYTE "MB:" ";S2 MB249"720K 2S 9/ 3.5"(34)z< MB252"180K 1S 9/ 5.25"(34)F MB253"360K 2S 9/ 5.25"(34)P MB254"160K 1S 8/ 5.25"(34)Z MB255"320K 2S 8/ 5.25"(34)d "ENGTH OF "(32790)(32791)256Pn A$"0123456789ABCDEF":"ISK- ";x (A$,(((32810)16)1),1);(A$,(((32810)15)1),1); (A$,(((32809)16)1),1);(A$,(((32809)15)1),1)"-"; (A$,(((32808)16)1),1);(A$,(((32808)15)1),1);: (A$,(((32807)16)1),1);(A$,(((32807)15)1),1)V "OOTBLOCKDISKNAME ";w I3281132821:((I));:: MM2MB2522800 MM3MB2522800 MM3MB2532800 MM4MB2492800 "RONG FORMAT":4150 --------------------------------) TR0:SI0:AH128:ZD0R MB252SE6: STARTSEKTOR DIRECTORYc MB253SE6t MB249SE8 "EADING"(ZD16)1"TH DIR BLOCK" DV0, 44006 ""ZD1"TH FILE: ";@ I32768DV32775DV:A$((I)):A$" "A$;J /T ".";:I32776DV32778DV:((I));:R^ FL(32796DV)(32797DV)256h FLFL(32798DV)65536(32799DV)16777216r " "FL"YTE| FL174848FL1755312970 (32768DV)2292970 (32776DV)68(32777DV)54(32778DV)522980! "NO .64-FILE":3010? "OPY THIS FILE? (Y/N)k 198,0:198,1:A$:A$"Y"A$"N"2980| A$"Y"3060 ZDZD1:DVDV32:DV5122870 SESE1:SE10SE1:SI1 MB252ZD633050 ZD1112840 "OUND NO 64":4150$ "EADING 1 / FIRST PARTK VH130:TR0:SE2:SI0:AH130:4400o "EADING 1 / SECOND PART VH132:TR0:SE3:SI0:AH132:4400 MB2493130& "EADING 1 / THIRD PART0 VH134:TR0:SE4:SI0:AH134:4400: : AC(32794DV)(32795DV)256: ACTUAL CLUSTERS D MFMB251:MF0MF3u N 29709,MB:29710,MF:29711,MM X 828,DM:829,DG:29712,DM:29713,DG b 5290 l "NSERT HEADERED 1541 DESTINATION DISK INTO DRIVE"DG v "! 198,0:198,1:A$/! 14,"I":14,A:A13180Q! "VERWRITE THIS DISK? Y/N"o! 5,DG,0,"$":#5,A$:#5,A$! #5,A$:#5,A$! ST03300! #5,A$:A(A$(0)):#5,A$:AA256(A$(0)):""A;! #5,A$:A$;:A$""3270! A$:A$""3310" :3240;" "VERWRITE THIS DISK? Y/N":198,0:198,1:A$R" :5:A$"Y"3180" ------------------------------------------------------------------------" TG1: TRACK GCR" SG0: SEKTOR GCR" ZM0: COUNTER MFM CLUSTER# ZG0: COUNTER GCR BLOCKS.#* --------------------------------S#4 AC=ACTUALLY TO LOADED CLUSTERu#> VH140: VECTOR HIGH TO $8C00#H DMDG3450#R "NSERT --ISK ":198,0:198,1:A$#\ 15,"U0"(4): INQUIRE DIS $f 15,"M-R"(94)(0):#15,A$:E5(A$(0))$p E51283410'$z A(0)5$ 29732,TGC$ 29733,SGU$ 29730,ZG255j$ 29731,(ZG256){$ VH2523580$ 29714,VH255$ 29715,(VH256)$ 29720,ZM255$ 29721,(ZM256)$ 29722,AC255$ 29723,(AC256)% --------------------------------:% BACVC: OFFSET OF SYSTEM-AREA%CBSC: SEKT.PER CLUSTER C=WHICH SEKTOR COUNTED FROM BEGINNING%TR(C9SZ)%SI((CTR9SZ)9)%$SE(CTR9SZ)(SI9)1%.56591,89:56590,145:56589,130:793,117&8AH128:4400&B56591,88'&L253,VH:289286&VMF13740J&`SESE1:VHVH2_&jSE10SE1:SI1&t56591,89:56590,145:56589,130:793,117&~AH128:4400&56591,88&253,VH:28928&VHVH2&ZMZM1&B(AC32): B=VECTOR IN FAT%'(AC1)13790: BRANCHES IF ODD CLUSTERS'AC(33280B)256(15((33281B))):3800|'AC(((33280B)256(33281B))16)'AC40953820'VH2563500'MM43920: BRANCH IF 1581'DMDG3890: BRANCH IF ONE 1570/1571(15,"M-R"(0)(28):#15,A$:A(A$(0))8( 15,"M-W"(0)(28)(1)(A251)W(15,"M-W"(32)(0)(1)(0)a(3920((--------------------------------(2"NSERT --DISK ":198,0:198,1:A$(<14,"I(F#14,E1:E103890)PVH140: VEKTOR HIGH TO 8C00)Z5,DG,5,"#2"4)d14,"M-W"(1)(1)(1)(65)Z)n--------------------------------p)x14,"B-P: ";5 ; 0)253,VH:29184)29440)14,"B-P: ";5 ; 0)14,"U2: "5 ; 0 ; TG ; SG)"ECTOR LOCK R. E. TATE*VH,ZG,TG""SG,8*14,"M-R"(2)(0):#14,A$:A(A$(0)):A1274030?*AY*A1FG$(A15):4150e*VHVH1*A21:TG17A19:TG24A18:TG30A17*SGSG1:ZGZG1*SGATGTG1:SG0:TG354140*VH2563960:---------------*5+3390:-----------------------!+" ENDES+,"- CRASHED"(840)"TIMES (BUT IS OK)Z+65u+@15:15,DM,15,"UI":15+J14:14,DG,15,"UI":14+T"GAIN (Y/N)":198,0:198,1:A$+^A$"Y"A$"N"A$(13)4180+hA$"N"2310,r:---------------------------^,|========================================================================,"WRONG FORMAT ERROR":15,"UI":,:---------------------------, MFM ERROR CHANNEL--------------,#15,A$:A$;:ST04260," ";-MM4230,4290,4290,4300:4230K-15,"M-R"(94)(0):#15,A$:E5(A$(0)):4310Z-E5A:4350b-E5-"B7 "(E5128)128;F7$((E5128)128)-"B6 "(E564)64;"RIVE"(E564)64-"B5+4"(E548)16"EKTOR-LENGTH"2((E548)16)128-"B3-0"E515;.E5127FM$(E515):4380+.FG$(E515)K.:------------------------.&----------------------------------------------------------READ MFM BLOCK.0MM4230,4410,4410,4610:4230.:MB252SI04810.DSI0SI14810.NSE1SE94810/XTR0TR394810/bX5;/l15,"M-W"(94)(0)(1)(175)K/vA12816SIj/15,"U0"(A)(TR)(SE)(1)/"ECTOR LUSTER R.E.I TATE/VH,ZM""AC,TR""SE""SI"",/15,"M-R"(94)(0):#15,A$:E5(A$(0))/E515/E517545100(E514)0459050"EHLER B.R/E/I"TR;SE;SI?04280S0XX1:X04460]04820r0254,AH3:28672x00SI0SI148100 SE1SE948100TR0TR7948100 X50*15,"M-W"(206)(1)(1)(1SI)1415,"M-W"(11)(0)(2)(TR)(SE)41>15,"M-W"(2)(0)(1)(164): READ BLOCK_1H"ECTOR LUSTER R.E.I TATE1RVH,ZM""AC,TR""SE""SI"",1\15,"M-R"(2)(0)(1):#15,A$1fA(A$(0))1pA12747001zA151(A254)047902"EHLER B.R/E/I"TR;SE;SI 24280!2XX1:X04650+24820@2254,AH3:28672F2o2"LLEGAL TRACK/SECTOR/SIDE"TR;SE;SI256591,88:15,"UI"::-----------------------------------------256580,255:56581,255: TA256582,153:56583,0: TB356590,145: TA EIN03ZA1:251,ZA: COUNTER FOR BUS DELAYH3E$(0)"0":E$(1)"1"f3F7$(0)"":F7$(1)""s3FG$(15)3$FG$(0)"OK"3.FG$(1)"OK"38FG$(2)"SECTOR NOT FOUND3BFG$(3)"NO SYNC3LFG$(4)"DATA BLOCK NOT FOUND 4VFG$(5)"DATA BLOCK CHECKSUM ERROR$4`FG$(6)"FORMAT ERROR=4jFG$(7)"VERIFY ERROR]4tFG$(8)"WRITE PROTECT ERROR4~FG$(9)"HEADER BLOCK CHECKSUM ERROR4FG$(10)"DATA EXTENDS INTO NEXT BLOCK4FG$(11)"DISK ID MISMATCH / DISK CHANGE4FG$(12)"-4FG$(13)"-5FG$(14)"SYNTAX ERROR15FG$(15)"NO DRIVE PRESENT>5FM$(15)N5FM$(0)"OK"^5FM$(1)"OK"{5FM$(2)"SECTOR NOT FOUND5FM$(3)"NO ADRESS MARK5FM$(4)"-5FM$(5)"DATA CRC ERROR5 FM$(6)"FORMAT ERROR5FM$(7)"VERIFY ERROR6FM$(8)"WRITE PROTECT ERROR96(FM$(9)"HEADER BLOCK CHECKSUM ERRORH62FM$(10)"-a6<FM$(11)"DISK CHANGEp6FFM$(12)"-6PFM$(13)"-6ZFM$(14)"SYNTAX ERROR6dFM$(15)"NO DRIVE PRESENT6nFT$(0)"NO"6xFT$(1)"15416FT$(2)"15706FT$(3)"15717FT$(4)"1581/-37: ------------------------P7MF5300,5310,5320:4230s7SZ1:VC7:SC1:: 180KB 5.25"7SZ2:VC4:SC2:: 360KB 5.25"7SZ2:VC5:SC2:: 720KB 3.5"8--------------------------------------------------READ 512 BYTE FROM MFMP8169,0,133,144,162,3,138,24,101,254,133,253,160,0,132,252,173,60,3,328177,255,169,111,32,147,255,169,77,32,168,255,169,45,32,168,255,169882,32,168,255,169,0,32,168,255,138,32,168,255,169,0,32,168,255,32,174+9255,173,60,3,32,180,255,169,111,32,150,255,169,1,238,32,208,56,229t9251,208,248,32,165,255,145,252,200,208,238,32,171,255,232,224,5,1449166,165,144,41,3,208,154,96,-19-------------------------------------------COPY IN C64 FROM 8000 ->90-FF.:"120,165,1,41,252,133,1,160,0,132,252,185,0,128,145,252,200,208,248r:,230,253,185,0,129,145,252,200,208,248,165,1,9,3,133,1,88,96,-2:6--------------------------------------------COPY IN C64 FROM 90-FF->8000;@120,165,1,41,252,133,1,160,0,132,252,177,252,153,0,128,200,208,248&;J165,1,9,3,133,1,88,96,-3t;T-----------------------------------------------------WRITE TO GCR FLOPPY;^169,0,133,144,173,61,3,32,177,255,169,101,32,147,255,160,0,185,0,128