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

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:

Navrh specifikace MZFREPO rozhrani (Michal Hučík, 23.9.2011 08:54)

Re: Navrh specifikace MZFREPO rozhrani (Jakub Ladman, 24.9.2011 06:40)
Re: Navrh specifikace MZFREPO rozhrani (Martin Lukasek, 25.9.2011 22:04)

Re: Navrh specifikace MZFREPO rozhrani (Radek Suk, 26.9.2011 02:59)
Re: Navrh specifikace MZFREPO rozhrani (Michal Hučík, 26.9.2011 06:49)