home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / MISC / SWAP.ASM < prev   
Assembly Source File  |  1992-07-09  |  2KB  |  131 lines
  1. ; File......: SWAP.ASM
  2. ; Author....: Mike Taylor, modifications by Ted Means
  3. ; CIS ID....: 73310,3013
  4. ; Date......: $Date$
  5. ; Revision..: $Revision$
  6. ; Log file..: $Logfile$
  7. ; 
  8. ; This is an original work by Mike Taylor and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log$
  15. ;  
  16.  
  17. IDEAL
  18.  
  19. Public   FT_ISwap, FT_LSwap
  20.  
  21. Extrn    __ParNI:Far
  22. Extrn    __ParNL:Far
  23. Extrn    __RetNI:Far
  24. Extrn    __RetNL:Far
  25.  
  26. Segment  _NanFor   Word      Public    "CODE"
  27.          Assume    CS:_NanFor
  28.  
  29. ; $DOC$
  30. ; $FUNCNAME$
  31. ;    FT_ISwap()
  32. ; $CATEGORY$
  33. ;    Miscellaneous
  34. ; $ONELINER$
  35. ;    Swap the bytes in a two byte integer
  36. ; $SYNTAX$
  37. ;
  38. ;    FT_ISWAP( <nInteger> ) -> <nRevInteger>
  39. ;
  40. ; $ARGUMENTS$
  41. ;
  42. ;    <nInteger> is the integer to be converted
  43. ;
  44. ; $RETURNS$
  45. ;
  46. ;    <nRevInteger> is <nInteger> with the bytes swapped.
  47. ;
  48. ; $DESCRIPTION$
  49. ;
  50. ;    FT_ISwap() takes the passed 2 byte integer and reverses its bytes.
  51. ;
  52. ;    For example, if you pass it an integer like x0102 it will return x0201.
  53. ;
  54. ; $EXAMPLES$
  55. ;
  56. ; $SEEALSO$
  57. ;    FT_LSwap()
  58. ; $INCLUDE$
  59. ;
  60. ; $END$
  61. ;
  62. ;
  63.  
  64. Proc     FT_ISwap  Far
  65.  
  66.          Mov       AX,1                      ; Request parameter 1
  67.          Push      AX
  68.          Call      __ParNI
  69.          XChg      AH,AL
  70.          Push      AX                        ; Return int value
  71.          Call      __RetNI
  72.          Add       SP,4
  73.          Ret
  74.  
  75. Endp     FT_ISwap
  76.  
  77.  
  78. ; $DOC$
  79. ; $FUNCNAME$
  80. ;    FT_LSwap()
  81. ; $CATEGORY$
  82. ;    Miscellaneous
  83. ; $ONELINER$
  84. ;    Reverse the bytes in a 4 byte long integer.
  85. ; $SYNTAX$
  86. ;
  87. ;    FT_LSWAP( <nLong> ) -> <nRevLong>
  88. ;
  89. ; $ARGUMENTS$
  90. ;
  91. ;    <nLong> is the long integer to be converted.
  92. ;
  93. ; $RETURNS$
  94. ;
  95. ;    <nRevLong> is <nLong> with the bytes reversed.
  96. ;
  97. ; $DESCRIPTION$
  98. ;
  99. ;    FT_LSwap() takes the passed 4 byte integer and reverses its bytes.
  100. ;
  101. ;    For example, if you pass it an integer like x01020304 it will
  102. ;    return x04030201.
  103. ;
  104. ; $EXAMPLES$
  105. ;
  106. ; $SEEALSO$
  107. ;    FT_ISwap()
  108. ; $INCLUDE$
  109. ;
  110. ; $END$
  111. ;
  112. ;
  113.  
  114. Proc     FT_LSwap  Far
  115.  
  116.          Mov       AX,1                      ; Request parameter 1
  117.          Push      AX
  118.          Call      __ParNL
  119.          XChg      AH,AL                     ; Reverse bytes
  120.          XChg      DH,DL
  121.          Push      AX
  122.          Push      DX
  123.          Call      __RetNL
  124.          Add       SP,6
  125.          Ret
  126.  
  127. Endp     FT_LSwap
  128. Ends     _NanFor
  129. End
  130.  
  131.