atarionline.pl
atarionline.pl Atari
Login:
Hasło:
Zapamiętaj mnie
Translate to RSS RSS
Modyfikacje starszych gier: Donkey Kong Jr. i Bubsy z 2017-11-19 23:00 (7)
Nowe demo na duże Atari z 2017-11-14 23:01 (137)
Zanim stali się znani... Kto wystąpił w reklamach Atari? z 2017-11-07 21:27 (8)
Powrót z przyszłości: Giełda Bajtka i koncert Marka Bilińskiego! z 2017-11-03 01:03 (155)
Aktualności growe z 2017-11-01 14:19 (13)
Silly Venture 2k17 – nowa invitka i garść informacji! z 2017-10-30 10:45 (17)
Wyniki konkursu programistycznego ABBUC 2017 z 2017-10-28 16:53 (17)
Pokłosie RetroKomp/LOAD ERROR 2017 z 2017-10-22 16:28 (22)
Starotki ze strychu z 2017-10-20 12:30 (14)
Nowy RECOIL v4.1.0 z 2017-10-19 22:10 (8)
RetroKomp/LOAD ERROR 2017 – zapraszamy! z 2017-10-18 20:01 (3)
Robimy plakaty z 2017-10-11 23:56 (23)
Festiwal retro już za chwilę z 2017-10-10 12:26 (0)
Beyond the Borders – zbiórka na Kickstarterze z 2017-10-08 23:46 (43)
Remanent growy – ACTris! 2.1 z 2017-10-03 22:22 (6)
Silly Venture 2k17 – invitka na… C-64! z 2017-10-01 12:48 (13)
Relacja z KWAS-a 12 z 2017-09-30 02:03 (15)
Remanent growy – mini-Slots z 2017-09-28 00:25 (8)
Gry na Atari w IPN z 2017-09-26 08:18 (3)
Nowa polska gra na Atari ST z 2017-09-23 01:49 (25)
«« nowszestarsze »»

Pomocnik/Helper
Gry/Games

Katalog gier

Opisy gier
Frogs opisał Xeen (0)
Choplifter! opisał Urborg (0)
Joust opisał Urborg (16)
Commando opisał Urborg (35)
Mario Bros opisał Urborg (13)
Xenophobe opisał Urborg (34)
Robbo Forever opisał tbxx (16)
Kolony 2106 opisał tbxx (0)
Archon II: Adept opisał Urborg/TDC (9)
Spitfire Ace/Hellcat Ace opisał Farscape (7)
Wyspa opisał Kaz (9)
Archon opisał Urborg/TDC (16)
The Last Starfighter opisał TDC (30)
Dwie Wieże opisał Muffy (17)
Basil The Great Mouse Detective opisał Charlie Cherry (121)
Inny Świat opisał Charlie Cherry (17)
Inspektor opisał Charlie Cherry (19)
Grand Prix Simulator opisał Charlie Cherry (16)
Rescue On Fractalus opisał Kaz (18)
Stranded opisał Kaz (10)
«« nowszestarsze »»

Użytki/Utils
Wewnętrzne/Internals



   Nowinki tworzone dzięki CuteNews
Atari w różnych rolach
Piotr "Różyk" Różycki opowiada:

Pod wpływem newsa o sterowaniu za pomocą Atari, i moich wynurzeń na temat rozkodowywania radia, otworzyła mi się w głowie klapka i z niepamięci wypłynęło kilka projekcików, które uruchomiłem na moim sprzęcie dwadzieścia lat temu: termostat do akwarium, podsłuchiwacz, miernik rezystorów, rozpoznawacz nagrań muzycznych, tester cyfrowych układów scalonych.

1. Termostat do akwarium

Wykorzystałem wejście wiosełek (A/C) do podłączenia termistora zanurzonego w akwarium. Reszta to przekaźnik podłączony przez transoptor izolujący galwanicznie sieć od komputera i prosty program w Basicu.

2. Podsłuchiwacz

W celu ułatwienia pracy na komputerze i pozbycia się delikatnego szumu z telewizora, podczas pisania programu do testowania kursantów na prawo jazdy (pisałem dwa miesiące wakacji dzień w dzień po kilka godzin), dorobiłem wzmacniacz stawiany na Atari podłączany przez DIN z tyłu komputera. Wzmacniacz był z małego rosyjskiego radyjka o nazwie Maximka (Максимка). Atari tak przerobione mogło pracować też bez telewizora i dalej miałem dźwięk. Wykorzystałem to w śmieszny sposób. Do wejścia analogowego podłączyłem mikrofon z przedwzmacniaczem, a na komputerze zapuściłem program wykorzystujący syntezator SAM. Przez kilka dni w domu było cicho „jak makiem zasiał” ponieważ po każdym głośniejszym dźwięku Atari odzywało się głośno protestując. Pamiętam nawet tekst – „Proszę o ciszę, boli mnie głowa!”



