home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-UTIL.ARK / MACHINE.SRC < prev    next >
Text File  |  1986-01-06  |  1KB  |  27 lines
  1. {->>>>Machine<<<<----------------------------------------------}
  2. {                                                              }
  3. { Filename: MACHINE.SRC -- Last modified 10/20/85              }
  4. {                                                              }
  5. { This routine returns the model ID code, a string description }
  6. { of the machine model, and the release date of the ROM BIOS.  }
  7. {--------------------------------------------------------------}
  8.  
  9. FUNCTION Machine(VAR ROMDate   : String80;
  10.                  VAR ModelCode : Byte) : String80;
  11.  
  12. VAR
  13.   I : Integer;
  14.  
  15. BEGIN
  16.   ModelCode := MEM[$F000 : $FFFE];
  17.   CASE ModelCode OF
  18.     254,255 : Machine := 'PC/XT/Portable';
  19.     253     : Machine := 'PCjr';
  20.     252     : Machine := 'PC/AT';
  21.     ELSE Machine := 'Non-IBM compatible'
  22.   END; {CASE}
  23.   FOR I := 1 TO 8 DO   { Copy the ROM Date from ROM }
  24.     ROMDate[I] := CHR(MEM[$F000 : $FFF4+I]);
  25.   ROMDate[0] := Chr(8) { Set ROM date string length }
  26. END;
  27.                 VAR Value : String80) : Bo