home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / HUFF.ZIP / IS_NET.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-04-28  |  1.4 KB  |  42 lines
  1. ;-------------------------------------------------------------------------
  2. ; ** CLIPnet Library ** copyright of DataSync Technologies - Lansing, Mi
  3. ;-------------------------------------------------------------------------
  4. ;
  5. ;    Functions: Is_Network()
  6. ;
  7. ;           by: Carl Huff
  8. ;
  9. ;      Purpose:   /* verifies a legitimate connect to a fileserver */
  10. ;
  11. ;  Novell call: Connection Services
  12. ;               NetWare API DCh "Get Connection Number"
  13. ;
  14. ;          Use: Is_Network()
  15. ;
  16. ;      Returns: Clipper logical .T. (if valid) or logical .F. (! valid)
  17. ;-------------------------------------------------------------------------
  18.  
  19. .MODEL LARGE, PASCAL
  20. PUBLIC  is_network
  21.  
  22. EXTRN __parc:FAR
  23. EXTRN __retl:FAR
  24.  
  25. .CODE
  26. ;-------------------------------------------------------------------------
  27. is_network    PROC FAR                ;/**** IsNet() function ****/
  28. ;-------------------------------------------------------------------------
  29.  
  30.         mov     ah, 0DCh        ; Novell's Get Connection Number API
  31.         int     21h
  32.         and     ah, 0           ; zero out ah
  33.         push    ax              ; load up the return state
  34.         call    __retl          ; return logical to Clipper
  35.         add     sp, 2           ; clean that stack!!
  36.         ret                     ; return to Clipper
  37.  
  38. is_network  ENDP
  39. END
  40. ;-------------------------------------------------------------------------
  41. ;/* EOF Is_Net */
  42.