3. Miernik rezystorów

Wejście wiosełek dawało skromną, ale jednak, możliwość pomiaru rezystancji. W czasach kiedy jeszcze nie miałem miernika uniwersalnego, używałem czasem Atari do selekcji rezystorów z wytartymi oznaczeniami.

4. Rozpoznawacz utwórów muzycznych

Przez to samo wejście wprowadziłem sygnał analogowy z magnetofonu. Program w Basicu próbkował ten sygnał przez pewien czas (chyba to było 10-15 sekund) i zapisywał charakterystykę utworu w bazie wraz z jego nazwą podawaną z klawiatury. Po nauczeniu kilkunastu nagrań robiłem próby z rozpoznawaniem przez Atari puszczanego kawałka. Powiem, że byłem zaskoczony, ponieważ system DZIAŁAŁ! Fajnie było pokazać kolegom jak Atari „słucha” przez chwilę przeboju, a potem wyskakuje jego nazwa. Co ciekawe, czytałem w tym roku o podobnym patencie na telefony komórkowe. Po nagraniu kawałka utworu i przesłaniu gdzieś tam otrzymujesz zwrotnie jego nazwę. Miło wiedzieć, że byłem szybszy o jakieś 20 lat :).

5. Rozkodowywanie radia samochodowego

Sam kiedyś rozbudowałem moje 800XL o dodatkowe we/wy i rozkodowałem radio samochodowe kolegi (legalne) takim wynalazkiem. Trwało to dwa dni, prądem czasem migali, więc system zapisywał co jakiś czas postępy prac na magnetofonie. Co do schematu, to był dość prosty, do odtworzenia pewnie. Były to jakieś transoptorki podłączone do portów joysticka plus mojego dodatkowego portu joysticka (wykorzystałem nieużywane nogi PB2-PB6 z PIA). Ogólnie metoda rozkodowywania była prymitywna, ale co ciekawe skuteczna. Ponieważ radio nie blokowało się na stałe po wpisaniu błędnego kodu (chyba na kilkanaście sekund, nie pamiętam) można było zastosować metodę brute force. Podłączyłem się pod klawisze do wpisywania kodu (chyba 4 cyfry) i Atari wstukiwało pracowicie kolejne kombinacje. Wiedziałem od kolegi, że po włączeniu radia zaświecało się wszystko, łącznie z podświetleniem wyświetlacza. Zablokowane radio nie podświetlało. Co do genezy potrzeby rozkodowywania: kolega chyba po prostu nie zapisał sobie kodu i zapomniał, bo nie wyjmował radia z kieszeni. Dopiero po "padzie" akumulatora sprawa wyszła. Kontynuując... : Do jednej z żaróweczek podpiąłem się i Atari "polowało" na kod, który da "iluminację". Jak widać proste aż do bólu. Mimo tego byłem strasznie dumny z sukcesu. To w końcu moje Atari plus inwencja pokonały zabezpieczenie. A kolega jakiego respektu nabrał :-).

10 P=PEEK(54018):POKE 54018,P-4
20 POKE 54016,247
30 POKE 54018,P
40 TYS=1:SET=1:DZI=1:JED=1
50 GOSUB 1000:FOR T=1 TO 400:NEXT T
60 REM
70 FOR C=1 TO TYS:GOSUB 1010:NEXT C
80 GOSUB 1020
90 REM
100 FOR C=1 TO SET:GOSUB 1010:NEXT C
110 GOSUB 1020
120 REM
130 FOR C=1 TO DZI:GOSUB 1010:NEXT C
140 GOSUB 1020
150 REM
155 REM
160 FOR C=1 TO JED:GOSUB 1010:NEXT C
170 GOSUB 1020
180 REM
190 IF PEEK(54016)=0 THEN CZEK=CZEK+1:GOTO 200
195 CZEK=0:FOR T=1 TO 300:NEXT T:GOTO 210
200 IF CZEK>50000 THEN GOTO 10000
205 GOTO 190
210 JED=JED+1
220 IF JED=11 THEN JED=1:DZI=DZI+1
230 IF DZI=11 THEN DZI=1:SET=SET+1:POKE 764,8:OPEN #1,8,0,"C:":PUT #1,TYS:PUT #1,SET:PUT #1,DZI:PUT #1,JED:CLOSE #1
240 IF SET=11 THEN SET=1:TYS=TYS+1
250 IF TYS=11 THEN STOP
260 ? TYS;" ";SET;" ";DZI;" ";JED;" ** ";:GOTO 50
1000 POKE 54016,1:FOR T=1 TO 50:NEXT T:POKE 54016,0:RETURN
1010 POKE 54016,4:FOR T=1 TO 50:NEXT T:POKE 54016,0:FOR T=1 TO 50:NEXT T:RETURN
1020 POKE 54016,2:FOR T=1 TO 50:NEXT T:POKE 54016,0:FOR T=1 TO 150:NEXT T:RETURN
10000 ? "HURRA MAM TEN CHOLERNY KOD!!!"
10010 ? "TEN KOD TO -->";TYS;"......";SET;"......";DZI;"......";JED
10020 FOR T=1 TO 4:POKE 764,8:OPEN #1,8,0,"C:":PUT #1,TYS:PUT #1,SET:PUT #1,DZI:PUT #1,JED:CLOSE #1:NEXT T


