Contributor: SWAG SUPPORT TEAM
{> How do i get info about witch CPU it is in the current computer??
}
{$F+}
Const
CPU_Type : Array[1..4] of String[5] = ('8086', '80286', '80386', '80486');
Cpu8086 = 1;
Cpu80286 = 2;
Cpu80386 = 3;
Cpu80486 = 4;
Var
Result : Byte;
Function GetCPU_Type: Byte; Assembler;
Asm
MOV DX,Cpu8086
PUSH SP
POP AX
CMP SP,AX
JNE @OUT
MOV DX, Cpu80286
PUSHF
POP AX
or AX,4000h
PUSH AX
POPF
PUSHF
POP AX
TEST AX,4000h
JE @OUT
MOV DX, Cpu80386
{"DB 66h" indicates '386 extended instruction}
DB 66h; MOV BX, SP {MOV EBX, ESP}
DB 66h, 83h, 0E4h, 0FCh {AND ESP, FFFC}
DB 66h; PUSHF {PUSHFD}
DB 66h; POP AX {POP EAX}
DB 66h; MOV CX, AX {MOV ECX, EAX}
DB 66h, 35h, 00h
DB 00h, 04h, 00 {XOR EAX, 00040000}
DB 66h; PUSH AX {PUSH EAX}
DB 66h; POPF {POPFD}
DB 66h; PUSHF {PUSHFD}
DB 66h; POP AX {POP EAX}
DB 66h, 25h, 00h
DB 00h, 04h, 00h {AND EAX, 00040000}
DB 66h, 81h, 0E1h, 00h
DB 00h, 04h, 00h {AND ECX, 00040000}
DB 66h; CMP AX, CX {CMP EAX, ECX}
JE @Not486
MOV DX, Cpu80486
@Not486:
DB 66h; PUSH CX {PUSH EXC}
DB 66h; POPF {POPFD}
DB 66h; MOV SP, BX {MOV ESP, EBX}
@Out:
MOV AX, DX
end;
begin
Result := GetCPU_Type;
Writeln(Result);
end.