home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / HARDWARE / HARDCHK.ZIP / ROMREAD.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1984-10-26  |  936 b   |  39 lines
  1. 100  'this program will print the copyright date,rom bios date and machine type
  2. 110  '
  3. 120  'author: susan glinert-cole
  4. 130  '
  5. 140  PROG$="Signature V1.01 19Feb84
  6. 150  CLS: KEY OFF: PRINT PROG$: PRINT
  7. 160  '
  8. 170  'part 1 get copyright date
  9. 180  DEF SEG = &HFE00: A=0: B=30
  10. 190  PRINT "ROM location FE000:   ";
  11. 200  GOSUB 380
  12. 210  '
  13. 220  'part 2: get rom date
  14. 230  DEF SEG = &HFFFF:A=5:B=12
  15. 240  PRINT "ROM BIOS date is:     ";
  16. 250  GOSUB 380
  17. 260  '
  18. 270  'part 3:get machine type,byte at FFFFEh
  19. 280  DEF SEG=&HFFFF
  20. 290  ID.BYTE=PEEK(&HE)
  21. 300  ID$=""
  22. 310  IF ID.BYTE = &HFF THEN  ID$ = "PC"
  23. 320  IF ID.BYTE = &HFE THEN  ID$ = "XT"
  24. 330  IF ID.BYTE = &HFD THEN  ID$ = "PCjr"
  25. 340  PRINT "Machine type is:     ";
  26. 350  IF ID$ = "" THEN PRINT "Unknown. Code is  ";HEX$(ID.BYTE) ELSE PRINT "IBM ";ID$
  27. 360  END
  28. 370  '
  29. 380  'Subroutine to get the string from memory,
  30. 390  'convert unprintable characters, and print it.
  31. 400  P$=""
  32. 410  FOR X=A TO B
  33. 420  C$=CHR$(PEEK(X))
  34. 430  IF " " > C$ OR C$ > "~" THEN C$=" "
  35. 440  P$=P$+C$
  36. 450  NEXT X
  37. 460  PRINT P$
  38. 470  RETURN
  39.