<![CDATA[atari.area forum - Programowanie - 8 bit]]> https://www.atari.org.pl/forum/index.php Tue, 24 Feb 2026 16:25:05 +0000 PunBB <![CDATA[mad pascal na mac os]]> https://www.atari.org.pl/forum/viewtopic.php?id=20647&action=new Cześć,

skompilowałem sobie mad pascala i madsa pod mac os, wciepałem wykonywalne pliki do jednego folderu razem z repo mad pascala, skonfigurowałem sobie Geany jak Bocianu kazał (https://bocianu.atari.pl/blog/madgeany) i przy próbie kompilacji mam lipę :/

może ktoś coś wyłapie co mam źle ustawione?



https://www.atari.org.pl/forum/misc.php?action=pun_attachment&amp;item=13442

]]> Tue, 24 Feb 2026 16:25:05 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=20647&action=new <![CDATA[Monitor / Debugger]]> https://www.atari.org.pl/forum/viewtopic.php?id=20633&action=new Cześć wszystkim!

Zrobiłem prototyp frontendu monitora i debuggera a800mon, wraz z binarnym protokołem.

Głównym powodem jest chęć eksploracji pamięci Atari i eksperymenty na żywym organizmie. Na Linuxie używam emulatora Atari800, którego debugger i monitor jest, mówiąc delikatnie, nieużywalny. Stąd pomysł, żeby zrobić do tego wygodne UI oraz CLI.  Protokół do monitora i debuggera siłą rzeczy musiał powstać, żeby to działało.

Dzięki protokołowi można użyć a800mon z dowolnym backendem (np. innym emulatorem) - wystarczy że backend zaimplementuje protokół. To zdejmuje ciężar programowania samej emulacji i można polegać na istniejących rozwiązaniach.

Projekt jest we wczesnej fazie developmentu. Wymaga sforkowanego emulatora Atari800 z włączonym Remote Monitorem. Aktualnie działa tylko na Linuxach i unixpodobnych systemach (wymagane sockety). Transport TCP/IP lub alternatywny dodam, jeśli maintainerzy Atari800 w ogóle przyjmią pull request z Remote Monitorem.

Jestem ciekawy Waszych uwag.

https://www.youtube.com/watch?v=9Co0CPifd6Y


- a800mon: https://github.com/a800mon/a800mon
- Fork Atari800: https://github.com/a800mon/atari800

]]> Sun, 15 Feb 2026 17:22:37 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=20633&action=new <![CDATA[Mad-Pascal (najnowszy) i kompilacja na Linuksie]]> https://www.atari.org.pl/forum/viewtopic.php?id=20600&action=new Czołem Atarowcy!

Ponieważ mój dotychczasowy Mad-Pascal to 1.7.1, postanowiłem sobie go odświeżyć. Sciągam najnosze źródełka z gita... łyczek kawki... i make... błąd!
Myślę sobie, ok, wejdziemy do src i skompilujemy z ręki, a tu znowu... zonk! Na dwóch róznych systemach z działającym fpc, to samo (Fedora i Arch Linux):

 % fpc -MDelphi -vh -O3 mp.pas

