12.07.2016 12:57
[#1]
Amos i pliki w trybie binary
Czy da się jakoś w Amosie zapisywać/odczytywać pliki w trybie binary bajt po bajcie z pominięciem banków?
12.07.2016 14:31
[#4]
Re: Amos i pliki w trybie binary
@pong777, post #3
Jedyne co mi przychodzi do głowy to używanie funkcji z biblioteki dos.library za pomocą DOSCALL, do tego oczywiście jest potrzebna szczątkowa wiedza typu na temat funkcji: Open, Seek, Read, Close. Być może są jakieś rozkazy Amosa umożliwiające rozwiązanie tego problemu ale ja ich nie znam.
14.07.2016 23:29
[#7]
Re: Amos i pliki w trybie binary
@asman, post #4
asman, wszędzie by dos.library używał 
btw. moglibyśmy wszyscy wspólnie rozkminić wykorzystywanie dos.library w AMOSie, dużo spraw by to rozwiązało.
może tym sposobem:
możesz też powrzucać do tablicy różne fragmenty. generalnie przykład pokazuje jak wyjąć z dowolnego miejsca pliku 1024 bajty, lub więcej lub mniej w zależności jak sobie poustawiasz.
Ostatnia aktualizacja: 14.07.2016 23:38:54 przez groovebox
btw. moglibyśmy wszyscy wspólnie rozkminić wykorzystywanie dos.library w AMOSie, dużo spraw by to rozwiązało.
może tym sposobem:
Reserve As Work 1,_FILESIZE Bload "ram:example.txt",1 _READ=Start(1) _POS=4096 : _END=_POS+1024 For _START=_POS To _END _GET=Peek(_READ+_START) _OUT$=_OUT$+Chr$(_GET) Next Print _OUT$ : Rem *** tu masz 1024 bajty od wskazanego miejsca w _POS
możesz też powrzucać do tablicy różne fragmenty. generalnie przykład pokazuje jak wyjąć z dowolnego miejsca pliku 1024 bajty, lub więcej lub mniej w zależności jak sobie poustawiasz.
Ostatnia aktualizacja: 14.07.2016 23:38:54 przez groovebox
15.07.2016 00:12
[#9]
Re: Amos i pliki w trybie binary
@pong777, post #8
Ok. kumam. Przejrzyj kod źródłowy DiscManagera. Tam są procedury od formatowania dysku i między innymi: TRACKOPEN, TRACKCLOSE, TRACKREAD, TRACKWRITE, TRACKCHECKSUM itd. Napisane są one przy użyciu "Equates" (odwołują się do bibliotek systemowych), ale jak od czegoś zaczynać to może właśnie od tego?
15.07.2016 00:16
[#10]
Re: Amos i pliki w trybie binary
@pong777, post #8
Nie rozumiem. Właśnie zobaczyłem do książki o AMOSie autorstwa Pawła Chadzińskiego no i nie widzę w czym problem. Wygląda na to, że AMOS ma wszystko co potrzeba.
Plik sekwencyjny do odczytu otwierasz za pomocą polecenia OPEN IN (do zapisu OPEN OUT), zaś przemieszczasz się do dowolnego jego miejsca za pomocą polecenia POF.
Odczytujesz za pomocą INPUT#, zapisujesz za pomocą PRINT# używając dowolnych zmiennych.
Ostatnia aktualizacja: 15.07.2016 00:22:04 przez Hexmage960
Plik sekwencyjny do odczytu otwierasz za pomocą polecenia OPEN IN (do zapisu OPEN OUT), zaś przemieszczasz się do dowolnego jego miejsca za pomocą polecenia POF.
Odczytujesz za pomocą INPUT#, zapisujesz za pomocą PRINT# używając dowolnych zmiennych.
Ostatnia aktualizacja: 15.07.2016 00:22:04 przez Hexmage960
15.07.2016 00:27
[#12]
Re: Amos i pliki w trybie binary
@groovebox, post #11
Te polecenia nie wczytują pliku w całości tylko do wybranych zmiennych.
Składnia:
OPEN IN n,a$ - otwiera plik sekwencyjny do odczytu o nazwie a$ i przypisuje kanałowi n.
OPEN OUT n,a$ - j.w. tylko, że do zapisu
CLOSE n - zamyka plik przyporządkowany kanałowi
INPUT #n,a,b,c - czyta z pliku dane i wpisuje do zmiennych a, b, c.
PRINT #n,a,b,c - j.w., tylko że zapisuje
POF(n) = m - zmienia pozycję odczytu/zapisu z pliku przyporządkowanego kanałowi n na m znaków (bajtów).
Składnia:
OPEN IN n,a$ - otwiera plik sekwencyjny do odczytu o nazwie a$ i przypisuje kanałowi n.
OPEN OUT n,a$ - j.w. tylko, że do zapisu
CLOSE n - zamyka plik przyporządkowany kanałowi
INPUT #n,a,b,c - czyta z pliku dane i wpisuje do zmiennych a, b, c.
PRINT #n,a,b,c - j.w., tylko że zapisuje
POF(n) = m - zmienia pozycję odczytu/zapisu z pliku przyporządkowanego kanałowi n na m znaków (bajtów).
15.07.2016 01:08
[#14]
Re: Amos i pliki w trybie binary
@groovebox, post #13
Robisz to tak jak opisał Hexmage. Otwierasz plik do odczytu i albo skaczesz od razu pod jakiś offset albo wyszukujesz odczytując kolejne porcje danych i porównując je z wzorem. Jak już masz swoje dane zlokalizowane to wczytujesz je pętlą FOR - NEXT albo inną do zmiennej, banku pamięci, na ekran czy gdzie tam chcesz. Na koniec zamykasz plik.
Trzeba pamiętać, że na A500 z 512kB RAM będzie to przeraźliwie wolne - i jeżeli jest taka możliwość to BLOAD działa zdecydowanie lepiej. Szkoda, że nie można zrobić BLOAD dla części pliku - bardzo uprościłoby to takie zabawy.
Trzeba pamiętać, że na A500 z 512kB RAM będzie to przeraźliwie wolne - i jeżeli jest taka możliwość to BLOAD działa zdecydowanie lepiej. Szkoda, że nie można zrobić BLOAD dla części pliku - bardzo uprościłoby to takie zabawy.
15.07.2016 15:27
[#17]
Re: Amos i pliki w trybie binary
@Hexmage960, post #12
Pliki sekwencyjne to nie jest to samo co pliki binarne.
Używamy:
Open Random n,files$
Field n,size1 As zmienna1$...
Pof(n) = position
Get n,m
Close n
Odczyta do zmiennej tekstowej od ustalonej pozycji zdefiniowaną ilość bajtów. Dostęp do danych jest poprzez peekowanie adresu zmiennej.
Używamy:
Open Random n,files$
Field n,size1 As zmienna1$...
Pof(n) = position
Get n,m
Close n
Odczyta do zmiennej tekstowej od ustalonej pozycji zdefiniowaną ilość bajtów. Dostęp do danych jest poprzez peekowanie adresu zmiennej.
15.07.2016 18:23
[#18]
Re: Amos i pliki w trybie binary
@cholok, post #17
Z tego co wiem, to pliki sekwencyjne można otworzyć albo tylko do zapisu, albo tylko do odczytu. Pliki z dostępem swobodnym można czytać i zapisywać równocześnie.
Pliki sekwencyjne mogą składać się praktycznie z dowolnych zmiennych - nie ważne czy znakowych, czy binarnych. Pliki z dostępem swobodnym muszą składać się z rekordów.
Ostatnia aktualizacja: 15.07.2016 18:26:04 przez Hexmage960
Pliki sekwencyjne mogą składać się praktycznie z dowolnych zmiennych - nie ważne czy znakowych, czy binarnych. Pliki z dostępem swobodnym muszą składać się z rekordów.
Ostatnia aktualizacja: 15.07.2016 18:26:04 przez Hexmage960
15.07.2016 19:07
[#22]
Re: Amos i pliki w trybie binary
@cholok, post #21
Tak, masz rację. Nie wiedziałem, że pliki sekwencyjne są tylko w postaci znakowej.
EDIT: Chociaż, czy aby na pewno? Wtedy dlaczego POF umożliwia wybranie dowolnego bajta w pliku sekwencyjnym? To wskazywałoby na budowę binarną.
Nie mam w tej chwili dostępu do AMOSa by sprawdzić. Mam tylko książkę.
Ostatnia aktualizacja: 15.07.2016 19:13:23 przez Hexmage960
EDIT: Chociaż, czy aby na pewno? Wtedy dlaczego POF umożliwia wybranie dowolnego bajta w pliku sekwencyjnym? To wskazywałoby na budowę binarną.
Nie mam w tej chwili dostępu do AMOSa by sprawdzić. Mam tylko książkę.
Ostatnia aktualizacja: 15.07.2016 19:13:23 przez Hexmage960
15.07.2016 19:57
[#23]
Re: Amos i pliki w trybie binary
@Hexmage960, post #22
Spokojnie można otwierać i czytać pliki binarne instrukcjami Open In i Input$(). Problem jest z zapisem. Print# zupełnie się do tego nie nadaje. Można sobie poradzić zapisując dane do pamięci (Reserve As Work i potem Poke) i zapisując na dysk instrukcją Bsave. Nie można w ten sposób niestety utworzyć pliku większego od rozmiaru największego wolnego bloku pamięci. Działa natomiast np. kopiowanie plików wykonywalnych. Być może można kilka plików binarnych łączyć ze sobą - jeszcze to sprawdzę.
15.07.2016 20:50
[#27]
Re: Amos i pliki w trybie binary
@cholok, post #26
Sądzę, że w tym przypadku wczyta znaki aż do napotkania znacznika końcu ciągu czyli 0. Ale w tym przypadku zgaduję. Najlepiej sprawdzić w AMOSie.
Przecież:
INPUT #1,a
nie wczyta ciągu tekstowego złożonego z cyfr, a następnie skonwertuje do liczby, tylko wczytuje liczbę w postaci binarnej (pewnie rozmiar to rozmiar zmiennych w AMOSie).
Czyli nie działa jak:
scanf("%d", &a);
tylko jak:
fread(&a, sizeof(int), 1, f);
w języku C. A o to się rozchodzi.
Przecież:
INPUT #1,a
nie wczyta ciągu tekstowego złożonego z cyfr, a następnie skonwertuje do liczby, tylko wczytuje liczbę w postaci binarnej (pewnie rozmiar to rozmiar zmiennych w AMOSie).
Czyli nie działa jak:
scanf("%d", &a);
tylko jak:
fread(&a, sizeof(int), 1, f);
w języku C. A o to się rozchodzi.