6. Tester układów scalonych

Zgrywając program do odkodowywania radia natrafiłem na kasecie na inny mój programik w Basicu. Okazuje się, że kasety są trwalsze od dyskietek (niepowodzenie z wczytywaniem programu do testowania kierowców!), trzeba tylko sporo pokręcić głowicą w magnetofonie. Po wczytaniu i obejrzeniu zrozumiałem, do czego potrzebne mi było małe ustrojstwo, które prezentuję na fotografii poniżej. To był tester cyfrowych układów scalonych! Zupełnie zapomniałem, że coś takiego zrobiłem… Tester był używany do siedmiu typów scalaka, ale mógł z powodzeniem testować inne, wystarczyło dopisać w liniach DATA tablice prawdy. Oczywiście zasilanie musiało być na tych samych nóżkach, ale większość TTL’i wtedy tak miała. Tester używał dodatkowego portu, używającego niewykorzystane nóżki PIA, wspominałem o tym przy nowince o tokarkach.



5 POKE 54019,PEEK(54019)-4:POKE 54017,255:POKE 54019,PEEK(54019)+4:POKE 54017,129
10 DIM A$(8),B$(8),WYA$(8),WYB$(8),TA$(8),TB$(8)
20 GRAPHICS 0
30 ? "Wybierz typ scalaka :"
40 ? :? "1 - 7400,2 - 7401"
50 ? :? :INPUT NR:IF NR<1 OR NR>2 THEN 50
55 RESTORE 1000+NR*10
60 READ TA$,TB$:TA=0:TB=0
70 FOR TP=1 TO 8
80 IF TA$(TP,TP)="X" THEN 100
90 TA=TA+VAL(TA$(TP,TP))*2^(TP-1)
100 IF TB$(TP,TP)="X" THEN 120
110 TB=TB+VAL(TB$(TP,TP))*2^(TP-1)
120 NEXT TP
200 P=PEEK(54018)
210 POKE 54018,P-4
220 POKE 54016,TA
230 POKE 54018,P
240 P=PEEK(54019)
250 POKE 54019,P-4
260 POKE 54017,TB
270 POKE 54019,P
280 POKE 54017,193:REM WLACZ ZASILANIE
300 READ LT
310 FOR TEST=1 TO LT
320 READ A$,B$,WYA$,WYB$
500 A=0:B=0:WYA=0:WYB=0
510 FOR T=1 TO 8
520 IF A$(T,T)="X" THEN 540
530 A=A+VAL(A$(T,T))*2^(T-1)
540 IF B$(T,T)="X" THEN 560
550 B=B+VAL(B$(T,T))*2^(T-1)
560 IF WYA$(T,T)="X" THEN 580
570 WYA=WYA+VAL(WYA$(T,T))*2^(T-1)
580 IF WYB$(T,T)="X" THEN 600
590 WYB=WYB+VAL(WYB$(T,T))*2^(T-1)
600 NEXT T
700 POKE 54016,A
710 POKE 54017,B
720 IF WYA=PEEK(54016) AND WYB=PEEK(54017) THEN 800
730 POKE 54016,0:POKE 54017,129
740 ? :? "SCALAK JEST BAD!!!"
750 FOR OP=1 TO 2000:NEXT OP
760 RUN
800 NEXT TEST
900 POKE 54016,0:POKE 54017,129
910 ? :? "SCALAK JEST CACY!!!!"
920 FOR OP=1 TO 2000:NEXT OP
930 RUN
1010 REM ******** 7400 ********
1011 DATA 11011001,11101111,4
1012 DATA 00X00XX0,100X0011
1013 DATA 00100110,10010011
1014 DATA 01X01XX0,101X0111
1015 DATA 01101110,10110111
1016 DATA 10X10XX1,100X1011
1017 DATA 10110111,10011011
1018 DATA 11X11XX1,101X1111
1019 DATA 11011001,10101111




