home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1063 / gepackt.exe / DISK2 / PLOTSRC.EXE / TEST286.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-10  |  546 b   |  33 lines
  1. {$S-,R-,G-,D-,A+}
  2. Unit  Test286;
  3.  
  4. interface
  5.  
  6. implementation
  7.  
  8. function Is286Able: Boolean; assembler;
  9. asm
  10.         PUSHF
  11.         POP     BX
  12.         AND     BX,0FFFH
  13.         PUSH    BX
  14.         POPF
  15.         PUSHF
  16.         POP     BX
  17.         AND     BX,0F000H
  18.         CMP     BX,0F000H
  19.         MOV     AX,0
  20.         JZ      @@1
  21.         MOV     AX,1
  22. @@1:
  23. end;
  24.  
  25. begin
  26.   if not Is286Able then
  27.   begin
  28.     Writeln(#13#10'Sie benötigen ein 80286-Kompatibles System für dieses Programm');
  29.     Readln;
  30.     Halt(1);
  31.    end;
  32. end.
  33.