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> <br/> <br/> Ahoj, Pascalem sice nevladnu, nicmene hlavni problem bude asi v tom, ze ten dokument co jsem zverejnil je "Navrh komunikace", zatimco v unikarte mas firmware, ktery jeste komunikuje postaru ;)<br/> Stahni si Jakubuv UCONTROL <a href="http://ordoz.com/sharp/">http://ordoz.com/sharp/</a> ... tam je i ceckovy zdrojak ve kterem je zrejme jak se komunikuje se soucasnym firmwarem ... Pripadne ve zdrojacich unikarty je v adresari rdloader priklad v assembleru.<br/> <br/> Jinak ten status je sice k dispozici vzdy, ale prijde mi zbytecne jej po uplne kazde operaci testovat. Stavajici firmware vraci ve statusu 1B binarni kod, a pak retezec, ktery rika status v ASCII. Za normalnich okolnosti tam prectes vzdy 0x01,"OK",0x00,0x00......<br/> <br/> Co se tyka toho navrhu, tak jsem to o vikendu zacal konecne implementovat. Udelal jsem drobne zmeny v prikazech, neco malo jsem pridal a musel jsem prozatim zrusit prikazy ktere by vracely info o tom jaky soubor/adresar je prave otevreny pro RW operace - nenasel jsem totiz zpusob jak to ve FatFS osetrit primo z toho filehandle, takze bych si kvuli tomu musel nekde pamatovat filename a path, coz se mi moc nelibi. Pak se k tomu jeste vratim, ale ted je potreba dopsat dulezitejsi prikazy.<br/> <br/> Az bude hotovo, tak k tomu samozrejme dopisu i nejakou dokumentaci s priklady. (no a pak by jsme se mohli vrhnout na ten RS232 v unikarte ;)<br/> <br/> Michal<br/> <br/> <br/> Dne 26.9.2011 0:04, Martin Lukasek (<a href="mailto:sharpemu@pandora.cz">sharpemu@pandora.cz</a>) napsal(a): <p>Ahoj,</p> <p>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.</p> <p>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?</p> <p><font color="blue">var b : Byte;<br/> i : Integer;</font></p> <p><font color="blue">begin<br/> WriteLn('Unicard test program');<br/> WriteLn;<br/> WriteLn('Reset, SHARP ASCII, RTCGETT');<br/> Port[$50] := $00;<br/> Port[$50] := $02;<br/> Port[$50] := $63;</font></p> <p><font color="blue"> Write('Data port = ');<br/> for i := 1 to 3 do<br/> begin<br/> b := Port[$51];<br/> Write(b, ' ');<br/> end;<br/> WriteLn;</font></p> <p><font color="blue"> Write('Status = ');<br/> for i := 1 to 4 do<br/> begin<br/> b := Port[$50];<br/> Write(b, ' ');<br/> end;<br/> WriteLn;</font></p> <p><font color="blue">end.</font></p> <p>Ahoj, Martin.</p> <p><br/> --- <br/> </p> <br/>