home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / MISC / FNOR.ASM < prev    next >
Assembly Source File  |  1992-10-18  |  1KB  |  75 lines
  1. ; File......: FNOR.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_OR()
  20. ; $CATEGORY$
  21. ;    Miscellaneous
  22. ; $ONELINER$
  23. ;    Perform a bitwise OR
  24. ; $SYNTAX$
  25. ;    fn_or( <nInt1> | <cInt1>, <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.  <nInt2> must
  30. ;    be a numeric integer.
  31. ;
  32. ; $RETURNS$
  33. ;
  34. ;    <nResult>, a numeric
  35. ;
  36. ; $DESCRIPTION$
  37. ;
  38. ;    The value returned is obtained by performing a bitwise OR with 
  39. ;    <nInt1> and <nInt2> as operands.  If any parameters are invalid,
  40. ;    the function will return zero.
  41. ;
  42. ; $EXAMPLES$
  43. ;
  44. ;    nX := 11
  45. ;    nNum := fn_or( nX, 12 )
  46. ;    ? nNum     // 15
  47. ;
  48. ; $SEEALSO$
  49. ;
  50. ; $INCLUDE$
  51. ;
  52. ; $END$
  53. ;
  54. ;
  55.  
  56.  
  57. IDEAL
  58.  
  59. PUBLIC   FN_OR
  60.  
  61. EXTRN    __FNCBALL:FAR
  62.  
  63. SEGMENT  _FNNET  WORD      PUBLIC    "CODE"
  64.          ASSUME    CS:_FNNET
  65.  
  66. PROC     FN_OR        FAR
  67.  
  68.          MOV       AX,4609h
  69.          MOV       DX,0CBFAh
  70.          JMP       __FNCBALL
  71.  
  72. ENDP     FN_OR
  73. ENDS     _FNNET
  74. END
  75.