C64Power Forum

Ogólne => Szukam, zapomniałem, nie pamiętam tytułu... => Wątek zaczęty przez: pawciopl w 29 Czerwca 2009, 15:35

Tytuł: Szukam listingi programów
Wiadomość wysłana przez: pawciopl w 29 Czerwca 2009, 15:35: Poszukuję listingi programów napisanych w basic`u , tak abym mógł je sobie przepisać na komodorcu i uruchomić .
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 29 Czerwca 2009, 15:40: ściągnij sobie skany książek powyżej albo z retroreaders numery kebaba czy też c&a - tam będzie sporo...
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 30 Czerwca 2009, 18:10: http://www.bombjack.org/commodore/books/pdf/Mostly_BASIC%20Applications_for_your_Commodore_64_Book_1.pdf

http://www.bombjack.org/commodore/books/pdf/Mostly_BASIC%20Applications_for_your_Commodore_64_Book_2.pdf

http://www.bombjack.org/commodore/books/pdf/24_Tested_Ready-To-Run_Game_Programs_in_BASIC.pdf

http://www.bombjack.org/commodore/books/pdf/34_More_Tested_Game_Programs_in_BASIC.pdf

A tutaj masz listing programu jaki ostatnio napisałem. :) Wykreśla on na ekranie jeden z najsłynniejszych fraktali - zbiór Mandelbrota. Na C64 całość będzie trwała kilka lub kilkanaście godzin, więc lepiej uruchamieć w emulatorze z najszybszą mozliwą prędkością.

5 POKE 53280,6
10 POKE 53272, PEEK (53272) OR 8
20 POKE 53265, PEEK (53265) OR 32
40 FOR Y = 1024 TO 2023
50 POKE Y, 246
60 NEXT Y
70 FOR X = 8192 TO 16191
80 POKE X, 0
90 NEXT X
100 D = 3/266
110 E = 2/200
120 FOR X = 0 TO 266
130 FOR Y = 0 TO 199
140 GOSUB 500
150 IF C = 50 THEN K = X + 53 : GOSUB 1000
160 NEXT Y
170 NEXT X
180 GOTO 180
500 A = 0
510 B = 0
520 C = 0
530 X2 = (D * X) - 2
540 Y2 = (E * Y) - 1
550 A2 = A* A- B * B
560 B2 = 2 * A * B
570 A = A2 + X2
580 B = B2 + Y2
590 Z = A * A + B * B
600 IF Z >= 4 THEN RETURN
610 C = C + 1
620 IF C = 50 THEN RETURN
630 GOTO 530
1000 PY = INT (Y / 8)
1010 PX = INT (K / 8)
1020 LIN = Y AND 7
1030 BIT = 7 - (K AND 7)
1040 BAJT = 8192 + PY * 320 + PX * 8 + LIN
1050 POKE BAJT, PEEK (BAJT) OR (2 ^ BIT)
1060 RETURN
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: pawciopl w 02 Lipca 2009, 07:50: Dzięki ! o takie amatorskie programy mi chodziło ja postaram się umieścić także swoje
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 02 Lipca 2009, 13:23: Pisz pisz i przepisuj, potem trafisz na taką linię:

10 sys(2064)

Potem zaczniesz się zastanawiać co się po tym sys(2064) dzieje i... może zaczniesz programować? $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: pawciopl w 02 Lipca 2009, 14:49: Na razie monitor i te \'inne\' sprawy mnie odstraszają :)
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 03 Lipca 2009, 23:57: W ogóle się tym nie przejmuj. Jeśli sprawia Ci radochę pisanie w BASICU, pisz w BASICU. Będziesz miał ochotę spróbować kodu maszynowego, spróbujesz. Nie będziesz miał - nie spróbujesz.

Ja kiedyś pisałem dość sporo w kodzie maszynowym. Sam język w miarę pamiętam, ale wyleciały mi z głowy wszystkie adresy, obsługa przerwań, grafiki itp. Czasami ciągnie mnie by sobie przypomnieć, ale jak próbuję z jakąś książką, to mnie odrzuca. :) A w BASICU coś sobie skrobnę od czasu do czasu i mnie to zwyczajnie cieszy. Tak więc - do roboty! No i wrzucaj listingi programów, choćby najbanalniejszych. Ja Cię nie wyśmieję. ;)
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Gizmoń w 04 Lipca 2009, 12:39: Tomaaz: wpisałem Twój program do mojego C64. Po trzynastu godzinach pracy (od 11 w nocy do południa następnego dnia) uzyskałem taki efekt:

http://obrazki.elektroda.net/73_1246703885.jpg

http://obrazki.elektroda.net/91_1246703952.jpg

Bardzo fajny żuczek $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 04 Lipca 2009, 14:01: fajny sprzęt elektroniczny masz w domu $\'\'$

Jak chcesz zobaczyć inne ciekawe fraktale szybciej liczone obejrzyj np. winteractive albo coma light 12 oxyronu
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Gizmoń w 07 Lipca 2009, 15:30: No, sprzęt jest fajny $\'\'$ W większości własnej roboty $\'\'$
---
Mam różne własne programy. Napisz, jaki by Cię interesował, a go spróbuję przepisać (w nawiasach jest podana długość programu):

-Generator funkcji (strasznie, by nie powiedzieć inaczej, długi; obsługuje trzy kanały SIDa, ustawienia pokazywane są jako ramka poruszająca się nad skalą, generuje przebiegi: trójkątny, piłokształtny, prostokątny o regulowanym wypełnieniu i biały szum. Można je na siebie nakładać, regulować ich amplitudę, częstotliwość itp.)

-Program do projektowania obiektów Sprite (też strasznie długi; obiekt rysuje się myszką lub joystickiem na większej części ekranu - jeden piksel ma wielkość czcionki. Następnie obrazek można zakodować tak jak to się robi dla obiektów Sprite (ale wszystko robi komputer w około 20s). Pokazuje się podgląd, który można powiększyć 2x. Obrazki w formie gotowej serii liczb można zapisać na dyskietce, przepisać z ekranu, wydrukować. Do wydrukowania niezbędny jest odpowiedni interfejs User Port, głowica z drukarki igłowej, kartka papieru i kalka $\'\'$ . Z dyskietki można obrazek wczytać i edytować.)
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Gizmoń w 07 Lipca 2009, 15:31: -Program do porządkowania zawartości dyskietki (mogę przepisać; umożliwia zmianę nazwy pliku, usunięcie jednego lub serii plików, formatowanie dyskietki. W każdym momencie można zobaczyć katalog dysku)

-Program do sprawdzania zawartości pamięci (też jakoś przepiszę; pokazuje zawartość z określonego przedziału lub śledzi zmiany w jednej komórce. Umożliwia też wpisanie do przedziału lub jednej komórki jakiejś liczby)

-Gra - lecisz balonem, przeszkadzają Ci inne balony i nieruchome (!) ptaszki, musisz w określonym czasie (chyba 40s)dolecieć do czarnego balonu $\'\'$ . Wbrew pozorom nie jest to takie łatwe. (troszkę długaśny)

-Prototyp sterownika myszy (krótki; porusza wskaźnikiem w formie krzyżyka)

-Zegarek wielofunkcyjny (łatwo się przepisze, ma budzik, minutnik i takie tam różne)

Mam też programy wykorzystujące User Port (sterownik wyświetlacza widmowego, głowicy z drukarki igłowej (ten program jest też częścią innego, do projektowania duszków), program parkujący mechanizm kserokopiarki itp.). Wymagają odpowiedniego interfejsu podłączanego do user portu.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 07 Lipca 2009, 18:09: A Ty masz te programy tylko na oryginalnym C64 czy też na PC. Bo jak one takie długie, to ciężko Ci będzie przepisywać. Jak masz na PC to podeślij mi mailem tego od spriteów i tego od dźwięku.

A ode mnie jeszcze jeden fraktal. Tym razem prostszy, ale za to z polskim rodowodem - \'Trójkąt Sierpińskiego\'. No i na efekt nie trzeba czekać tak długo. :)

5 POKE 53280,6
10 POKE 53272, PEEK (53272) OR 8
20 POKE 53265, PEEK (53265) OR 32
40 FOR Y = 1024 TO 2023
50 POKE Y, 246
60 NEXT Y
70 FOR X = 8192 TO 16191
80 POKE X, 0
90 NEXT X
100 X1 = 160
110 X2 = 160
120 Y1 = 0
130 Y2 = 0
140 FOR K = 1 TO 50000
150 LOS = INT (RND (1) * 3)
160 IF LOS = 0 THEN X1 = (X2 + 160) / 2 : Y1 = Y2 / 2
170 IF LOS = 1 THEN X1 = X2 / 2 : Y1 = (Y2 + 200) / 2
180 IF LOS = 2 THEN X1 = (X2 + 320) / 2 : Y1 = (Y2 + 200) / 2
190 GOSUB 1000
200 X2 = X1
210 Y2 = Y1
220 NEXT K
230 GOTO 230
1000 PY = INT (Y1 / 8)
1010 PX = INT (X1 / 8)
1020 LIN = Y1 AND 7
1030 BIT = 7 - (X1 AND 7)
1040 BAJT = 8192 + PY * 320 + PX * 8 + LIN
1050 POKE BAJT, PEEK (BAJT) OR (2 ^ BIT)
1060 RETURN
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Gizmoń w 08 Lipca 2009, 12:41: Niestety, te programy mam tylko na oryginalnym C64 $\'\'$ Ale to nic, mogę spróbować przepisać (bo nawet porządnej drukarki do C64 nie mam). Akurat są takie deszczowe dni... $\'\'$
Zacznę od generatora funkcji.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Gizmoń w 08 Lipca 2009, 13:46: Właśnie zobaczyłem listing programu \'od dźwięków\' zajmującego 18 bloków dyskietki (program do projektowania duszków zajmuje aż 22 bloki). Ostatnia linia ma numer 1750 (w tym drugim aż 6080), a odstępy nie zawsze wynoszą 10. Niestety tyle zajmuje obsługa suwaczków nad skalami i innych gadżetów. Może więc zrobię inaczej: nagram program(y) na taśmę, i te piski zapiszę na komputerze (prawdopodobnie *.WAV). Plik wyślę lub umieszczę w internecie. Trzeba go będzie sobie nagrać na taśmę i wrzucić do komputerowego kaseciaka (a może emulatory mają wirtualny magnetofon?).
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 08 Lipca 2009, 22:30: O przepisywaniu to nawet nie myśl. To mordęga. A i bez błędów się pewnie nie obejdzie (poprawianie zajmnie więcej czasu niż przepisywanie).

Ja nie mam C64. Nie wiem też czy ta metoda z WAV jest dobra. Może znajdziesz program, który przerobi tego WAVa na PRG? Ktoś bardziej obeznany w sprawach sprzętowych powinien się wypowiedzieć.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: OSH w 09 Lipca 2009, 16:04: Ja dołożę do tego swoje trzy grosze: Bardzo dobra jest książka Rüdigera Baumanna \'Grafika komputerowa\'. Facet prowadzi człowieka za rączką, pokazując mu jak tworzyć w BASIC-u grafikę. Ksiazka jest REWELACYJNA i warto ja mieć w swoich zbiorach. Ktoś tu kiedyś już nawet jej szukał - bywa na Allegro. Sam mam, ale kompletnie brak mi czasu na zeskanowanie jej. Żałuję, niestety życie (a przede wszystkim zdobywanie kasy na to życie) jest ważniejsze. Ale może jednak mi sie uda znaleźć trochę czasu...
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: andrus64 w 12 Lipca 2009, 11:35: Też ją mam, ale jeszcze nie przestudiowałem jej do końca. Polecam, bo książka chcąc nie chcąc wprowadza do turbo assemblera.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: MCbx w 12 Lipca 2009, 23:18: Emulatory MAJĄ wirtualne magnetofony, a i jest program WAV-PRG i Tape64 (ten ostatni pod DOSa) do konwertowania WAV->PRG i na odwrót. Poza tym najlepszy do transferu C64-PC-C64 jest kabelek XE1541 i pecet z DOSem i programem 64HDD - emuluje 1541 w plikach D64.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Mikra_Lbn w 17 Lipca 2009, 14:37: Kilka ciekawych programów można znaleźć w książce Romana Poznańskiego.
http://www.filety.net/arty/literatura/offline/przygody-z-komputerem.rar
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Vertical w 22 Lipca 2009, 15:46: Ja kiedyś napisałem wiele programów w Basicu, ale większość to takie durnoty xD. Jednak były tez warte uwagi jak np. program do zamieniania liczb binarnych na dziesiętne i odwrotnie, program do robienia duszków - rysowało się joystickiem.

A mam pytanie. Jak w emulatorze odpalić te programy których listingi niektórzy z was podali? Wkleić to trzeba najpierw do notatnika tak? A co dalej?
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 22 Lipca 2009, 17:13: A nie możesz po prostu przepisać? $\'\'$ Możesz też skorzystać z tego programu http://www.ajordison.co.uk/index.html .

W emulatorze VICE istnieje możliwość bezpośredniego wklejania tekstu, ale - przynajmniej u mnie - zamiast liter pojawiają się różne znaczki (cyfry pozostają niezmienione). Jest na to jakaś rada?
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 23 Lipca 2009, 00:25: a gdzie reszta wątku?
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 22 Września 2009, 20:04: Właśnie zaskoczyłem - możesz jeszcze fasta dorobić bo tam jest symetria - czyli jak spojrzysz na pointy:

(Xmin ; Y Min) = (Xmin ; Ymax)

Chyba jasne to - jak poprawisz będzie 2 x szybciej :)
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 22 Września 2009, 22:29: W tym uproszczonym przypadku zbioru Mandelbrota rzeczywiście można tak zrobić, ale jeśli chciałbyś wprowadzić np. opcję powiększania, to już oczywiście nie będzie to działać.

Dzięki i pozdrawiam! $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 24 Września 2009, 00:04: Ja właśnie o TYM przypadku mówię :)

Powiedziałeś \'A\' - to i \'B\' - popraw 2 x szybciej będzie - czy to nie fajne ? $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 24 Września 2009, 15:42: 130 FOR Y = 0 TO 99
...
150 IF C = 50 THEN K = X + 53 : GOSUB 1000: Y = 199 - Y : GOSUB 1000

Nie jestem pewien czy dokladnie tak, bo nie mam w tym momencie dostepu do emulatora (jak rowniez do polskich znakow $\'\'$ ).
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 24 Września 2009, 18:30: Jakbyś mógł to popraw i cały wrzuć OK $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 25 Września 2009, 11:08: Poprzednia poprawka byla zla. Tu jest calosc i teraz powino byc OK. $\'\'$

5 POKE 53280,6
10 POKE 53272, PEEK (53272) OR 8
20 POKE 53265, PEEK (53265) OR 32
40 FOR Y = 1024 TO 2023
50 POKE Y, 246
60 NEXT Y
70 FOR X = 8192 TO 16191
80 POKE X, 0
90 NEXT X
100 D = 3/266
110 E = 2/200
120 FOR X = 0 TO 266
130 FOR H = 0 TO 99
140 GOSUB 500
150 IF C = 50 THEN K = X + 53 : Y = H : GOSUB 1000 : H = 199 - Z : GOSUB 1000
160 NEXT Z
170 NEXT X
180 GOTO 180
500 A = 0
510 B = 0
520 C = 0
530 X2 = (D * X) - 2
540 Y2 = (E * Y) - 1
550 A2 = A* A- B * B
560 B2 = 2 * A * B
570 A = A2 + X2
580 B = B2 + Y2
590 Z = A * A + B * B
600 IF Z >= 4 THEN RETURN
610 C = C + 1
620 IF C = 50 THEN RETURN
630 GOTO 530
1000 PY = INT (Y / 8)
1010 PX = INT (K / 8)
1020 LIN = Y AND 7
1030 BIT = 7 - (K AND 7)
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 25 Września 2009, 11:09: Zle mi sie wkleilo. $\'\'$

5 POKE 53280,6
10 POKE 53272, PEEK (53272) OR 8
20 POKE 53265, PEEK (53265) OR 32
40 FOR Y = 1024 TO 2023
50 POKE Y, 246
60 NEXT Y
70 FOR X = 8192 TO 16191
80 POKE X, 0
90 NEXT X
100 D = 3/266
110 E = 2/200
120 FOR X = 0 TO 266
130 FOR H = 0 TO 99
140 GOSUB 500
150 IF C = 50 THEN K = X + 53 : Y = H : GOSUB 1000 : Y = 199 - H : GOSUB 1000
160 NEXT Z
170 NEXT X
180 GOTO 180
500 A = 0
510 B = 0
520 C = 0
530 X2 = (D * X) - 2
540 Y2 = (E * Y) - 1
550 A2 = A* A- B * B
560 B2 = 2 * A * B
570 A = A2 + X2
580 B = B2 + Y2
590 Z = A * A + B * B
600 IF Z >= 4 THEN RETURN
610 C = C + 1
620 IF C = 50 THEN RETURN
630 GOTO 530
1000 PY = INT (Y / 8)
1010 PX = INT (K / 8)
1020 LIN = Y AND 7
1030 BIT = 7 - (K AND 7)
1040 BAJT = 8192 + PY * 320 + PX * 8 + LIN
1050 POKE BAJT, PEEK (BAJT) OR (2 ^ BIT)
1060 RETURN
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 25 Września 2009, 11:52: Sprawdziłeś, że działa? Tak pytam bo ja jeszcze nie...
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 26 Września 2009, 10:49: Nie, bo wciaz w podrozy. $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: gornipio w 26 Września 2009, 11:24: komorka tak samo jak u mnie? ze nie masz pl znakow...
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 27 Września 2009, 17:52: Laptop, ale nie moj i bez polskich znakow.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 27 Września 2009, 18:25: Mandelbrot - poprawiona (szybsza) wersja.

5 POKE 53280,6
10 POKE 53272, PEEK (53272) OR 8
20 POKE 53265, PEEK (53265) OR 32
40 FOR Y = 1024 TO 2023
50 POKE Y, 246
60 NEXT Y
70 FOR X = 8192 TO 16191
80 POKE X, 0
90 NEXT X
100 D = 3/266
110 E = 2/200
120 FOR X = 0 TO 266
130 FOR H = 0 TO 99
140 GOSUB 500
150 IF C = 50 THEN K = X + 53 : Y = H : GOSUB 1000 : Y = 199 - H : GOSUB 1000
160 NEXT H
170 NEXT X
180 GOTO 180
500 A = 0
510 B = 0
520 C = 0
530 X2 = (D * X) - 2
540 Y2 = (E * Y) - 1
550 A2 = A* A- B * B
560 B2 = 2 * A * B
570 A = A2 + X2
580 B = B2 + Y2
590 Z = A * A + B * B
600 IF Z >= 4 THEN RETURN
610 C = C + 1
620 IF C = 50 THEN RETURN
630 GOTO 530
1000 PY = INT (Y / 8)
1010 PX = INT (K / 8)
1020 LIN = Y AND 7
1030 BIT = 7 - (K AND 7)
1040 BAJT = 8192 + PY * 320 + PX * 8 + LIN
1050 POKE BAJT, PEEK (BAJT) OR (2 ^ BIT)
1060 RETURN
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 28 Września 2009, 07:04: Dałbyś gdzieś linka do wersji z d64 czy t64, żeby nie trzeba było wpisywać
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Skull w 28 Września 2009, 09:39: @wegi: np. w vice można przeklejać
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Skull w 28 Września 2009, 10:15: i jest jeszcze błąd w linii :
540 Y2 = (E * Y) - 1

zamiast Y powinno być H
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: gornipio w 28 Września 2009, 10:39: listingi tez sie przydaja tym, co nie maja zadnych nosnikow np. kaset
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 28 Września 2009, 11:04: wegi, dalbym linka i zrobil to raz i porzadnie, gdybym miel swobodny dostep do emulatora i do komputera w ogole. $\'\'$

skull, dzieki! $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 28 Września 2009, 17:12: dzięki dzięki skull - już nie mogę się pastwić nad Tomaaz`em - ale jak będziesz miał dostęp to w końcu zrobisz gotowe do pobrania Tomaaz?
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 29 Września 2009, 00:41: Wróciłem, przyjrzałem się i... było źle. $\'\'$ Tutaj wersja ostateczna do ściągnięcia - http://w684.wrzuta.pl/plik/0f5U1rcoRyp/mandelbrot .

