26 Odpowiedź przez Magnus

  • Magnus
  • Przechodzień
  • Nieaktywny
  • Skąd: Szczecin
  • Zarejestrowany: 2003-08-29
  • Posty: 21

A czy Basic można włączyć na czas dekompresji? Jeżeli tak, to proponuję:

src = $9D
dest = $24;

loop  jsr get
      beq stop
      lsr @
      tay
q0    jsr get
q1    sta (dest,x)
      inc dest
      bne q2
      inc dest+1
q2
      dey
_bpl  bmi loop
      bcs q0
      bcc q1

get   JMP $A293
stop  rts

Wynik: 32 bajty na zerowej :)


Jakby ktoś się uparł, że musi chodzić na XL/XE z oryginalnym ROM'em to można i tak:

src = $9D
dest = $24;

loop  jsr get
      beq stop
      lsr @
      tay
q0    jsr get
q1    sta (dest,x)
      jsr $E6D1

      dey
_bpl  bmi loop
      bcs q0
      bcc q1

get   JMP $A293
stop  rts

Wynik: 26 bajtów ;)

Trzeba się tylko upewnić, że obydwa ROMy są w odpowiedniej wersji :D

Magnus's Strona

27 Odpowiedź przez seban Ostatnio edytowany przez seban (2005-08-04 17:02:50)

  • seban
  • seban
  • Podkasetarz
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 3,100

hej!

chyba popadamy w jakąś paranoję :D

ale jeszcze krócej o 3 bajty będzie tak:

src = $9D
dest = $24;

loop  jsr $A293
      beq stop
      lsr @
      tay
q0    jsr $A293
q1    sta (dest,x)
      jsr $E6D1

      dey
_bpl  bmi loop
      bcs q0
      bcc q1

stop  rts
GitHUB: https://github.com/seban-slt

seban's Strona

28 Odpowiedź przez Magnus

  • Magnus
  • Przechodzień
  • Nieaktywny
  • Skąd: Szczecin
  • Zarejestrowany: 2003-08-29
  • Posty: 21

Nie będzie... Co robi 'jsr get' w poprawionej przez Ciebie procedurce?

Magnus's Strona

29 Odpowiedź przez seban Ostatnio edytowany przez seban (2005-08-04 17:07:51)

  • seban
  • seban
  • Podkasetarz
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 3,100

whoops! ;) sorki! :) się pospieszyłem :D

ale tak naprawdę... to chciałem sobie zażartować ;) dalsza droga chyba już nie ma sensu ;D
chociaż idac za słowami kogoś mądrego kto powiedział "...każdy program można zawsze skrócić o jeden bajt..."
możemy dojść do depacker'a o długości 1 bajtu :D
ba... idąc dalej za teoriami jakiegoś szalogego gościa z giełdy na "grzybowskiej" możemy zrobić kompresję do 1 bajtu :D
użwyając funkcji XOR :D pierwszy bajt xor'ujemy z drugim... wynik z trzecim bajtem... itd. ;-)


Seban

GitHUB: https://github.com/seban-slt

seban's Strona

30 Odpowiedź przez Marek Konopka Ostatnio edytowany przez Marek Konopka (2005-08-04 17:11:32)

  • Skąd: Sosnowiec
  • Zarejestrowany: 2002-08-15
  • Posty: 229

Seban, korekta: zamiast

jsr get

ma być:

jsr $a293

Dodatkowo powrót można zrealizować jako beq exit, do miejsca, gdzie wywoływano podprocedurkę i usunąć rts i mamy:

src = $9D
dest = $24;

loop  jsr $A293
      beq exit
      lsr @
      tay
q0    jsr $a293
q1    sta (dest,x)
      jsr $E6D1

      dey
_bpl  bmi loop
      bcs q0
      bcc q1

22 bajty.

31 Odpowiedź przez seban

  • seban
  • seban
  • Podkasetarz
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 3,100

hej Konop!

Już poprawiłem :D to z pośpiechu :D

chcialem być lepszy od Magnusa ;) ( to żart oczywiście :) )

Seban

GitHUB: https://github.com/seban-slt

seban's Strona

32 Odpowiedź przez tebe

  • tebe
  • tebe
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: Poznań / Mosina
  • Zarejestrowany: 2002-04-06
  • Posty: 2,955

w nastepnej wersji podobnego mini konkursu bede musial wprowadzic regulamin ;) co wolno a czego nie wolno

*- TeBe/Madteam
3x Atari 130XE, SDX, CPU 65816, 2x VBXE, 2x IDE Plus rev. C

tebe's Strona

33 Odpowiedź przez solo/ng

  • solo/ng
  • solo/ng
  • Młodszy Atarowiec
  • Nieaktywny
  • Skąd: Dzierżoniów
  • Zarejestrowany: 2002-08-06
  • Posty: 685

miazga:)

solo/ng's Strona

34 Odpowiedź przez miker

  • miker
  • miker
  • Starszy Sierżant Sztabowy
  • Nieaktywny
  • Skąd: *.waw.pl
  • Zarejestrowany: 2002-09-26
  • Posty: 3,619

jak to dobrze, że tebe nie jest moderatorem :lol:

no to co depakujemy? ;)

I Ty zostaniesz big endianem...

35 Odpowiedź przez Sikor

  • Sikor
  • Sikor
  • Naddyskownik
  • Nieaktywny
  • Skąd: Warszawa
  • Zarejestrowany: 2002-06-17
  • Posty: 11,122

Ja proponuję nha początek zdepakować BYX'a i ze dwa piwa ;)

Sikor umarł...

Sikor's Strona

36 Odpowiedź przez mikey

  • mikey
  • mikey
  • Wujek Staszek
  • Nieaktywny
  • Zarejestrowany: 2002-06-17
  • Posty: 2,436

Ej, ale zauwazcie ze taka kreatywnosc wystepuje tylko PO QUASCIE ;)

37 Odpowiedź przez cedyn

  • cedyn
  • Młodszy Atarowiec
  • Nieaktywny
  • Zarejestrowany: 2002-08-18
  • Posty: 956

ciiicho ... bo sie wyda ;)