uu... tebe, starzejesz się! ;) :lol:

szanowny tebe umie sprowokowac :)

hej!

To może i ja swoje 3 grosze dorzucę  :) Pierwsze założenie optymalizacyjne, odwracamy znak w przypadku ilości spakowanych danych, czyli w przypadku ustawionego 7 bitu, wartość $ff będzie oznaczała 1 powtórzenie, $fe - dwa powtórzenia $80 - 127 powtórzeń. Przez taki myk możemy wprowadzić co następuje:

jsr get
bpl store
xor #$ff 
beq stop
...
tay

nie potrzebujemy już and #$7f ;) mamy już 48 bajtów

pierwszym moim pomysłem było zastosowanie nieco innych trybów adresowania i umieszczenie tego na stronie zerowej:

       org     $80

src     dta a(src_address)
dst     dta a(dst_address)

loop    ldx #($100-(_bpl-q0+2))&$ff
        jsr get
        ora #$00
        bpl store
        xor #$ff
        beq stop
        ldx #($100-(_bpl-q1+2))&$ff

store   tay
        stx _bpl+1

q0      jsr get
q1      ldx #dst
        sta ($00,x)
        jsr inc
        dey
_bpl    bpl *

        bvc loop

get     ldx #src
        lda ($00,x)
inc     inc ($00,x)
        bne *+2
        inc ($01,x)

stop    rts

wychodzi 49 bajtów, co okazało się porażką ponieważ kod wygenerowany wcześniej przez magnusa ma 45 bajtów gdy umieścimy go na "zero page". no cóż pozostaje wiec pozostawienie wersji magnusa wraz z modyfikacją "xor" i mamy 43 bajty na zero page lub 48 bajtów w "normalnej" pamięci.

        org     $80

loop    ldx #($100-(_bpl-q0+2))&$ff
        jsr get
        bpl store
        xor #$ff
        beq stop
        ldx #($100-(_bpl-q1+2))&$ff

store   tay
        stx _bpl+1

q0      jsr get
q1      sta $dead
        inc q1+1
        bne *+2
        inc q1+2

        dey
_bpl    bpl *

        bvc loop

get     inc adr+1
        bne *+2
        inc adr+2

adr   lda $cafe

stop    rts

pozdrowionka
Seban/SLIGHT

Punktem wyjscia jest dla mnie procka Pr0be. Nie wiem, czy to dziala, ale mysle, ze powinno.
Dodatkowo zmodyfikowalem zalozenia odnosnie sposobu pakowania (o ile to dozwolone):
teraz najmlodszy bit (0) sygnalizuje, czy nastepujace bajty sa spakowane;
teraz tez zgaszeny bit "sygnalizacyjny" oznacza spakowane, zapalony nie.

loop    jsr get
        beq stop
    lsr @

    tay
q0      jsr get
q1      sta $dead
        inc q1+1
        bne *+5
        inc q1+2

        dey
_bpl    bmi loop
    bcs q0
    bcc q1 !


get     inx
        bne *+5
        inc adr+2

adr   lda $cafe,x

stop    rts

zalezy jak na to patrzec ;)
jesli ma byc to procka do depakowania tylko 1 segmentu danych to tak, jesli np. tych segmentow danych jest wiecej, jest wrecz przeciwnie LDX #<dane zajmuje 2 bajty, a LDA #<dane sta _src+1 az 5 ;)

tak czy inaczej jesli procka Marok'a naprawde dziala to Respect dla niego! ;)

No tak! TeBe chcial, zeby ktos mu zoptymalizowal kod, sprowokowal wszystkich, ze krocej sie nie da i natychmiast dostal kod o polowe krotszy... kurcze jak bede cos potrzebowal tez bede musial podrzucic  jakis kod a madre chlopaki z aa mi go rozpykaja :D

przeciez ta prowokacja od razu byla widoczna ;)

ale z drugiej strony - zawsze to mozliwosc do pokazania sie, a i teoretyczna
mozliwosc otrzymania poczta nagrody przez z wyciezce w postaci zgrzewki
byx or somfing...

btw. poczekajcie a moze fox sie odezwie i wszystkich wykosi ;)

Nareszcie ktoś wskrzesił ducha współzawodnictwa w optymalizacji kodu :-) Jak za dawnych lat....
A swoją drogą może by tak popracować wspólnie nad innymi procedurkami i zrobić z tego demko?

Bardzo sympatyczna perspektywa, ale z drugiej strony moj wklad w ostateczna postac tej procedury, ktora zamiescilem w swoim poscie, jest jednak znikomy. W sumie wykorzystalem tylko walor znacznika C w przechowywaniu istotnej informacji. Nie jest to doprawdy osiagniecie godne szczegolnego podkreslania. Byloby to nawet przesada wg. mnie. Tak wiec mimo milej propozycji, wolalbym poczekac z umieszczenia swojej ksywy pod jakas produkcja do sytuacji wiekszego wkladu wen. Poza tym kazdy dorzucal cos od siebie, a wiadomo, ze osoba ostatnia jest w sytuacji szczegolnie uprzywulowanej, znajac tresc kodu poprzednikow. Ten konkurs z zalozenia nie byl fair. ;) Ale ciesze sie, ze sie paru osobom "pokazalem".

Dodane. TeBe:

mam jeszcze taka uwage, ze mozna to skrocic zastepujac te czesci kodu tym:

 lda >source-1
 sta adr+2
 ldx <source-1

 mwa #destination q1+1
 jmp depacker
...
adr     lda $ff00,x:

No i bez LDA #0 na poczatku procedury jeszcze.

Zaproponuję jeszcze jedną poprawkę: skoro to depaker, to rejestru X użyłbym do adresowania pamięci przy zapisywaniu danych.

No prosze ... Jaki ten Tebeliusz się słodki zrobił ... ;))))))