A tu listing:

5 POKE 53280,6
10 POKE 53272, PEEK (53272) OR 8
20 POKE 53265, PEEK (53265) OR 32
40 FOR Y = 1024 TO 2023
50 POKE Y, 246
60 NEXT Y
70 FOR X = 8192 TO 16191
80 POKE X, 0
90 NEXT X
100 D = 3/266
110 E = 2/200
120 FOR X = 0 TO 266
130 FOR H = 0 TO 100
140 GOSUB 500
150 IF C = 50 THEN K = X + 53 : Y = H : GOSUB 1000 : Y = 200 - H : GOSUB 1000
160 NEXT H
170 NEXT X
180 GOTO 180
500 A = 0
510 B = 0
520 C = 0
530 X2 = (D * X) - 2
540 Y2 = (E * H) - 1
550 A2 = A* A- B * B
560 B2 = 2 * A * B
570 A = A2 + X2
580 B = B2 + Y2
590 Z = A * A + B * B
600 IF Z >= 4 THEN RETURN
610 C = C + 1
620 IF C = 50 THEN RETURN
630 GOTO 530
1000 PY = INT (Y / 8)
1010 PX = INT (K / 8)
1020 LIN = Y AND 7
1030 BIT = 7 - (K AND 7)
1040 BAJT = 8192 + PY * 320 + PX * 8 + LIN
1050 POKE BAJT, PEEK (BAJT) OR (2 ^ BIT)
1060 RETURN
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: zyga w 29 Września 2009, 08:16: @Gornipio:
cyt \' listingi tez sie przydaja tym, co nie maja zadnych nosnikow np. kaset \'

