SUB_SMOKE           LDY #$03
FINDFREE            LDA $17C0,y
                    BEQ FOUNDONE
                    DEY
                    BPL FINDFREE
                    RTS
FOUNDONE            LDA #$01     ;スプライトの種類
                    STA $17C0,y
                    LDA $E4,x    ;x座標
                    STA $17C8,y
                    LDA $D8,x    ;y座標
                    STA $17C4,y
                    LDA #$1B
                    STA $17CC,y  ;タイマー
                    RTS