| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051 |
- ****************************************
- ****** GET STICK READINGS *****
- ****************************************
- get_stick_readings
- btst #7,$bfe001
- bne.s set_fire_up
- move.w #1,fire
- bra.s no_fire_pressed
- set_fire_up
- move.w #0,fire
- no_fire_pressed
-
- move.w $dff00c,d0 ;joy1dat
- update_joy_values
- btst #9,d0
- beq.s tryleft
- move.w #-1,xdirec
- bra upanddown
- tryleft
- btst #1,d0
- beq.s movezero
- move.w #1,xdirec
- bra.s upanddown
- movezero
- move.w #0,xdirec
- upanddown
- move.w d0,d1
- rol.w #1,d0
- eor.w d0,d1
- btst #1,d1
- beq.s tryup
- move.w #-1,ydirec
- bra.s quitjoyread
- tryup
- btst #9,d1
- beq.s stop_y
- move.w #1,ydirec
- bra.s quitjoyread
- stop_y
- move.w #0,ydirec
- quitjoyread
- rts
-
- fire dc.w 0
- xdirec dc.w 0
- ydirec dc.w 0
-
|
