home *** CD-ROM | disk | FTP | other *** search
- ; Here's the LAME mouse reader. Dont use this if ya can help it!!!
-
- selectoption:
- move.b oldy,d0
- move.w ycount,d4
-
- move.b $dff00a,d1
- cmp.b d0,d1
- bgt movemousedown
- cont:
- cmp.b d0,d1
- blt movemouseup
-
- cont2:
- move.l d1,d0
-
- move.b d0,oldy
- move.w d4,ycount
-
- rts
-
- movemousedown:
- move.w d4,d5
- add.w #1,d5
- cmp.w #mouseymax,d5
- bge cont
-
- add.b #1,d4
-
- bra cont
-
- movemouseup:
- move.w d4,d5
- sub.w #1,d5
- cmp.w #0,d5
- ble cont2
-
- sub.b #1,d4
-
- bra cont2
-
- oldy: dc.b 1
- even
-
- ycount: dc.w 1
-
- even
-