Schneider / Amstrad CPC Forum

Amstrad / Schneider CPC => Programmierung => Topic started by: Devilmarkus on 23. May 2012, 00:18:01

Title: CPC Modell erkennen, aber wie?
Post by: Devilmarkus on 23. May 2012, 00:18:01
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:

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)"

Title: Re: CPC Modell erkennen, aber wie?
Post by: FirstDefender on 14. January 2023, 15:48:48
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$