Szukam narzędzi - może ktoś to ma?

[PolonusTM]

Witam,

wiem, że śmiesznie jakoś tak ale, jak zwykle, nie mam swoich rzeczy. Szukam:

Kebab Mon'a - głównie dlatego, że jestem ciekaw o ile byłby mniejszy gdybym napisał go pod np. TurboAssemblerem
Edytora do sprite'ów 4x4 (główny autor - SilverDream!)
programu do nadawania i odbioru kodu Morse'a - to unikat, nie wiem czy sam Silver to ma (od czasu jak jedna pani swapperka mu nie oddała dysków jak wieść niesie)
poprawionej przeze mnie wersji programu do packet radio - DigiCom 64 (polskie znaki)

Jeśli ktoś, coś - byłbym wdzięczny.

Paweł

[PolonusTM]

Kebab mon aka Master mon - już mam

[Kisiel]

co do titania to bym musiał sprawdzić , pewnie mam kod morsa i digi64, zjadę z delegacji w przyszłym miesiącu.

[PolonusTM]

co do titania to bym musiał sprawdzić , pewnie mam kod morsa i digi64, zjadę z delegacji w przyszłym miesiącu.

Wow.. z tym Morse'm to by była rewelacja. Długo się obawiałem, że jedyny egzemplarz dostał wyłącznie Silver. Dzięki z góry

[comankh]

a nie było przypadkiem przedruku w którymś z kebabów czy c64+4? if so - ocr xd.

[bruus]

spradź tutaj ftp://ftp.zimmers.net/pub/cbm/c64/packetradio/

[V-12/Tropyx]

Mors wyszedł na ląd: http://csdb.dk/release/?id=151742.

[PolonusTM]

Aż się serio wzruszyłem. Myślałem, że zaginął a rzecz mi się nawet udała, skoro nawet "upierdliwy" Silver polubił

[KB777]

Aż się serio wzruszyłem. Myślałem, że zaginął a rzecz mi się nawet udała, skoro nawet "upierdliwy" Silver polubił

A przy okazji... chciałbym się dowiedzieć, kto wymyślił algorytm sum kontrolnych do listingów w Kebabie.

Otóż w zamierzchłych czasach przeklepałem (z kserówki zresztą od kolegi, przyznaję się bez bicia - bo u mnie tego numeru w kioskach nie dali czy jak, inne miałem)  "fast copy" na parallel'u. No i był "kraszan" przy uruchamianiu, nie chciało mi się znowu bajt po bajcie sprawdzać i przyjrzałem się innym zrzutom, gdzieś zauważyłem dwie kolejne linie z samymi zerami - to już wiedziałem że do sumy wchodzi hi(addr) + lo(addr), potem jakiejś wizji doznałem i sprawdziłem co będzie jak dana1 * 1 + dana2 * 2 +...+ dana8 * 8 (tak to bodajże było) - bingo !

Jak przeszukam swoje D64 to pewnie znajdę naprędce sklejony walidator (pamiętam, że eksperymentowałem wtedy z mnożeniem poprzez tablicę kwadratów, no i walidator na takim mnożeniu u mnie jechał, przerost formy nad treścią hehehee).

[Skull]

haha, dobre to było

Ja pamiętam jak na zmianę z Raspim wpisywaliśmy kod do gry "Penetrator", który mapę brał na podstawie wartości (losowości) z romu Kernela- ech łezka w oku. Zdaje się że i tam były jakieś błędy, ale poradziliśmy sobie.

[KB777]

haha, dobre to było

Ja pamiętam jak na zmianę z Raspim wpisywaliśmy kod do gry "Penetrator", który mapę brał na podstawie wartości (losowości) z romu Kernela- ech łezka w oku. Zdaje się że i tam były jakieś błędy, ale poradziliśmy sobie.

OK, update - jednak mnożenie dałem zwykłe (no, w sumie przez tablicę kwadratów to byłby overkill na taką pchełkę a zysku żadnego). Jakbyś chciał coś przepisywać z Kebabu i coś się nie zgadzało to polecam kod poniżej

Kod: [Zaznacz]

         *= $6000
wsk1     = $fb ;wskazuje adres pamieci
wsk2     = $fc

mnozna   = $fe ;do procedury mnozenia
mnoznik  = $ff
low      = $fd ;mlodsza czesc wyniku

checksum = *+$0200 ;suma kontrolna i
                   ;bajt pomocniczy
actual   = *+$0201 ;adres bajtu do
                   ;wydruku (2 bajty)
offset   = *+$0203

memstart = $0801

         lda #147
         jsr $ffd2
         lda #>memstart
         sta wsk2
         lda #<memstart
         sta wsk1

powrot   ldy #0
         sty checksum
         ldx #6
         stx offset
;---------------------------------------
         lda wsk2
         lsr a
         lsr a
         lsr a
         lsr a
         tax
         lda hextable,x
         sta stringbuf+1
         lda wsk2
         and #$0f
         tax
         lda hextable,x
         sta stringbuf+2

         lda wsk1
         lsr a
         lsr a
         lsr a
         lsr a
         tax
         lda hextable,x
         sta stringbuf+3
         lda wsk1
         and #$0f
         tax
         lda hextable,x
         sta stringbuf+4
;---------------------------------------
wydruk8b ldy checksum
         lda (wsk1),y
         pha
         lsr a
         lsr a
         lsr a
         lsr a
         tax
         lda hextable,x
         ldy offset
         sta stringbuf,y

         pla
         and #$0f
         tax
         lda hextable,x
         iny
         sta stringbuf,y

         lda offset
         clc
         adc #3
         sta offset

         inc checksum
         lda checksum
         cmp #8
         bne wydruk8b

         ldy #0
         sty checksum

checksumg lda (wsk1),y
         sta mnoznik
         tya
         clc
         adc #1
         sta mnozna

mnoz     lda #0
         sta low
         ldx #8
petla    lsr mnoznik
         bcc skok
         clc
         adc mnozna
skok     ror a
         ror low
         dex
         bne petla

         clc
         lda low
         adc checksum
         sta checksum

         iny
         cpy #8
         bne checksumg

         clc
         lda checksum
         adc wsk1
         clc
         adc wsk2
         pha
         lsr a
         lsr a
         lsr a
         lsr a
         tax
         lda hextable,x
         sta stringbuf+32
         pla
         and #$0f
         tax
         lda hextable,x
         sta stringbuf+33
         jsr print
;---------------------------------------
zakonczenie ;i powrot

         lda wsk1
         clc
         adc #8
         sta wsk1
         lda wsk2
         adc #0
         sta wsk2

wait4key jsr $ffe4
         beq wait4key
         cmp #32
         beq exit
         jmp powrot

print    lda #<textstr
         ldy #>textstr
         jsr $ab1e
exit     rts


textstr  .text "  "
stringbuf .text ":0801 00 00 00 00 00"
         .text " 00 00 00  (00)"
strend   .byte 13,0
hextable .text "0123456789abcdef"