|
- ; "Rainbow with glitter" demo
- ; for "FastLED6502"
- ;
- ; Runs on an Apple ][, ][+, //e, or //gs
- ;
- ; Supports APA102, Adafruit DotStar,
- ; LPD8806, and WS2801 LED strips.
- ;
- ; LED strip connects to game port pins,
- ; see FastLED6502.s65 for details.
- ;
- ; Mark Kriegsman, February 2015
-
- #define NUM_LEDS 100
- #define BRIGHTNESS 64
- #define CHIPSET APA102
- #define DATA_PIN 14
- #define CLOCK_PIN 5
-
- * = $6000
-
- #include "FastLED6502.s65"
- #include "AppleII.s65"
-
- gHue .byt 0
- gHueDelta .byt 17
- gHueSpeed .byt 7
-
-
- Setup
- lda #0
- sta gHue
-
- Loop
- lda gHue
- clc
- adc gHueSpeed
- sta gHue
- ldx gHue
- ldy gHueDelta
- ; Fill RGB array with HSV rainbow
- jsr FastLED_FillRainbow_XY
- ; Use master brightness control
- lda #BRIGHTNESS
- sta FastLED_Brightness
- CheckOpenApple
- bit OpenApple
- bpl CheckSolidApple
- ; Add glitter if requested
- jsr AddGlitter
- CheckSolidApple
- bit SolidApple
- bpl DoDisplay
- ; Pulse brightness if requested
- jsr PulseBrightness
- DoDisplay
- ; This is where the magic happens
- jsr FastLED_Show
- jmp Loop
-
-
- AddGlitter
- ldy #3
- MaybeAdd1Glitter
- jsr FastLED_Random8
- cmp FastLED_NumPixels
- bcs SkipThis1Glitter
- tax
- lda #$FF
- sta ledsR,x
- sta ledsG,x
- sta ledsB,x
- SkipThis1Glitter
- dey
- bne MaybeAdd1Glitter
- rts
-
-
- PulseBrightness
- lda #13
- jsr FastLED_Beat8
- clc
- adc #12
- bcc PulseBright1
- lda #$FF
- PulseBright1
- sta FastLED_Brightness
- rts
-
|
