XProfan

Titre de la fenêtre "Wer ist qui Prozessor-Hersteller?"
Fenêtre Style 24:CLS
ASM "HERSTELLER",1
MOV eax, 0' Es soll qui Hersteller abgefragt volonté
'  CPUID               ' CPUID-Befehl effectuer
DW $a20f' ou bien db $0f:db $a2
MOV ESI,EBX' EBI-EDI-ECI enthalten eh bien 12 ASCII-marque
MOV EDI,EDX' Pour qui Ablage sommes [ESI+EDI] pas comme Pointer
MOV EBX,par1' approprié, daher wurde "umgegriffen".
MOV EDX,0
MOV [EBX+EDX],ESI
ADD EDX,4
MOV [EBX+EDX],EDI
ADD EDX,4
MOV [EBX+EDX],ECX
MOV EAX,par1' Ausgegeben serait ici theoretsich qui Ablagestring-Adresse
ENDASM
Déclarer Hersteller$:Hersteller$=mkstr$("?",12)+"\z"'12 marque + Abschluss-zéro
HERSTELLER(Addr(Hersteller$))
locate 4,4:imprimer "Der Hersteller cet Prozessors ist: ";
font 2:imprimer Hersteller$
Waitinput 8000
Fin