home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / MISC / FNNEG.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-18  |  1.3 KB  |  74 lines
  1. ; File......: FNNEG.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_NEG()
  20. ; $CATEGORY$
  21. ;    Miscellaneous
  22. ; $ONELINER$
  23. ;    Calculate the two's complement of a number
  24. ; $SYNTAX$
  25. ;    fn_neg( <nInt> | <cInt> ) -> nResult
  26. ; $ARGUMENTS$
  27. ;
  28. ;    <nInt> may either be a numeric integer, or a 16-bit character string
  29. ;    that is the binary representation of a numeric integer.
  30. ;
  31. ; $RETURNS$
  32. ;
  33. ;    <nResult>, a numeric
  34. ;
  35. ; $DESCRIPTION$
  36. ;
  37. ;     The value returned is obtained by negating <nInt>
  38. ;     (i.e. obtaining the two's complement). If any parameters
  39. ;     are invalid, the function will return zero.
  40. ;
  41. ; $EXAMPLES$
  42. ;
  43. ;     nX := 1
  44. ;     nNum := fn_neg( nX )
  45. ;     ? nNum    //  -1
  46. ;
  47. ; $SEEALSO$
  48. ;
  49. ; $INCLUDE$
  50. ;
  51. ; $END$
  52. ;
  53. ;
  54.  
  55.  
  56. IDEAL
  57.  
  58. PUBLIC   FN_NEG
  59.  
  60. EXTRN    __FNCBALL:FAR
  61.  
  62. SEGMENT  _FNNET  WORD      PUBLIC    "CODE"
  63.          ASSUME    CS:_FNNET
  64.  
  65. PROC     FN_NEG       FAR
  66.  
  67.          MOV       AX,5EF7h
  68.          MOV       DX,0CBFAh
  69.          JMP       __FNCBALL
  70.  
  71. ENDP     FN_NEG
  72. ENDS     _FNNET
  73. END
  74.