Hint: Start of reading config file /etc/fpc.cfg
Hint: End of reading config file /etc/fpc.cfg
Free Pascal Compiler version 3.2.2 [2024/05/01] for x86_64
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling mp.pas
Compiling Common.pas
Compiling CommonTypes.pas
Compiling CompilerTypes.pas
Compiling DataTypes.pas
Compiling FileIO.pas
FileIO.pas(269,15) Warning: An inherited method is hidden by "Assign(const AnsiString);"
FileIO.pas(270,15) Warning: An inherited method is hidden by "Close;"
FileIO.pas(271,15) Warning: An inherited method is hidden by "Erase;"
FileIO.pas(272,14) Warning: An inherited method is hidden by "EOF:Boolean;"
FileIO.pas(273,15) Warning: An inherited method is hidden by "Reset;"
FileIO.pas(274,15) Warning: An inherited method is hidden by "Rewrite;"
generics.collections.pas(1186,20) Note: Call to subroutine "function TEnumerable<System.AnsiString>.GetEnumerator:TEnumerator$1<SYSTEM.AnsiString>;" marked as inline is not inlined
generics.collections.pas(1186,20) Note: Call to subroutine "function TEnumerable<FileIO.TPair<System.AnsiString,System.AnsiString>>.GetEnumerator:TEnumerator$1<FILEIO.TPair$2<SYSTEM.AnsiString,SYSTEM.AnsiString>>;" marked as inline is not inlined
generics.defaults.pas(2634,1) Warning: function result variable of a managed type does not seem to be initialized
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc897DEE08" with abstract method "DoMoveNext"
generics.collections.pas(121,14) Hint: Found abstract method: DoMoveNext(<TEnumerator$1$crc6824777A>):Boolean;
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc897DEE08" with abstract method "GetCurrent"
generics.dictionariesh.inc(119,14) Hint: Found abstract method: GetCurrent(<TCustomDictionaryEnumerator$4$crc897DEE08>;<var AnsiString>):AnsiString;
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc897DEE08" with abstract method "DoMoveNext"
generics.collections.pas(121,14) Hint: Found abstract method: DoMoveNext(<TEnumerator$1$crc6824777A>):Boolean;
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc897DEE08" with abstract method "GetCurrent"
generics.dictionariesh.inc(119,14) Hint: Found abstract method: GetCurrent(<TCustomDictionaryEnumerator$4$crc897DEE08>;<var AnsiString>):AnsiString;
generics.dictionariesh.inc(286,33) Hint: Parameter "AFrom" not used
generics.dictionariesh.inc(286,40) Hint: Parameter "ATo" not used
FileIO.pas(199,31) Hint: Parameter "w" not used
FileIO.pas(806,11) Hint: Local variable "c" does not seem to be initialized
generics.collections.pas(144,52) Note: Private type "TCustomPointersEnumerator$2<SYSTEM.AnsiString,FILEIO.TCustomList$1$crc6824777A.PT>.T" never used
generics.collections.pas(144,52) Note: Private type "TCustomPointersEnumerator$2<FILEIO.TPair$2<SYSTEM.AnsiString,SYSTEM.AnsiString>,FILEIO.TCustomList$1$crcE101151F.PT>.T" never used
FileIO.pas(9,16) Hint: Unit "CommonTypes" not used in FileIO
Compiling Tokens.pas
generics.collections.pas(1186,20) Note: Call to subroutine "function TEnumerable<System.AnsiString>.GetEnumerator:TEnumerator$1<SYSTEM.AnsiString>;" marked as inline is not inlined
generics.collections.pas(1186,20) Note: Call to subroutine "function TEnumerable<Tokens.TTokenKind>.GetEnumerator:TEnumerator$1<TOKENS.TTokenKind>;" marked as inline is not inlined
generics.collections.pas(1186,20) Note: Call to subroutine "function TEnumerable<Tokens.TPair<System.AnsiString,Tokens.TTokenKind>>.GetEnumerator:TEnumerator$1<TOKENS.TPair$2<SYSTEM.AnsiString,TOKENS.TTokenKind>>;" marked as inline is not inlined
generics.defaults.pas(2634,1) Warning: function result variable of a managed type does not seem to be initialized
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc8EA04C88" with abstract method "DoMoveNext"
generics.collections.pas(121,14) Hint: Found abstract method: DoMoveNext(<TEnumerator$1$crc3746980C>):Boolean;
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc8EA04C88" with abstract method "GetCurrent"
generics.dictionariesh.inc(119,14) Hint: Found abstract method: GetCurrent(<TCustomDictionaryEnumerator$4$crc8EA04C88>):<enumeration type>;
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc1E1490C8" with abstract method "DoMoveNext"
generics.collections.pas(121,14) Hint: Found abstract method: DoMoveNext(<TEnumerator$1$crc6824777A>):Boolean;
generics.dictionaries.inc(191,92) Warning: Constructing a class "TCustomDictionaryEnumerator$4$crc1E1490C8" with abstract method "GetCurrent"
generics.dictionariesh.inc(119,14) Hint: Found abstract method: GetCurrent(<TCustomDictionaryEnumerator$4$crc1E1490C8>;<var AnsiString>):AnsiString;
generics.defaults.pas(2634,1) Warning: function result variable of a managed type does not seem to be initialized
Hint: Parameter "AFrom" not used
Hint: Parameter "ATo" not used
generics.collections.pas(144,52) Note: Private type "TCustomPointersEnumerator$2<SYSTEM.AnsiString,TOKENS.TCustomList$1$crc6824777A.PT>.T" never used
generics.collections.pas(144,52) Note: Private type "TCustomPointersEnumerator$2<TOKENS.TTokenKind,TOKENS.TCustomList$1$crc3746980C.PT>.T" never used
generics.collections.pas(144,52) Note: Private type "TCustomPointersEnumerator$2<TOKENS.TPair$2<SYSTEM.AnsiString,TOKENS.TTokenKind>,TOKENS.TCustomList$1$crc602E2D29.PT>.T" never used
CompilerTypes.pas(872,1) Warning: function result variable of a managed type does not seem to be initialized
CompilerTypes.pas(284,5) Note: Private field "TTypeList.Count" is never used
Compiling Memory.pas
Compiling StringUtilities.pas
StringUtilities.pas(77,3) Note: Local variable "i" is assigned but never used
Compiling Targets.pas
Compiling Messages.pas
Compiling Console.pas
Compiling Utilities.pas
Common.pas(190,20) Hint: Parameter "message" not used
Common.pas(180,32) Hint: Parameter "tokenIndex" not used
Compiling Compiler.pas
Compiling Assembler.pas
Assembler.pas(87,3) Hint: Local const "msg" is not used
Assembler.pas(107,3) Hint: Local const "msg" is not used
Compiling CommonIO.pas
Compiling Debugger.pas
Compiling Parser.pas
Compiling Numbers.pas
Numbers.pas(26,23) Hint: Parameter "valType" not used
Compiling Debugger.pas
Parser.pas(1828,32) Warning: Local variable "identifier" does not seem to be initialized
Parser.pas(1828,3) Warning: Local variable "Block" does not seem to be initialized
Compiling MathEvaluate.pas
Compiling Optimizer.pas
Compiling Optimize.pas
Compiling OptimizeTemporary.pas
Compiling OptimizerTypes.pas
Optimize.pas(461,27) Hint: Parameter "context" not used
opt_STACK_AX_CX.inc(231,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(232,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(233,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(236,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(237,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(239,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(240,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(243,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(244,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(246,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(248,35) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(272,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(273,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(274,9) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(275,9) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(276,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(279,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(280,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(282,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(283,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(286,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(287,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(289,2) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(291,35) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(501,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(502,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(503,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(504,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(505,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(506,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(508,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(509,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(510,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(511,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(512,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(513,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(516,18) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(517,18) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(518,18) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(519,18) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(520,18) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(521,18) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(552,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(553,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(554,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(555,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(556,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(557,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(559,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(560,3) Error: Identifier not found "listing_tmp"
opt_STACK_AX_CX.inc(560,3) Fatal: There were 50 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

.. może ktoś to przewalczył, zanim zacznę wyarzać otwarte drzwi? ;-)

-U

]]> Sat, 24 Jan 2026 16:34:11 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=20600&action=new <![CDATA[Atari XE 1Mb SuperCart]]> https://www.atari.org.pl/forum/viewtopic.php?id=20542&action=new Cześć,

Znalazłem taki oto projekt carta na PCBway i zamówiłem sobie płytki : https://www.pcbway.com/project/sharepro … rCart.html

Polutowałem wszystko tak jak trzeba pod wersję 128K (27010) no i przyszedł czas na zrobienie wsadu.
Jako ze romy mialem w rozmiarze 8kB to na koncu każdego z nich z pomoca winhex'a wkleiłem 8192 zer i zrobiłem paczkę z 8x16K. Jako pamięć do carta użyłem eproma M27C1001, flash 29F001 też działa  .
Po wgraniu wsadu do pamięci i uruchomieniu na atarce mam do dyspozycji tylko ostatnią grę w Altirra tak samo. W jaki sposób przełączyć się na inny bank carta ?
Czy do wyboru innego banku z grą trzeba napisać jakieś menu z wyborem czy jednak robię coś nie tak ?
Jako że z programowania jestem zielony to z pomocą chatagpt próbowałem wygenerować jakieś menu i poźniej to skompilować ale bez powodzenia. W razie czego wklejam to co wygenerował czat i wsad .
Czy znajdzie się ktroś kto pomoże w uruchomieniu tego carta ?

]]> Fri, 21 Nov 2025 19:13:30 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=20542&action=new <![CDATA[Free Pascal i MOS6502]]> https://www.atari.org.pl/forum/viewtopic.php?id=20494&action=new Właśnie zauważyłem nową gałąź kompilatora FPC:
https://gitlab.com/freepascal.org/fpc/s … type=heads
Trzymam kciuki.

]]> Fri, 17 Oct 2025 18:00:32 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=20494&action=new <![CDATA[Mad-Pascal, PMG i tryb graficzny 15]]> https://www.atari.org.pl/forum/viewtopic.php?id=20254&action=new Po długiej przerwie od Atari postanowiłem powrócić do niego i naszło mnie, aby stworzyć jakiś prosty projekt.
Jako dzieciak bawiłem się językiem BASIC, ale teraz po wielu latach siedzenia w językach wysokiego poziomu na PC raczej ten język nie wchodzi w grę.
Mad-Pascal wydaje mi się fajnym rozwiązaniem.
Oczywiście szybko natrafiłem na pierwsze problemy.
Póki co moim założeniem jest sprawdzenie możliwości graficznych.
I tu moje pierwsze pytanie. Czy jest możliwe wyświetlanie duszków w trybie graficznym 15 bez magicznych sztuczek w assemblerze?
Tryb graficzny 15 dlatego, że oferuje akceptowalną "rozdzielczość" + 4 kolory. Jakby doszły do tego 4 kolory duszków to jest to czego potrzebuję.

Mój kod:

uses pmg, crt, graph;
var
    p0Data: array[0.._P_MAX] of byte = (28, 8, 137, 126, 62, 34, 34, 102, 0, 0, 0, 0, 0, 0, 0);
begin
    InitGraph(15+16);
    
    SizeP(0, 0);
    ColorPM(0, 58);
    p_data[0] := p0Data;
    
    SetPM(_PM_DOUBLE_RES);  
    InitPM(_PM_DOUBLE_RES);
    
    ShowPM(_PM_SHOW_ON);  
    MoveP(0, 60, 10);
    
    ReadKey;
    ShowPM(_PM_SHOW_OFF);
end.

Wyświetla artefakty w tym trybie (jak w załączniku). Dlaczego? Rozumiem, że dane w pamięci się "gryzą" ze sobą. Jak temu zaradzić i czy się da to zrobić tylko i wyłącznie za pomocą mad-pascala?
Próbowałem też wykorzystując bibliotekę Bociana b_pmg ale efekt ten sam.

]]> Sun, 02 Mar 2025 17:05:13 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=20254&action=new <![CDATA[Kod źrodłowy Elite]]> https://www.atari.org.pl/forum/viewtopic.php?id=20197&action=new W kilku różnych wersjach na 6502 można znaleźć tu: https://elite.bbcelite.com/
Może ktoś się podejmie portu?

]]> Fri, 31 Jan 2025 22:57:31 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=20197&action=new <![CDATA[Muzyczka w C i pierwsze koty za płoty]]> https://www.atari.org.pl/forum/viewtopic.php?id=19978&action=new Ahoj!

Próbuję trochę swoich sił w C.
Idzie mi tak sobie, narazie mam takiego biegnącego SuperFroga :)

https://i.ibb.co/t3zzvRg/ddfd6c6e-2f56-44b9-b049-c80baa6692ea.gif

Czy ktoś może ma jakieś doświadczenie z odgrywaniem muzyki w C? (sap, rmt)? Może jakieś inne porady?
Kawałek kodu?
Ciężko coś wygooglować w tym temacie.

Załączam też plik rom, do odpalenia u siebie, chociaż póki co nie ma co podziwiać :)

Pozdr.
Javalonde

]]> Fri, 20 Sep 2024 14:46:02 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19978&action=new <![CDATA[mads - procedury]]> https://www.atari.org.pl/forum/viewtopic.php?id=19961&action=new Próbuje liznąć lekko asm dla A8, ogólnie zainspirował mnie David Arlington ze swoją serią na YT, tylko on używa Mac/65 na real Atari, ja jednak wybrałem madsa, w sumie ze względu, że można używać procedur co wydaje mi się ułatwiać programowanie.

Napisałem prostą procedurę do której przekazuje znak.

Może ktoś mi wyjaśni dlaczego jak zadeklaruje ZNAK2 jako byte, to przy przekazaniu tego do procedury dostaję niezgodność typów ?

ZNAK1 = '>'
ZNAK2 .BYTE '*'

org $2000

ZNAK1 = '>' 
ZNAK2 .BYTE '*'

   ; PLOT #ZNAK1
    PLOT #ZNAK2

PLOT .proc (.BYTE ZN) .var 
    .var ZN .byte

    .endp
test2.asm (7) ERROR: Incompatible types ZN
]]> Mon, 09 Sep 2024 05:40:33 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19961&action=new <![CDATA[Bug w Atariki w PMBASE?]]> https://www.atari.org.pl/forum/viewtopic.php?id=19893&action=new W trakcie szkolenia AI do pisania gier w asemblerze na Atari trafiłem chyba na błąd tu:
http://atariki.krap.pl/index.php/Rejest … C-a#PMBASE

Wydaje mi się, że powinno być odwrotnie, zgodnie z:
https://atariwiki.org/wiki/Wiki.jsp?page=PMBASE

Czyli: dla duszków dwuliniowych, obszar P&M zajmuje 1KB i taka musi być granica początku pamięci P&M zapisywanego do PMBASE, a dla jednoliniowych jest to 2KB.

Zgadza się?

Piszę z pewną taką nieśmiałością, bo dawno nie programowałem na Atari, a trudno mi uwierzyć, by błąd przez tyle lat nie został zauważony.

]]> Tue, 23 Jul 2024 19:31:08 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19893&action=new <![CDATA[Mnożenie na Lynx]]> https://www.atari.org.pl/forum/viewtopic.php?id=19870&action=new https://www.monlynx.de/lynx/lynx9.html

Writing to B,D,F,H,K, or M will force a '0' to be written to A,C,E,G,J, or L, respectfully. Therefore, if you only have 8 bits in a particular number, there is no need to write the upper byte to '0'. (except for signed multiplies)
Writing to A will start a 16 bit multiply.

W upkr potrzebuję mnożenia 8x8. Jestem skonfudowany stwierdzeniem, że zapis do B zeruje A. Czy to startuje mnożenie, czy i tak trzeba zapisać do A? Jeśli tak, to jaki ma sens pisanie o zerowaniu A?
Czy te rejestry są też do odczytu?

]]> Sat, 06 Jul 2024 06:22:38 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19870&action=new <![CDATA[Wspólny kod dla 6502, 65C02, 65816]]> https://www.atari.org.pl/forum/viewtopic.php?id=19869&action=new Kto ma doświadcznie z kodem, który można zasemblować zarówno na gołe 6502, np.

 LDA (ptr,X) ; X=0

a przy asemblacji na 65C02 korzysta z jego instrukcji i trybów adresowania, np.

 LDA (ptr)

Drugi przykład:

 STX foo ; X=0
 STZ foo

Chodzi mi o to, żeby nie pisać za każdym razem asemblerowego ifa.

Czy znacie asemblery, które mają pseudoinstrukcje lub specjalną składnię w tym celu?
Ewentualnie zestawy makr - jakie sami używacie lub gdzieś widzieliście.

]]> Fri, 05 Jul 2024 14:25:58 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19869&action=new <![CDATA[Potrzebny dobry schemat kompresji grafiki do FPGA]]> https://www.atari.org.pl/forum/viewtopic.php?id=19852&action=new Nie jestem pewien do jakiego działu to pasuje, bo to trochę interdyscyplinarne, ale lecim...

Kiełkowała mi od kilku lat idea zrobienia alternatywnego rdzenia do VBXE, który byłby bardziej dostosowany do typowych wyzwań stawianych przez gry i wygląda na to, że projekt ma szansę na materializację przy wielkiej i nieocenionej pomocy MatGuru.
Pod pojęciem "bardziej dostosowany do typowych wyzwań stawianych przez gry" rozumiem "coś mniej więcej jak zrobili w Atari Lynx". A w szczególności chcę wzorować się na lynksowym blitterze, którego principia działania nie polegają na przepuszczaniu pamięci przez operacje logiczne (tak jak działa to w klasycznym blitterze rodem z Amigi, Atari ST i w rezultacie też takim jaki został zaimplementowany w VBXE), lecz raczej... na rysowaniu sprajtów na ekranie.  Nie jest to teraz miejsce na zgłębianie ogólnych mechanizmów działania tego blittera, zainteresowanych mogę odesłać do dokumentacji. Mnie teraz w szczególności interesuje jeden jego aspekt, a jest nim schemat kompresji grafiki zastosowany w ustrukturyzowanych danych lynksowego sprajta.

Przygotowałem uproszczony (wyrzuciłem rzeczy, które nie są teraz istotne) schemat struktury danych sprajta:

https://i.imgur.com/CZTkKFq.png

Nigdzie w strukturze sprajta nie jest zadeklarowana jego szerokość, ani wysokość, lecz jest on strukturalnie podzielony na wiersze, nagłówek wiersza jest offsetem do następnego wiersza, offset = 0 oznacza koniec sprajta. Pomiędzy offsetami są dane wiersza, które są podzielone na pakiety. Pakiet składa się z 5-bitowego nagłówka - 1 bit na wyznacznik, czy dane są literalne (1), czy powtórzone (0) oraz 4 bitów długości pakietu (N). W przypadku danych literalnych zawartość pakietu to dane N pikseli, w przypadku danych spakowanych jest to jeden piksel, który ma być powtórzony N razy. Czyli dość klasyczne RLE.

Dekompresor tego jest zrealizowany sprzętowo i też tak samo "sprzętowo" (w FPGA) będzie musiało to być zrealizowane w VBXE. Zagadnienie z jakim się zwracam na forum to:

Czy można wymyślić coś o lepszym stopniu kompresji, co nie byłoby trudne do implementacji w FPGA?

Nie muszę robić wiernej kopii rozwiązania z Lynksa, bo nie zależy mi na kompatybilności 1:1, np już uprościłem sobie strukturę ustalając na sztywno liczbę bitów na piksel do 4. Nie chciałbym wychodzić poza RLE - rozwiązania słownikowe wydają się zbyt skomplikowane. No chyba że ktoś uzasadni, że jakieś "LZ" byłoby do zrobienia i miałoby sens.

Na takie pomysły zmian wpadałem do tej pory:
* Można w strukturze opisu sprajta zawrzeć liczbę bitów do kodowania długości pakietu (w Lynksie jest to zawsze 4).
* Można liczbę bitów długości pakietu kodować per wiersz (np na trzech bitach od 0 do 7)
* A może w strukturze opisu sprajta zawrzeć liczbę pakietów, co ile ustalane byłoby ile bitów ma długość pakietu? Może pozbyć się wyznacznika literal/repeated?


Ogólnie ja nie wiem, czy można wymyślić coś lepszego, co dalej byłoby RLE. Pomysły i tak trzeba byłoby jakoś empiryczne zbadać na jakichś danych testowych. Zaznaczę tylko, że przeznaczeniem tej kompresji byłoby pakowanie 16-kolorowych sprajtów, które kodują przezroczystość na kolorze 0 i zwykle nie są jakoś bardzo duże. Maksymalny sensowny rozmiar, to 336 pikseli szerokości ekranu i każdy wiersz sprajta rozpatrujemy osobno jako niezależnie kompresowany ciąg.

Jest na sali jakiś spec od kompresji (wiem, że są ;p), który miałby jakieś pomysły w ramach burzy mózgów?

]]> Tue, 25 Jun 2024 07:43:43 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19852&action=new <![CDATA[Szukam Mads 1.7.9]]> https://www.atari.org.pl/forum/viewtopic.php?id=19799&action=new W celach sentymentalnych szukam binarki mads 1.7.9 - gadałem z Tebe, ale nie udało się nam znaleźć.
Czy ktoś ma może w swoich historycznych archiwach takie coś?
Z góry dzięki!

]]> Mon, 20 May 2024 22:07:06 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19799&action=new <![CDATA[FujiNet Users Guide being written - Help Needed]]> https://www.atari.org.pl/forum/viewtopic.php?id=19725&action=new Hello all.

I am in the middle of writing the FujiNet User's Guide.

Part 2 of the user's guide is a Programming Guide, showing how to use the FujiNet in multiple programming languages, doing the same examples in each language, as a sort of Rosetta Stone.

I know more than a few of you spend lots of time in MAD Pascal, could you take the examples I have written in the other languages, and write Pascal examples?

The repository for the manual is here:
https://github.com/FujiNetWIFI/fujinet- … tari_users

And the manual is being written in Docbook XML (version 5.1).

-Thom

]]> Sun, 31 Mar 2024 00:51:15 +0000 https://www.atari.org.pl/forum/viewtopic.php?id=19725&action=new