Red, Green, and Blue

;== Include memorymap, header info, and SNES initialization routines
.INCLUDE "header.inc"
.INCLUDE "InitSNES.asm"

;========================
; Start
;========================

.BANK 0
.ORG 0
.SECTION "MainCode"

VBlank: RTI                 ; Perform VBlank

Main:
        InitializeSNES      ; Initialize the SNES hardware

        stz $2121           ; Edit color 0

        lda #$0F            ; = 00001111
        sta $2100           ; Turn on screen, full brightness

Loop:
    lda #%00011111
    sta $2122
    lda #%00000000
    sta $2122
    jsr wait
    lda #%11100000
    sta $2122
    lda #%00000011
    sta $2122
    jsr wait
    lda #%00000000
    sta $2122
    lda #%01111100
    sta $2122
    jsr wait
    jmp Loop

wait:
    wai
    rts

.ENDS