home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / quakeworld_src / client / r_misc68k.s < prev    next >
Encoding:
Text File  |  2000-06-17  |  2.0 KB  |  85 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. ** r_misc.c assembler implementations by Frank Wille <frank@phoenix.owl.de>
  23. **
  24.  
  25.         XREF    _vright
  26.         XREF    _vup
  27.         XREF    _vpn
  28.  
  29.         XDEF    _TransformVector
  30.  
  31. ******************************************************************************
  32. *
  33. *       void _TransformVector (vec3_t in, vec3_t out)
  34. *
  35. ******************************************************************************
  36.  
  37.         cnop    0,4
  38. _TransformVector
  39.  
  40.         rsreset
  41. .fpuregs        rs.x    3
  42. .regs           rs.l    1
  43.         rs.l    1
  44. .in             rs.l    1
  45. .out            rs.l    1
  46.  
  47.         move.l  a2,-(sp)
  48.         fmovem.x        fp2-fp4,-(sp)
  49.         move.l  .out(sp),a2
  50.         move.l  .in(sp),a0
  51.         fmove.s (a0)+,fp0
  52.         fmove.s (a0)+,fp1
  53.         fmove.s (a0)+,fp2
  54.         lea     _vright,a1
  55.         fmove.s (a1)+,fp3
  56.         fmul    fp0,fp3
  57.         fmove.s (a1)+,fp4
  58.         fmul    fp1,fp4
  59.         fadd    fp3,fp4
  60.         fmove.s (a1)+,fp3
  61.         fmul    fp2,fp3
  62.         fadd    fp3,fp4
  63.         fmove.s fp4,(a2)+
  64.         lea     _vup,a1
  65.         fmove.s (a1)+,fp3
  66.         fmul    fp0,fp3
  67.         fmove.s (a1)+,fp4
  68.         fmul    fp1,fp4
  69.         fadd    fp3,fp4
  70.         fmove.s (a1)+,fp3
  71.         fmul    fp2,fp3
  72.         fadd    fp3,fp4
  73.         fmove.s fp4,(a2)+
  74.         lea     _vpn,a1
  75.         fmul.s  (a1)+,fp0
  76.         fmul.s  (a1)+,fp1
  77.         fadd    fp1,fp0
  78.         fmul.s  (a1)+,fp2
  79.         fadd    fp2,fp0
  80.         fmove.s fp0,(a2)+
  81.         fmovem.x        (sp)+,fp2-fp4
  82.         move.l  (sp)+,a2
  83.         rts
  84.  
  85.