Autor Wątek: Przenoszenie programów / gier. (cpcdisk, tap2tos)  (Przeczytany 11818 razy)

KWF

  • *****
  • Wiadomości: 6823
  • Miejsce pobytu:
    trzecia planeta od Słońca
  • "I co ja robię tu, u-u, co Ty tutaj robisz ..."
    • Insta do lasownia
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #15 dnia: 2017.12.18, 21:49:03 »
OCR na szybko:

10 PRINT "Czytanie danych.": LET d$="": FOR n=100 TO 560 STEP 10
20 LET suma=256
30 READ a: IF a<256 THEN LET suma=suma+a: LET d$=d$+CHR$ a: GO TO 30
40 IF suma<>a THEN PRINT "BLAD W LINII ";n: STOP
50 NEXT n
70 DIM *"START": OPEN #*1;"START";a;1
80 PRINT "Tworzenie pliku START.": FOR a=1 TO LEN d$: PRINT *#1;d$(a): NEXT a: CLOSE #*: CLS : STOP
100 DATA 0,30,0,233,2,233,2,0,0,211,2,249,192,176,34,50,1670
110 DATA 51,55,55,49,34,58,234,253,229,253,33,0,0,207,253,225,2245
120 DATA 33,247,92,17,86,33,237,83,59,33,1,170,2,237,176,195,1957
130 DATA 3,6,0,253,203,1,126,202,130,0,42,93,92,43,126,254,1830
140 DATA 207,194,130,0,225,6,91,205,239,35,62,254,205,29,3,1,2142
150 DATA 22,62,11,17,1,72,213,33,103,33,229,33,134,33,229,205,1688
160 DATA 185,35,0,58,0,33,225,209,254,128,40,11,175,50,100,32,1771
170 DATA 205,197,33,62,145,24,223,6,2,205,185,33,198,3,50,79,1906
180 DATA 33,50,80,33,50,81,33,35,35,35,35,35,62,109,190,32,1164
190 DATA 110,205,185,33,24,238,4,72,205,247,33,62,6,190,32,246,2148
200 DATA 120,201,33,0,32,175,14,32,190,40,11,165,56,4,18,19,1386
210 DATA 14,32,237,160,24,242,27,12,26,254,32,40,249,19,62,1,1687
220 DATA 185,48,13,62,6,18,19,62,17,185,48,4,62,6,18,19,1028
230 DATA 175,18,19,201,33,0,72,175,190,35,32,252,13,32,249,201,1953
240 DATA 175,219,254,230,31,254,31,32,247,205,21,0,40,251,201,58,2505
250 DATA 79,33,79,205,247,33,201,58,79,33,42,80,33,189,201,205,2053
260 DATA 249,35,58,79,33,214,5,205,21,34,205,247,3,35,6,7,1692
270 DATA 197,253,203,87,158,62,3,184,32,11,229,205,26,34,225,56,2221
280 DATA 4,253,203,87,222,205,216,3,35,193,16,228,205,12,34,33,2205
290 DATA 34,34,229,33,103,33,254,11,32,11,205,26,34,254,6,200,1755
300 DATA 61,50,79,33,201,254,10,32,8,205,26,34,60,188,208,24,1729
310 DATA 240,229,254,65,32,6,205,72,35,230,7,1,254,88,32,6,1992
320 DATA 205,72,35,233,2,0,254,71,32,6,205,72,35,236,7,0,1721
330 DATA 254,8,32,13,33,94,0,34,0,32,46,2,205,157,35,7,1208
340 DATA 0,254,86,32,6,205,72,35,86,20,2,254,32,200,254,7,1801
350 DATA 225,193,202,3,6,197,229,87,205,26,34,56,77,188,40,74,2098
380 DATA 122,254,13,32,25,205,211,35,62,12,50,0,33,175,50,2,1537
370 DATA 33,50,77,33,205,193,12,33,180,34,227,205,184,35,254,9,2020
380 DATA 32,5,205,67,35,7,0,254,80,32,5,205,67,35,20,1,1306
390 DATA 254,85,32,5,205,67,35,20,0,254,73,32,5,205,67,35,1630
400 DATA 20,3,254,69,40,9,254,76,40,5,225,225,195,79,34,245,2029
410 DATA 205,237,35,205,18,34,205,247,3,241,254,69,32,25,62,210,2338
420 DATA 205,51,0,175,205,51,0,205,3,34,254,89,194,209,35,205,2171
430 DATA 51,0,205,67,35,4,1,205,211,35,205,78,35,241,5,0,1634
440 DATA 205,211,35,24,85,205,237,35,33,0,32,227,126,35,227,229,2202
450 DATA 205,51,0,205,49,0,225,14,1,229,62,143,119,35,62,32,1688
480 DATA 119,35,175,119,43,43,227,229,197,1,33,22,237,67,136,92,2031
470 DATA 205,247,3,205,3,34,230,127,193,225,227,254,13,40,22,43,2327
480 DATA 13,40,6,254,32,40,211,56,8,12,35,119,121,254,96,48,1601
490 DATA 201,35,12,24,197,175,119,227,225,35,125,205,149,3,227,126,2341
500 DATA 35,227,50,0,33,175,50,2,33,227,126,35,227,205,100,3,1784
510 DATA 205,172,3,48,251,58,2,33,183,225,200,33,33,19.34,136,1891
520 DATA 92,175,50,44,33,33,13,33,205,247,3,205,3,34,225,201,1852
530 DATA 205,18,34,17,0,32,205,200,33,33,9,32,126,254,32,40,1526
540 DATA 3,43,54,46,175,46,12,119,35,201,6,72,33,0,64,54,1219
550 DATA 0,35,124,184,32,249,33,33,24,34,136,92,201,13,0,10,1456
560 DATA 2,0,207,13,0,20,2,0,226,13,0,30,2,0,247,13,1031
« Ostatnia zmiana: 2017.12.18, 23:04:50 wysłana przez Klaud »
KWF
-----
R Tape loading error 0:1
Moje zabawki: https://github.com/McKlaud76

