5eba będą karty ale piraty

a będzie można Yoompa kupić na Głuchołazach w sposób prosty jak drut, z rączki do rączki?

jeśli rozmontować na częsci to pewnie przejdzie takie Atari ;) w N-listach

przepuść to przez Free Pascal, będziesz mógł testować do woli

funkcja w Turbo Pascalu zwracająca kolor Atari, autorem jest Rocky

n/w kod wykorzystywany jest w G2F

function rgbRead(cl: Tcolor):byte;
var l, d, c, ma, mi, r2, g2, b2: integer;
    h, lu1, lu2, lu3: real;
    r, g, b: byte;
begin

ma:=0; mi:=0; h:=0; c:=0;

R:=GetRValue(cl) shr 4;
G:=GetGValue(cl) shr 4;
B:=GetBValue(cl) shr 4;

if (r=g) and (g=b) then begin rgbRead:=r; exit; end;
if (r>=g) and (r>=b) then ma:=r;
if (r<=g) and (r<=b) then mi:=r;
if (g>=r) and (g>=b) then ma:=g;
if (g<=r) and (g<=b) then mi:=g;
if (b>=g) and (b>=r) then ma:=b;
if (b<=g) and (b<=r) then mi:=b;

d:=ma-mi;
if d=1 then begin rgbRead:=mi; exit; end;

r2:=r*100; g2:=g*100; b2:=b*100;
 if r=ma then h:=(g2-b2)/d
   else
 if g=ma then h:=200+((b2-r2)/d)
   else
 if b=ma then h:=400+((r2-g2)/d);

h:=h*0.6; if h<0 then h:=h+360;

lu1:=r*0.297;
lu2:=g*0.586;
lu3:=b*0.109;

l:=trunc(lu1+lu2+lu3);

case trunc(h) of
 21..31: c:=15;
 32..43: c:=14;
 44..63: c:=13;
 64..84: c:=12;
 85..147: c:=11;
 148..171: c:=10;
 172..191: c:=9;
 192..209: c:=8;
 210..261: c:=7;
 262..276: c:=6;
 277..297: c:=5;
 298..318: c:=4;
 319..334: c:=3;
 335..360: c:=2;
 0..14: c:=2;
 15..20: c:=1;
end;

rgbRead:=c shl 4+l;
end;

:d

dokładniej to zmieniasz zawartość rejestru $d01a od $00 do $F0 co $10 i masz 16 odcieni z każdego koloru, np. $00, $10, $20, $30 itd.

3x G2F, 4x G2F ... 100x G2F   no problem

towarzysze za bardzo wierzycie emulowi, skoro takie "gadżety" próbujecie przemycać, aktualnym rekordzistą jest Probe który starał się aby obrazek G2F wyświetlać podczas transmisji

potestujcie The Muppet Movie Show, tam są przerwania DLI podczas transmisji, tak w trakcie ładowania slideshowa jak i w trakcie jego działania (obrazki są doczytywane), co jakiś czas potrafi "mrugnąć" bo któreś z przerwań nie zostanie wykonane aby w następnej ramce wrócić do normy

to zawartość BAT-a którym testowałem disasembler

rem dis6502.exe seg0015.raw /a$2000 -bd$2d96
rem dis6502.exe seg0017.raw -a$0000 -bd$44 -bc$7c7 -bc$1879 -bc$1a9e -bc$1aa2 -bc$1ed8 -bc$1609 -bc$1614 -bc$16cb
rem dis6502.exe seg0022.dat -a$bf00 -s$84

dis6502 test.obx -a$2ec0 -bd$2f74 -bd$2fce -bd$2fde -bd$2ffc -bd$301a -bd$3038 -bd$3061 -bd$3081 -bd$30a1 -bd$30c1 -bd$30c2 -bd$30c3 -bd$30df -bd$30e0 -bd$30e1 -bad$2ec0 -bd$5300 -d

pause

a$..... - na początku podajemy adres od którego zaczyna się disasemblacja, koniecznie

bc$.... - adres od którego zaczyna się kod 6502
bd$.... - adres od którego zaczynają sie dane, czyli nie jest to kod 6502

bac$.... - tablica z adresami a(word) bloków kodu 6502, czyli np. tablica z adresami procedur
bad$.... - tablica z adresami a(word) bloków danych, czyli np. tablica z adresami bitmap

jeśli w programie występują jakieś skoki typu JSR, JMP, BEQ, BNE itp. to disasembler sam będzie aktualizował informacje o tym gdzie jest kod 6502 i odpowiednio reagował

a co zawiera w sobie wersja kolekcjonerska? osobiście interesowałby mnie cart