home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -screenplay- / otherstuff / adoomppc_src / amiga_cgxtagfns.s < prev    next >
Text File  |  1998-04-23  |  1KB  |  80 lines
  1.  
  2.         .text
  3.  
  4.         .global    CyberGfxBase
  5.         .global    PPCCallOS
  6.  
  7.         .global    BestCModeIDTags
  8.         .global    LockBitMapTags
  9.  
  10.         .align    3
  11.  
  12. BestCModeIDTags:
  13.         stwu    1,-128(1)
  14.         mflr    11
  15.         stw    11,100(1)
  16.         lwz    11,128(1)
  17.         stw    11,96(1)
  18.         stw    3,104(1)
  19.         stw    4,108(1)
  20.         stw    5,112(1)
  21.         stw    6,116(1)
  22.         stw    7,120(1)
  23.         stw    8,124(1)
  24.         stw    9,128(1)
  25.         stw    10,132(1)
  26.         addi    11,1,104
  27.         stw    11,68(1)
  28.         li    11,-60
  29.         stw    11,8(1)
  30.         li    11,1
  31.         stw    11,12(1)
  32.         stw    11,24(1)
  33.         lis    11,CyberGfxBase@ha
  34.         lwz    11,CyberGfxBase@l(11)
  35.         stw    11,92(1)
  36.         addi    3,1,8
  37.         bl    PPCCallOS
  38.         lwz    11,96(1)
  39.         stw    11,128(1)
  40.         lwz    11,100(1)
  41.         mtlr    11
  42.         addi    1,1,128
  43.         blr
  44.  
  45.         .align    3
  46.  
  47. LockBitMapTags:
  48.         stwu    1,-128(1)
  49.         mflr    11
  50.         stw    11,100(1)
  51.         lwz    11,128(1)
  52.         stw    11,96(1)
  53.         stw    4,108(1)
  54.         stw    5,112(1)
  55.         stw    6,116(1)
  56.         stw    7,120(1)
  57.         stw    8,124(1)
  58.         stw    9,128(1)
  59.         stw    10,132(1)
  60.         stw    3,68(1)
  61.         addi    11,1,108
  62.         stw    11,72(1)
  63.         li    11,-168
  64.         stw    11,8(1)
  65.         li    11,1
  66.         stw    11,12(1)
  67.         stw    11,24(1)
  68.         lis    11,CyberGfxBase@ha
  69.         lwz    11,CyberGfxBase@l(11)
  70.         stw    11,92(1)
  71.         addi    3,1,8
  72.         bl    PPCCallOS
  73.         lwz    11,96(1)
  74.         stw    11,128(1)
  75.         lwz    11,100(1)
  76.         mtlr    11
  77.         addi    1,1,128
  78.         blr
  79.  
  80.