home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / quakeworld_src / client / common68k.s < prev    next >
Encoding:
Text File  |  2000-06-17  |  2.9 KB  |  139 lines
  1. * 
  2. * Copyright (C) 1996-1997 Id Software, Inc. 
  3. * 
  4. * This program is free software; you can redistribute it and/or 
  5. * modify it under the terms of the GNU General Public License 
  6. * as published by the Free Software Foundation; either version 2 
  7. * of the License, or (at your option) any later version. 
  8. * 
  9. * This program is distributed in the hope that it will be useful, 
  10. * but WITHOUT ANY WARRANTY; without even the implied warranty of 
  11. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   
  12. * 
  13. * See the GNU General Public License for more details. 
  14. * 
  15. * You should have received a copy of the GNU General Public License 
  16. * along with this program; if not, write to the Free Software 
  17. * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. 
  18. * 
  19.  
  20. **
  21. ** Quake for AMIGA
  22. ** common.c assembler implementations by Frank Wille <frank@phoenix.owl.de>
  23. **
  24. ** NOTE: Define __STORM__ when using this module with a StormC compiler
  25. **
  26.  
  27.         XDEF    _Q_memcpy
  28.         XDEF    _ShortSwap
  29.         XDEF    _LongSwap
  30.         XDEF    _FloatSwap
  31.         XDEF    _FloatSwap__r
  32.  
  33.  
  34. ******************************************************************************
  35. *
  36. *       void _Q_memcpy (void *dest, void *src, int count)
  37. *
  38. *       fast memcopy operation
  39. *
  40. ******************************************************************************
  41.  
  42.         cnop    0,4
  43. _Q_memcpy
  44.  
  45.         rsreset
  46.         rs.l    1
  47. .dest           rs.l    1
  48. .source         rs.l    1
  49. .count          rs.l    1
  50.  
  51.         move.l  .dest(sp),a1
  52.         move.l  .source(sp),a0
  53.         move.l  a0,d1
  54.         move.l  a1,d0
  55.         or.b    d0,d1
  56.         move.l  .count(sp),d0
  57.         beq.b   .exit
  58.         or.b    d0,d1
  59.         and.b   #$3,d1
  60.         bne.b   .loop2
  61. .loop
  62.         move.l  (a0)+,(a1)+
  63.         subq.l  #4,d0
  64.         bne.b   .loop
  65. .exit
  66.         rts
  67. .loop2
  68.         move.b  (a0)+,(a1)+
  69.         subq.l  #1,d0
  70.         bne.b   .loop2
  71.         rts
  72.  
  73. ******************************************************************************
  74. *
  75. *       short _ShortSwap (short l)
  76. *
  77. *       swap word (LE->BE)
  78. *
  79. ******************************************************************************
  80.  
  81.         cnop    0,4
  82. _ShortSwap
  83.  
  84.         rsreset
  85.         rs.l    1
  86.         IFND    __STORMC__
  87.         rs.w    1
  88.         ENDC
  89. .data           rs.w    1
  90.  
  91.         move    .data(sp),d0
  92.         ror     #8,d0
  93.         rts
  94.  
  95. ******************************************************************************
  96. *
  97. *       int _LongSwap (int l)
  98. *
  99. *       swap longword (LE->BE)
  100. *
  101. ******************************************************************************
  102.  
  103.         cnop    0,4
  104. _LongSwap
  105.  
  106.         rsreset
  107.         rs.l    1
  108. .data           rs.l    1
  109.  
  110.         move.l  .data(sp),d0
  111.         ror     #8,d0
  112.         swap    d0
  113.         ror     #8,d0
  114.         rts
  115.  
  116. ******************************************************************************
  117. *
  118. *       float _FloatSwap (float f)
  119. *
  120. *       swap float (LE->BE)
  121. *
  122. ******************************************************************************
  123.  
  124.         cnop    0,4
  125. _FloatSwap
  126. _FloatSwap__r
  127.  
  128.         rsreset
  129.         rs.l    1
  130. .data           rs.s    1
  131.  
  132.         move.l  .data(sp),d0
  133.         ror     #8,d0
  134.         swap    d0
  135.         ror     #8,d0
  136.         fmove.s d0,fp0
  137.         rts
  138.  
  139.