STARDUST                LDA $14
                        AND #$0F
                        BNE STARDUST_R
                        JSL $01ACF9 ;乱数を取得
                        AND #$0F
                        CLC
                        LDY #$00
                        ADC #$FC
                        BPL STARDUST_2
                        DEY
STARDUST_2              CLC
                        ADC $E4,x
                        STA $02
                        TYA
                        ADC $14E0,x
                        PHA
                        LDA $02
                        CMP $1A
                        PLA
                        SBC $1B
                        BNE STARDUST_R
                        LDA $148E
                        AND #$0F
                        CLC
                        ADC #$FE
                        ADC $D8,x
                        STA $00
                        LDA $14D4,x
                        ADC #$00
                        STA $01
                        JSL $0285BA	
STARDUST_R              RTS