• Skąd: Wrocław
  • Zarejestrowany: 2005-09-12
  • Posty: 1,821

Temat: ASM w Pure Pascalu

No właśnie jak zrobić wstawkę w asemblerze w PP, chodzi o instrukcję MOVE ? Próbowałem ASM, ale nie działa mi to.
Dokładnie to chodzi o ten nieszczęsny odczyt z adresu i zapis pod adres.
Maxon Pascal ma biblio STPascal.UNI i dzięki niemu można użyć PEEK i POKE, a co z tym ziemniaczanym (puree) Pascalem?

Było miło :) Do widzenia.

artik-wroc's Strona

2 Odpowiedź przez sqward

  • sqward
  • Kasetownik Atarowiec
  • Nieaktywny
  • Skąd: Norfolk
  • Zarejestrowany: 2003-09-05
  • Posty: 2,362

Odp: ASM w Pure Pascalu

Pure Pascal nie ma wstawek. Musisz zrobić osobny plik w asm.
Nie znam Pascala, ale nie ma tam wskaźników jak w C?

What can be asserted without proof can be dismissed without proof.

3 Odpowiedź przez qbahusak

  • Skąd: Polska
  • Zarejestrowany: 2006-07-04
  • Posty: 1,000

Odp: ASM w Pure Pascalu

sqward napisał/a:

Nie znam Pascala, ale nie ma tam wskaźników jak w C?

Oczywiście, że są.

Po polsku ziemniak to też pyra.
PyraPascal.

Ostatnio edytowany przez qbahusak (2022-11-21 10:02:10)

qbahusak's Strona

4 Odpowiedź przez mormon

  • mormon
  • Przechodzień
  • Nieaktywny
  • Skąd: Wrocław
  • Zarejestrowany: 2008-07-21
  • Posty: 89

Odp: ASM w Pure Pascalu

Nie wiem jak w Pure Pascalu, ale w Turbo można było po prostu podmapować zmienną pod adres w pamięci. Np.

const
       IOMem = $f0000000;
     
     var
       { This address has no actual meaning }
       MyPort: Byte absolute IOMem + $c030;

Wtedy do pamięci (rejestru) można się odnosić jak do zmiennej.

5 Odpowiedź przez Lizard

  • Skąd: Syreni Gród
  • Zarejestrowany: 2003-05-16
  • Posty: 1,288

Odp: ASM w Pure Pascalu

Wskaźniki z Pascalu ładnie opisane są na stronie Pascal - Pointers. Jest tam też opis, jak odwoływać się do komórek pamięci.

Zawsze mam rację, tylko nikt mnie nie słucha.

6 Odpowiedź przez artik-wroc

  • Skąd: Wrocław
  • Zarejestrowany: 2005-09-12
  • Posty: 1,821

Odp: ASM w Pure Pascalu

Dzięki serdeczne za wszelkie podpowiedzi, pytanie zasadnicze jak to jest konkretnie w Puree Pascalu.. Inaczej w Alice, HI, Maxon itd...
Obaczym i napiszem.

Było miło :) Do widzenia.

artik-wroc's Strona

7 Odpowiedź przez Lizard

  • Skąd: Syreni Gród
  • Zarejestrowany: 2003-05-16
  • Posty: 1,288

Odp: ASM w Pure Pascalu

artik-wroc napisał/a:

Dokładnie to chodzi o ten nieszczęsny odczyt z adresu i zapis pod adres.

Move da się zrobić na wskaźnikach:

sptr, dptr: ^integer;

sptr := adr1;
dptr := adr2;

dptr^ := sptr^;
Zawsze mam rację, tylko nikt mnie nie słucha.

8 Odpowiedź przez artik-wroc

  • Skąd: Wrocław
  • Zarejestrowany: 2005-09-12
  • Posty: 1,821

Odp: ASM w Pure Pascalu

Ale jak do jasnej ******* odczytać BAJT z KONKRETNEGO adresu np: $12345. Ja mam mózg zniszczony przez Basic i za ChRL nie rozumiem jego dziadostwa (wskaźników).

Jeżeli chcę odczytywać po bajcie, to deklaruję:

wsk : ^byte;

gdy potem piszę:

wsk := $12345

to jest błąd, że typy niezgodne. Nic z tego nie rozumiem.

Było miło :) Do widzenia.

artik-wroc's Strona

9 Odpowiedź przez _tzok_

  • Skąd: Bielsko-Biała
  • Zarejestrowany: 2017-06-15
  • Posty: 1,334

Odp: ASM w Pure Pascalu

Wskaźniki w Pascalu definiuje się jako typy, nie zmienne:

type
   Cptr = ^char;
var
   a : Cptr;

Jeśli po prostu chcesz wypisać zawartość pamięci spod adresu, to powinno wystarczyć:

var
   y: ^word;

begin
   y := $FFFF;
   writeln(y^); 
end.

