# Mouse()(r3:LONG)

	.text
	.global	_Mouse

_Mouse:	li	r3,0
	lis	r4,0x00bf
	ori	r4,r4,0xe001
	lbz	r5,0(r4)
	andi.	r0,r5,1<<6	# lmb?
	bne	noleft
	ori	r3,r3,1
noleft:	lis	r4,0x00df
	ori	r4,r4,0xf016
	lbz	r5,0(r4)
	andi.	r0,r5,1<<2	# rmb?
	bne	noright
	ori	r3,r3,2
noright:	lis	r4,0x00df
	ori	r4,r4,0xf016
	lbz	r5,0(r4)
	andi.	r0,r5,1<<0	# mmb?
	bne	nomiddle
	ori	r3,r3,4
nomiddle:	blr

	.type	_Mouse,@function
	.size	_Mouse,$-_Mouse