Raczej chodzi tu o wartość poznawczą, możliwość przeanalizowania kodu. Bo praca z komputerem bez jakiejkolwiek pamięci masowej mija się z celem. Chociaż pamiętam że kiedyś wpisałem z Bajtka \'Tylko o Atari\' grę Tron i nie wyłączałem komputera przez kilka dni, bo nie miałem magnetofonu ;)
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: gornipio w 29 Września 2009, 16:05: @zyga niezłe ;P
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: zyga w 29 Września 2009, 20:08: Offtopic, ale pamiętam z magnetofoniarskich czasów, że gdy zacząłem rysować w ArtStudio (głównie dlatego że pozwalało ono zapisywać obrazki na taśmie), na jednej stronie kasety 60 minut - zapis w normalu - mieściły się 3 obrazki :) Masakrą było czekanie aż obrazek się zapisze...
Do wyświetlania używałem potem procedurki z C&A wklepanej pod monitorem z BlackBoxa v8. A następnie zawartość pamięci zapisywałem z poziomu Black Boxa już w turbo z dodaną basicową linią sys. Black Box miał fajną instrukcję <-W służącą do zapisu zawartości pamięci z zadanym adresem początkowym i końcowym. Można było w ten sposób ominąć słynne Micrus Copy zmieniając adres startowy na wcześniejszy. Potem wystarczało załadować program poleceniem <-L\'\',1,1 i heja :)

