Podle mne je to dobry dokument, urcite by to bylo vhodne doplnit o
priklady. Pascal nebo jazyk symbolickych adres bych uprednostnil.
Martine zatim nevim jak to funguje ale mozna budes muset dokolecka
snimat Status do doby nez bude 4 bit v 1 a pak az precist ty tri
parametry. Alespon takto to chapu z textu.
Radek
Dne 26.9.2011 0:04, Martin Lukasek (sharpemupandora.cz) napsal(a):
Zobrazit citovaný text (46 řádků)
> Ahoj,
>
> mne to prijde uplne super, je bezva to mit prehledne sepsany. Mozna bych tam
jen
> doplnil, kde je CMD Port a DATA Port. Nasel jsem si, ze 0x50 a 0x51.
>
> Hned jsem narychlo neco zkusil, ale narazil jsem. Zkusil jsem to v Pascalu,
> protoze mi to prislo nejrychlejsi, ale bud mam nekde trivialni chybu nebo
> TurboPascal neumi korektne Port[] nebo nevim. Vraci mi to vsude samy 0. Je
chyba
> ve mne nebo v Pascalu?
>
> var b : Byte;
> i : Integer;
>
> begin
> WriteLn('Unicard test program');
> WriteLn;
> WriteLn('Reset, SHARP ASCII, RTCGETT');
> Port[$50] := $00;
> Port[$50] := $02;
> Port[$50] := $63;
>
> Write('Data port = ');
> for i := 1 to 3 do
> begin
> b := Port[$51];
> Write(b, ' ');
> end;
> WriteLn;
>
> Write('Status = ');
> for i := 1 to 4 do
> begin
> b := Port[$50];
> Write(b, ' ');
> end;
> WriteLn;
>
> end.
>
> Ahoj, Martin.
>
>
> ---
>