Autor Wątek: Formatowanie dyskietek z poziomu BASIC  (Przeczytany 12853 razy)

zibi

  • ***
  • Wiadomości: 123
  • Miejsce pobytu:
    Gdańsk
  • gg: 2830
Formatowanie dyskietek z poziomu BASIC
« dnia: 2015.04.01, 12:47:02 »
Da się?

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

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

kevin.c

  • *
  • Wiadomości: 21
  • Miejsce pobytu:
    Szczecin
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #1 dnia: 2015.04.01, 14:05:57 »
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

  • ***
  • Wiadomości: 123
  • Miejsce pobytu:
    Gdańsk
  • gg: 2830
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #2 dnia: 2015.04.01, 14:18:23 »
Czyli mając gołą dyskietkę i gołego CPC nic nie zrobię?

ZbyniuR

  • *****
  • Wiadomości: 3333
  • Miejsce pobytu:
    Carlisle w UK
  • CPC AGA PSX
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #3 dnia: 2015.04.01, 16:09:30 »
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?
- Jeśli masz w domu światło i wodę, tzn. że masz światłowód. ;)

ikci

  • *****
  • Wiadomości: 1216
  • Miejsce pobytu:
    Kraków
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #4 dnia: 2015.04.01, 16:18:32 »
Jakby co to program w BASIC do formatowania na CPC6128

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
ZX Spectrum 48K, ZX Spectrum +, ZX Spectrum 128K, ZX Spectrum +2, ZX Spectrum +2B, ZX Spectrum +3, TIMEX TC2048, UNIPOLBRIT Komputer 2068, Didaktik Gama 80kB, 
Amstrad/Schneider CPC6128, Schneider CPC464, Commodore C64, Atari 800XL, 65XE 130XE, A500+, A600, A1200, ATARI 1040 STF

zibi

  • ***
  • Wiadomości: 123
  • Miejsce pobytu:
    Gdańsk
  • gg: 2830
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #5 dnia: 2015.04.01, 19:50:03 »
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?

Mam CPC6128 - golasa. Bez niczego.

Formatowanie z poziomu Basica się przyda - mam parę dyskietek do przetestowania, ale przyda się też "przemysłowa" metoda przerzucania danych z PC, więc jakbyś wymodził coś albo lepsiej opisał co i jak - byłbym bardzo dźwięczny.

gotham

  • ***
  • Wiadomości: 135
  • Miejsce pobytu:
    Kraków
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #6 dnia: 2015.05.16, 21:28:05 »
Czy z poziomu systemu CP/m można sformatować dyskietkę jeśli posiadamy tylko 1 napęd? I jak wygląda sprawa z obsługą dorabianych zewnętrznych stacji 3.5 pod tym systemem.
Amstrad  6128 plus + CM14 , Gamecube , Xbox 1 , PSP , Neogeo Pocket color x 2 ,

trojacek

  • *****
  • Wiadomości: 6846
  • Miejsce pobytu:
    Warszawa
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #7 dnia: 2015.05.16, 22:20:07 »
Pod CP/M da się. Trzeba odpalić FORMAT.COM z dyskietki systemowej i zmienić dyskietkę, kiedy program zatrzyma się na pytaniu, czy formatować.
Taka dyskietka nie będzie oczywiście miała ścieżek systemowych. Pod CP/M 2.2 kopiuje się je komendą SYS.COM, w CP/M Plus zapewne podobnie.

gotham

  • ***
  • Wiadomości: 135
  • Miejsce pobytu:
    Kraków
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #8 dnia: 2015.05.16, 22:26:21 »
Mam takie pytanie po co ścieżki systemowe? Przyznaje bez bicia , że w młodości tylko grałem na cpc.
Amstrad  6128 plus + CM14 , Gamecube , Xbox 1 , PSP , Neogeo Pocket color x 2 ,

trojacek

  • *****
  • Wiadomości: 6846
  • Miejsce pobytu:
    Warszawa
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #9 dnia: 2015.05.16, 23:10:46 »
Ścieżki systemowe to cały system, ładowany po resecie z dysku do pamięci. CP/M nie siedzi w ROM-ie.

gotham

  • ***
  • Wiadomości: 135
  • Miejsce pobytu:
    Kraków
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #10 dnia: 2015.05.16, 23:49:46 »
Tak chodzi mi o to żeby to była czysta dyskietka , chciałbym też sprawdzić czy nie posiada bad sektorów i dopiero coś na nią wrzucić. Mam oryginalny dysk systemowy CP/M plus.
Amstrad  6128 plus + CM14 , Gamecube , Xbox 1 , PSP , Neogeo Pocket color x 2 ,

trojacek

  • *****
  • Wiadomości: 6846
  • Miejsce pobytu:
    Warszawa
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #11 dnia: 2015.05.17, 00:08:31 »
Do takich celów nie potrzebujesz ścieżek systemowych. Robisz zwykłą dyskietkę DATA.

http://www.cpcwiki.eu/index.php/Disc_format

ikci

  • *****
  • Wiadomości: 1216
  • Miejsce pobytu:
    Kraków
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #12 dnia: 2015.05.17, 10:49:02 »
Tak chodzi mi o to żeby to była czysta dyskietka , chciałbym też sprawdzić czy nie posiada bad sektorów i dopiero coś na nią wrzucić. Mam oryginalny dysk systemowy CP/M plus.

Do formatowania (w formacie VENDOR lub DATA) oraz weryfikacji dyskietki czy nie ma bad sektorów, polecam bardzo dobry program MultiMark 1.2
http://www.cpc-power.com/index.php?page=detail&num=9297

Zwykłe programy formatujące niestety nie przeprowadzają weryfikacji stanu nośnika. 
ZX Spectrum 48K, ZX Spectrum +, ZX Spectrum 128K, ZX Spectrum +2, ZX Spectrum +2B, ZX Spectrum +3, TIMEX TC2048, UNIPOLBRIT Komputer 2068, Didaktik Gama 80kB, 
Amstrad/Schneider CPC6128, Schneider CPC464, Commodore C64, Atari 800XL, 65XE 130XE, A500+, A600, A1200, ATARI 1040 STF

gotham

  • ***
  • Wiadomości: 135
  • Miejsce pobytu:
    Kraków
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #13 dnia: 2015.05.17, 11:37:01 »
Niestety nie mam możliwości przenoszenia danych z pc na amstrada :/
Amstrad  6128 plus + CM14 , Gamecube , Xbox 1 , PSP , Neogeo Pocket color x 2 ,

ikci

  • *****
  • Wiadomości: 1216
  • Miejsce pobytu:
    Kraków
Odp: Formatowanie dyskietek z poziomu BASIC
« Odpowiedź #14 dnia: 2015.05.17, 12:15:48 »
To nic tylko siąść i płakać  ;)

Lub też odezwać się do mnie na PM.
ZX Spectrum 48K, ZX Spectrum +, ZX Spectrum 128K, ZX Spectrum +2, ZX Spectrum +2B, ZX Spectrum +3, TIMEX TC2048, UNIPOLBRIT Komputer 2068, Didaktik Gama 80kB, 
Amstrad/Schneider CPC6128, Schneider CPC464, Commodore C64, Atari 800XL, 65XE 130XE, A500+, A600, A1200, ATARI 1040 STF