tdu

  • *****
  • Wiadomości: 926
  • Miejsce pobytu:
    Gdansk
    • Nasze Wędrowanie
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #16 dnia: 2017.12.18, 22:51:17 »
W linii 30 jest błąd (może być ich więcej).

W sumie fajnie, tylko jak to na dyskietkę przenieśc.

Zrobiłem parę prób z emulatorami, programem Scadm i jak na razie kicha.
ZX81/ZX 48k/Zx48k+/ZX +2/ZX +2A/+3/TC2048/FDD3000/FDD5000/3"/3,5'/5,25'/Beta 48k Apina/D+/GP50s/DIVIDE CF/Masterface/Polbasic SamCoupe QL CPC6128/N100 MSX-SVI738  MSX2-VG8235

KWF

  • *****
  • Wiadomości: 6823
  • Miejsce pobytu:
    trzecia planeta od Słońca
  • "I co ja robię tu, u-u, co Ty tutaj robisz ..."
    • Insta do lasownia
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #17 dnia: 2017.12.18, 23:05:52 »
Nie pisałem, że sprawdziłem linia po linii. Przepuściłem przez OCRa i tyle. Tooloudtoowide miał jakiś skryp, który zamieniał .txt na .bas czy .tap.

Tu jest jakieś narzędzie do tego: https://derekbolli.wordpress.com/2012/11/16/create-tap-file-from-bas-text-source-in-bbedit-using-zmakebas-via-applescript/
KWF
-----
R Tape loading error 0:1
Moje zabawki: https://github.com/McKlaud76

tdu

  • *****
  • Wiadomości: 926
  • Miejsce pobytu:
    Gdansk
    • Nasze Wędrowanie
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #18 dnia: 2017.12.18, 23:14:15 »
Mimo błędów to w sumie jest i tak szybciej niż przepisywanie.

