Blitter piszesz? :)

od czegos trzeba zaczac, nie jest to wyczyn (nie wiem tez czy zadziala). zaraz pewnie znajdzie sie ktos kto poprawi/zoptymalizuje

source,dest,ofset1,ofset2,b,l

              pla
              pla
              sta source
              pla
              sta source+1
              pla
              sta dest
              pla
              sta dest+1
              pla
              sta ofset1
              pla
              sta ofset2
              pla
              tax
              lda tab,x
              sta operacja
              lda tab1,x
              sta operacja+1
              pla
              tax
              ldy #0
_copy         lda (source),y
operacja      ora (dest),y
              sta (dest),y
              lda source
              clc
              adc ofset1
              sta source
              bcc *+4
              inc source+1
              lda dest
              clc
              adc ofset2
              sta dest
              bcc *+4
              inc dest+1
              dex
              bne _copy
              rts

tab     dta {bit},{and ($00),y},{ora ($00),y},{eor ($00),y},{eor #0}
tab1    dta $00,dest,dest,dest,$ff

Niestety, on chciał "relokowalną", czyli w rzeczywistości position-independent, do umieszczenia w stringu BASIC-a pod dowolnym adresem. Oczywiście, istnieje pewnie metoda na wyperswadowanie mawowi tego szczegółu zamówienia, bo to mało jest miejsc, gdzie można toto umieścić ($400-$47F, $100-$17F, $600-$6FF...) bez konieczności wygimnastykowania procedury "relokowalnej".

zastanowilem sie. raczej nie o cos takiego Ci chodzilo. pewnie potrzebujesz procki, ktora moze skopiowac na ekran (standardowo zdefiniowany) dane widoczne jako jakis prostokat?

najlepiej umiescic taka procke na 6 stronie pamieci (basic jej nie rusza).

    opt h-
    org $600

dst    equ $cb
len    equ $cd

;
    pla

    pla
    pla
    sta _src+1
    pla
    pla
    sta _src+2
    pla
    pla
    sta _srcm+1

    pla
    pla
    sta dst
    pla
    pla
    sta dst+1
    pla
    pla
    sta _dstm+1

    pla
    pla
    sta len

    pla
    pla
    tax
    lda optab,x
    sta _op

    lda #dst
    cpx #4
    bne l3
    lda #$ff
l3
    sta _op+1

    clc
    ldx #0
    ldy #0 
copy
_src    lda $ffff,x
_op    ora (dst),y
    sta (dst),y

    txa
_srcm    adc #0
    tax
    bcc l1
    clc
    inc _src+2

l1    tya
_dstm    adc #0
    tay
    bcc l2
    clc
    inc dst+1

l2    dec len
    bne copy

    rts

;
optab    dta {bit 0},{and (0),y},{ora (0),y},{eor (0),y},{eor #}

10 DATA 104,104,104,141,59,6,104,104,141,60,6,104,104,141,67,6,104,104,133,203,104,104,133,204
20 DATA 104,104,141,77,6,104,104,133,205,104,104,170,189,89,6,141,61,6,169,203,224,4,208,2
30 DATA 169,255,141,62,6,24,162,0,160,0,189,255,255,17,203,145,203,138,105,0,170,144,4,24
40 DATA 238,60,6,152,105,0,168,144,3,24,230,204,198,205,208,226,96,36,49,17,81,73
50 FOR I=0 TO 93:READ A:POKE 1536+I,A:NEXT I

X=USR(1536, 0, 6, 1, 16, 128, 8, 128, 4) - "kopiuje" z operacja NOT 128 bajtow z adresu 1536 (0+256*6, skok o 1 bajt) do adresu 32784 (16+256*128, skok o 8 bajtow)

Podziwiam zaangażowanie i upór.

Rozbicie jest w sumie dla mnie korzystniejsze, ponieważ zakładam, że dana kolumna maksymalnie będzie dzielona na obszary po 32 bajty, co daje 8 bloków na stronę i ułatwia panowanie nad zmianami - dzięki temu mogę przyjąć, że na stronie XX trzymam dane gracza, którego ruch określa animacja w blokach 0 - 7 (0, 32 .. 192, 224). Także część elementów mogę sobie narysować wcześniej (np. wtedy, kiedy użytkownik ogląda stronę tytułową, albo podczas oczekiwania na załadowanie "levelu") i z pamięci ekranu przenieść w bezpieczny blok pamięci (lub nawet przesunięciem display list rysować w odpowiednim obszarze pamięci).

//EDIT: we flashu coś w tym rodzaju robi się za pomocą BitmapData :)

Na twoim miejscu na to 40000 bym jednak nie liczył, bo np. pod Turbo BASIC-em XL to jest 48192. Lepiej odczytywac ten adres PEEK(88)+256*PEEK(89)

POKE 1535+I,A

Bajt po bajcie to skoki 1.

narazie nie mam zbytnio czasu sprawdzic, ale adresy zrodlowe i docelowe w paramterach sa w odwrotnej kolejnosci niz chciales tzn najpierw MLODSZY a potem STARSZY bajt, wiec
X=USR(1536, 156, 64, 1, 156, 192, 1, 10, 0) - skopiuje obszar od adresu 16540 (a nie 40000) pod adres 49308 (a nie 40128)...

no właśnie mam prośbę, jak dużym problemem jest przerobienie (zrobienie) dokładnie tej samej procedurki do wykorzystania w tbxl, ale z przekazywaniem adresów normalnie a nie bajt młodszy, starszy?

dziękuję