home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / quakeworld_src / client / r_bspppc.s < prev    next >
Encoding:
Text File  |  2000-06-17  |  7.3 KB  |  322 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. ##
  23. ## r_bspPPC.s
  24. ##
  25. ## Define WOS for PowerOpen ABI, otherwise SVR4-ABI is used.
  26. ##
  27.  
  28. .include        "macrosPPC.i"
  29.  
  30. #
  31. # external references
  32. #
  33.  
  34.     xrefv    r_visframecount
  35.     xrefv    r_framecount
  36.     xrefv    r_currentkey
  37.     xrefv    r_drawpolys
  38.     xrefv    r_worldpolysbacktofront
  39.     xrefv    pbtofpolys
  40.     xrefv    numbtofpolys
  41.     xrefv    pfrustum_indexes
  42.     xrefa    modelorg
  43.     xrefa    vpn
  44.     xrefa    vright
  45.     xrefa    vup
  46.     xrefa    view_clipplanes
  47.     xrefv    currententity
  48.     xrefa    screenedge
  49.     xrefa    entity_rotation
  50.  
  51. .ifdef    __STORM__
  52.     xrefv    sin__r
  53.     xrefv    cos__r
  54. .else
  55.     xrefv    sin
  56.     xrefv    cos
  57. .endif
  58.  
  59. #
  60. # defines
  61. #
  62.  
  63. .set    PITCH                ,0
  64. .set    YAW                  ,1
  65. .set    ROLL                 ,2
  66.  
  67. .set    CLIP_NORMAL          ,0
  68. .set    CLIP_DIST            ,12
  69. .set    CLIP_NEXT            ,16
  70. .set    CLIP_LEFTEDGE        ,20
  71. .set    CLIP_RIGHTEDGE       ,21
  72. .set    CLIP_RESERVED        ,22
  73. .set    CLIP_SIZEOF          ,24
  74.  
  75. .set    MPLANE_NORMAL        ,0
  76. .set    MPLANE_DIST          ,12
  77. .set    MPLANE_TYPE          ,16
  78. .set    MPLANE_SIGNBITS      ,17
  79. .set    MPLANE_SIZEOF        ,20
  80.  
  81. .set    ENTITY_KEYNUM        ,0
  82. .set    ENTITY_ORIGIN        ,4
  83. .set    ENTITY_ANGLES        ,16
  84. .set    ENTITY_MODEL        ,28
  85. .set    ENTITY_FRAME        ,32
  86. .set    ENTITY_COLORMAP        ,36
  87. .set    ENTITY_SKINNUM        ,40
  88. .set    ENTITY_SCOREBOARD    ,44
  89. .set    ENTITY_SYNCBASE        ,48
  90. .set    ENTITY_EFRAG        ,52
  91. .set    ENTITY_VISFRAME        ,56
  92. .set    ENTITY_DLIGHTFRAME    ,60
  93. .set    ENTITY_DLIGHTBITS    ,64
  94. .set    ENTITY_TRIVIAL_ACCEPT    ,68
  95. .set    ENTITY_TOPNODE        ,72
  96. .set    ENTITY_SIZEOF           ,76
  97.  
  98.  
  99.  
  100.  
  101.  
  102. ###########################################################################
  103. #
  104. #       void R_RotateBmodel (void)
  105. #
  106. ###########################################################################
  107.  
  108.     funcdef    R_RotateBmodel
  109.  
  110.     init    0,0,1,18
  111.     stw    r31,gb(r1)
  112.     stfd    f14,fb+0*8(r1)
  113.     stfd    f15,fb+1*8(r1)
  114.     stfd    f16,fb+2*8(r1)
  115.     stfd    f17,fb+3*8(r1)
  116.     stfd    f18,fb+4*8(r1)
  117.     stfd    f19,fb+5*8(r1)
  118.     stfd    f20,fb+6*8(r1)
  119.     stfd    f21,fb+7*8(r1)
  120.     stfd    f22,fb+8*8(r1)
  121.     stfd    f23,fb+9*8(r1)
  122.     stfd    f24,fb+10*8(r1)
  123.     stfd    f25,fb+11*8(r1)
  124.     stfd    f26,fb+12*8(r1)
  125.     stfd    f27,fb+13*8(r1)
  126.     stfd    f28,fb+14*8(r1)
  127.     stfd    f29,fb+15*8(r1)
  128.     stfd    f30,fb+16*8(r1)
  129.     stfd    f31,fb+17*8(r1)
  130.  
  131.     ls      f14,cPI
  132.     lw      r31,currententity
  133.     lfs     f1,ENTITY_ANGLES+YAW*4(r31)
  134.     fmuls   f15,f1,f14
  135.     fmr     f1,f15
  136.     mcall    sin
  137.     fmr     f16,f1                  #f16 = s [YAW]
  138.     fmr     f1,f15
  139.     mcall    cos
  140.     fmr     f17,f1                  #f17 = c [YAW]
  141.     lfs     f1,ENTITY_ANGLES+PITCH*4(r31)
  142.     fmuls   f15,f1,f14
  143.     fmr     f1,f15
  144.     mcall    sin
  145.     fmr     f18,f1                  #f18 = s [PITCH]
  146.     fmr     f1,f15
  147.     mcall    cos
  148.     fmr     f19,f1                  #f19 = c [PITCH] = 32(a2)
  149.     lfs     f1,ENTITY_ANGLES+ROLL*4(r31)
  150.     fmuls   f15,f1,f14
  151.     fmr     f1,f15
  152.     mcall    sin
  153.     fmr     f20,f1                  #f20 = s [ROLL]
  154.     fmr     f1,f15
  155.     mcall    cos
  156.     fmuls   f0,f17,f19
  157.     fmr     f15,f1                  #f15 = c [ROLL]
  158.     lxa     r3,entity_rotation     #r3 = entity_rotation
  159.     stfs    f0,0(r3)                #f0 = entity_rotation [0,0]
  160.     fmuls   f1,f16,f19              #f1 = 4(a2)
  161.     fneg    f2,f18                  #f2 = 8(a2)
  162.     fneg    f3,f16
  163.     fmuls   f4,f17,f18
  164.     stfs    f3,12(r3)               #f3 = entity_rotation[1,0]
  165.     stfs    f4,24(r3)               #f4 = entity_rotation[2,0]
  166.     fmuls   f5,f16,f18              #f5 = 28(a2)
  167.     fmuls   f6,f20,f2
  168.     fmsubs  f7,f15,f1,f6
  169.     fmuls   f8,f20,f1
  170.     stfs    f7,4(r3)                #f7 = entity_rotation[0,1]
  171.     fmuls   f12,f20,f19
  172.     fmadds  f9,f2,f15,f8
  173.     fmuls   f10,f17,f15
  174.     stfs    f9,8(r3)                #f9 = entity_rotation[0,2]
  175.     stfs    f10,16(r3)              #f10 = entity_rotation[1,1]
  176.     fmuls   f2,f19,f15
  177.     fmuls   f11,f17,f20
  178.     fmsubs  f13,f15,f5,f12
  179.     stfs    f11,20(r3)              #f11 = entity_rotation[1,2]
  180.     stfs    f13,28(r3)              #f13 = entity_rotation[2,1]
  181.     fmadds  f1,f20,f5,f2
  182.     stfs    f1,32(r3)               #f1 = entity_rotation[2,2]
  183.     lxa     r7,modelorg
  184.     lfs     f19,0(r7)               #f19 = modelorg[0]
  185.     lfs     f20,4(r7)               #f20 = modelorg[1]
  186.     lfs     f21,8(r7)               #f21 = modelorg[2]
  187.     lxa     r4,vpn
  188.     lfs     f2,0(r4)                #f2 = vpn[0]
  189.     lfs     f6,4(r4)                #f6 = vpn[1]
  190.     lfs     f8,8(r4)                #f8 = vpn[2]
  191.     lxa     r5,vright
  192.     lfs     f12,0(r5)               #f12 = vright[0]
  193.     lfs     f14,4(r5)               #f14 = vright[1]
  194.     lfs     f15,8(r5)               #f15 = vright[2]
  195.     lxa     r6,vup
  196.     lfs     f16,0(r6)               #f16 = vup[0]
  197.     lfs     f17,4(r6)               #f17 = vup[1]
  198.     lfs     f18,8(r6)               #f18 = vup[2]
  199.  
  200.     fmuls   f22,f19,f0
  201.     fmuls   f25,f2,f0
  202.     fmuls   f28,f12,f0
  203.     fmuls   f31,f16,f0
  204.     fmadds  f22,f20,f7,f22
  205.     fmadds  f25,f6,f7,f25
  206.     fmadds  f28,f14,f7,f28
  207.     fmadds  f31,f17,f7,f31
  208.     fmadds  f22,f21,f9,f22
  209.     fmadds  f25,f8,f9,f25
  210.     fmadds  f28,f15,f9,f28
  211.     fmadds  f31,f18,f9,f31
  212.     fmuls   f23,f19,f3
  213.     fmuls   f26,f2,f3
  214.     fmuls   f29,f12,f3
  215.     fmuls   f0,f16,f3
  216.     fmadds  f23,f20,f10,f23
  217.     fmadds  f26,f6,f10,f26
  218.     fmadds  f29,f14,f10,f29
  219.     fmadds  f0,f17,f10,f0
  220.     fmadds  f23,f21,f11,f23
  221.     fmadds  f26,f8,f11,f26
  222.     fmadds  f29,f15,f11,f29
  223.     fmadds  f0,f18,f11,f0
  224.     fmuls   f24,f19,f4
  225.     fmuls   f27,f2,f4
  226.     fmuls   f30,f12,f4
  227.     fmuls   f7,f16,f4
  228.     fmadds  f24,f20,f13,f24
  229.     fmadds  f27,f6,f13,f27
  230.     fmadds  f30,f14,f13,f30
  231.     fmadds  f7,f17,f13,f7
  232.     fmadds  f21,f21,f1,f24
  233.     fmadds  f8,f8,f1,f27
  234.     fmadds  f15,f15,f1,f30
  235.     fmadds  f18,f18,f1,f7
  236.     fmr     f19,f22
  237.     fmr     f2,f25
  238.     fmr     f12,f28
  239.     fmr     f16,f31
  240.     fmr     f20,f23
  241.     fmr     f6,f26
  242.     fmr     f14,f29
  243.     fmr     f17,f0
  244.  
  245.     li      r0,4
  246.     mtctr   r0
  247.     lxa     r8,screenedge
  248.     subi    r8,r8,4
  249.     lxa     r9,view_clipplanes
  250.     subi    r9,r9,4
  251. .loop:
  252.     lfsu    f0,4(r8)
  253.     lfsu    f7,4(r8)
  254.     lfsu    f9,4(r8)
  255.     fmuls   f3,f16,f7
  256.     fmuls   f10,f17,f7
  257.     fmuls   f11,f18,f7
  258.     fmadds  f3,f2,f9,f3
  259.     fmadds  f10,f6,f9,f10
  260.     fmadds  f11,f8,f9,f11
  261.     fnmsubs f3,f12,f0,f3
  262.     stfsu   f3,4(r9)
  263.     fmuls   f3,f3,f19
  264.     fnmsubs f10,f14,f0,f10
  265.     stfsu   f10,4(r9)
  266.     fmadds  f3,f10,f20,f3
  267.     fnmsubs f11,f15,f0,f11
  268.     stfsu   f11,4(r9)
  269.     fmadds  f3,f11,f21,f3
  270.     la      r8,MPLANE_SIZEOF-12(r8)
  271.     stfsu   f3,4(r9)
  272.     la      r9,CLIP_SIZEOF-16(r9)
  273.     bdnz    .loop
  274.  
  275.     stfs    f19,0(r7)
  276.     stfs    f20,4(r7)
  277.     stfs    f21,8(r7)
  278.     stfs    f2,0(r4)
  279.     stfs    f6,4(r4)
  280.     stfs    f8,8(r4)
  281.     stfs    f12,0(r5)
  282.     stfs    f14,4(r5)
  283.     stfs    f15,8(r5)
  284.     stfs    f16,0(r6)
  285.     stfs    f17,4(r6)
  286.     stfs    f18,8(r6)
  287.  
  288.     lfd    f14,fb+0*8(r1)
  289.     lfd    f15,fb+1*8(r1)
  290.     lfd    f16,fb+2*8(r1)
  291.     lfd    f17,fb+3*8(r1)
  292.     lfd    f18,fb+4*8(r1)
  293.     lfd    f19,fb+5*8(r1)
  294.     lfd    f20,fb+6*8(r1)
  295.     lfd    f21,fb+7*8(r1)
  296.     lfd    f22,fb+8*8(r1)
  297.     lfd    f23,fb+9*8(r1)
  298.     lfd    f24,fb+10*8(r1)
  299.     lfd    f25,fb+11*8(r1)
  300.     lfd    f26,fb+12*8(r1)
  301.     lfd    f27,fb+13*8(r1)
  302.     lfd    f28,fb+14*8(r1)
  303.     lfd    f29,fb+15*8(r1)
  304.     lfd    f30,fb+16*8(r1)
  305.     lfd    f31,fb+17*8(r1)
  306.     lwz    r31,gb(r1)
  307.     exit
  308.  
  309.     funcend    R_RotateBmodel
  310.  
  311.  
  312.  
  313.  
  314. .ifdef    WOS
  315.     .tocd
  316. .else
  317.     .data
  318. .endif
  319.  
  320. lab cPI
  321.     .float    0.017453293        # => M_PI*2/360
  322.