Wklejenie na żywca nie zrobi z tego Basica, trzeba to jakoś
przekonwertować.
ZX81/ZX 48k/Zx48k+/ZX +2/ZX +2A/+3/TC2048/FDD3000/FDD5000/3"/3,5'/5,25'/Beta 48k Apina/D+/GP50s/DIVIDE CF/Masterface/Polbasic SamCoupe QL CPC6128/N100 MSX-SVI738  MSX2-VG8235

steev

  • *****
  • Wiadomości: 1362
  • Miejsce pobytu:
    inode 42
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #19 dnia: 2017.12.18, 23:56:09 »
Po Nowym Roku mogę spróbować rozszerzyć funkcjonalność tap2tos o wczytywanie plików basica.
Machines should work. People should think.

tdu

  • *****
  • Wiadomości: 926
  • Miejsce pobytu:
    Gdansk
    • Nasze Wędrowanie
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #20 dnia: 2017.12.19, 00:10:33 »
Super!

Zawsze łatwiej pisać na PC niż na klawiaturze ZX.
Tyle tylko że ZX na bieżąco pilnuje składni, a na PC można
napisać każdą głupotę.
ZX81/ZX 48k/Zx48k+/ZX +2/ZX +2A/+3/TC2048/FDD3000/FDD5000/3"/3,5'/5,25'/Beta 48k Apina/D+/GP50s/DIVIDE CF/Masterface/Polbasic SamCoupe QL CPC6128/N100 MSX-SVI738  MSX2-VG8235

steev

  • *****
  • Wiadomości: 1362
  • Miejsce pobytu:
    inode 42
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #21 dnia: 2017.12.19, 00:31:55 »
No niestety :)
Trzeba też określić czy ignorować wielkość znaków, czy tokenizować tekst w cudzysłowach i co robić gdy  parser zgłosi błąd (na razie skłaniam się ku : tak, nie, zapisać całość bez zmian jako plik binarny)
 
Machines should work. People should think.

gregoryi

  • ****
  • Wiadomości: 288
  • Miejsce pobytu:
    Opole
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #22 dnia: 2017.12.19, 08:54:40 »
Program do zmiany TXT do TAP to zmakebas (ja użyłem wersji 1.5)
Sprawdziłem troszkę.
Mam nadzieję, że będzie działać
Proszę ewentualnie jak ktoś zauważy błąd przekazać poprawię.
Reszta w załącznikach.
Pozdrawiam.
« Ostatnia zmiana: 2017.12.19, 09:34:17 wysłana przez gregoryi »
ZX Spectrum 16, ZX Spectrum 48, ZX Spectrum 128 +2 Grey, ZX Spectrum 128 +3, Amstrad 6128, Commodore 64C, Amiga 600, Klony - Harlequin 48 Rev G, Harlequin 128 Rev 2D, Just Speecy 128, ZX Nuvo 128

tdu

  • *****
  • Wiadomości: 926
  • Miejsce pobytu:
    Gdansk
    • Nasze Wędrowanie
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #23 dnia: 2017.12.19, 11:46:07 »
Ten program jest gdzieś dostepny ?
ZX81/ZX 48k/Zx48k+/ZX +2/ZX +2A/+3/TC2048/FDD3000/FDD5000/3"/3,5'/5,25'/Beta 48k Apina/D+/GP50s/DIVIDE CF/Masterface/Polbasic SamCoupe QL CPC6128/N100 MSX-SVI738  MSX2-VG8235

gregoryi

  • ****
  • Wiadomości: 288
  • Miejsce pobytu:
    Opole
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #24 dnia: 2017.12.19, 12:04:48 »
Wrzucę na serwer ftp.
Już.
ZX Spectrum 16, ZX Spectrum 48, ZX Spectrum 128 +2 Grey, ZX Spectrum 128 +3, Amstrad 6128, Commodore 64C, Amiga 600, Klony - Harlequin 48 Rev G, Harlequin 128 Rev 2D, Just Speecy 128, ZX Nuvo 128