5 POKE 54019,PEEK(54019)-4:POKE 54017,255:POKE 54019,PEEK(54019)+4:POKE 54017,129
10 DIM A$(8),B$(8),WYA$(8),WYB$(8),TA$(8),TB$(8)
20 GRAPHICS 0
30 ? "Wybierz typ scalaka :"
40 ? :? " 1 - 7400, 7403, 7437, 7438 "
41 ? " 2 - 7401 "
42 ? " 3 - 7402 "
52 ? "12 - 7472 "
58 ? :? :INPUT NR:IF NR<1 OR NR>12 THEN 58
59 RESTORE 1000+NR*10
60 READ TA,TB
200 P=PEEK(54018)
210 POKE 54018,P-4
220 POKE 54016,TA
230 POKE 54018,P
240 P=PEEK(54019)
250 POKE 54019,P-4
260 POKE 54017,TB
270 POKE 54019,P
280 POKE 54017,193:REM WLACZ ZASILANIE
290 REM FOR OP=1 TO 50:NEXT OP
300 READ LT
310 FOR TEST=1 TO LT
315 ? "TEST nr ";TEST;" - ";
320 READ A,B,WYA,WYB
700 POKE 54016,A
710 POKE 54017,B
720 IF WYA=PEEK(54016) AND WYB=PEEK(54017) THEN 800
730 POKE 54016,0:POKE 54017,129
740 ? :? "SCALAK JEST BAD!!!"
750 FOR OP=1 TO 2000:NEXT OP
760 RUN
800 ? "OK"
810 NEXT TEST
900 POKE 54016,0:POKE 54017,129
910 ? :? "SCALAK JEST CACY!!!!"
920 FOR OP=1 TO 2000:NEXT OP
930 RUN
1010 REM ******** 7400 ********
1011 DATA 155,247,4
1012 DATA 0,193,100,201
1013 DATA 18,229,118,237
1014 DATA 137,209,237,217
1015 DATA 155,245,155,245
1020 REM ******** 7401 ********
1021 DATA 246,219,4
1022 DATA 0,193,9,229
1023 DATA 164,209,173,245
1024 DATA 82,201,91,237
1025 DATA 246,217,246,253
1030 REM ******** 7402 ********
1031 DATA 246,219,4
1032 DATA 0,193,9,229
1033 DATA 164,209,164,209
1034 DATA 82,201,82,201
1035 DATA 246,217,246,217
1120 REM ******** 7472 ********
1121 DATA 159,255,11
1122 DATA 0,225,32,225,2,193,66,193
1123 DATA 138,237,202,237,138,253,202,253
1124 DATA 138,237,170,237,158,233,190,233
1125 DATA 158,249,190,249,158,233,222,233
1126 DATA 158,237,222,237,158,253,222,253
1127 DATA 158,237,190,237


Załączam wszystkie posiadane źródełka dla zaspokojenia ewentualnej ciekawości. Chodzą w najzwyklejszym Atari Basic:

  • RADIO.BAS – rozkodowywanie radia
  • TTL1.BAS – tester scalaków wersja 1
  • TTL2.BAS – tester scalaków wersja 2

To tyle na teraz, jak jeszcze coś sobię przypomnę dam znać. Pamiętam, że sporo kombinowałem, coś jeszcze pewnie do mnie wróci z pamięci...

2008-10-13 02:13 by Różyk
komentarzy: 8
zaxon @2008-10-13 02:29:19
No to niezle jest, Dzieki serdeczne za upublicznienie
Kaz @2008-10-13 02:33:57
Szczegolnie podoba mi sie "Podsluchiwacz", choc bardziej pasowalaby mi tu nazwa "Opierdalacz" :). Gdyby do niego uzywac takiego polaczenia SAM-a (synteza mowy) z Eliza (podtrzymywanie rozmowy) to moglbym w pracy wysylac Atari na niektore zebrania... :P
maly_swd @2008-10-13 02:37:24
kurcze co to ludziki nie wymysla:)
Jak kiedys bylem mniejszy to wujo zrobil mi sterownik do kolejki PIKO, przelaczanie zwrotnic i semafora, szlaban i cos jeszcze.

