Virtua Hamster (32X) code fragment

 returns d1 weapon select else -1

 -----------------------------------------------------------------------------

 cycle_weapon
 move.w  current_stick,d0 ;joystick values
 moveq   #numcol-1,d2     ;number to check
 moveq   #0,d1
 move.b  numcol*2(a5),d1  ;this indexes select
 bmi.s
 @none
 add.w   d1,d1            ;which one
 lea     (a5,d1.w),a1     ;this points to the def
 tst.b   (a1)             ;any?
 beq.s
 @search
 btst    #c_jp,d0         ;do nothing
 beq.s
 @found
 bra.s
 @next
 @none
 moveq   #-2,d1           ;compensation
 bra.s
 @next