; How to read the joystick the formal and slow way ; Mar 4th 2012 cpu 6800 * = $1000 UP equ 1 DOWN equ 2 LEFT equ 4 RIGHT equ 8 BUTT equ 16 loop jsr $e8cb ; Joystick/direct kbd call ldaa 2 ; Joystick 1 eora #255 ; Change active bits to 1 instead of 0 clrb stab $c100 stab $c101 stab $c102 stab $c103 stab $c104 bita #UP beq notup ldab #'u' stab $c100 notup bita #DOWN beq notdown ldab #'d' stab $c101 notdown bita #LEFT beq notleft ldab #'l' stab $c102 notleft bita #RIGHT beq notrite ldab #'r' stab $c103 notrite bita #BUTT beq nobutt ldab #'b' stab $c104 nobutt bra loop