init:
REP #$20
LDA #$3202
STA $4350
LDA #.RedBlueTable
STA $4352
LDY.b #.RedBlueTable>>16
STY $4354
LDA #$3200
STA $4330
LDA #.GreenTable
STA $4332
LDY.b #.GreenTable>>16
STY $4334
SEP #$20
LDA #$28
TSB $0D9F|!addr
RTL

.RedBlueTable: ;
db $12 : db $28, $94 ;
db $01 : db $30, $9B ;
db $01 : db $28, $94 ;
db $01 : db $30, $9B ;
db $02 : db $28, $94 ;
db $19 : db $30, $9B ;
db $01 : db $33, $9C ;
db $03 : db $30, $9B ;
db $02 : db $33, $9C ;
db $03 : db $30, $9B ;
db $3B : db $33, $9C ;
db $01 : db $3A, $8E ;
db $01 : db $33, $9C ;
db $01 : db $3A, $8E ;
db $02 : db $33, $9C ;
db $23 : db $3A, $8E ;
db $01 : db $32, $85 ;
db $02 : db $3A, $8E ;
db $02 : db $32, $85 ;
db $01 : db $3A, $8E ;
db $02 : db $32, $85 ;
db $02 : db $3A, $8E ;
db $13 : db $32, $85 ;
db $27 : db $33, $9C ;
db $00 ;
db $00 ;

.GreenTable: ;
db $12 : db $28 ;
db $01 : db $30 ;
db $01 : db $28 ;
db $01 : db $30 ;
db $02 : db $28 ;
db $19 : db $30 ;
db $01 : db $33 ;
db $03 : db $30 ;
db $02 : db $33 ;
db $03 : db $30 ;
db $3B : db $33 ;
db $01 : db $3A ;
db $01 : db $33 ;
db $01 : db $3A ;
db $02 : db $33 ;
db $23 : db $3A ;
db $01 : db $32 ;
db $02 : db $3A ;
db $02 : db $32 ;
db $01 : db $3A ;
db $02 : db $32 ;
db $02 : db $3A ;
db $13 : db $32 ;
db $27 : db $33 ;
db $00 ;