home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / MISC / FNAND.ASM next >
Encoding:
Assembly Source File  |  1992-10-18  |  1.3 KB  |  77 lines
  1. ; File......: FNAND.ASM
  2. ; Author....: Ted Means
  3. ; CIS ID....: 73067,3332
  4. ; Date......: $Date$
  5. ; Revision..: $Revision$
  6. ; Log file..: $Logfile$
  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$
  15. ;
  16.  
  17. ; $DOC$
  18. ; $FUNCNAME$
  19. ;    FN_AND()
  20. ; $CATEGORY$
  21. ;    Miscellaneous
  22. ; $ONELINER$
  23. ;    Perform a bitwise AND
  24. ; $SYNTAX$
  25. ;    fn_and( <nInt1>, <nInt2> ) -> nResult
  26. ; $ARGUMENTS$
  27. ;
  28. ;    <nInt1>  may either be a numeric integer, or a 16-bit character string
  29. ;    that is the binary representation of a numeric integer.  
  30. ;
  31. ;    <nInt2>  must be a numeric integer.
  32. ;
  33. ; $RETURNS$
  34. ; 
  35. ;  <nResult>, a numeric.
  36. ; 
  37. ; $DESCRIPTION$
  38. ;
  39. ;  The value returned is obtained by performing
  40. ;  a bitwise AND with Int1 and Int2 as operands.
  41. ;  If any parameters are invalid, the function
  42. ;  will return zero.
  43. ;
  44. ; $EXAMPLES$
  45. ;
  46. ;       nX := 11
  47. ;       nNum := fn_and( nX, 12 )
  48. ;       ? nNum          // 8
  49. ;
  50. ; $SEEALSO$
  51. ;
  52. ; $INCLUDE$
  53. ;
  54. ; $END$
  55. ;
  56. ;
  57.  
  58. IDEAL
  59.  
  60. PUBLIC   FN_AND
  61.  
  62. EXTRN    __FNCBALL:FAR
  63.  
  64. SEGMENT  _FNNET  WORD      PUBLIC    "CODE"
  65.          ASSUME    CS:_FNNET
  66.  
  67. PROC     FN_AND       FAR
  68.  
  69.          MOV       AX,4621h
  70.          MOV       DX,0CBFAh
  71.          JMP       __FNCBALL
  72.  
  73. ENDP     FN_AND
  74. ENDS     _FNNET
  75. END
  76.  
  77.