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