Konference: Počítač SHARP MZ-800 a emulátory

Od: Radek Suk
Datum: 26.9.2011 04:59
Předmět: Re: Navrh specifikace MZFREPO rozhrani


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 tu byla ta zakroucena vec pandora.cz) napsal(a):
> 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.
>
>
> ---
>


Ostatní příspěvky vlákna:

 
[2011/1 (52)] [2011/2 (9)] [2011/3 (2)] [2011/4 (9)] [2011/5 (8)] [2011/7 (1)] [2011/8 (40)] [2011/9 (146)] [2011/10 (116)] [2011/11 (29)] [2011/12 (110)]


[1999 (1)] [2000 (168)] [2001 (733)] [2002 (459)] [2003 (654)] [2004 (224)] [2005 (105)] [2006 (182)] [2007 (201)] [2008 (294)] [2009 (363)] [2010 (782)] [2011 (522)] [2012 (642)] [2013 (442)]