CPC Modell erkennen, aber wie?

[Devilmarkus]

Man möchte ja manchmal ein Programm bauen, was erkennt, ob man einen 464, einen 664 oder einen 6128 verwendet.
Nun müsste man noch wissen, wie man auf die Schnelle zwischen den 3 Modellen unterscheiden kann.
Zwischen 2 ist ja noch relativ einfach, in dem man die Firmware-Version liest.
Diese ist allerdings zwischen dem 664 und dem 6128 identisch...

Um nun aber doch erkennen zu können, welcher der 3 CPCs man hat, kann man folgendes BASIC Programm ausprobieren:

Code Select Expand

10 MODE 1
20 a=PEEK(&BD3D)
30 IF a=&EF THEN PRINT"You are using a CPC 464":END
40 a=PEEK(&BD5E)
50 IF a=&EF THEN PRINT"You are using a CPC 664":END
60 PRINT "You are using a CPC 6128 (or a fake CPC)"


[FirstDefender]

oder so

20 file$="wm3-"
30 wert=PEEK(&BB4F)
40 IF wert=&78 THEN file$=file$+"464.bin":cpc$=" Schneider CPC 464"
50 IF wert=&70 THEN file$=file$+"664.bin":cpc$=" Schneider CPC 664"
60 IF wert=&74 THEN file$=file$+"6128.bin":cpc$=" Schneider CPC 6128"
70 print cpc$