home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / spo386.zip / NEED_186.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-13  |  1KB  |  25 lines
  1. Unit      Need_186; Interface
  2. { ------------------------------------------------------------------------- }
  3. { Support module for units optimized by Sally Peephole Optimizer.           }
  4. { Copyright 1994 by Sally I/S.                                              }
  5. {                                                                           }
  6. { Private individuals may distribute compiled versions of this unit as part }
  7. { of their own software provided that the copyright messages are left       }
  8. { intact.                                                                   }
  9. {                                                                           }
  10. { Aborts program if processor is not 186 or better.                         }
  11. { ------------------------------------------------------------------------- }
  12. {$R-,S-,I-,Q-,O-,F-,G-,A+}
  13.  
  14. Implementation
  15. { ------------------------------------------------------------------------- }
  16. {$IFDEF MSDOS}
  17. Begin
  18.   If 1 Shl (Test8086+32)=0 Then Begin
  19.     Writeln('This program requires a 186 cpu or better.');
  20.     Halt($FC);
  21.     Writeln('Portions copyright 1993 by Sally I/S'#13#10);
  22.   End;
  23. {$ENDIF}
  24. End.
  25.