home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / HUFF.ZIP / CONNECTS.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-05-01  |  1.5 KB  |  42 lines
  1. ;-------------------------------------------------------------------------
  2. ; ** CLIPnet Library ** copyright of DataSync Technologies - Lansing, Mi
  3. ;-------------------------------------------------------------------------
  4. ;
  5. ;    Functions: Conn_Num()
  6. ;
  7. ;           by: Carl Huff
  8. ;
  9. ;      Purpose:   /* returns logical connect number from Novell
  10. ;
  11. ;  Novell call: Connection Services
  12. ;               NetWare API DCh "Get Connection Number"
  13. ;
  14. ;          Use: my_connect = Conn_Num()
  15. ;
  16. ;      Returns: Clipper numeric of 1 to 100   (NetWare 286)
  17. ;               Clipper numeric of 1 to 250   (NetWare 386)
  18. ;-------------------------------------------------------------------------
  19.  
  20. .MODEL LARGE, PASCAL
  21. PUBLIC  conn_num
  22.  
  23. EXTRN __retni:FAR
  24.  
  25. .CODE
  26. ;-------------------------------------------------------------------------
  27. conn_num    PROC FAR                ;/**** Conn_Num() 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    __retni         ; return connect number to Clipper
  35.         add     sp, 2           ; clean that stack!!
  36.         ret                     ; return to Clipper
  37.  
  38. conn_num  ENDP
  39. END
  40. ;-------------------------------------------------------------------------
  41. ;/* EOF connects.asm */
  42.