From 9e06ec991b33e172732ea78f4d748dab056c5029 Mon Sep 17 00:00:00 2001 From: Jeremy Rand Date: Mon, 6 Jul 2020 00:01:44 -0400 Subject: [PATCH] Add a bunch more centipede segment sprites. --- BuGS/game.s | 72 +++ BuGS/sprites/segments.s | 1133 +++++++++++++++++++++++++++++++++++ BuGS/sprites/sprites.macros | 341 ++++++++++- 3 files changed, 1545 insertions(+), 1 deletion(-) diff --git a/BuGS/game.s b/BuGS/game.s index f180cc1..c25b440 100644 --- a/BuGS/game.s +++ b/BuGS/game.s @@ -372,6 +372,78 @@ game start ldx #$666b jsl leftBody5s + ldx #$6673 + jsl rightHead1 + + ldx #$667b + jsl rightHead1s + + ldx #$6683 + jsl rightHead2 + + ldx #$668b + jsl rightHead2s + + ldx #$6693 + jsl rightHead3 + + ldx #$669b + jsl rightHead3s + + ldx #$7003 + jsl rightHead4 + + ldx #$700b + jsl rightHead4s + + ldx #$7013 + jsl rightHead5 + + ldx #$701b + jsl rightHead5s + + ldx #$7023 + jsl rightBody1 + + ldx #$702b + jsl rightBody1s + + ldx #$7033 + jsl rightBody2 + + ldx #$703b + jsl rightBody2s + + ldx #$7043 + jsl rightBody3 + + ldx #$704b + jsl rightBody3s + + ldx #$7053 + jsl rightBody4 + + ldx #$705b + jsl rightBody4s + + ldx #$7063 + jsl rightBody5 + + ldx #$706b + jsl rightBody5s + + ldx #$7073 + jsl leftDownHead1 + + ldx #$707b + jsl leftDownHead1s + + ldx #$7083 + jsl leftDownHead2 + + ldx #$708b + jsl leftDownHead2s + jsl waitForKey rtl diff --git a/BuGS/sprites/segments.s b/BuGS/sprites/segments.s index b811a39..8866655 100644 --- a/BuGS/sprites/segments.s +++ b/BuGS/sprites/segments.s @@ -732,6 +732,1139 @@ leftBody5s entry rtl +rightHead1 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|O... +; ...G|GRR. +; ..GG|GRRG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GRRG +; ...G|GRR. +; ....|O... + + lda $3,s + and #$ff0f + ora #$0080 + sta $3,s + + _rightHead + + lda $a3,s + and #$ff0f + ora #$0080 + sta $a3,s + + _spriteFooter + rtl + + +rightHead1s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ...O|.... +; ..GG|RR.. +; .GGG|RRG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|RRG. +; ..GG|RR.. +; ...O|.... + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + _rightHeadShift + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + _spriteFooter + rtl + + +rightHead2 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ...O|.... +; ...G|GRR. +; ..GG|GRRG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GRRG +; ...G|GRR. +; ...O|.... + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + _rightHead + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + _spriteFooter + rtl + + +rightHead2s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ..O.|.... +; ..GG|RR.. +; .GGG|RRG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|RRG. +; ..GG|RR.. +; ..O.|.... + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + _rightHeadShift + + lda $a1,s + and #$0fff + ora #$8000 + sta $a1,s + + _spriteFooter + rtl + + +rightHead3 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ..O.|.... +; ...G|GRR. +; ..GG|GRRG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GRRG +; ...G|GRR. +; ..O.|.... + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + _rightHead + + lda $a1,s + and #$0fff + ora #$8000 + sta $a1,s + + _spriteFooter + rtl + + +rightHead3s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; .O..|.... +; ..GG|RR.. +; .GGG|RRG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|RRG. +; ..GG|RR.. +; .O..|.... + + lda $1,s + and #$fff0 + ora #$0008 + sta $1,s + + _rightHeadShift + + lda $a1,s + and #$fff0 + ora #$0008 + sta $a1,s + + _spriteFooter + rtl + + +rightHead4 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.O.. +; ...G|GRR. +; ..GG|GRRG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GRRG +; ...G|GRR. +; ....|.O.. + + lda $3,s + and #$fff0 + ora #$0008 + sta $3,s + + _rightHead + + lda $a3,s + and #$fff0 + ora #$0008 + sta $a3,s + + _spriteFooter + rtl + + +rightHead4s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|O... +; ..GG|RR.. +; .GGG|RRG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|RRG. +; ..GG|RR.. +; ....|O... + + lda $3,s + and #$ff0f + ora #$0080 + sta $3,s + + _rightHeadShift + + lda $a3,s + and #$ff0f + ora #$0080 + sta $a3,s + + _spriteFooter + rtl + + +rightHead5 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|..O. +; ...G|GRR. +; ..GG|GRRG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GRRG +; ...G|GRR. +; ....|..O. + + lda $3,s + and #$0fff + ora #$8000 + sta $3,s + + _rightHead + + lda $a3,s + and #$0fff + ora #$8000 + sta $a3,s + + _spriteFooter + rtl + + +rightHead5s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.O.. +; ..GG|RR.. +; .GGG|RRG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|RRG. +; ..GG|RR.. +; ....|.O.. + + lda $3,s + and #$fff0 + ora #$0008 + sta $3,s + + _rightHeadShift + + lda $a3,s + and #$fff0 + ora #$0008 + sta $a3,s + + _spriteFooter + rtl + + +rightBody1 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|O... +; ...G|GGG. +; ..GG|GGGG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GGGG +; ...G|GGG. +; ....|O... + + lda $3,s + and #$ff0f + ora #$0080 + sta $3,s + + _rightBody + + lda $a3,s + and #$ff0f + ora #$0080 + sta $a3,s + + _spriteFooter + rtl + + +rightBody1s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ...O|.... +; ..GG|GG.. +; .GGG|GGG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|GGG. +; ..GG|GG.. +; ...O|.... + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + _rightBodyShift + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + _spriteFooter + rtl + + +rightBody2 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ...O|.... +; ...G|GGG. +; ..GG|GGGG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GGGG +; ...G|GGG. +; ...O|.... + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + _rightBody + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + _spriteFooter + rtl + + +rightBody2s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ..O.|.... +; ..GG|GG.. +; .GGG|GGG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|GGG. +; ..GG|GG.. +; ..O.|.... + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + _rightBodyShift + + lda $a1,s + and #$0fff + ora #$8000 + sta $a1,s + + _spriteFooter + rtl + + +rightBody3 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ..O.|.... +; ...G|GGG. +; ..GG|GGGG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GGGG +; ...G|GGG. +; ..O.|.... + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + _rightBody + + lda $a1,s + and #$0fff + ora #$8000 + sta $a1,s + + _spriteFooter + rtl + + +rightBody3s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; .O..|.... +; ..GG|GG.. +; .GGG|GGG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|GGG. +; ..GG|GG.. +; .O..|.... + + lda $1,s + and #$fff0 + ora #$0008 + sta $1,s + + _rightBodyShift + + lda $a1,s + and #$fff0 + ora #$0008 + sta $a1,s + + _spriteFooter + rtl + + +rightBody4 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.O.. +; ...G|GGG. +; ..GG|GGGG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GGGG +; ...G|GGG. +; ....|.O.. + + lda $3,s + and #$fff0 + ora #$0008 + sta $3,s + + _rightBody + + lda $a3,s + and #$fff0 + ora #$0008 + sta $a3,s + + _spriteFooter + rtl + + +rightBody4s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|O... +; ..GG|GG.. +; .GGG|GGG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|GGG. +; ..GG|GG.. +; ....|O... + + lda $3,s + and #$ff0f + ora #$0080 + sta $3,s + + _rightBodyShift + + lda $a3,s + and #$ff0f + ora #$0080 + sta $a3,s + + _spriteFooter + rtl + + +rightBody5 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|..O. +; ...G|GGG. +; ..GG|GGGG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GGGG +; ...G|GGG. +; ....|..O. + + lda $3,s + and #$0fff + ora #$8000 + sta $3,s + + _rightBody + + lda $a3,s + and #$0fff + ora #$8000 + sta $a3,s + + _spriteFooter + rtl + + +rightBody5s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.O.. +; ..GG|GG.. +; .GGG|GGG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|GGG. +; ..GG|GG.. +; ....|.O.. + + lda $3,s + and #$fff0 + ora #$0008 + sta $3,s + + _rightBodyShift + + lda $a3,s + and #$fff0 + ora #$0008 + sta $a3,s + + _spriteFooter + rtl + + +leftDownHead1 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.... +; O.GG|G... +; .GGG|GG.. +; GGGG|GGG. +; RRGG|GGG. +; RRGG|GGG. +; .GRR|GG.. +; ..RR|G.O. + + lda $a1,s + and #$000f + ora #$cc80 + sta $a1,s + + lda $a3,s +; and #$ff0f not necessary with pure green + ora #$00c0 + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $1,s + + lda $3,s +; and #$ff00 not necessary with pure green + ora #$00cc + sta $3,s + + lda #$cccc + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$142 + tcs + + pea $cc44 + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + lda #$cc44 + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00f0 + ora #$440c + sta $1,s + + lda $3,s +; and #$ff00 not necessary with pure green + ora #$00cc + sta $3,s + + lda $a1,s + and #$00ff + ora #$4400 + sta $a1,s + + lda $a3,s + and #$0f0f + ora #$80c0 + sta $a3,s + + _spriteFooter + rtl + + +leftDownHead1s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.... +; .O.G|GG.. +; ..GG|GGG. +; .GGG|GGGG +; .RRG|GGGG +; .RRG|GGGG +; ..GR|RGG. +; ...R|RG.O + + lda $a1,s + and #$f0f0 + ora #$0c08 + sta $a1,s + + lda $a3,s +; and #$ff00 not necessary with pure green + ora #$00cc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $1,s + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + lda $a1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $a1,s + + lda #$cccc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00f0 + ora #$4c04 + sta $1,s + + lda #$cccc + sta $3,s + + lda $a1,s + and #$00f0 + ora #$4c04 + sta $a1,s + + lda #$cccc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00ff + ora #$c400 + sta $1,s + + lda $3,s + and #$0f00 + ora #$c04c + sta $3,s + + lda $a1,s + and #$f0ff + ora #$0400 + sta $a1,s + + lda $a3,s + and #$f000 + ora #$084c + sta $a3,s + + _spriteFooter + rtl + + +leftDownHead2 entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; .O..|.... +; ..GG|G... +; .GGG|GG.. +; GGGG|GGG. +; RRGG|GGG. +; RRGG|GGG. +; .GRR|GG.O +; ..RR|G... + + lda $1,s + and #$fff0 + ora #$0008 + sta $1,s + + lda $a1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $a1,s + + lda $a3,s +; and #$ff0f not necessary with pure green + ora #$00c0 + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $1,s + + lda $3,s +; and #$ff00 not necessary with pure green + ora #$00cc + sta $3,s + + lda #$cccc + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$142 + tcs + + pea $cc44 + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + lda #$cc44 + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00f0 + ora #$440c + sta $1,s + + lda $3,s + and #$f000 + ora #$08cc + sta $3,s + + lda $a1,s + and #$00ff + ora #$4400 + sta $a1,s + + lda $a3,s +; and #$ff0f not necessary with pure green + ora #$00c0 + sta $a3,s + + _spriteFooter + rtl + + +leftDownHead2s entry + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ..O.|.... +; ...G|GG.. +; ..GG|GGG. +; .GGG|GGGG +; .RRG|GGGG +; .RRG|GGGG +; ..GR|RGG.|O... +; ...R|RG.. + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + lda $a1,s + and #$f0ff + ora #$0c00 + sta $a1,s + + lda $a3,s +; and #$ff00 not necessary with pure green + ora #$00cc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $1,s + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + lda $a1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $a1,s + + lda #$cccc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00f0 + ora #$4c04 + sta $1,s + + lda #$cccc + sta $3,s + + lda $a1,s + and #$00f0 + ora #$4c04 + sta $a1,s + + lda #$cccc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00ff + ora #$c400 + sta $1,s + + lda $3,s + and #$0f00 + ora #$c04c + sta $3,s + + lda $5,s + and #$ff0f + ora #$0080 + sta $5,s + + lda $a1,s + and #$f0ff + ora #$0400 + sta $a1,s + + lda $a3,s + and #$ff00 + ora #$004c + sta $a3,s + + _spriteFooter + rtl + + backupStack dc i2'0' end diff --git a/BuGS/sprites/sprites.macros b/BuGS/sprites/sprites.macros index 7a84afd..9cbddb2 100644 --- a/BuGS/sprites/sprites.macros +++ b/BuGS/sprites/sprites.macros @@ -215,7 +215,7 @@ ; ....|.... lda $a1,s -;; and #$00f0 not necessary with pure green +; and #$00f0 not necessary with pure green ora #$cc0c sta $a1,s @@ -278,6 +278,7 @@ mend + macro _leftBodyShift @@ -363,3 +364,341 @@ sta $3,s mend + + + macro + _rightHead + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.... +; ...G|GRR. +; ..GG|GRRG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GRRG +; ...G|GRR. +; ....|.... + + lda $a1,s +; and #$f0ff not necessary with pure green + ora #$0c00 + sta $a1,s + + lda $a3,s + and #$0f00 + ora #$40c4 + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $1,s + + lda #$4cc4 + sta $3,s + + lda $a1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $a1,s + + lda #$cccc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $1,s + + lda #$cccc + sta $3,s + + lda $a1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $a1,s + + lda #$4cc4 + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$f0ff not necessary with pure green + ora #$0c00 + sta $1,s + + lda $3,s + and #$0f00 + ora #$40c4 + sta $3,s + + mend + + + macro + _rightHeadShift + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.... +; ..GG|RR.. +; .GGG|RRG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|RRG. +; ..GG|RR.. +; ....|.... + + lda $a1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $a1,s + + lda $a3,s + and #$ff00 + ora #$0044 + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $1,s + + lda $3,s + and #$0f00 + ora #$c044 + sta $3,s + + lda #$cccc + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$142 + tcs + + pea $cccc + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + lda $a1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $a1,s + + lda $a3,s + and #$0f00 + ora #$c044 + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $1,s + + lda $3,s + and #$ff00 + ora #$0044 + sta $3,s + + mend + + + macro + _rightBody + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.... +; ...G|GGG. +; ..GG|GGGG +; .GGG|GGGG +; .GGG|GGGG +; ..GG|GGGG +; ...G|GGG. +; ....|.... + + lda $a1,s +; and #$f0ff not necessary with pure green + ora #$0c00 + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $1,s + + lda #$cccc + sta $3,s + + lda $a1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $a1,s + + lda #$cccc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $1,s + + lda #$cccc + sta $3,s + + lda $a1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $a1,s + + lda #$cccc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$f0ff not necessary with pure green + ora #$0c00 + sta $1,s + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + mend + + + macro + _rightBodyShift + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.... +; ..GG|GG.. +; .GGG|GGG. +; GGGG|GGG. +; GGGG|GGG. +; .GGG|GGG. +; ..GG|GG.. +; ....|.... + + lda $a1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $a1,s + + lda $a3,s +; and #$ff00 not necessary with pure green + ora #$00cc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $1,s + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + lda #$cccc + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$142 + tcs + + pea $cccc + + lda $3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $3,s + + lda $a1,s +; and #$00f0 not necessary with pure green + ora #$cc0c + sta $a1,s + + lda $a3,s +; and #$0f00 not necessary with pure green + ora #$c0cc + sta $a3,s + + tsc + adc #$140 + tcs + + lda $1,s +; and #$00ff not necessary with pure green + ora #$cc00 + sta $1,s + + lda $3,s +; and #$ff00 not necessary with pure green + ora #$00cc + sta $3,s + + mend