jeste k radio karte
Petr Krc
pekr
Středa Březen 17 11:44:47 CET 2004
Hi,
Tony Malecky wrote:
> >Tak by me spis zajimalo, jestli nekdo nema zkusosti, co se presne posila na
> >ktery
> >byte karty ( karta sedi na 20C az 20F h), protoze se tam posila kmitocet,
> >hlasitost a umlceni.
--- CUT ---
From : Karel Klima 2:421/18.20 Wed 08 May 96 19:10
To : all Thu 09 May 96 18:32
Subj : Radio Track
Hello All!
Vzhledem k rostoucimu zajmu o %subj% v teto konferenci prikladam
programek v packalu pro ladeni stanice. Pozadovanou frekvenci ocekava
jako parametr pri spusteni. Je kratkej, tak me nebijte.
Pobavte se - data ziskana pomoci TD a nasledne analyzy
-------------------- Zde odstrihnout --------------------
program radiocrack;
uses crt;
const init2 : array[0..15] of byte = (01,03,01,03,01,03,01,03,
01,03,05,07,01,03,05,07);
var i,j : byte;
k : word;
l : real;
begin
clrscr;
if ParamCount <> 1 then halt;
val(ParamStr(1),l,k);
if k <> 0 then halt;
k := trunc((l + 10.7) / 0.025);
for i := 0 to 15 do begin
port[$020C] := 4 * (k and 1) + 1;
port[$020C] := 4 * (k and 1) + 1;
port[$020C] := 4 * (k and 1) + 3;
port[$020C] := 4 * (k and 1) + 3;
k := k div 2;
end;
for i := 0 to 15 do begin
port[$020C] := init2[i];
port[$020C] := init2[i];
end;
port[$020C] := $00;
port[$020C] := $C8;
end.
-------------------- Zde odstrihnout --------------------
KAKL
--- CUT ---
--
Regards
Petr Krc
Další informace o konferenci Hw-list