home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / quakeworld_src / client / macrosppc.i < prev    next >
Encoding:
Text File  |  2000-06-17  |  4.2 KB  |  241 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. ## macrosPPC.i
  24. ##
  25. ## Macros used in all PPC assembler sources of Quake.
  26. ## Define WOS for WarpOS/PowerOpen ABI, otherwise code for
  27. ## PowerUp/SVR4 will be generated.
  28. ##
  29. ## Define NOLR, if the init/exit macros must not save/restore the LR.
  30. ##
  31.  
  32. # ABI-specific macros
  33.  
  34. .ifdef    WOS
  35. # WarpOS/PowerOpen
  36.  
  37. .macro    xrefv    # cross reference to an elementary data type
  38.     .extern    _\1
  39. .endm
  40.  
  41. .macro    xrefa    # cross reference to an object's address
  42.     .extern    @__\1
  43. .endm
  44.  
  45. .macro    funcdef    # global function definition
  46.     .text
  47.     .globl    _\1
  48.     .globl    _\1__r
  49. _\1:
  50. _\1__r:
  51. .endm
  52.  
  53. .macro    lab    # label definition
  54. _\1:
  55. .endm
  56.  
  57. .macro    init    # init stack frame: nParams,localSize,nGPR,nFPR
  58. .set    param,    24
  59. .set    local,    24+(\1*4)
  60. .set    gb,    (local+\2+3)&~3
  61. .set    fb,    (gb+\3*4+7)&~7
  62. .set    sfsize,    (fb+\4*8+15)&~15
  63. .ifndef    NOLR
  64.     mflr    r0
  65.     stw    r0,8(r1)
  66. .endif
  67.     stwu    r1,-sfsize(r1)
  68. .endm
  69.  
  70. .macro    exit    # free stack frame and return
  71.     addi    r1,r1,sfsize
  72. .ifndef    NOLR
  73.     lwz    r0,8(r1)
  74.     mtlr    r0
  75. .endif
  76.     blr
  77. .endm
  78.  
  79. .macro    funcend    # set function type and size
  80.         .type   _\1,@function
  81.         .size   _\1,$-_\1
  82. .endm
  83.  
  84. .ifndef    NOLR
  85. .macro    call    # call sub routine
  86.     bl    _\1
  87. .endm
  88.  
  89. .macro    mcall    # call math subroutine
  90. .ifdef    __STORM__
  91.     bl    _\1__r
  92. .else
  93.     bl    _\1
  94. .endif
  95. .endm
  96. .endif
  97.  
  98. .macro    lxa    # load external object's address
  99.     lwz    \1,@__\2(r2)
  100. .endm
  101.  
  102. .macro    lla    # load local object's address
  103.     la    \1,_\2(r2)
  104. .endm
  105.  
  106. .macro    lw    # load word
  107.     lwz    \1,_\2(r2)
  108. .endm
  109.  
  110. .macro    sw    # store word
  111.     stw    \1,_\2(r2)
  112. .endm
  113.  
  114. .macro    lf    # load double float
  115.     lfd    \1,_\2(r2)
  116. .endm
  117.  
  118. .macro    ls    # load single float
  119.     lfs    \1,_\2(r2)
  120. .endm
  121.  
  122. .macro    ss    # store single float
  123.     stfs    \1,_\2(r2)
  124. .endm
  125.  
  126.  
  127. .else
  128. # SVR4/ELF (PowerUp)
  129.  
  130. .macro    xrefv    # cross reference to an elementary data type
  131.     .extern    \1
  132. .endm
  133.  
  134. .macro    xrefa    # cross reference to an object's address
  135.     .extern    \1
  136. .endm
  137.  
  138. .macro    funcdef    # global function definition
  139.     .text
  140.     .globl    \1
  141. \1:
  142. .set    rtmp,    12    # r12 is default reg. for loading/storing data
  143. .endm
  144.  
  145. .macro    lab    # label definition
  146. \1:
  147. .endm
  148.  
  149. .macro    init    # init stack frame: nParams,localSize,nGPR,nFPR
  150. .set    param,    8
  151. .set    local,    8+(\1*4)
  152. .set    save14,    (local+\2+3)&~3
  153. .set    gb,    save14+4
  154. .set    fb,    (gb+\3*4+7)&~7
  155. .set    sfsize,    (fb+\4*8+15)&~15
  156. .ifndef    NOLR
  157.     mflr    r0
  158.     stw    r0,4(r1)
  159. .endif
  160.     stwu    r1,-sfsize(r1)
  161.     stw    r14,save14(r1)
  162. .set    rtmp,    14    # now we may use r14 for loading/storing data
  163. .endm
  164.  
  165. .macro    exit    # free stack frame and return
  166.     lwz    r14,save14(r1)
  167.     addi    r1,r1,sfsize
  168. .ifndef    NOLR
  169.     lwz    r0,4(r1)
  170.     mtlr    r0
  171. .endif
  172.     blr
  173. .set    rtmp,    12
  174. .endm
  175.  
  176. .macro    funcend    # set function type and size
  177.         .type   \1,@function
  178.         .size   \1,$-\1
  179. .endm
  180.  
  181. .ifndef    NOLR
  182. .macro    call    # call sub routine
  183.     bl    \1
  184. .endm
  185.  
  186. .macro    mcall    # call math subroutine
  187.     bl    \1
  188. .endm
  189. .endif
  190.  
  191. .macro    lxa    # load external object's address
  192.     lis    \1,\2@ha
  193.     addi    \1,\1,\2@l
  194. .endm
  195.  
  196. .macro    lla    # load local object's address
  197.     lis    \1,\2@ha
  198.     addi    \1,\1,\2@l
  199. .endm
  200.  
  201. .macro    lw    # load word
  202.     lis    rtmp,\2@ha
  203.     lwz    \1,\2@l(rtmp)
  204. .endm
  205.  
  206. .macro    sw    # store word
  207.     lis    rtmp,\2@ha
  208.     stw    \1,\2@l(rtmp)
  209. .endm
  210.  
  211. .macro    lf    # load double float
  212.     lis    rtmp,\2@ha
  213.     lfd    \1,\2@l(rtmp)
  214. .endm
  215.  
  216. .macro    ls    # load single float
  217.     lis    rtmp,\2@ha
  218.     lfs    \1,\2@l(rtmp)
  219. .endm
  220.  
  221. .macro    ss    # store single float
  222.     lis    rtmp,\2@ha
  223.     stfs    \1,\2@l(rtmp)
  224. .endm
  225.  
  226. .endif
  227.  
  228.  
  229. #
  230. # ABI-independant macros
  231. #
  232.  
  233. # int2dbl: Convert Signed Integer to Double Precision Floating Point
  234. .macro    int2dbl    # destFPR,srcGPR,trash,
  235.         # StkFrameOffs=0x4330000000000000,FPR=0x4330000080000000
  236.     xoris    \3,\2,0x8000
  237.     stw    \3,\4+4(r1)
  238.     lfd    \1,\4(r1)
  239.     fsub    \1,\1,\5
  240. .endm
  241.