Komputery z Z80 > AMSTRAD

Formatowanie dyskietek z poziomu BASIC

(1/4) > >>

zibi:
Da się?

Góglam od dłuższej chwili i jakoś tak nie bardzo...

Mógłby mnie ktoś oświecić?

kevin.c:
Bez zewnętrznych DOSów raczej nie. Najbliżej pod cpm, disckit2.com lub disckit3.com w zależnoścoi od wersji cpm'a.
Najprymitywniejszy program na świecie, ale skuteczny...

zibi:
Czyli mając gołą dyskietkę i gołego CPC nic nie zrobię?

ZbyniuR:
Da się. Ale trzeba wklepać linijkę Basica z POKE-ami z kodem takiej procedury. Poszukam i tu wkleję.
Zakładam że nie masz żadnego ekstra ROMu prócz Amsdosa.

Chociaż jakbyś sobie zrobił kabelek by dźwięk z PC (na którym uruchomisz emulator) połączyć z CPC przez port magnetofonu, to mogę przygotować DSK który uruchomisz na emulcu, a ten wgra po takim kabelku program do CPC który daje kilka nowych komend, w tym do formatowania dysków i kopiowania plików, a po sformatowaniu 1go dysku sam się na nim nagra. Pasowałoby ci to?

ikci:
Jakby co to program w BASIC do formatowania na CPC6128


--- Kod: --- 5 ' QuickFormat by Adrian Forbes
  10 MODE 1:PRINT"Please Wait..."
  20 GOSUB 150
  30 MODE 1
  40 INPUT "(D)ata or (V)endor";f$
  50 PRINT "Sure (Y/N)"
  60 a$=INKEY$:IF a$="" THEN 60
  70 IF LOWER$(a$)<>"y" THEN GOTO 60
  80 MODE 1
  90 PRINT"Insert disc to format in drive A":PRINT"Then press a key..."
  100 CALL &BB18
  110 MODE 1
  120 PRINT"Formatting..."
  130 |QF,f$
  140 GOTO 30
  150 ch=0
  160 add=&4000
  170 ln=310
  180 FOR x=1 TO 8
  190 READ a$:a=VAL("&"+a$)
  200 POKE add,a
  210 add=add+1
  220 ch=ch+a
  230 NEXT
  240 READ ch$
  250 IF ch<>VAL("&"+ch$) THEN PRINT"Error in line";ln:END
  260 ln=ln+10
  270 ch=0
  280 IF ln<>510 THEN GOTO 180
  290 CALL &4000
  300 RETURN
  310 DATA 21,8D,40,01,91,40,C3,D1,354
  320 DATA BC,FE,01,C0,21,9A,40,06,37C
  330 DATA 09,36,00,23,36,00,23,36,F1
  340 DATA 00,23,36,02,23,10,F2,21,1A1
  350 DATA 88,40,CD,D4,BC,22,89,40,410
  360 DATA DD,6E,00,DD,66,01,23,5E,310
  370 DATA 23,56,1A,FE,44,CA,80,40,35F
  380 DATA FE,64,CA,80,40,3E,41,32,39D
  390 DATA 8C,40,11,00,00,06,28,C5,1D0
  400 DATA 21,9A,40,7A,06,09,77,23,21E
  410 DATA 23,23,23,10,F9,3A,8C,40,278
  420 DATA 06,05,21,9C,40,CD,73,40,288
  430 DATA 06,04,21,A0,40,CD,73,40,28B
  440 DATA 21,9A,40,DF,89,40,14,C1,378
  450 DATA 10,D5,C9,77,23,23,23,23,2B1
  460 DATA 23,23,23,23,3C,10,F4,C9,295
  470 DATA 3E,C1,32,8C,40,C3,3F,40,33F
  480 DATA 86,00,00,07,00,00,00,00,8D
  490 DATA 00,97,40,C3,09,40,C9,51,2FD
  500 DATA C6,00,20,00,00,00,00,00,E6
  510 DATA end

--- Koniec kodu ---

Nawigacja

[0] Indeks wiadomości

[#] Następna strona