tooloud

  • *****
  • Wiadomości: 3185
  • Miejsce pobytu:
    Warszawa
  • mydłem go!
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #25 dnia: 2017.12.19, 13:09:11 »
Mimo błędów to w sumie jest i tak szybciej niż przepisywanie.

Wklejenie na żywca nie zrobi z tego Basica, trzeba to jakoś
przekonwertować.

skrypt robi. zmakebas.
dużo sprzętu mało czasu.

gregoryi

  • ****
  • Wiadomości: 288
  • Miejsce pobytu:
    Opole
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #26 dnia: 2017.12.19, 13:33:24 »
Wstawiamy linijkę:
zmakebas.exe -n CAT_V1 -o CAT_v1.tap test.txti działa.
Można jeszcze dodać -s 10 będzie autostart.
ZX Spectrum 16, ZX Spectrum 48, ZX Spectrum 128 +2 Grey, ZX Spectrum 128 +3, Amstrad 6128, Commodore 64C, Amiga 600, Klony - Harlequin 48 Rev G, Harlequin 128 Rev 2D, Just Speecy 128, ZX Nuvo 128

tdu

  • *****
  • Wiadomości: 926
  • Miejsce pobytu:
    Gdansk
    • Nasze Wędrowanie
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #27 dnia: 2017.12.19, 14:00:13 »
Przeniosłem do folderu "programy PC".

W tym przypadku program jest poprawny bo to był wydruk działającego programu.
A jeśli będziemy pisać w notatniku, nie uda się dokładnie naśladować oryginału.
Chociażby spacje między znakami, raz są a raz ich nie ma.
Mogą też być literówki i powstanie nieistniejące słowo kluczowe.
Ciekawe co ten skrypt wtedy zrobi.

Muszę popróbować.

ZX81/ZX 48k/Zx48k+/ZX +2/ZX +2A/+3/TC2048/FDD3000/FDD5000/3"/3,5'/5,25'/Beta 48k Apina/D+/GP50s/DIVIDE CF/Masterface/Polbasic SamCoupe QL CPC6128/N100 MSX-SVI738  MSX2-VG8235

tooloud

  • *****
  • Wiadomości: 3185
  • Miejsce pobytu:
    Warszawa
  • mydłem go!
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #28 dnia: 2017.12.19, 14:07:25 »
nie skonwertuje i wywali błędy.

na piszę w BBedit (czyli edytor tekstowy), czasem robię literówki etc. ale generalnie czas pisania vs na Spectrum to jest jakieś 20x szybciej. Plus jest backup kodu w postaci tekstowej.
dużo sprzętu mało czasu.

gregoryi

  • ****
  • Wiadomości: 288
  • Miejsce pobytu:
    Opole
Odp: Przenoszenie programów / gier. (cpcdisk, tap2tos)
« Odpowiedź #29 dnia: 2017.12.19, 14:09:46 »
Działam z tym skryptem od dawna.
Skrypt sprawdza tylko czy linie nie powtarzają się.
Składnię przetwarza na format BASIC, ale jeżeli znajdą się błędy (literówki) to tak zostaną zapisane.
Wychodzi trochę śmiesznie, np. komenda REM (błędnie wpisana RME) pojawi się w składni ale jako tekst.
Można zedytować linię, usunąć błąd i wstawić poprawny token.
Naprawdę świetny program do przepisywania, pisania na nowo programów w BASIC-u.
ZX Spectrum 16, ZX Spectrum 48, ZX Spectrum 128 +2 Grey, ZX Spectrum 128 +3, Amstrad 6128, Commodore 64C, Amiga 600, Klony - Harlequin 48 Rev G, Harlequin 128 Rev 2D, Just Speecy 128, ZX Nuvo 128