home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / Mouse.ass < prev    next >
Encoding:
Text File  |  1980-10-03  |  432 b   |  30 lines
  1.  
  2. # Mouse()(r3:LONG)
  3.  
  4.     .text
  5.     .global    _Mouse
  6.  
  7. _Mouse:    li    r3,0
  8.     lis    r4,0x00bf
  9.     ori    r4,r4,0xe001
  10.     lbz    r5,0(r4)
  11.     andi.    r0,r5,1<<6    # lmb?
  12.     bne    noleft
  13.     ori    r3,r3,1
  14. noleft:    lis    r4,0x00df
  15.     ori    r4,r4,0xf016
  16.     lbz    r5,0(r4)
  17.     andi.    r0,r5,1<<2    # rmb?
  18.     bne    noright
  19.     ori    r3,r3,2
  20. noright:    lis    r4,0x00df
  21.     ori    r4,r4,0xf016
  22.     lbz    r5,0(r4)
  23.     andi.    r0,r5,1<<0    # mmb?
  24.     bne    nomiddle
  25.     ori    r3,r3,4
  26. nomiddle:    blr
  27.  
  28.     .type    _Mouse,@function
  29.     .size    _Mouse,$-_Mouse
  30.