Weil es im Denial angefragt wurde poste ich es auch hier, vielleicht braucht es ja wer? Das Proggi kopiert eine Diskette in einer 1541 Floppy in eine Imagedatei auf der SD der Final Expansion.
Ich habe den Code aus der Wiki leicht modifiziert (DCOPY aus der WIKI):
Code
- 100 gosub 500
- 110 tr=1:se=0
- 115 sd=8:dd=9
- 120 print"copying from drive ";sd;" to drive ";dd
- 130 open1,sd,5,"#"
- 135 open2,dd,5,"image.d64,p,w"
- 140 open3,sd,15
- 145 open4,dd,15
- 147 print#4,"s:image.d64"
- 150 read mt,ms
- 160 if mt=0 then 300
- 170 for tr=tr to mt
- 175 print"track ";tr;"/";ms
- 180 for se=0 to ms=1
- 190 print".";
- 200 print#3,"u1:5 0 "+str$(tr)+str$(se)
- 220 print#3,"b-p:5 0"
- 230 sys 1024
- 250 next se:print
- 255 next tr
- 260 goto 150
- 300 close4:close2:close1:close3
- 310 print"finished"
- 490 end
- 499 :
- 500 for i=1to12*4
- 510 :read a
- 520 :poke1023+i,a
- 530 :next
- 590 return
- 600 for i=1to10
- 610 :read a
- 620 :printa,
- 630 :next
- 690 return
- 699 :
- 700 data162, 1, 32,198,255,160, 0,162, 1, 32,207,255
- 710 data153, 0, 15,200,208,245, 32,204,255,162, 2, 32
- 720 data201,255,160, 0,185, 0, 15,162, 2, 32,210,255
- 730 data200,208,245, 32,204,255, 96, 0, 0, 0, 0, 0
- 799 :
- 800 data 17,21,24,19,30,18,35,17,0,0
Es kopiert eine Diskette in einer 1541 (device ins SD2IEC (device 9). Zur freien Verwendung ...
Das Menü der Final Expansion sollte mit F7 verlassen werden.
.