home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / nfsrc21.zip / DBTHANDL.ASM < prev    next >
Assembly Source File  |  1992-10-16  |  3KB  |  93 lines
  1. ; File......: DBTHANDL.ASM
  2. ; Author....: Ted Means
  3. ; Date......: $Date:   15 Oct 1992 23:55:54  $
  4. ; Revision..: $Revision:   1.0  $
  5. ; Log file..: $Logfile:   C:/nanfor/src/dbthandl.asv  $
  6. ; 
  7. ; This is an original work by Ted Means and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   C:/nanfor/src/dbthandl.asv  $
  14. ;  
  15. ;     Rev 1.0   15 Oct 1992 23:55:54   GLENN
  16. ;  Initial revision.
  17. ;  
  18.  
  19. ; $DOC$
  20. ; $FUNCNAME$
  21. ;     FT_DBTHand()
  22. ; $CATEGORY$
  23. ;     Database
  24. ; $ONELINER$
  25. ;     Obtain the handle associated with an open .DBT file.
  26. ; $SYNTAX$
  27. ;     FT_DBTHand() -> nHandle
  28. ; $ARGUMENTS$
  29. ;     None
  30. ; $RETURNS$
  31. ;    The file handle, or zero if no .DBT is open in the specified
  32. ;    work area.
  33. ; $DESCRIPTION$
  34. ;    For your own twisted reasons you may need make direct use of the
  35. ;    file handle associated with a memo field file.  This function gives you
  36. ;    that capability, but use it with care and don't blame me if you
  37. ;    botch something up.
  38. ;
  39. ;    By default this function works on the current work area, but can be
  40. ;    made to work on any work area through the use of the standard Clipper
  41. ;    alias operator.
  42. ;
  43. ;    Be aware that this function makes use of Clipper's internal work
  44. ;    area information which is subject to change in future versions of
  45. ;    Clipper.  If this makes you uncomfortable then don't use this function,
  46. ;    you spineless jellyfish.
  47. ;
  48. ;    This function is written to adhere to Turbo Assembler's IDEAL mode.
  49. ;    To use another assembler, rearrange the SEGMENT and PROC directives
  50. ;    and make any other necessary changes to the source code.
  51. ;
  52. ; $EXAMPLES$
  53. ;      QOut( FT_DBTHand() )
  54. ;
  55. ;      // Try a non-current work area
  56. ;
  57. ;      nHandle := THISFILE->( FT_DBTHand() )
  58. ;
  59. ;      // This will return zero if no database is open in work area 133
  60. ;
  61. ;      select 133
  62. ;      QOut( FT_DBTHand() )
  63. ;
  64. ; $END$
  65.  
  66. IDEAL                                        ; Invoke TASM IDEAL mode
  67.  
  68. Public   FT_DBTHand
  69.  
  70. Extrn    __WorkAreas:DWord                   ; INTERNAL!!!
  71. Extrn    __RetNI:Far
  72.  
  73. Segment  _NanFor   Word      Public    "CODE"
  74.          Assume    CS:_NanFor
  75.  
  76. Proc     FT_DBTHand          Far
  77.  
  78.          LES       BX,[__WorkAreas]          ; Load pointer to work areas
  79.          Mov       AX,[Word Ptr ES:BX]       ; Check to see if work area
  80.          Or        AX,[Word Ptr ES:BX + 2]   ; is in use
  81.          JZ        @@Done                    ; If not, return zero
  82.          LES       BX,[DWord Ptr ES:BX]      ; Load work area pointer
  83.          Mov       AX,[Word Ptr ES:BX + 6Eh] ; Load handle
  84.  
  85. @@Done:  Push      AX                        ; Put return value on stack
  86.          Call      __RetNI                   ; Return it
  87.          Add       SP,2                      ; Realign stack
  88.          Ret
  89. Endp     FT_DBTHand
  90. Ends     _NanFor
  91. End
  92.  
  93.