XProfan

Window Title "Wer is the processor-manufacturers?"
Window Style 24:CLS
ASM "HERSTELLER",1
MOV eax, 0' it to the manufacturers quizzed go
'  CPUID               ' CPUID-commands perform
DW $a20f' or db $0f:db $a2
MOV ESI,EBX' EBI-EDI-ECI include now 12 ASCII-characters
MOV EDI,EDX' for the filing are [ESI+EDI] not as Pointer
MOV EBX,par1' suitable, therefore watts "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' outputted would here theoretsich The Ablagestring-address
ENDASM
Declare manufacturers$:manufacturers$=mkstr$("?",12)+"\z"'12 characters + Abschluss-zero
HERSTELLER(Addr(manufacturers$))
locate 4,4:print "Der manufacturers this Prozessors is: ";
font 2:print manufacturers$
Waitinput 8000
End