34 lines
399 B
Plaintext
34 lines
399 B
Plaintext
unit is286;
|
|
|
|
{$G-}
|
|
|
|
interface
|
|
|
|
implementation
|
|
|
|
function a286or_better:boolean; assembler;
|
|
asm
|
|
pushf
|
|
pop bx
|
|
and bx,0fffh
|
|
push bx
|
|
popf
|
|
pushf
|
|
pop bx
|
|
and bx,0f000h
|
|
cmp bx,0f000h
|
|
mov ax,0
|
|
jz @@1
|
|
mov ax,1
|
|
@@1:
|
|
end;
|
|
|
|
begin
|
|
if not a286or_better then begin
|
|
writeln;
|
|
writeln('Renegade requires an 80286 or better processor.');
|
|
halt;
|
|
end;
|
|
end.
|
|
{$G+}
|