home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / NWTTS3.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  3.0 KB  |  105 lines
  1. ; File......: NWTTS3.ASM
  2. ; Author....: James R. Zack
  3. ; CIS ID....: 75410,1567
  4. ; Date......: $Date:   15 Aug 1991 23:07:04  $
  5. ; Revision..: $Revision:   1.2  $
  6. ; Log file..: $Logfile:   E:/nanfor/src/nwtts3.asv  $
  7. ; 
  8. ; This is an original work by James Zack and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log:   E:/nanfor/src/nwtts3.asv  $
  15. ;  
  16. ;     Rev 1.2   15 Aug 1991 23:07:04   GLENN
  17. ;  Forest Belt proofread/edited/cleaned up doc
  18. ;  
  19. ;     Rev 1.1   12 Apr 1991 00:07:24   GLENN
  20. ;  Librarian error!  I didn't realize .asm functions _must_ obey the 10-char
  21. ;  limit, so the linker can't find this routine because it was 11 chars.  
  22. ;  The function is now ft_ttsBegi(), although the old ft_ttsBegin() will
  23. ;  work from Clipper.  Apologies to Mr. Zack and everyone for careless
  24. ;  renaming!
  25. ;  
  26. ;     Rev 1.0   01 Apr 1991 01:03:42   GLENN
  27. ;  Nanforum Toolkit
  28. ;  
  29.  
  30. ; $DOC$
  31. ; $FUNCNAME$
  32. ;     FT_TTSBEGIN()
  33. ; $CATEGORY$
  34. ;     NetWare
  35. ; $ONELINER$
  36. ;     Begin explicit transaction under NetWare's TTS
  37. ; $SYNTAX$
  38. ;     FT_TTSBEGIN() -> nResult
  39. ; $ARGUMENTS$
  40. ;     None
  41. ; $RETURNS$
  42. ;       0 - Success (transaction begun)
  43. ;     150 - Out of dynamic workspace (not begun)
  44. ;     254 - Implicit Transaction already active
  45. ;              (active implicit transaction now converted to
  46. ;              explicit transaction)
  47. ;     255 - Explicit transaction already active
  48. ;              (existing explicit transaction continues normally)
  49. ; $DESCRIPTION$
  50. ;    See your NetWare documentation for further information about the 
  51. ;    Transaction Tracking System (TTS).
  52. ; $EXAMPLES$
  53. ;    nResult := FT_TTSBEGIN()
  54. ;    DO CASE
  55. ;       CASE nResult == 0
  56. ;          ? "Transaction begun"
  57. ;       CASE nResult == 150
  58. ;          ? "Out of dynamic workspace, transaction not begun"
  59. ;       CASE nResult == 254
  60. ;          ? "Implicit transaction already active"
  61. ;       CASE nResult == 255
  62. ;          ? "Explicit transaction already active"
  63. ;       OTHERWISE
  64. ;          ? "Unknown result"
  65. ;    ENDCASE
  66. ; $SEEALSO$
  67. ;    FT_TTSABORT() FT_TTSAVAIL() FT_TTSEND() FT_TTSSTAT()
  68. ; $END$
  69. ;
  70. ;
  71.  
  72. PUBLIC    FT_TTSBEGI
  73. EXTRN     __RETNI:FAR
  74. EXTRN     __RET:FAR
  75. _NanFor  SEGMENT 'CODE'
  76.           ASSUME cs:_NanFor
  77. FT_TTSBEGI PROC    FAR
  78.           push    bp
  79.           mov     bp,sp
  80.           push    ds
  81.           push    es
  82.           push    si
  83.           push    di
  84.           mov     ah,0c7h          ; Novell API function c7
  85.           mov     al,00h           ; Subfunction 02
  86.           int     21h              ; TTS Begin Transaction
  87.           mov     ah,00h
  88.           push    ax
  89.           call    __RETNI
  90.           add     sp,2
  91.           pop     di
  92.           pop     si
  93.           pop     es
  94.           pop     ds
  95.           pop     bp
  96.           call    __RET
  97.           ret
  98.  
  99. FT_TTSBEGI endp
  100.  
  101. _NanFor   ends
  102.  
  103.           end
  104. 
  105.