home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / chunky.lha / chunky_ppc / GetPixel.ass < prev    next >
Encoding:
Text File  |  1980-01-24  |  393 b   |  29 lines
  1. # GetPixel(chunky:r3:PTR TO chunky,x:r4:LONG,y:r5:LONG)
  2.  
  3.     .text
  4.     .global    _GetPixel
  5.  
  6. _GetPixel:
  7.     mr.    r7,r3
  8.     beq    .finish
  9.     mr.    r4,r4
  10.     blt    .finish
  11.     mr.    r5,r5
  12.     blt    .finish
  13.     lwz    r8,0(r7)
  14.     cmpw    r4,r8
  15.     bge    .finish
  16.     lwz    r0,4(r7)
  17.     cmpw    r5,r0
  18.     bge    .finish
  19.  
  20.     lwz    r7,8(r7)
  21.     mullw    r5,r5,r8
  22.     add    r5,r5,r4
  23.     lbzx    r3,r7,r5
  24.     andi.    r3,r3,0xff
  25. .finish:    blr
  26.  
  27.     .type    _GetPixel,@function
  28.     .size    _GetPixel,$-_GetPixel
  29.