Wtedy to byla frajda tym sie bawic.. z tym ze mialem to 2 dni;/ bo wujo zabral swoj komputer
zaxon @2008-10-13 02:42:23
no ja wariacko nawalalem w automat perkusyjny ale sobie go sam przerobilem, podstawki mialem z puszek a paleczki na kabelkach, a teraz mi moja atarka bardzo fajnie steruje silnikami, mam zamiar ja wykorzystac do frezarki CNC
xxl @2008-10-13 08:13:31
pomysl z rozpoznawaniem utworow mi sie podoba :)
eswald @2009-01-16 15:32:04
Wkorzystujac odczyt paddla wykonalem kiedys termometr na termistorze od baterii NI CD.W przedziale -25 +50 odchylka wynosila 0.5 stopnia.Mialem kontrole na kanale telewizyjnym a termometr byl zamontowany za oknem na kablu ekranowanym.
Kaz @2009-01-17 02:24:24
Tez ciekawy pomysl. Jak masz jakies schemaciki, rysunki, a moze zdjecia to podsylaj.
Kaczor @2011-10-24 20:44:55
Fajny bajer, muszę sobie takie coś zrobić.

@ Zaxon - dobry pomysł z tą CNC, sam pracowałem na narzędziowni w odlewni aluminium i widziałem co maszyny CNC potrafią. Troszkę roboty byś miał do przerobienia analogowej frezarki na cyfrową. Powodzenia. Dla chcącego nic trudnego.

Zresztą ten post piszę po dłuższym czasie i kto wie, może już ci ta frezarka działa :-)
nickname
e-mail / website (opcjonalnie)
Aktualne tematy
Jak nazywa się ta gra? (5)
ostatni: 21-11-2017 22:51, pgru
Wywiad z Rolandem Pantołą by Vicek (18)
ostatni: 21-11-2017 21:49, Enjo
Poszukuję kilka tytułów gier + ty... (10)
ostatni: 21-11-2017 21:47, Xavier_Velo
Zamienie C64C na Atari XL/XE/ST... (9)
ostatni: 21-11-2017 21:46, miki1406
Atarociekawostki na blogu TDC (30)
ostatni: 21-11-2017 21:09, tdc
Silly Venture 2k17 - uniting the ... (144)
ostatni: 21-11-2017 17:51, greymsb
Pixel Retro Shop (2)
ostatni: 21-11-2017 09:55, wataB
SV2k17 - rejestracja, koszulki i ... (27)
ostatni: 20-11-2017 21:54, jesionen
SIO2SD - configurator 3.5 (16)
ostatni: 20-11-2017 15:09, piomet
SoundMachine instrukcja (3)
ostatni: 20-11-2017 03:39, mono
Sio2SD problem podpięcie dyskietk... (9)
ostatni: 19-11-2017 22:55, piomet
[Sprzedam] płytki pod własny cart... (7)
ostatni: 19-11-2017 18:53, ccwrc
Dekodowanie sygnału z magnetofonu (1)
ostatni: 19-11-2017 09:56, gsgalezowski
Laura Konstruktor (10)
ostatni: 19-11-2017 06:44, QTZ
Pomoc jak zwykle potrzebna i przy... (21)
ostatni: 18-11-2017 21:15, IRATA4

Kategorie Forum Atarum

Użytkowników: 1752
Ostatnio zarejestrowany: vicek
Postów ostatniej doby: 15

Społeczność/Community

Najbliższe imprezy

Sprzęt/Hardware

Wynalazki
Atari i Bluetooth napisał Kaz (17)
SIO2PC-USB napisał Larek (44)
Nowe SIO2SD napisał Larek (0)
SIO2SD w CA12 napisał Urborg (9)
Ratowanie ATMEL-ów napisał Yoohaas (12)
Projektowanie cartów napisał Zenon (12)
Joystick do Atari napisał Larek (54)
Tygrys Turbo napisał Kaz (7)
Testowałem "Simple Stereo" napisał Zaxon (3)
Rozszerzenie 1MB napisał Asal (20)
Joystick trzyprzyciskowy napisał Sikor (18)
Moje MyIDE oraz SIO2PC na USB napisał Zaxon (16)
Jak wykonać płytkę drukowaną? napisał Zaxon (26)
Rozszerzenie 576kB napisał Asal (13)
Soczyste kolory napisał scalak (28)
XEGS Box napisał Zaxon (13)
Atari w różnych rolach napisał (8)
SIO2IDE w pudełku napisał Kaz (5)
Atari steruje tokarką napisał Kaz (14)
DarkMouse napisał Kaz (7)
«« nowszestarsze »»