XProfan

Título de la ventana "Wer es el Prozessor-Hersteller?"
Ventana de Estilo 24:CLS
ASM "HERSTELLER",1
MOV eax, 0' Lo se el Hersteller abgefragt voluntad
'  CPUID               ' CPUID-Befehl ausführen
DW $a20f' oder db $0f:db $a2
MOV ESI,EBX' EBI-EDI-ECI enthalten nun 12 ASCII-Signo
MOV EDI,EDX' Für el Ablage son [ESI+EDI] no como Pointer
MOV EBX,par1' geeignet, por lo tanto 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 sería hier theoretsich el Ablagestring-Adresse
ENDASM
Declarar Hersteller$:Hersteller$=mkstr$("?",12)+"\z"'12 Signo + Abschluss-Null
HERSTELLER(Addr(Hersteller$))
locate 4,4:imprimir "Der Hersteller dieses Prozessors es: ";
font 2:imprimir Hersteller$
Waitinput 8000
End