home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-07_1999_CSW_Side_B.d64 / scpu-detection (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  437b  |  20 lines
  1. 1 rem      scpu-mode-detection
  2. 2 rem  by ninja for go64!-magazine
  3. 3 rem -----------------------------
  4. 4 rem
  5. 10 poke53375,0
  6. 11 rem  ^ hardware-register aus
  7. 12 :
  8. 13 :
  9. 20 if peek(53426)>127 then print"keine scpu gefunden":end
  10. 21 rem  ^ bit 7 bei scpu jetzt 0
  11. 22 :
  12. 23 :
  13. 30 a=peek(53424) and 192
  14. 31 rem  ^ mode-flags auslesen
  15. 32 :
  16. 33 :
  17. 40 if a=192 then print"scpu v1 found":end
  18. 50 if a=64 then print"scpu v2 in 64-mode found":end
  19. 60 if a=0 then print"scpu v2 in 128-mode found"
  20.