home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1998 January / PCA0198.ISO / MENUE / POSTFACH / 98010495.TXT < prev    next >
Text File  |  1997-11-25  |  319b  |  23 lines
  1. 0
  2. CMOS
  3. Turbo Tommy
  4. Listings
  5. Hier ist Turbo Tommy mit einem kleinen Listing
  6. das den Zugriff auf das CMOS erm÷glicht:
  7.  
  8. Function CMOSRead(Cell:byte) : byte;
  9. begin
  10. if (Cell<0) or (Cell>128) then
  11. begin
  12.  CMOSRead := -1;
  13.  exit;
  14. end;
  15.  PORT[$70]:=Cell;
  16.  CMOSRead := Port[$71];
  17. end;
  18.  
  19. Bis dann...
  20.   TT
  21.  
  22. HHMM
  23.