atarionline.pl
atarionline.pl Atari
Login:
Hasło:
Zapamiętaj mnie
Translate to RSS RSS
Film „Gry, użytki – co dla Ciebie?” z 2018-12-10 21:10 (18)
Zapraszamy do Katowic! z 2018-12-09 15:22 (4)
Gra „New Adventures of Laura” z 2018-12-06 21:52 (5)
Remanent – gry z 2017 roku (1) z 2018-12-04 23:47 (20)
Gry Gandalfa – część III z 2018-12-02 21:20 (1)
Premiera filmu „Gry, użytki – co dla Ciebie?” z 2018-11-25 12:11 (29)
Gra Druidarium (WIP) z 2018-11-18 12:39 (113)
Propozycje książkowe Retronics – zbiórka deklaracji z 2018-11-15 21:02 (10)
Kalendarz z Silly Venture z 2018-11-09 21:05 (32)
Wyniki Silly Venture 2018 z 2018-11-06 22:28 (36)
Pierwsze prace na małe Atari z SV2k18 z 2018-11-04 00:51 (139)
Rozpoczyna się Silly Venture z 2018-11-02 11:01 (63)
"Atari Basic" do kupienia z 2018-10-30 20:08 (15)
Rozwiązanie konkursu z 2018-10-29 10:38 (10)
Premiera konwersji Total Eclipse z 2018-10-26 20:07 (27)
Wkrótce RETROnizacja z 2018-10-25 19:34 (22)
Zapowiedź: Laser Squad i Total Eclipse z 2018-10-22 23:04 (38)
Wyniki konkursu programistycznego ABBUC 2018 z 2018-10-20 19:19 (60)
Gry konkursu ABBUC 2018 i „Get Up! 2” z 2018-10-19 22:19 (11)
Konkurs AtariOnline.pl z 2018-10-17 00:30 (13)
«« 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 (122)
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 »»

Wewnętrzne/Internals



   Nowinki tworzone dzięki CuteNews
Archiwizowanie dyskietek
Jakub Husak napisał:

Niegdyś wpadłem na pomysł (inspirowany listem atarowca, który chciał zgrać sobie dyskietki i ma stację, ale nie miał kabelka) aby stworzyć możliwość przeniesienia atarowskiej dyskietki na PC. Zadałem pytanie na forum. A na konkurencyjnym portalu rozwalił mnie xxl, który mniej więcej napisał tak: Co się pytasz, chcesz, to napisz!

Pomysł polegał na utworzeniu czegoś w rodzaju manetofonowego turbo. Jednak zwolniony z dekodowania w locie oraz korzystając z możliwości uzyskania sygnału bardzo dobrej jakości mogłem uzyskać znacznie większe prędkości transmisji. Problem jajka i kury został rozwiązany tak: napisać króciutki programik w Basicu ze wstawką maszynową, który zamieni dyskietkę w dźwięk :).

Zacząłem bawić się tym tematem. Najpierw przetestowałem różne metody zapisu kilku bitów na raz, ale to jednak ślepa uliczka - kondensatory robią swoje, a i program miał być możliwie krótki. Powróciłem więc do starej sprawdzonej metody - długości impulsu. Ta metoda przypomina w wielkim uproszczeniu radiowe FM. Zero logiczne to impuls długości trwania jednej linii ekranu (sta WSYNC), jedynka logiczna - 2 linie ekranu - trudno się pomylić przy dekodowaniu. Nie jest problemem wygenerowanie na Atari takich sygnałów, trzeba tylko wyłączyć wszelkie przerwania: CLI + zablokować NMI w ANTIC oraz wyłączyć ekran.

W rezultacie powstał możliwie jak najkrótszy programik w Basic i łatwo przepisywalny.

Programik disk2snd.bas:

0 . DISK2SND COPIER
1 . WITHOUT ANY CABLES.
2 . BY JAKUB HUSAK, DATE:07.2012
4 . JUST RETYPE THIS PROGGY,
5 . PUT THE DISK INTO DRIVE 1
6 . YOU WANT TO CONVERT TO XFD,
7 . ENTER NUMBERS AND RECORD
8 . OUTGOING NOISE ON PC, THEN
9 . SAVE AS WAV AND FEED THE PC APP
10 SUM=13218 : PLEN=145
11 POKE 65,0: DIM A$(4), B$(512)
12 FOR I=1 TO PLEN*2 STEP 4: READ A$: B$(I,I+4)=A$:N.I
13 FOR I=1 TO PLEN*2 STEP 2: VAL=(ASC(B$(I))-65)*16+
ASC(B$(I+1))-65:POKE 1536+(I-1)/2,VAL:SUM=SUM-VAL:N.I
14 IF SUM<>0 THEN ? "DATA ERROR": END
15 ? "START SEC?": I. SSEC
16 ? "END SEC?": I. ESEC
17 ? "SECT LEN [1]28/[2]56?":I. SLEN
18 FOR I=SSEC TO ESEC: ? "READING SECTOR: ";I,"ST: ";:
? USR(1543,I,I,128+(I>3)*(SLEN=2)*128): N.I
19 ? "OPERATION COMPLETED." : END
20 D. DBAB,FCEA,AIAE,BOKC,AGLN
21 D. AAAG,JNAA,ADGI,JNAI,ADMK
22 D. BAPD,CAFJ,OEIF,NFIE,NEBA
23 D. ABGA,HICA,FIAG,KJFH,IFDB
24 D. CAGI,AGKC,AJIN,AKNE,CAGC
25 D. AGNA,PICA,GFAG,KAAE,KJAI
26 D. IFHO,KJAD,IFHP,CAHG,AGOG
27 D. HPKM,AIAD,CAHG,AGKF,DBKA
28 D. AACA,HJAG,KAEA,KJCC,IMAO
29 D. NEIN,AANE,FIGA,JAAD,INAK
30 D. NEKF,DFCM,KJBP,EJAP,IFDF
31 D. INAK,NEIN,ABNC,MKGA,IILB
32 D. HOIF,DCBI,GFDB,CKGJ,AAIF
33 D. DBKC,AHAG,DCCA,GAAG,BAPJ
34 D. MAAA,NAOG,GA




Programik pobiera 3 liczby i uruchamia w pętli procedurkę czytającą sektor dyskietki oraz kodującą go na dźwięk (zgrzyty i piski). Osiągnięta prędkość przesyłu danych wewnątrz sektora to średnio 1.4 kB/sek (od 1kB/sek gdy są same FF, do 2 kB/sek, gdy same zera). Z ciekawostek - każdy zakodowany sektor ma sygnał pilotujący - 8 zboczy długości 3 linii ekranu. Dlaczego 3? Aby nie interferował się z odczytem z dyskietki pustych bajtów, których bity startu i stopu generują falę o długości niemal równej czterem liniom obrazu (w standardowej prędkości transmisji) - podszedłem do tematu zapobiegawczo, aczkolwiek w praktyce wyszło, że nie ma to znaczenia, ponieważ głośność sygnału właściwego jest dużo większ