home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / MISC / FNROL.ASM < prev    next >
Assembly Source File  |  1992-10-18  |  1KB  |  78 lines
  1. ; File......: FNROL.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_ROL()
  20. ; $CATEGORY$
  21. ;    Miscellaneous
  22. ; $ONELINER$
  23. ;    Rotate bits in an integer to the left
  24. ; $SYNTAX$
  25. ;    
  26. ;    fn_rol( <nInt1> | <cInt1>, <nBits> ) -> nResult
  27. ;
  28. ; $ARGUMENTS$
  29. ;  
  30. ;   <nInt1> may either be a numeric integer, or a 16-bit character string
  31. ;   that is the binary representation of a numeric integer.  
  32. ;
  33. ;   <nBits> is the number of bits to rotate and must be a numeric.
  34. ;
  35. ; $RETURNS$
  36. ;
  37. ;   <nResult>, a numeric
  38. ;
  39. ; $DESCRIPTION$
  40. ;
  41. ;   The value returned is obtained by rotating the bits in <nInt1>
  42. ;   to the left.  <nBits> determines the number of bits to rotate.
  43. ;   If any parameters are invalid, the function will return zero.
  44. ;
  45. ; $EXAMPLES$
  46. ;
  47. ;   nX := -32768
  48. ;   nNum := fn_rol( nX, 2 )
  49. ;   ? nNum      // 2
  50. ;
  51. ; $SEEALSO$
  52. ;
  53. ; $INCLUDE$
  54. ;
  55. ; $END$
  56. ;
  57. ;
  58.  
  59. IDEAL
  60.  
  61. PUBLIC   FN_ROL
  62.  
  63. EXTRN    __FNCBALL:FAR
  64.  
  65. SEGMENT  _FNNET  WORD      PUBLIC    "CODE"
  66.          ASSUME    CS:_FNNET
  67.  
  68. PROC     FN_ROL       FAR
  69.  
  70.          MOV       AX,46D3h
  71.          MOV       DX,0CBFAh
  72.          JMP       __FNCBALL
  73.  
  74. ENDP     FN_ROL
  75. ENDS     _FNNET
  76. END
  77.  
  78.