Y_SPEEDS:
                        db $10,$F0

SPRITE_ROUTINE:         JSR SUB_GFX
                                        INC !FrameNum,x
                                        LDA !FrameNum,x ;\Only allow 16 frames
                                        AND #$0F              ;|
                                        STA !FrameNum,x ;/
                                                                                JSR SUB_HORZ_POS
TYA
STA $157C,x
LDA $14D4,x : XBA : LDA $D8,x : REP #$20 : SEC : SBC $96 : CLC : ADC #$0010 : CMP #$0020 : SEP #$20 : BCS NotInRange
                                                                                LDA #$01
                                                                                STA $1594,x
                                                                                NotInRange:

LDA $1588,x
AND #$0C
BEQ +

LDA $C2,x
EOR #$01
STA $C2,x
TAY

+
LDA $C2,x
LDA Y_SPEEDS,y
STA $AA,x

JSL $01801A                     ; Apply speed.
 JSL  $019138
                                                        JSL $01A7DC         ;deflt interaction

                                        RTS