0
CMOS
Turbo Tommy
Listings
Hier ist Turbo Tommy mit einem kleinen Listing
das den Zugriff auf das CMOS ermöglicht:

Function CMOSRead(Cell:byte) : byte;
begin
if (Cell<0) or (Cell>128) then
begin
 CMOSRead := -1;
 exit;
end;
 PORT[$70]:=Cell;
 CMOSRead := Port[$71];
end;

Bis dann...
  TT

HHMM