home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / SQDEV200.ZIP / SRC / SHARE.ASM < prev    next >
Assembly Source File  |  1994-05-23  |  3KB  |  70 lines
  1. ;***************************************************************************
  2. ;*                                                                         *
  3. ;*  Squish Developers Kit Source, Version 2.00                             *
  4. ;*  Copyright 1989-1994 by SCI Communications.  All rights reserved.       *
  5. ;*                                                                         *
  6. ;*  USE OF THIS FILE IS SUBJECT TO THE RESTRICTIONS CONTAINED IN THE       *
  7. ;*  SQUISH DEVELOPERS KIT LICENSING AGREEMENT IN SQDEV.PRN.  IF YOU DO NOT *
  8. ;*  FIND THE TEXT OF THIS AGREEMENT IN THE AFOREMENTIONED FILE, OR IF YOU  *
  9. ;*  DO NOT HAVE THIS FILE, YOU SHOULD IMMEDIATELY CONTACT THE AUTHOR AT    *
  10. ;*  ONE OF THE ADDRESSES LISTED BELOW.  IN NO EVENT SHOULD YOU PROCEED TO  *
  11. ;*  USE THIS FILE WITHOUT HAVING ACCEPTED THE TERMS OF THE SQUISH          *
  12. ;*  DEVELOPERS KIT LICENSING AGREEMENT, OR SUCH OTHER AGREEMENT AS YOU ARE *
  13. ;*  ABLE TO REACH WITH THE AUTHOR.                                         *
  14. ;*                                                                         *
  15. ;*  You can contact the author at one of the address listed below:         *
  16. ;*                                                                         *
  17. ;*  Scott Dudley       FidoNet     1:249/106                               *
  18. ;*  777 Downing St.    Internet    sjd@f106.n249.z1.fidonet.org            *
  19. ;*  Kingston, Ont.     CompuServe  >INTERNET:sjd@f106.n249.z1.fidonet.org  *
  20. ;*  Canada  K7M 5N3    BBS         1-613-634-3058, V.32bis                 *
  21. ;*                                                                         *
  22. ;***************************************************************************
  23. ; SHARE.ASM - function call to determine whether or not SHARE.EXE
  24. ; is loaded (DOS only)
  25.  
  26. IFNDEF OS_2
  27.  
  28. IFNDEF __FLAT__
  29.         .model large, pascal
  30.         .code
  31.  
  32.         public SHARELOADED
  33.  
  34. SHARELOADED proc
  35.  
  36.         mov     ax,1000h                ; Check for SHARE.EXE installation
  37.         int     2fh                     ; DOS multiplexer interrupt
  38.         cmp     al,0ffh                 ; ffh = SHARE loaded
  39.         je      GetOut
  40.  
  41.         xor     ax,ax
  42. GetOut: ret
  43.  
  44. SHARELOADED endp
  45.  
  46. ELSE            ; __FLAT__
  47.         .386p
  48.         .model small, pascal
  49.         .code
  50.         public SHARELOADED
  51.  
  52. SHARELOADED proc
  53.         mov     eax,1000h               ; Check for SHARE.EXE installation
  54.         int     2fh                     ; DOS multiplexer interrupt
  55.         cmp     al,0ffh                 ; ffh = SHARE loaded
  56.         je      GetOut
  57.  
  58.         xor     eax,eax
  59. GetOut: ret
  60.  
  61. SHARELOADED endp
  62.  
  63. ENDIF ; __FLAT__
  64.  
  65. ENDIF ; !OS_2
  66.  
  67. end
  68.  
  69.  
  70.