Na wspominki mi się zebrało....
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: zyga w 29 Września 2009, 20:12: A jak się dorobiłem carta FC to już był hajlajf, bo można było ustawić znaczniki początka i końca programu w basicu i wydać komendę PACK ! To jedyna znana mi mozliwość skorzystania z packera dla magnetofoniarzy.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 13 Grudnia 2009, 09:36: @Tomaaz spójrz na pętlę i przeanalizuj co się stanie, jak zamiast

630 GOTO 530

będzie

630 GOTO 550

...
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 14 Grudnia 2009, 20:53: Coś mi się na oko widzi, że efekt będzie ten sam, tylko trochę na czasie zaoszczędzimy. Aleś wypatrzył po trzech miesiącach. $\'\'$
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 14 Grudnia 2009, 21:47: Domyślasz się dlaczego patrzyłem... (?)...
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 22 Grudnia 2009, 21:44: Czyżbyś jednak zdecydował się napisać to w asemblerze?

Może byście ze skullem napisali ten kod w postaci dyskusji takiej jak w przypadku \'Sierpińskiego\'? To by było coś.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: wegi w 23 Grudnia 2009, 13:06: Czemu jednak - przecież mówiłem że to zrobię...

Teraz jest wszystko łatwe - Seriously fast multiplication na talerzu (codebase) - G. Tylor i Jackasser RULES

Trzeba to zrobić na 32bit integerach żeby się z float nie cackać.
Tytuł: Szukam listingi programów
Wiadomość wysłana przez: Tomaaz w 24 Grudnia 2009, 13:42: Wiesz, to było tak dawno, że... W każdym razie ja wciąż jestem zainteresowany zagadnieniem. $\'\'$