Ostatnio edytowany przez _tzok_ (2022-11-27 21:06:52)

Moja kolekcja: Atari 1040STe (4MB), Atari 1040STfm (4MB, BLiTTER, AT-ONCE+), Atari 800XE (SIMM EXP 1MB), Atari 800XL (RAMBO XL 256kB), Atari 600XL (64kB), Sinclair ZX SPECTRUM+ (48kB), TIMEX Computer 2048 (48kB), Commodore A600 (2MB+4MB, HDD CF 4GB), Commodore C64C.

10 Odpowiedź przez artik-wroc

  • Skąd: Wrocław
  • Zarejestrowany: 2005-09-12
  • Posty: 1,821

Odp: ASM w Pure Pascalu

EDIT: Przemyślę to, bo nic nie kumam

Ostatnio edytowany przez artik-wroc (2022-11-27 21:11:34)

Było miło :) Do widzenia.

artik-wroc's Strona

11 Odpowiedź przez Lizard

  • Skąd: Syreni Gród
  • Zarejestrowany: 2003-05-16
  • Posty: 1,288

Odp: ASM w Pure Pascalu

Sorry, pospieszyłem się i nie sprawdziłem, czy poprzedni przykład jest prawidłowy. Spróbuj poniższej konstrukcji. Nie mam chwilowo dostępu do deasemblera, aby sprawdzić, co z tego wychodzi, ale wstępne testy w debuggerze Pure Pascala wydają się być obiecujące.

type
  char_ptr = ^char;
var
  s, d : char_ptr;
begin
  s := char_ptr($12345);
  d := char_ptr($23456);
  s^ := d^
end.
_tzok_ napisał/a:

Wskaźniki w Pascalu definiuje się jako typy, nie zmienne:

Można, ale nie trzeba. Chociaż w moim przykładzie jest to konieczne. :-)

_tzok_ napisał/a:

Jeśli po prostu chcesz wypisać zawartość pamięci spod adresu, to powinno wystarczyć:

var
   y: ^word;

begin
   y := $FFFF;
   writeln(y^); 
end.

Powyższe nie zadziała. Próbujesz przypisać wartość wskaźnikowi. To jest to, na czym się wyłożyłem w poprzednim poście.

Ostatnio edytowany przez Lizard (2022-11-28 00:33:23)

Zawsze mam rację, tylko nikt mnie nie słucha.

12 Odpowiedź przez artik-wroc

  • Skąd: Wrocław
  • Zarejestrowany: 2005-09-12
  • Posty: 1,821

Odp: ASM w Pure Pascalu

   s := char_ptr($12345);
  d := char_ptr($23456);

No właśnie tak. Swoją drogą nigdzie takiego zapisu nie widziałem. Każda wersja Pascala na Atari pozwala na inne rzeczy, a książki znalazłem tylko do Hi i Personal.

Dostałem podpowiedź:
https://www.atari-forum.com/viewtopic.p … 80#p440880

i faktycznie teraz działa, choć nie w moim przypadku :) Prosty program działa z wpisaniem pod adres i odczytem, ale zapisywanie do rejestrów karty już coś nie bardzo. Mam program który wykrywa kartę SB i odgrywa prostą melodyjkę.
sb

Wersja Maxon (PEEK, POKE) działa, wersja Puree (ze wskaźnikiem) nie. Muszę to jeszcze raz obejrzeć, bo może jest jakiś czeski błąd, albo kwestia ustawień kompilatora, plik wynikowy jest znacznie większy niż pod Maxon'em.

EDIT: Lizard: tylko deklaracja typu, bez zmiennej.
Tak jak podejrzewałem, kwestia wybrania opcji w kompilatorze i gra muzyka :)
Teraz Pinokio idzie dalej sam :) Przynajmniej spróbuję.

Ostatnio edytowany przez artik-wroc (2022-11-28 11:18:18)

Było miło :) Do widzenia.

artik-wroc's Strona

13 Odpowiedź przez Lizard

  • Skąd: Syreni Gród
  • Zarejestrowany: 2003-05-16
  • Posty: 1,288

Odp: ASM w Pure Pascalu

Zmienna nie jest potrzebna, jeżeli lubisz takie fikołki składniowe, jak w przytoczonym przykładzie. :-) Osobiście wolę uproszczony zapis.

Nie zastanawiałeś się nad Puree z C? Tam odwołania do pamięci są czymś naturalnym.

Ostatnio edytowany przez Lizard (2022-11-28 11:53:53)

Zawsze mam rację, tylko nikt mnie nie słucha.

14 Odpowiedź przez artik-wroc

  • Skąd: Wrocław
  • Zarejestrowany: 2005-09-12
  • Posty: 1,821

Odp: ASM w Pure Pascalu

Akurat program który próbuję przerobić jest w Pascalu, więc uznałem że tak będzie szybciej. Na razie zaplątałem się w sieci begin i end :)

Było miło :) Do widzenia.

artik-wroc's Strona