home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N2.ZIP / ISWIND3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-09  |  430 b   |  22 lines
  1.   function IsWindows3 : Boolean; Assembler;
  2.   asm
  3.     mov     ax,1600h
  4.     int     2Fh
  5.     cmp     al,1
  6.     jbe     @@CheckRealOrStd
  7.     cmp     al,80h
  8.     jae     @@CheckRealOrStd
  9.     mov     al,1
  10.     jmp     @@ExitPoint
  11.   @@CheckRealOrStd:
  12.     mov     ax,4680h
  13.     int     2Fh
  14.     or      ax,ax
  15.     jnz     @@NoWin
  16.     mov     al,1
  17.     jmp     @@ExitPoint
  18.   @@NoWin:
  19.     mov     al,0
  20.   @@ExitPoint:
  21.   end;
  22.