home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / nfsrc21.zip / DISPCNT.ASM < prev    next >
Assembly Source File  |  1992-10-17  |  3KB  |  94 lines
  1. ; File......: DISPCNT.ASM
  2. ; Author....: Ted Means
  3. ; CIS ID....: 73067,3332
  4. ; Date......: $Date:   17 Oct 1992 16:26:56  $
  5. ; Revision..: $Revision:   1.1  $
  6. ; Log file..: $Logfile:   C:/nanfor/src/dispcnt.asv  $
  7. ; 
  8. ; This is an original work by Ted Means and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log:   C:/nanfor/src/dispcnt.asv  $
  15. ;  
  16. ;     Rev 1.1   17 Oct 1992 16:26:56   GLENN
  17. ;  Leo cleaned up documentation block.
  18. ;  
  19. ;     Rev 1.0   15 Oct 1992 23:57:46   GLENN
  20. ;  Initial revision.
  21. ; 
  22.  
  23. ;  $DOC$
  24. ;  $FUNCNAME$
  25. ;     FT_DispCnt()
  26. ;  $CATEGORY$
  27. ;     Video
  28. ;  $ONELINER$
  29. ;     Return the number of outstanding calls to DispBegin()
  30. ;  $SYNTAX$
  31. ;     FT_DispCnt() --> nCount
  32. ;  $ARGUMENTS$
  33. ;     None
  34. ;  $RETURNS$
  35. ;     An integer.
  36. ;  $DESCRIPTION$
  37. ;     Some routines (like exception handlers, for example) must be able to
  38. ;     guarantee that their output makes it to the screen.  This can be
  39. ;     difficult if a call to DispBegin() is in effect, because any error
  40. ;     messages will be sent to Clipper's virtual screen buffer instead of
  41. ;     the actual physical screen.  This function alleviates the problem by
  42. ;     allowing you to determine if screen output is being buffered, and if
  43. ;     so, how many DispEnd() calls are necessary to flush the buffer.
  44. ;
  45. ;     Although this function does not use "internals" in the conventional
  46. ;     sense, it still makes use of version-specific information in order
  47. ;     to locate the virtual screen buffer.  DO NOT attempt to use this
  48. ;     function with any version of Clipper other than 5.01.
  49. ;  $EXAMPLES$
  50. ;
  51. ;     function ErrorHandler()
  52. ;
  53. ;     // Guarantee that the error message will reach the screen
  54. ;
  55. ;     while FT_DispCnt() > 0 ; dispend(); end
  56. ;
  57. ;     // Now it's okay to do the error message
  58. ;
  59. ;     ErrorMessage( "Something terrible has happened" )
  60. ;
  61. ;     return NIL
  62. ;
  63. ;  $END$
  64. ;
  65.  
  66. IDEAL                                        ; Invoke TASM IDEAL mode
  67.  
  68. Public   FT_DispCnt
  69.  
  70. Extrn    DispEnd:Far
  71. Extrn    __RetNI:Far
  72.  
  73. Segment  _NanFor   Word      Public    "CODE"
  74.          Assume    CS:_NanFor
  75.  
  76. Proc     FT_DispCnt          Far
  77.  
  78.          Mov       BX,Seg DispEnd            ; Get segment of DispEnd()
  79.          Mov       ES,BX                     ; Store in ES
  80.          Mov       BX,Offset DispEnd         ; Get offset of DispEnd()
  81.          Mov       BX,[Word Ptr ES:BX + 6]   ; Lift address from machine code
  82.          LES       BX,[DWord Ptr BX]         ; Load pointer into ES:BX
  83.          Mov       AX,[Word Ptr ES:BX + 2Eh] ; Grab current count
  84.          Neg       AX                        ; It's stored as a negative
  85.          Push      AX                        ; Put on stack
  86.          Call      __RetNI                   ; Return it
  87.          Add       SP,2                      ; Realign stack
  88.          RetF
  89.  
  90. Endp     FT_DispCnt
  91. Ends     _NanFor
  92. End
  93.  
  94.