Původní podoba příspěvku

Surová data tak, jak byla v roce 2013 stažena z Pandory (HTML zdroj bez úprav, osobní e-mailové adresy jsou maskované).

<!-------------------------------------------------------------->
<table width="100%"><tr><td align="left" valign="middle"></td><td align=right valign="middle"></td></tr></table><BR><pre>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 (sharpemu@pandora.cz) napsal(a):
<span class="replyquote1">&gt; Ahoj,
&gt;
&gt; mne to prijde uplne super, je bezva to mit prehledne sepsany. Mozna bych tam
<img src="BODY_IMAGES_WRAP_GIF"> jen
&gt; doplnil, kde je CMD Port a DATA Port. Nasel jsem si, ze 0x50 a 0x51.
&gt;
&gt; Hned jsem narychlo neco zkusil, ale narazil jsem. Zkusil jsem to v Pascalu,
&gt; protoze mi to prislo nejrychlejsi, ale bud mam nekde trivialni chybu nebo
&gt; TurboPascal neumi korektne Port[] nebo nevim. Vraci mi to vsude samy 0. Je
<img src="BODY_IMAGES_WRAP_GIF">chyba
&gt; ve mne nebo v Pascalu?
&gt;
&gt;      var b : Byte;
&gt;      i : Integer;
&gt;
&gt;      begin
&gt;      WriteLn('Unicard test program');
&gt;      WriteLn;
&gt;      WriteLn('Reset, SHARP ASCII, RTCGETT');
&gt;      Port[$50] := $00;
&gt;      Port[$50] := $02;
&gt;      Port[$50] := $63;
&gt;
&gt;      Write('Data port = ');
&gt;      for i := 1 to 3 do
&gt;      begin
&gt;      b := Port[$51];
&gt;      Write(b, ' ');
&gt;      end;
&gt;      WriteLn;
&gt;
&gt;      Write('Status = ');
&gt;      for i := 1 to 4 do
&gt;      begin
&gt;      b := Port[$50];
&gt;      Write(b, ' ');
&gt;      end;
&gt;      WriteLn;
&gt;
&gt;      end.
&gt;
&gt; Ahoj, Martin.
&gt;
&gt;
&gt; ---
&gt;
</span>
</pre>