diff --git a/BuGS/game.s b/BuGS/game.s index d2e0f33..9d7ff9d 100644 --- a/BuGS/game.s +++ b/BuGS/game.s @@ -205,28 +205,52 @@ game start jsl score900 ldx #$3e0b - jsl scorpion1 + jsl left_scorpion1 ldx #$3e1b - jsl scorpion1s + jsl left_scorpion1s ldx #$3e2b - jsl scorpion2 + jsl left_scorpion2 ldx #$3e3b - jsl scorpion2s + jsl left_scorpion2s ldx #$3e4b - jsl scorpion3 + jsl left_scorpion3 ldx #$3e5b - jsl scorpion3s + jsl left_scorpion3s ldx #$3e6b - jsl scorpion4 + jsl left_scorpion4 ldx #$3e7b - jsl scorpion4s + jsl left_scorpion4s + + ldx #$480b + jsl right_scorpion1 + + ldx #$481b + jsl right_scorpion1s + + ldx #$482b + jsl right_scorpion2 + + ldx #$483b + jsl right_scorpion2s + + ldx #$484b + jsl right_scorpion3 + + ldx #$485b + jsl right_scorpion3s + + ldx #$486b + jsl left_scorpion4 + + ldx #$487b + jsl left_scorpion4s jsl waitForKey rtl diff --git a/BuGS/local.macros b/BuGS/local.macros index b019cb7..ea1bba1 100644 --- a/BuGS/local.macros +++ b/BuGS/local.macros @@ -9,12 +9,14 @@ macro _spriteHeader sei - phd tsc sta backupStack lda $e1c068 ; Direct Page and Stack in Bank 01/ ora #$0030 sta $e1c068 + clc + txa + tcs mend macro @@ -24,7 +26,5 @@ sta $e1c068 lda backupStack tcs - pld cli - rtl mend diff --git a/BuGS/sprites.s b/BuGS/sprites.s index f76f56c..09c6c50 100644 --- a/BuGS/sprites.s +++ b/BuGS/sprites.s @@ -4,6 +4,35 @@ ; ; Created by Jeremy Rand on 2020-06-16. ;Copyright © 2020 Jeremy Rand. All rights reserved. +; +; +; Performance of two approaches +; ldx #$abcd 3 cycles +; phx 4 cycles (per push) +; +; Vs +; pea $abcd 5 cycles +; +; When the pattern $abcd appears just once: +; - ldx/phx takes 7 cycles +; - pea takes 5 cycles (***) +; +; When the pattern $abcd appears twice: +; - ldx/phx/phx takes 11 cycles +; - pea/pea takes 10 cycles (***) +; +; When the pattern $abcd appears three times: +; - ldx/phx/phx/phx takes 15 cycles +; - pea/pea/pea takes 15 cycles +; +; When the pattern $abcd appears four times: +; - ldx/phx/phx/phx takes 19 cycles (***) +; - pea/pea/pea takes 20 cycles +; +; So, if a pattern appears four or more times, it is worth using a +; register for the pattern. If it appears exactly three times, +; a register can be used but it buys nothing. If it appears two +; or fewer times, a register for the pattern should not be used. ; case on @@ -25,16 +54,8 @@ mushroom1 entry ; #$2100 - Black, Black, Red, Green (x2) ; #$0012 - Green, Red, Black, Black (x2) ; - lda #$2200 - tcd ; Black, Black, Red, Red - txa - tcs - ldx #$0022 ; Red, Red, Black, Black - ldy #$2222 ; Red, Red, Red, Red - clc - - phx - phd + pea $0022 + pea $2200 adc #$00a0 tcs @@ -57,8 +78,8 @@ mushroom1 entry adc #$00a0 tcs - phy - phy + pea $2222 + pea $2222 adc #$00a0 tcs @@ -75,10 +96,11 @@ mushroom1 entry adc #$00a0 tcs - phx - phd + pea $0022 + pea $2200 _spriteFooter + rtl mushroom2 entry @@ -97,14 +119,6 @@ mushroom2 entry ; #$0100 - Black, Black, Black, Green (x1) ; #$0000 - Black, Black, Black, Black (x3) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$1121 ; Red, Green, Green, Green - ldy #$1211 ; Green, Green, Green, Red - clc - pea $0022 pea $2200 @@ -117,14 +131,14 @@ mushroom2 entry adc #$00a0 tcs - phy - phx + pea $1211 + pea $1121 adc #$00a0 tcs - phy - phx + pea $1211 + pea $1121 adc #$00a0 tcs @@ -141,16 +155,17 @@ mushroom2 entry adc #$00a0 tcs - phd + pea $0000 pea $0100 adc #$00a0 tcs - phd - phd + pea $0000 + pea $0000 _spriteFooter + rtl mushroom3 entry @@ -166,13 +181,7 @@ mushroom3 entry ; #$2000 - Black, Black, Red, Black (x1) ; #$0000 - Black, Black, Black, Black (x5) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$1121 ; Red, Green, Green, Green - ldy #$1211 ; Green, Green, Green, Red - clc + ldx #$0000 ; Black, Black, Black, Black pea $0022 pea $2200 @@ -186,14 +195,14 @@ mushroom3 entry adc #$00a0 tcs - phy - phx + pea $1211 + pea $1121 adc #$00a0 tcs - phy - phx + pea $1211 + pea $1121 adc #$00a0 tcs @@ -204,22 +213,23 @@ mushroom3 entry adc #$00a0 tcs - phd + phx pea $2000 adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx _spriteFooter + rtl mushroom4 entry @@ -235,10 +245,7 @@ mushroom4 entry ; #$1210 - Green, Black, Green, Red (x1) ; #$0000 - Black, Black, Black, Black (x8) ; - txa - tcs ldx #$0000 ; Black, Black, Black, Black - clc pea $0022 pea $2200 @@ -286,6 +293,7 @@ mushroom4 entry phx _spriteFooter + rtl poisonedMushroom1 entry @@ -301,16 +309,9 @@ poisonedMushroom1 entry ; #$2300 - Black, Black, Red, Off-white (x2) ; #$0032 - Off-white, Red, Black, Black (x2) ; - lda #$2200 - tcd ; Black, Black, Red, Red - txa - tcs - ldx #$0022 ; Red, Red, Black, Black - ldy #$2222 ; Red, Red, Red, Red - clc - phx - phd + pea $0022 + pea $2200 adc #$00a0 tcs @@ -333,8 +334,8 @@ poisonedMushroom1 entry adc #$00a0 tcs - phy - phy + pea $2222 + pea $2222 adc #$00a0 tcs @@ -351,10 +352,11 @@ poisonedMushroom1 entry adc #$00a0 tcs - phx - phd + pea $0022 + pea $2200 _spriteFooter + rtl poisonedMushroom2 entry @@ -373,13 +375,6 @@ poisonedMushroom2 entry ; #$0300 - Black, Black, Black, Off-white (x1) ; #$0000 - Black, Black, Black, Black (x3) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$3323 ; Red, Off-white, Off-white, Green - ldy #$3233 ; Off-white, Off-white, Off-white, Red - clc pea $0022 pea $2200 @@ -393,14 +388,14 @@ poisonedMushroom2 entry adc #$00a0 tcs - phy - phx + pea $3233 + pea $3323 adc #$00a0 tcs - phy - phx + pea $3233 + pea $3323 adc #$00a0 tcs @@ -417,16 +412,17 @@ poisonedMushroom2 entry adc #$00a0 tcs - phd + pea $0000 pea $0300 adc #$00a0 tcs - phd - phd + pea $0000 + pea $0000 _spriteFooter + rtl poisonedMushroom3 entry @@ -442,13 +438,7 @@ poisonedMushroom3 entry ; #$2000 - Black, Black, Red, Black (x1) ; #$0000 - Black, Black, Black, Black (x5) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$3323 ; Red, Off-white, Off-white, Off-white - ldy #$3233 ; Off-white, Off-white, Off-white, Red - clc + ldx #$0000 ; Black, Black, Black, Black pea $0022 pea $2200 @@ -462,14 +452,14 @@ poisonedMushroom3 entry adc #$00a0 tcs - phy - phx + pea $3233 + pea $3323 adc #$00a0 tcs - phy - phx + pea $3233 + pea $3323 adc #$00a0 tcs @@ -480,22 +470,23 @@ poisonedMushroom3 entry adc #$00a0 tcs - phd + phx pea $2000 adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx _spriteFooter + rtl poisonedMushroom4 entry @@ -511,10 +502,7 @@ poisonedMushroom4 entry ; #$3230 - Off-white, Black, Off-white, Red (x1) ; #$0000 - Black, Black, Black, Black (x8) ; - txa - tcs ldx #$0000 ; Black, Black, Black, Black - clc pea $0022 pea $2200 @@ -562,6 +550,7 @@ poisonedMushroom4 entry phx _spriteFooter + rtl letterA entry @@ -575,16 +564,11 @@ letterA entry ; #$2222 - Red, Red, Red, Red (x1) ; #$2022 - Red, Red, Red, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -629,6 +613,7 @@ letterA entry phy _spriteFooter + rtl letterB entry @@ -641,13 +626,8 @@ letterB entry ; #$0022 - Red, Red, Black, Black (x4) ; #$2022 - Red, Red, Red, Black (x1) ; - lda #$2222 - tcd ; Red, Red, Red, Red - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc pea $0000 pea $0000 @@ -656,7 +636,7 @@ letterB entry tcs pea $0022 - phd + pea $2222 adc #$00a0 tcs @@ -674,7 +654,7 @@ letterB entry tcs pea $0022 - phd + pea $2222 adc #$00a0 tcs @@ -692,9 +672,10 @@ letterB entry tcs pea $0022 - phd + pea $2222 _spriteFooter + rtl letterC entry @@ -705,16 +686,11 @@ letterC entry ; #$0022 - Red, Red, Black, Black (x5) ; #$2002 - Black, Red, Red, Black (x4) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2002 ; Black, Red, Red, Black + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + phx + phx adc #$00a0 tcs @@ -725,32 +701,32 @@ letterC entry adc #$00a0 tcs + pea $2002 + pea $2002 + + adc #$00a0 + tcs + phx - phx - - adc #$00a0 - tcs - - phd - phy - - adc #$00a0 - tcs - - phd - phy - - adc #$00a0 - tcs - - phd phy adc #$00a0 tcs phx + phy + + adc #$00a0 + tcs + phx + phy + + adc #$00a0 + tcs + + pea $2002 + pea $2002 adc #$00a0 tcs @@ -759,6 +735,7 @@ letterC entry pea $2200 _spriteFooter + rtl letterD entry @@ -770,16 +747,11 @@ letterD entry ; #$0022 - Red, Red, Black, Black (x7) ; #$2002 - Black, Red, Red, Black (x3) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -824,6 +796,7 @@ letterD entry pea $2222 _spriteFooter + rtl letterE entry @@ -835,60 +808,56 @@ letterE entry ; #$0020 - Red, Black, Black, Black (x1) ; #$2022 - Red, Red, Red, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2222 ; Red, Red, Red, Red + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd - - adc #$00a0 - tcs - - phy + phx phx adc #$00a0 tcs - phd + phy + pea $2222 + + adc #$00a0 + tcs + + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs pea $0020 - phx + pea $2222 adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs pea $2022 - phx + pea $2222 _spriteFooter + rtl letterF entry @@ -899,60 +868,56 @@ letterF entry ; #$2022 - Red, Red, Red, Black (x1) ; #$0022 - Red, Red, Black, Black (x6) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2222 ; Red, Red, Red, Red + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + phx + phx adc #$00a0 tcs pea $2022 + pea $2222 + + adc #$00a0 + tcs + phx - - adc #$00a0 - tcs - - phd phy adc #$00a0 tcs - phd - phy - - adc #$00a0 - tcs - - phy phx - - adc #$00a0 - tcs - - phd phy adc #$00a0 tcs - phd + phy + pea $2222 + + adc #$00a0 + tcs + + phx phy adc #$00a0 tcs - phd + phx + phy + + adc #$00a0 + tcs + + phx phy _spriteFooter + rtl letterG entry @@ -964,16 +929,11 @@ letterG entry ; #$2002 - Black, Red, Red, Black (x4) ; #$0022 - Red, Red, Black, Black (x3) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black - ldy #$0022 ; Red, Red, Black, Black - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs @@ -984,26 +944,26 @@ letterG entry adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd phy + pea $0022 adc #$00a0 tcs pea $2022 - phy + pea $0022 adc #$00a0 tcs phx - phy + pea $0022 adc #$00a0 tcs @@ -1018,6 +978,7 @@ letterG entry pea $2200 _spriteFooter + rtl letterH entry @@ -1029,16 +990,11 @@ letterH entry ; #$0022 - Red, Red, Black, Black (x6) ; #$2222 - Red, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -1083,6 +1039,7 @@ letterH entry phy _spriteFooter + rtl letterI entry @@ -1093,60 +1050,56 @@ letterI entry ; #$0022 - Red, Red, Black, Black (x2) ; #$2200 - Black, Black, Red, Red (x5) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2200 ; Black, Black, Red, Red - ldy #$0022 ; Red, Red, Black, Black - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs - phy + pea $0022 pea $2222 adc #$00a0 tcs - phd - phx - - adc #$00a0 - tcs - - phd - phx - - adc #$00a0 - tcs - - phd - phx - - adc #$00a0 - tcs - - phd - phx - - adc #$00a0 - tcs - - phd + phy phx adc #$00a0 tcs phy + phx + + adc #$00a0 + tcs + + phy + phx + + adc #$00a0 + tcs + + phy + phx + + adc #$00a0 + tcs + + phy + phx + + adc #$00a0 + tcs + + pea $0022 pea $2222 _spriteFooter + rtl letterJ entry @@ -1157,46 +1110,11 @@ letterJ entry ; #$0022 - Red, Red, Black, Black (x2) ; #$2202 - Black, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black - ldy #$0022 ; Red, Red, Black, Black - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd - - adc #$00a0 - tcs - - phx - phd - - adc #$00a0 - tcs - - phx - phd - - adc #$00a0 - tcs - - phx - phd - - adc #$00a0 - tcs - - phx - phd - - adc #$00a0 - tcs - - phx - phd + phy + phy adc #$00a0 tcs @@ -1207,10 +1125,41 @@ letterJ entry adc #$00a0 tcs + phx phy + + adc #$00a0 + tcs + + phx + phy + + adc #$00a0 + tcs + + phx + phy + + adc #$00a0 + tcs + + phx + phy + + adc #$00a0 + tcs + + phx + pea $0022 + + adc #$00a0 + tcs + + pea $0022 pea $2202 _spriteFooter + rtl letterK entry @@ -1224,16 +1173,11 @@ letterK entry ; #$2222 - Red, Red, Red, Red (x2) ; #$2022 - Red, Red, Red, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$0222 ; Red, Red, Black, Red + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + phx + phx adc #$00a0 tcs @@ -1251,12 +1195,12 @@ letterK entry tcs pea $0020 - phx + pea $0222 adc #$00a0 tcs - phd + phx pea $2222 adc #$00a0 @@ -1269,7 +1213,7 @@ letterK entry tcs phy - phx + pea $0222 adc #$00a0 tcs @@ -1278,6 +1222,7 @@ letterK entry phy _spriteFooter + rtl letterL entry @@ -1288,50 +1233,46 @@ letterL entry ; #$2222 - Red, Red, Red, Red (x1) ; #$2022 - Red, Red, Red, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + phx + phx adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 @@ -1341,6 +1282,7 @@ letterL entry pea $2222 _spriteFooter + rtl @@ -1354,13 +1296,8 @@ letterM entry ; #$2222 - Red, Red, Red, Red (x2) ; #$0222 - Red, Red, Black, Red (x1) ; - lda #$2002 - tcd ; Black, Red, Red, Black - txa - tcs ldx #$2022 ; Red, Red, Red, Black - ldy #$0022 ; Red, Red, Black, Black - clc + ldy #$2002 ; Black, Red, Red, Black pea $0000 pea $0000 @@ -1368,8 +1305,8 @@ letterM entry adc #$00a0 tcs - phd phy + pea $0022 adc #$00a0 tcs @@ -1392,22 +1329,23 @@ letterM entry adc #$00a0 tcs - phd + phy pea $0222 adc #$00a0 tcs - phd phy + pea $0022 adc #$00a0 tcs - phd phy + pea $0022 _spriteFooter + rtl letterN entry @@ -1420,13 +1358,8 @@ letterN entry ; #$2222 - Red, Red, Red, Red (x2) ; #$0222 - Red, Red, Black, Red (x1) ; - lda #$2002 - tcd ; Black, Red, Red, Black - txa - tcs ldx #$2022 ; Red, Red, Red, Black - ldy #$0022 ; Red, Red, Black, Black - clc + ldy #$2002 ; Black, Red, Red, Black pea $0000 pea $0000 @@ -1434,19 +1367,19 @@ letterN entry adc #$00a0 tcs - phd phy + pea $0022 adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy pea $2222 adc #$00a0 @@ -1465,15 +1398,16 @@ letterN entry tcs phx - phy + pea $0022 adc #$00a0 tcs - phd phy + pea $0022 _spriteFooter + rtl letterO entry @@ -1484,16 +1418,11 @@ letterO entry ; #$0022 - Red, Red, Black, Black (x7) ; #$2002 - Black, Red, Red, Black (x5) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -1538,6 +1467,7 @@ letterO entry pea $2202 _spriteFooter + rtl letterP entry @@ -1546,18 +1476,37 @@ letterP entry ; Colours #$0000 - Black, Black, Black, Black (x4) ; #$2222 - Red, Red, Red, Red (x2) ; #$0022 - Red, Red, Black, Black (x7) -; #$2202 - Black, Red, Red, Red (x3) +; #$2002 - Black, Red, Red, Black (x3) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2002 ; Black, Red, Red, Black + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + phx + phx + + adc #$00a0 + tcs + + phy + pea $2222 + + adc #$00a0 + tcs + + pea $2002 + phy + + adc #$00a0 + tcs + + pea $2002 + phy + + adc #$00a0 + tcs + + pea $2002 + phy adc #$00a0 tcs @@ -1577,31 +1526,8 @@ letterP entry phx phy - adc #$00a0 - tcs - - phx - phy - - adc #$00a0 - tcs - - phy - pea $2222 - - adc #$00a0 - tcs - - phd - phy - - adc #$00a0 - tcs - - phd - phy - _spriteFooter + rtl letterQ entry @@ -1615,16 +1541,11 @@ letterQ entry ; #$2022 - Red, Red, Red, Black (x1) ; #$2020 - Red, Black, Red, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -1669,6 +1590,7 @@ letterQ entry pea $2202 _spriteFooter + rtl letterR entry @@ -1682,16 +1604,10 @@ letterR entry ; #$0222 - Red, Red, Black, Red (x1) ; #$2022 - Red, Red, Red, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -1702,13 +1618,13 @@ letterR entry adc #$00a0 tcs - phx + pea $2002 phy adc #$00a0 tcs - phx + pea $2002 phy adc #$00a0 @@ -1736,6 +1652,7 @@ letterR entry phy _spriteFooter + rtl letterS entry @@ -1747,46 +1664,41 @@ letterS entry ; #$0022 - Red, Red, Black, Black (x6) ; #$2002 - Black, Red, Red, Black (x2) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2202 ; Black, Red, Red, Red + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + phx + phx adc #$00a0 tcs pea $0020 + pea $2202 + + adc #$00a0 + tcs + + phy + phy + + adc #$00a0 + tcs + phx - - adc #$00a0 - tcs - - phy - phy - - adc #$00a0 - tcs - - phd phy adc #$00a0 tcs phy - phx + pea $2202 adc #$00a0 tcs pea $2002 - phd + phx adc #$00a0 tcs @@ -1798,9 +1710,10 @@ letterS entry tcs phy - phx + pea $2202 _spriteFooter + rtl letterT entry @@ -1811,15 +1724,11 @@ letterT entry ; #$0022 - Red, Red, Black, Black (x1) ; #$2200 - Black, Black, Red, Red (x6) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2200 ; Black, Black, Red, Red - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs @@ -1830,40 +1739,41 @@ letterT entry adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx _spriteFooter + rtl letterU entry @@ -1874,16 +1784,11 @@ letterU entry ; #$2002 - Black, Red, Red, Black (x6) ; #$2202 - Black, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -1928,6 +1833,7 @@ letterU entry pea $2202 _spriteFooter + rtl letterV entry @@ -1942,16 +1848,11 @@ letterV entry ; #$0020 - Red, Black, Black, Black (x1) ; #$0200 - Black, Black, Black, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -1992,10 +1893,11 @@ letterV entry adc #$00a0 tcs - phd + pea $0000 pea $0200 _spriteFooter + rtl letterW entry @@ -2008,13 +1910,8 @@ letterW entry ; #$2222 - Red, Red, Red, Red (x2) ; #$0222 - Red, Red, Black, Red (x1) ; - lda #$2022 - tcd ; Red, Red, Red, Black - txa - tcs ldx #$2002 ; Black, Red, Red, Black - ldy #$0022 ; Red, Red, Black, Black - clc + ldy #$2022 ; Red, Red, Red, Black pea $0000 pea $0000 @@ -2023,13 +1920,13 @@ letterW entry tcs phx - phy + pea $0022 adc #$00a0 tcs phx - phy + pea $0022 adc #$00a0 tcs @@ -2040,28 +1937,29 @@ letterW entry adc #$00a0 tcs - phd + phy pea $2222 adc #$00a0 tcs - phd + phy pea $2222 adc #$00a0 tcs - phd - phd + phy + phy adc #$00a0 tcs phx - phy + pea $0022 _spriteFooter + rtl letterX entry @@ -2075,16 +1973,11 @@ letterX entry ; #$2200 - Black, Black, Red, Red (x1) ; #$0020 - Red, Black, Black, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2022 ; Red, Red, Red, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -2129,6 +2022,7 @@ letterX entry phy _spriteFooter + rtl letterY entry @@ -2140,16 +2034,11 @@ letterY entry ; #$0020 - Red, Black, Black, Black (x1) ; #$2200 - Black, Black, Red, Red (x3) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2200 ; Black, Black, Red, Red + ldx #$0000 ; Black, Black, Black, Black ldy #$0022 ; Red, Red, Black, Black - clc - phd - phd + phx + phx adc #$00a0 tcs @@ -2178,22 +2067,23 @@ letterY entry adc #$00a0 tcs - phd phx + pea $2200 adc #$00a0 tcs - phd phx + pea $2200 adc #$00a0 tcs - phd phx + pea $2200 _spriteFooter + rtl letterZ entry @@ -2208,28 +2098,23 @@ letterZ entry ; #$0020 - Red, Black, Black, Black (x1) ; #$2202 - Black, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$2222 ; Red, Red, Red, Red + ldx #$0000 ; Black, Black, Black, Black ldy #$2022 ; Red, Red, Red, Black - clc - phd - phd - - adc #$00a0 - tcs - - phy + phx phx adc #$00a0 tcs phy - phd + pea $2222 + + adc #$00a0 + tcs + + phy + phx adc #$00a0 tcs @@ -2246,22 +2131,23 @@ letterZ entry adc #$00a0 tcs - phd + phx pea $2202 adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs phy - phx + pea $2222 _spriteFooter + rtl symbolC entry @@ -2275,16 +2161,10 @@ symbolC entry ; #$0102 - Black, Red, Black, Green (x2) ; #$0100 - Black, Black, Black, Green (x2) ; - lda #$1100 - tcd ; Black, Black, Green, Green - txa - tcs ldx #$2010 ; Green, Black, Red, Black - ldy #$0011 ; Green, Green, Black, Black - clc - phy - phd + pea $0011 + pea $1100 adc #$00a0 tcs @@ -2325,10 +2205,11 @@ symbolC entry adc #$00a0 tcs - phy - phd + pea $0011 + pea $1100 _spriteFooter + rtl symbolP entry @@ -2346,16 +2227,10 @@ symbolP entry ; #$2001 - Black, Green, Red, Black (x1) ; #$1000 - Black, Black, Green, Black (x1) ; - lda #$1100 - tcd ; Black, Black, Green, Green - txa - tcs ldx #$2010 ; Green, Black, Red, Black - ldy #$0011 ; Green, Green, Black, Black - clc - phy - phd + pea $0011 + pea $1100 adc #$00a0 tcs @@ -2396,10 +2271,11 @@ symbolP entry adc #$00a0 tcs - phy - phd + pea $0011 + pea $1100 _spriteFooter + rtl symbolDot entry @@ -2408,58 +2284,55 @@ symbolDot entry ; Colours #$0000 - Black, Black, Black, Black (x15) ; #$0030 - Off-white, Black, Black, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - clc + ldx #$0000 ; Black, Black, Black, Black - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs pea $0030 - phd + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx _spriteFooter + rtl symbolColon entry @@ -2469,60 +2342,56 @@ symbolColon entry ; #$0020 - Red, Black, Black, Black (x4) ; #$0200 - Black, Black, Black, Red (x4) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$0020 ; Red, Black, Black, Black + ldx #$0000 ; Black, Black, Black, Black ldy #$0200 ; Black, Black, Black, Red - clc - phd - phd + phx + phx adc #$00a0 tcs - phx + pea $0020 + phy + + adc #$00a0 + tcs + + pea $0020 phy adc #$00a0 tcs phx - phy - - adc #$00a0 - tcs - - phd - phd - - adc #$00a0 - tcs - - phd - phd + phx adc #$00a0 tcs phx + phx + + adc #$00a0 + tcs + + pea $0020 + phy + + adc #$00a0 + tcs + + pea $0020 phy adc #$00a0 tcs phx - phy - - adc #$00a0 - tcs - - phd - phd + phx _spriteFooter + rtl solid0 entry @@ -2530,58 +2399,55 @@ solid0 entry ; Colours #$0000 - Black, Black, Black, Black (x16) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - clc + ldx #$0000 ; Black, Black, Black, Black - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx _spriteFooter + rtl solid1 entry @@ -2589,58 +2455,55 @@ solid1 entry ; Colours #$1111 - Green, Green, Green, Green (x16) ; - lda #$1111 - tcd ; Green, Green, Green, Green - txa - tcs - clc + ldx #$1111 ; Green, Green, Green, Green - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx _spriteFooter + rtl solid2 entry @@ -2648,58 +2511,55 @@ solid2 entry ; Colours #$2222 - Red, Red, Red, Red (x16) ; - lda #$2222 - tcd ; Red, Red, Red, Red - txa - tcs - clc + ldx #$2222 ; Red, Red, Red, Red - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx _spriteFooter + rtl solid3 entry @@ -2707,58 +2567,55 @@ solid3 entry ; Colours #$3333 - Off-white, Off-white, Off-white, Off-white (x16) ; - lda #$3333 - tcd ; Off-white, Off-white, Off-white, Off-white - txa - tcs - clc + ldx #$3333 ; Off-white, Off-white, Off-white, Off-white - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx adc #$00a0 tcs - phd - phd + phx + phx _spriteFooter + rtl number0 entry @@ -2771,16 +2628,11 @@ number0 entry ; #$2002 - Black, Red, Red, Black (x4) ; #$0002 - Black, Red, Black, Black (x2) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0022 ; Red, Red, Black, Black ldy #$2002 ; Black, Red, Red, Black - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -2825,6 +2677,7 @@ number0 entry pea $2200 _spriteFooter + rtl number1 entry @@ -2836,50 +2689,46 @@ number1 entry ; #$2202 - Black, Red, Red, Red (x1) ; #$2222 - Red, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$2200 ; Black, Black, Red, Red - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy pea $2202 adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx adc #$00a0 tcs - phd + phy phx adc #$00a0 @@ -2889,6 +2738,7 @@ number1 entry pea $2222 _spriteFooter + rtl number2 entry @@ -2903,16 +2753,11 @@ number2 entry ; #$0020 - Red, Black, Black, Black (x1) ; #$2222 - Red, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0022 ; Red, Red, Black, Black - ldy #$2022 ; Red, Red, Red, Black - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs @@ -2929,8 +2774,8 @@ number2 entry adc #$00a0 tcs + pea $2022 phy - phd adc #$00a0 tcs @@ -2947,16 +2792,17 @@ number2 entry adc #$00a0 tcs - phd phy + pea $2022 adc #$00a0 tcs - phy + pea $2022 pea $2222 _spriteFooter + rtl number3 entry @@ -2971,28 +2817,23 @@ number3 entry ; #$2200 - Black, Black, Red, Red (x1) ; #$2002 - Black, Red, Red, Black (x2) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0022 ; Red, Red, Black, Black - ldy #$2202 ; Black, Red, Red, Red - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd - - adc #$00a0 - tcs - - pea $2022 + phy phy adc #$00a0 tcs + pea $2022 + pea $2202 + + adc #$00a0 + tcs + phx - phd + phy adc #$00a0 tcs @@ -3010,7 +2851,7 @@ number3 entry tcs pea $2002 - phd + phy adc #$00a0 tcs @@ -3022,9 +2863,10 @@ number3 entry tcs phx - phy + pea $2202 _spriteFooter + rtl number4 entry @@ -3038,15 +2880,11 @@ number4 entry ; #$2222 - Red, Red, Red, Red (x1) ; #$2022 - Red, Red, Red, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0022 ; Red, Red, Black, Black - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs @@ -3082,15 +2920,16 @@ number4 entry tcs phx - phd + phy adc #$00a0 tcs phx - phd + phy _spriteFooter + rtl number5 entry @@ -3102,28 +2941,11 @@ number5 entry ; #$2002 - Black, Red, Red, Black (x3) ; #$2202 - Black, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0022 ; Red, Red, Black, Black - ldy #$2002 ; Black, Red, Red, Black - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd - - adc #$00a0 - tcs - - phx - pea $2222 - - adc #$00a0 - tcs - - phd - phx + phy + phy adc #$00a0 tcs @@ -3135,18 +2957,30 @@ number5 entry tcs phy - phd + phx adc #$00a0 tcs - phy - phd + phx + pea $2222 adc #$00a0 tcs + pea $2002 phy + + adc #$00a0 + tcs + + pea $2002 + phy + + adc #$00a0 + tcs + + pea $2002 phx adc #$00a0 @@ -3156,6 +2990,7 @@ number5 entry pea $2202 _spriteFooter + rtl number6 entry @@ -3168,16 +3003,11 @@ number6 entry ; #$2222 - Red, Red, Red, Red (x1) ; #$2202 - Black, Red, Red, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0022 ; Red, Red, Black, Black - ldy #$2002 ; Black, Red, Red, Black - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs @@ -3188,13 +3018,13 @@ number6 entry adc #$00a0 tcs - phd phy + pea $2002 adc #$00a0 tcs - phd + phy phx adc #$00a0 @@ -3206,13 +3036,13 @@ number6 entry adc #$00a0 tcs - phy + pea $2002 phx adc #$00a0 tcs - phy + pea $2002 phx adc #$00a0 @@ -3222,6 +3052,7 @@ number6 entry pea $2202 _spriteFooter + rtl number7 entry @@ -3236,16 +3067,11 @@ number7 entry ; #$0200 - Black, Black, Black, Red (x1) ; #$2200 - Black, Black, Red, Red (x3) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs - ldx #$0022 ; Red, Red, Black, Black + ldx #$0000 ; Black, Black, Black, Black ldy #$2200 ; Black, Black, Red, Red - clc - phd - phd + phx + phx adc #$00a0 tcs @@ -3257,13 +3083,13 @@ number7 entry tcs pea $2002 - phx + pea $0022 adc #$00a0 tcs + pea $0022 phx - phd adc #$00a0 tcs @@ -3274,22 +3100,23 @@ number7 entry adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy adc #$00a0 tcs - phd + phx phy _spriteFooter + rtl number8 entry @@ -3304,16 +3131,11 @@ number8 entry ; #$2002 - Black, Red, Red, Black (x1) ; #$0220 - Red, Black, Black, Red (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0020 ; Red, Black, Black, Black ldy #$2202 ; Black, Red, Red, Red - clc - phd - phd + pea $0000 + pea $0000 adc #$00a0 tcs @@ -3358,6 +3180,7 @@ number8 entry phy _spriteFooter + rtl number9 entry @@ -3370,22 +3193,17 @@ number9 entry ; #$2022 - Red, Red, Red, Black (x1) ; #$0020 - Red, Black, Black, Black (x1) ; - lda #$0000 - tcd ; Black, Black, Black, Black - txa - tcs ldx #$0022 ; Red, Red, Black, Black - ldy #$2202 ; Black, Red, Red, Red - clc + ldy #$0000 ; Black, Black, Black, Black - phd - phd + phy + phy adc #$00a0 tcs phx - phy + pea $2202 adc #$00a0 tcs @@ -3403,30 +3221,35 @@ number9 entry tcs pea $2022 - phy + pea $2202 adc #$00a0 tcs pea $2002 - phd + phy adc #$00a0 tcs phx - phd + phy adc #$00a0 tcs pea $0020 - phy + pea $2202 _spriteFooter + rtl flea1 entry + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -3442,15 +3265,6 @@ flea1 entry ; ....|..G.|G.G. ; ....|.G.G|...G ; - lda #$8888 - tcd ; Off-white, Off-white, Off-white, Off-white - dex - dex - dex - dex - txa - tcs - clc lda $1,s and #$00ff @@ -3490,8 +3304,8 @@ flea1 entry tsc adc #$00a4 tcs - phd - phd + pea $8888 + pea $8888 lda $9f,s and #$f0ff @@ -3538,9 +3352,14 @@ flea1 entry sta $a3,s _spriteFooter + rtl flea2 entry + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -3556,15 +3375,6 @@ flea2 entry ; ....|.G..|G..G ; ....|.G.G|..G. ; - lda #$8888 - tcd ; Off-white, Off-white, Off-white, Off-white - dex - dex - dex - dex - txa - tcs - clc lda $1,s and #$00ff @@ -3604,8 +3414,8 @@ flea2 entry tsc adc #$00a4 tcs - phd - phd + pea $8888 + pea $8888 lda $9f,s and #$f0ff @@ -3656,9 +3466,14 @@ flea2 entry sta $a3,s _spriteFooter + rtl flea3 entry + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -3674,15 +3489,6 @@ flea3 entry ; ....|..G.|.G.G ; ....|...G|..G. ; - lda #$8888 - tcd ; Off-white, Off-white, Off-white, Off-white - dex - dex - dex - dex - txa - tcs - clc lda $1,s and #$00ff @@ -3722,8 +3528,8 @@ flea3 entry tsc adc #$00a4 tcs - phd - phd + pea $8888 + pea $8888 lda $9f,s and #$f0ff @@ -3774,9 +3580,14 @@ flea3 entry sta $a3,s _spriteFooter + rtl flea4 entry + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -3792,16 +3603,6 @@ flea4 entry ; ....|..G.|.G.G ; ....|...G|.G.G ; - lda #$8888 - tcd ; Off-white, Off-white, Off-white, Off-white - dex - dex - dex - dex - txa - tcs - clc - lda $1,s and #$00ff ora #$8800 @@ -3840,8 +3641,8 @@ flea4 entry tsc adc #$00a4 tcs - phd - phd + pea $8888 + pea $8888 lda $9f,s and #$f0ff @@ -3888,6 +3689,7 @@ flea4 entry sta $a3,s _spriteFooter + rtl score300 entry @@ -3906,9 +3708,7 @@ score300 entry ; .OOO|.OOO|.OOO ; ....|....|.... ; - - clc - txa + tsc adc #$013a tcs @@ -3996,6 +3796,7 @@ score300 entry sta $5,s _spriteFooter + rtl score600 entry @@ -4015,8 +3816,7 @@ score600 entry ; ....|....|.... ; - clc - txa + tsc adc #$013a tcs @@ -4104,6 +3904,7 @@ score600 entry sta $5,s _spriteFooter + rtl score900 entry @@ -4122,9 +3923,8 @@ score900 entry ; .OOO|.OOO|.OOO ; ....|....|.... ; - - clc - txa + + tsc adc #$013a tcs @@ -4212,14 +4012,23 @@ score900 entry sta $5,s _spriteFooter + rtl -scorpion1 entry +left_scorpion1 entry + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader -; $d - Green -; $e - Red -; $f - Off-white +; $c - Green +; $4 - Red +; $8 - Off-white ; ; O.O.|.ROR|..O.|O... ; .O..|RROR|R..O|.... @@ -4230,20 +4039,7 @@ scorpion1 entry ; ....|.OOO|OOOO|OOOO ; ....|..OO|OOOO|OOO. ; - - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - ldx #$8444 ; Red, Red, Off-white, Red - clc lda $1,s and #$0f0f @@ -4270,21 +4066,74 @@ scorpion1 entry ora #$0008 sta $a1,s - tsc - adc #$a4 - tcs + lda #$8444 + sta $a3,s - phx - - lda $3,s + lda $a5,s and #$f00f ora #$0840 - sta $3,s + sta $a5,s - lda $9f,s + tsc + adc #$140 + tcs + + lda $1,s and #$0ff0 ora #$8008 - sta $9f,s + sta $1,s + + lda $3,s + and #$00f0 + ora #$8808 + sta $3,s + + lda $5,s + and #$00ff + ora #$8800 + sta $5,s + + lda $7,s + and #$00f0 + ora #$8808 + sta $7,s + + lda $a1,s + and #$00ff + ora #$8800 + sta $a1,s + + tya + sta $a3,s + + lda $a5,s + and #$0f00 + ora #$8088 + sta $a5,s + + lda $a7,s + and #$f0f0 + ora #$0808 + sta $a7,s + + tsc + adc #$142 + tcs + + lda $1,s + and #$00f0 + ora #$8808 + sta $1,s + + lda $3,s + and #$ff0f + ora #$0080 + sta $3,s + + lda $5,s + and #$f0ff + ora #$0800 + sta $5,s lda $a1,s and #$00f0 @@ -4292,108 +4141,54 @@ scorpion1 entry sta $a1,s lda $a3,s - and #$00ff - ora #$8800 - sta $a3,s - - lda $a5,s - and #$00f0 - ora #$8808 - sta $a5,s - - tsc - adc #$142 - tcs - - phy - - tsc - dec a - dec a - tcs - - lda $1,s - and #$00ff - ora #$8800 - sta $1,s - - lda $5,s - and #$0f00 - ora #$8088 - sta $5,s - - lda $7,s - and #$f0f0 - ora #$0808 - sta $7,s - - lda $a3,s - and #$00f0 - ora #$8808 - sta $a3,s - - lda $a5,s and #$ff0f ora #$0080 - sta $a5,s + sta $a3,s - lda $a7,s - and #$f0ff - ora #$0800 - sta $a7,s + lda $a5,s + and #$00ff + ora #$8800 + sta $a5,s tsc adc #$140 tcs - lda $3,s + lda $1,s and #$00f0 ora #$8808 - sta $3,s + sta $1,s - lda $5,s - and #$ff0f - ora #$0080 - sta $5,s - - lda $7,s + lda $a1,s and #$00ff ora #$8800 - sta $7,s + sta $a1,s - lda $a3,s - and #$00f0 - ora #$8808 - sta $a3,s - - tsc - adc #$a8 - tcs - - phy - phy - - lda $9f,s - and #$00ff - ora #$8800 - sta $9f,s - - lda $a3,s + lda $a5,s and #$0f00 ora #$8088 + sta $a5,s + + tya + sta $3,s + sta $5,s sta $a3,s - - tsc - adc #$a2 - tcs - - phy - _spriteFooter + rtl -scorpion1s entry +left_scorpion1s entry + dex + dex + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -4409,22 +4204,8 @@ scorpion1s entry ; ....|....|OOOO|OOOO|OOO. ; ....|....|.OOO|OOOO|OO.. ; - - dex - dex - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - ldx #$4448 ; Red, Off-white, Red, Red - clc lda $1,s and #$f0ff @@ -4451,73 +4232,68 @@ scorpion1s entry ora #$0480 sta $a3,s + lda #$4448 + sta $a5,s + lda $a7,s and #$0fff ora #$8000 sta $a7,s - tsc - adc #$a6 - tcs - - phx - - lda $9f,s - and #$ff00 - ora #$0088 - sta $9f,s - - lda $a1,s - and #$0f00 - ora #$8088 - sta $a1,s - - lda $a3,s - and #$0ff0 - ora #$8008 - sta $a3,s - - lda $a5,s - and #$0f00 - ora #$8088 - sta $a5,s - tsc adc #$142 tcs - phy - - tsc - dec a - dec a - tcs - lda $1,s - and #$00f0 - ora #$8808 - sta $1,s - - lda $5,s and #$ff00 ora #$0088 + sta $1,s + + lda $3,s + and #$0f00 + ora #$8088 + sta $3,s + + lda $5,s + and #$0ff0 + ora #$8008 sta $5,s lda $7,s - and #$0f0f - ora #$8080 + and #$0f00 + ora #$8088 sta $7,s + lda $a1,s + and #$00f0 + ora #$8808 + sta $a1,s + + tya + sta $a3,s + + lda $a5,s + and #$ff00 + ora #$0088 + sta $a5,s + lda $a7,s - and #$0fff - ora #$8000 + and #$0f0f + ora #$8080 sta $a7,s tsc - adc #$a4 + adc #$142 tcs - phy + tya + sta $1,s + sta $a1,s + + lda $5,s + and #$0fff + ora #$8000 + sta $5,s lda $a5,s and #$0ff0 @@ -4525,22 +4301,13 @@ scorpion1s entry sta $a5,s tsc - adc #$a2 + adc #$140 tcs - phy - - lda $a5,s + lda $5,s and #$0f00 ora #$8088 - sta $a5,s - - tsc - adc #$a4 - tcs - - phy - phy + sta $5,s lda $a1,s and #$00f0 @@ -4552,16 +4319,24 @@ scorpion1s entry ora #$0088 sta $a5,s - tsc - adc #$a4 - tcs - - phy + tya + sta $1,s + sta $3,s + sta $a3,s _spriteFooter + rtl -scorpion2 entry +left_scorpion2 entry + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -4578,19 +4353,7 @@ scorpion2 entry ; ....|..OO|OOOO|O... ; - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - ldx #$8444 ; Red, Red, Off-white, Red - clc lda $1,s and #$0f0f @@ -4617,44 +4380,21 @@ scorpion2 entry ora #$0008 sta $a1,s - tsc - adc #$a4 - tcs - - phx - - lda $3,s - and #$f00f - ora #$0840 - sta $3,s - - lda $9f,s - and #$0ff0 - ora #$8008 - sta $9f,s - - lda $a1,s - and #$00f0 - ora #$8808 - sta $a1,s - - lda $a3,s - and #$00ff - ora #$8800 + lda #$8444 sta $a3,s lda $a5,s - and #$00f0 - ora #$8808 + and #$f00f + ora #$0840 sta $a5,s tsc - adc #$13e + adc #$140 tcs lda $1,s - and #$00ff - ora #$8800 + and #$0ff0 + ora #$8008 sta $1,s lda $3,s @@ -4663,55 +4403,69 @@ scorpion2 entry sta $3,s lda $5,s - and #$0ff0 - ora #$8008 + and #$00ff + ora #$8800 sta $5,s lda $7,s - and #$f0f0 - ora #$0808 + and #$00f0 + ora #$8808 sta $7,s lda $a1,s - and #$f0ff - ora #$0800 + and #$00ff + ora #$8800 sta $a1,s + lda $a3,s + and #$00f0 + ora #$8808 + sta $a3,s + lda $a5,s - and #$ff00 - ora #$0088 + and #$0ff0 + ora #$8008 sta $a5,s lda $a7,s - and #$fff0 - ora #$0008 + and #$f0f0 + ora #$0808 sta $a7,s tsc - adc #$a4 + adc #$140 tcs - phy + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s - lda $a1,s - and #$00f0 - ora #$8808 - sta $a1,s + tya + sta $3,s - lda $a5,s + lda $5,s and #$ff00 ora #$0088 - sta $a5,s + sta $5,s + + lda $7,s + and #$fff0 + ora #$0008 + sta $7,s + + lda $a3,s + and #$00f0 + ora #$8808 + sta $a3,s + + lda $a7,s + and #$ff00 + ora #$0088 + sta $a7,s tsc - adc #$144 - tcs - - phy - - tsc - dec a - dec a + adc #$142 tcs lda $1,s @@ -4734,16 +4488,25 @@ scorpion2 entry ora #$0080 sta $a5,s - tsc - adc #$a4 - tcs - - phy + tya + sta $3,s + sta $a3,s _spriteFooter + rtl -scorpion2s entry +left_scorpion2s entry + dex + dex + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -4759,22 +4522,7 @@ scorpion2s entry ; ....|....|OOOO|OOOO|O... ; ....|....|.OOO|OOOO|.... ; - - dex - dex - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - ldx #$4448 ; Red, Off-white, Red, Red - clc lda $1,s and #$f0ff @@ -4801,44 +4549,21 @@ scorpion2s entry ora #$0480 sta $a3,s + lda #$4448 + sta $a5,s + lda $a7,s and #$0fff ora #$8000 sta $a7,s tsc - adc #$a6 - tcs - - phx - - lda $9f,s - and #$ff00 - ora #$0088 - sta $9f,s - - lda $a1,s - and #$0f00 - ora #$8088 - sta $a1,s - - lda $a3,s - and #$0ff0 - ora #$8008 - sta $a3,s - - lda $a5,s - and #$0f00 - ora #$8088 - sta $a5,s - - tsc - adc #$13e + adc #$142 tcs lda $1,s - and #$0ff0 - ora #$8008 + and #$ff00 + ora #$0088 sta $1,s lda $3,s @@ -4847,23 +4572,65 @@ scorpion2s entry sta $3,s lda $5,s - and #$ff00 - ora #$0088 + and #$0ff0 + ora #$8008 sta $5,s lda $7,s - and #$0f0f - ora #$8080 + and #$0f00 + ora #$8088 sta $7,s lda $a1,s - and #$00ff - ora #$8800 + and #$0ff0 + ora #$8008 sta $a1,s + lda $a3,s + and #$0f00 + ora #$8088 + sta $a3,s + lda $a5,s + and #$ff00 + ora #$0088 + sta $a5,s + + lda $a7,s + and #$0f0f + ora #$8080 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00ff + ora #$8800 + sta $1,s + + tya + sta $3,s + + lda $5,s and #$ff0f ora #$0080 + sta $5,s + + lda $7,s + and #$ff0f + ora #$0080 + sta $7,s + + lda $a3,s + and #$0f00 + ora #$8088 + sta $a3,s + + lda $a5,s + and #$f0ff + ora #$0800 sta $a5,s lda $a7,s @@ -4872,33 +4639,9 @@ scorpion2s entry sta $a7,s tsc - adc #$a4 + adc #$142 tcs - phy - - lda $a1,s - and #$0f00 - ora #$8088 - sta $a1,s - - lda $a3,s - and #$f0ff - ora #$0800 - sta $a3,s - - lda $a5,s - and #$ff0f - ora #$0080 - sta $a5,s - - tsc - adc #$144 - tcs - - phy - phy - lda $5,s and #$ff0f ora #$0080 @@ -4909,16 +4652,24 @@ scorpion2s entry ora #$8808 sta $a1,s - tsc - adc #$a4 - tcs - - phy + tya + sta $1,s + sta $3,s + sta $a3,s _spriteFooter + rtl -scorpion3 entry +left_scorpion3 entry + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -4934,20 +4685,7 @@ scorpion3 entry ; ....|OOOO|OOOO|..O. ; ....|.OOO|OOO.|.... ; - - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - ldx #$4448 ; Red, Off-white, Red, Red - clc lda $1,s and #$0f0f @@ -4969,21 +4707,69 @@ scorpion3 entry ora #$0408 sta $a1,s - tsc - adc #$a4 - tcs + lda #$4448 + sta $a3,s - phx - - lda $3,s + lda $a5,s and #$fff0 ora #$0008 - sta $3,s + sta $a5,s - lda $9f,s + tsc + adc #$140 + tcs + + lda $1,s and #$0ff0 ora #$8008 - sta $9f,s + sta $1,s + + lda $3,s + and #$0f00 + ora #$8088 + sta $3,s + + lda $5,s + and #$ff00 + ora #$0088 + sta $5,s + + lda $7,s + and #$00ff + ora #$8800 + sta $7,s + + lda $a1,s + and #$00ff + ora #$8800 + sta $a1,s + + tya + sta $a3,s + + lda $a5,s + and #$ff0f + ora #$0080 + sta $a5,s + + lda $a7,s + and #$f0f0 + ora #$0808 + sta $a7,s + + tsc + adc #$142 + tcs + + lda $1,s + and #$0f00 + ora #$8088 + sta $1,s + + lda $5,s + and #$f000 + ora #$0888 + sta $5,s lda $a1,s and #$0f00 @@ -4991,81 +4777,23 @@ scorpion3 entry sta $a1,s lda $a3,s - and #$ff00 - ora #$0088 + and #$00ff + ora #$8800 sta $a3,s lda $a5,s - and #$00ff - ora #$8800 + and #$f00f + ora #$0880 sta $a5,s - tsc - adc #$142 - tcs - - phy - - tsc - dec a - dec a - tcs - - lda $1,s - and #$00ff - ora #$8800 - sta $1,s - - lda $5,s - and #$ff0f - ora #$0080 - sta $5,s - - lda $7,s - and #$f0f0 - ora #$0808 - sta $7,s - - lda $a3,s - and #$0f00 - ora #$8088 - sta $a3,s - - lda $a7,s - and #$f000 - ora #$0888 - sta $a7,s - tsc adc #$140 tcs - lda $3,s - and #$0f00 - ora #$8088 - sta $3,s - lda $5,s - and #$00ff - ora #$8800 - sta $5,s - - lda $7,s - and #$f00f - ora #$0880 - sta $7,s - - lda $a7,s and #$0fff ora #$8000 - sta $a7,s - - tsc - adc #$a6 - tcs - - phy - phy + sta $5,s lda $a1,s and #$00f0 @@ -5077,10 +4805,25 @@ scorpion3 entry ora #$8088 sta $a3,s + tya + sta $1,s + sta $3,s + _spriteFooter + rtl -scorpion3s entry +left_scorpion3s entry + dex + dex + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -5096,21 +4839,7 @@ scorpion3s entry ; ....|...O|OOOO|OOO.|.O.. ; ....|....|OOOO|OO..|.... ; - - dex - dex - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - clc lda $1,s and #$f0ff @@ -5176,39 +4905,16 @@ scorpion3s entry ora #$8808 sta $a1,s + tya + sta $a3,s + lda $a7,s and #$0f0f ora #$8080 sta $a7,s tsc - adc #$a4 - tcs - - phy - - lda $9f,s - and #$f0ff - ora #$0800 - sta $9f,s - - lda $a1,s - and #$ff00 - ora #$0088 - sta $a1,s - - lda $a3,s - and #$f0ff - ora #$0800 - sta $a3,s - - lda $a5,s - and #$0f0f - ora #$8080 - sta $a5,s - - tsc - adc #$13e + adc #$140 tcs lda $1,s @@ -5218,17 +4924,17 @@ scorpion3s entry lda $3,s and #$ff00 - ora #$088 + ora #$0088 sta $3,s lda $5,s - and #$00f0 - ora #$8808 + and #$f0ff + ora #$0800 sta $5,s lda $7,s - and #$0fff - ora #$8000 + and #$0f0f + ora #$8080 sta $7,s lda $a1,s @@ -5236,37 +4942,62 @@ scorpion3s entry ora #$0800 sta $a1,s + lda $a3,s + and #$ff00 + ora #$088 + sta $a3,s + lda $a5,s - and #$0f00 - ora #$8088 + and #$00f0 + ora #$8808 sta $a5,s lda $a7,s - and #$fff0 - ora #$0008 + and #$0fff + ora #$8000 sta $a7,s tsc - adc #$a4 + adc #$140 tcs - phy + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s - lda $a3,s + lda $5,s + and #$0f00 + ora #$8088 + sta $5,s + + lda $7,s + and #$fff0 + ora #$0008 + sta $7,s + + lda $a5,s and #$ff00 ora #$0088 + sta $a5,s + + tya + sta $3,s sta $a3,s - tsc - adc #$a2 - tcs - - phy - _spriteFooter + rtl -scorpion4 entry +left_scorpion4 entry + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader ; $c - Green @@ -5283,19 +5014,7 @@ scorpion4 entry ; ....|.OOO|OOOO|OOO. ; - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - ldx #$4448 ; Red, Off-white, Red, Red - clc lda $1,s and #$0f0f @@ -5317,56 +5036,68 @@ scorpion4 entry ora #$0408 sta $a1,s - tsc - adc #$a4 - tcs - - phx - - lda $3,s - and #$fff0 - ora #$0008 - sta $3,s - - lda $5,s - and #$ff0f - ora #$0080 - sta $5,s - - lda $9f,s - and #$0ff0 - ora #$8008 - sta $9f,s - - lda $a1,s - and #$0f00 - ora #$8088 - sta $a1,s - - lda $a3,s - and #$f000 - ora #$0888 + lda #$4448 sta $a3,s lda $a5,s + and #$fff0 + ora #$0008 + sta $a5,s + + lda $a7,s + and #$ff0f + ora #$0080 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s and #$0ff0 ora #$8008 + sta $1,s + + lda $3,s + and #$0f00 + ora #$8088 + sta $3,s + + lda $5,s + and #$f000 + ora #$0888 + sta $5,s + + lda $7,s + and #$0ff0 + ora #$8008 + sta $7,s + + lda $a1,s + and #$00ff + ora #$8800 + sta $a1,s + + tya + sta $a3,s + + lda $a5,s + and #$f00f + ora #$0880 sta $a5,s + lda $a7,s + and #$00ff + ora #$8800 + sta $a7,s + tsc adc #$142 tcs - phy - - tsc - dec a - dec a - tcs - lda $1,s - and #$00ff - ora #$8800 + and #$0f00 + ora #$8088 sta $1,s lda $5,s @@ -5374,37 +5105,18 @@ scorpion4 entry ora #$0880 sta $5,s - lda $7,s - and #$00ff - ora #$8800 - sta $7,s - - lda $a3,s + lda $a1,s and #$0f00 ora #$8088 - sta $a3,s + sta $a1,s - lda $a7,s - and #$f00f - ora #$0880 - sta $a7,s - - tsc - adc #$140 - tcs - - lda $3,s - and #$0f00 - ora #$8088 - sta $3,s - - lda $7,s + lda $a5,s and #$f0ff ora #$0800 - sta $7,s + sta $a5,s tsc - adc #$a8 + adc #$146 tcs phy @@ -5416,26 +5128,34 @@ scorpion4 entry ora #$8808 sta $a1,s + tya + sta $a3,s + lda $a5,s and #$0f00 ora #$8088 sta $a5,s - tsc - adc #$a4 - tcs - - phy - _spriteFooter + rtl -scorpion4s entry +left_scorpion4s entry + dex + dex + dex + dex + dex + dex + dex + dex + dex + dex _spriteHeader -; $d c - Green -; $e 4 - Red -; $f 8 - Off-white +; $c - Green +; $4 - Red +; $8 - Off-white ; ; ...O|.O.R|OR.O|.O..|.... ; ....|O.RR|ORR.|O..O|.... @@ -5446,21 +5166,8 @@ scorpion4s entry ; ....|...O|OOOO|OOOO|OOO. ; ....|....|OOOO|OOOO|OO.. ; - - dex - dex - dex - dex - dex - dex - dex - dex - dex - dex - txa - tcs + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white - clc lda $1,s and #$f0ff @@ -5526,6 +5233,9 @@ scorpion4s entry ora #$8808 sta $a1,s + tya + sta $a3,s + lda $a5,s and #$0fff ora #$8000 @@ -5537,33 +5247,7 @@ scorpion4s entry sta $a7,s tsc - adc #$a4 - tcs - - phy - - lda $9f,s - and #$f0ff - ora #$0800 - sta $9f,s - - lda $a1,s - and #$ff00 - ora #$0088 - sta $a1,s - - lda $a3,s - and #$f0ff - ora #$0800 - sta $a3,s - - lda $a5,s - and #$0fff - ora #$8000 - sta $a5,s - - tsc - adc #$13e + adc #$140 tcs lda $1,s @@ -5576,6 +5260,11 @@ scorpion4s entry ora #$0088 sta $3,s + lda $5,s + and #$f0ff + ora #$0800 + sta $5,s + lda $7,s and #$0fff ora #$8000 @@ -5586,31 +5275,1066 @@ scorpion4s entry ora #$0800 sta $a1,s + lda $a3,s + and #$ff00 + ora #$0088 + sta $a3,s + lda $a7,s - and #$0f00 - ora #$8088 + and #$0fff + ora #$8000 sta $a7,s tsc - adc #$a6 + adc #$140 tcs - phy - phy + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s - tsc - adc #$a4 - tcs + lda $7,s + and #$0f00 + ora #$8088 + sta $7,s - phy - phy - - lda $5,s + lda $a7,s and #$ff00 ora #$0088 + sta $a7,s + + tya + sta $3,s sta $5,s + sta $a3,s + sta $a5,s _spriteFooter + rtl + + +right_scorpion1 entry + dex + dex + dex + dex + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ...O|.O..|ROR.|.O.O +; ....|O..R|RORR|..O. +; OOO.|OO..|OOO.|.OO. +; O.O.|.OOO|OOOO|OO.. +; O...|...O|OOO.|.... +; OO..|...O|OOO.|.... +; OOOO|OOOO|OOO.|.... +; .OOO|OOOO|OO..|.... +; + + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $3,s + and #$fff0 + ora #$0008 + sta $3,s + + lda $5,s + and #$0f00 + ora #$4048 + sta $5,s + + lda $7,s + and #$f0f0 + ora #$0808 + sta $7,s + + lda $a3,s + and #$f00f + ora #$0480 + sta $a3,s + + lda #$4448 + sta $a5,s + + lda $a7,s + and #$0fff + ora #$8000 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$0f00 + ora #$8088 + sta $1,s + + lda $3,s + and #$ff00 + ora #$0088 + sta $3,s + + lda $5,s + and #$0f00 + ora #$8088 + sta $5,s + + lda $7,s + and #$0ff0 + ora #$8008 + sta $7,s + + lda $a1,s + and #$0f0f + ora #$8080 + sta $a1,s + + lda $a3,s + and #$00f0 + ora #$8808 + sta $a3,s + + tya + sta $a5,s + + lda $a7,s + and #$ff00 + ora #$0088 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$ff0f + ora #$0080 + sta $1,s + + lda $3,s + and #$f0ff + ora #$0800 + sta $3,s + + lda $5,s + and #$0f00 + ora #$8088 + sta $5,s + + lda $a1,s + and #$ff00 + ora #$0088 + sta $a1,s + + lda $a3,s + and #$f0ff + ora #$0800 + sta $a3,s + + lda $a5,s + and #$0f00 + ora #$8088 + sta $a5,s + + tsc + adc #$144 + tcs + + phy + phy + + lda $5,s + and #$0f00 + ora #$8088 + sta $5,s + + lda $a1,s + and #$00f0 + ora #$8808 + sta $a1,s + + tya + sta $a3,s + + lda $a5,s + and #$ff00 + ora #$0088 + sta $a5,s + + _spriteFooter + rtl + + +right_scorpion1s entry + dex + dex + dex + dex + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|..O.|O..R|OR..|O.O. +; ....|...O|..RR|ORR.|.O.. +; ...O|OO.O|O..O|OO..|OO.. +; ...O|.O..|OOOO|OOOO|O... +; ...O|....|..OO|OO..|.... +; ...O|O...|..OO|OO..|.... +; ...O|OOOO|OOOO|OO..|.... +; ....|OOOO|OOOO|O...|.... +; + + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + lda $3,s + and #$f00f + ora #$0480 + sta $3,s + + lda $5,s + and #$ff00 + ora #$0084 + sta $5,s + + lda $7,s + and #$0f0f + ora #$8080 + sta $7,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a3,s + and #$00ff + ora #$4400 + sta $a3,s + + lda $a5,s + and #$0f00 + ora #$4084 + sta $a5,s + + lda $a7,s + and #$fff0 + ora #$0008 + sta $a7,s + + tsc + adc #$13e + tcs + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $3,s + and #$f000 + ora #$0888 + sta $3,s + + lda $5,s + and #$f00f + ora #$0880 + sta $5,s + + lda $7,s + and #$ff00 + ora #$0088 + sta $7,s + + lda $9,s + and #$ff00 + ora #$0088 + sta $9,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a3,s + and #$fff0 + ora #$0008 + sta $a3,s + + tya + sta $a5,s + sta $a7,s + + lda $a9,s + and #$ff0f + ora #$0080 + sta $a9,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $5,s + and #$00ff + ora #$8800 + sta $5,s + + lda $7,s + and #$ff00 + ora #$0088 + sta $7,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a3,s + and #$ff0f + ora #$0080 + sta $a3,s + + lda $a5,s + and #$00ff + ora #$8800 + sta $a5,s + + lda $a7,s + and #$ff00 + ora #$0088 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $7,s + and #$ff00 + ora #$0088 + sta $7,s + + lda $a7,s + and #$ff0f + ora #$0080 + sta $a7,s + + tya + sta $3,s + sta $5,s + sta $a3,s + sta $a5,s + + _spriteFooter + rtl + + +right_scorpion2 entry + dex + dex + dex + dex + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ...O|.O..|ROR.|.O.O +; ....|O..R|RORR|..O. +; OOO.|OO..|OOO.|.OO. +; O.O.|.OO.|OOO.|OO.. +; ..O.|..OO|OOOO|O... +; ..OO|....|OOO.|.... +; ..OO|OOOO|OOO.|.... +; ...O|OOOO|OO..|.... +; + + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $3,s + and #$fff0 + ora #$0008 + sta $3,s + + lda $5,s + and #$0f00 + ora #$4048 + sta $5,s + + lda $7,s + and #$f0f0 + ora #$0808 + sta $7,s + + lda $a3,s + and #$f00f + ora #$0480 + sta $a3,s + + lda #$4448 + sta $a5,s + + lda $a7,s + and #$0fff + ora #$8000 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$0f00 + ora #$8088 + sta $1,s + + lda $3,s + and #$ff00 + ora #$0088 + sta $3,s + + lda $5,s + and #$0f00 + ora #$8088 + sta $5,s + + lda $7,s + and #$0ff0 + ora #$8008 + sta $7,s + + lda $a1,s + and #$0f0f + ora #$8080 + sta $a1,s + + lda $a3,s + and #$0ff0 + ora #$8008 + sta $a3,s + + lda $a5,s + and #$0f00 + ora #$8088 + sta $a5,s + + lda $a7,s + and #$ff00 + ora #$0088 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + lda $3,s + and #$00ff + ora #$8800 + sta $3,s + + tya + sta $5,s + + lda $7,s + and #$ff0f + ora #$0080 + sta $7,s + + lda $a1,s + and #$00ff + ora #$8800 + sta $a1,s + + lda $a5,s + and #$0f00 + ora #$8088 + sta $a5,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00ff + ora #$8800 + sta $1,s + + lda $5,s + and #$0f00 + ora #$8088 + sta $5,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a5,s + and #$ff00 + ora #$0088 + sta $a5,s + + tya + sta $3,s + sta $a3,s + + _spriteFooter + rtl + + +right_scorpion2s entry + dex + dex + dex + dex + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|..O.|O..R|OR..|O.O. +; ....|...O|..RR|ORR.|.O.. +; ...O|OO.O|O..O|OO..|OO.. +; ...O|.O..|OO.O|OO.O|O... +; ....|.O..|.OOO|OOOO|.... +; ....|.OO.|...O|OO..|.... +; ....|.OOO|OOOO|OO..|.... +; ....|..OO|OOOO|O...|.... +; + + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white + + lda $1,s + and #$0fff + ora #$8000 + sta $1,s + + lda $3,s + and #$f00f + ora #$0480 + sta $3,s + + lda $5,s + and #$ff00 + ora #$0084 + sta $5,s + + lda $7,s + and #$0f0f + ora #$8080 + sta $7,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a3,s + and #$00ff + ora #$4400 + sta $a3,s + + lda $a5,s + and #$0f00 + ora #$4084 + sta $a5,s + + lda $a7,s + and #$fff0 + ora #$0008 + sta $a7,s + + tsc + adc #$13e + tcs + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $3,s + and #$f000 + ora #$0888 + sta $3,s + + lda $5,s + and #$f00f + ora #$0880 + sta $5,s + + lda $7,s + and #$ff00 + ora #$0088 + sta $7,s + + lda $9,s + and #$ff00 + ora #$0088 + sta $9,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a3,s + and #$fff0 + ora #$0008 + sta $a3,s + + lda $a5,s + and #$f000 + ora #$0888 + sta $a5,s + + lda $a7,s + and #$f000 + ora #$0888 + sta $a7,s + + lda $a9,s + and #$ff0f + ora #$0080 + sta $a9,s + + tsc + adc #$142 + tcs + + lda $1,s + and #$fff0 + ora #$0008 + sta $1,s + + lda $3,s + and #$00f0 + ora #$8808 + sta $3,s + + tya + sta $5,s + + lda $a1,s + and #$0ff0 + ora #$8008 + sta $a1,s + + lda $a3,s + and #$f0ff + ora #$0800 + sta $a3,s + + lda $a5,s + and #$ff00 + ora #$0088 + sta $a5,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$00f0 + ora #$8808 + sta $1,s + + lda $5,s + and #$ff00 + ora #$0088 + sta $5,s + + lda $a1,s + and #$00ff + ora #$8800 + sta $a1,s + + lda $a5,s + and #$ff0f + ora #$0080 + sta $a5,s + + tya + sta $3,s + sta $a3,s + + _spriteFooter + rtl + + +right_scorpion3 entry + dex + dex + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|.O.O|.ROR|.O.O +; ....|..O.|RROR|R.O. +; OOO.|..OO|.OOO|.OO. +; O.O.|...O|OOOO|OO.. +; O.OO|....|.OOO|.... +; O..O|OO..|.OOO|.... +; .O..|OOOO|OOOO|.... +; ....|.OOO|OOO.|.... +; + + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white + + lda $1,s + and #$f0f0 + ora #$0808 + sta $1,s + + lda $3,s + and #$00f0 + ora #$8404 + sta $3,s + + lda $5,s + and #$f0f0 + ora #$0808 + sta $5,s + + lda $a1,s + and #$0fff + ora #$8000 + sta $a1,s + + lda #$8444 + sta $a3,s + + lda $a5,s + and #$0f0f + ora #$8040 + sta $a5,s + + tsc + adc #$13e + tcs + + lda $1,s + and #$0f00 + ora #$8088 + sta $1,s + + lda $3,s + and #$00ff + ora #$8800 + sta $3,s + + lda $5,s + and #$00f0 + ora #$8808 + sta $5,s + + lda $7,s + and #$0ff0 + ora #$8008 + sta $7,s + + lda $a1,s + and #$0f0f + ora #$8080 + sta $a1,s + + lda $a3,s + and #$f0ff + ora #$0800 + sta $a3,s + + tya + sta $a5,s + + lda $a7,s + and #$ff00 + ora #$0088 + sta $a7,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$000f + ora #$8880 + sta $1,s + + lda $5,s + and #$00f0 + ora #$8808 + sta $5,s + + lda $a1,s + and #$f00f + ora #$0880 + sta $a1,s + + lda $a3,s + and #$ff00 + ora #$0088 + sta $a3,s + + lda $a5,s + and #$00f0 + ora #$8808 + sta $a5,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$fff0 + ora #$0008 + sta $1,s + + lda $a3,s + and #$00f0 + ora #$8808 + sta $a3,s + + lda $a5,s + and #$0f00 + ora #$8088 + sta $a5,s + + tya + sta $3,s + sta $5,s + + _spriteFooter + rtl + + +right_scorpion3s entry + dex + dex + dex + dex + dex + dex + _spriteHeader + +; $c - Green +; $4 - Red +; $8 - Off-white +; +; ....|....|O.O.|ROR.|O.O. +; ....|....|.O.R|RORR|.O.. +; ...O|OO..|.OO.|OOO.|OO.. +; ...O|.O..|..OO|OOOO|O... +; ...O|.OO.|....|OOO.|.... +; ...O|..OO|O...|OOO.|.... +; ....|O..O|OOOO|OOO.|.... +; ....|....|OOOO|OO..|.... +; + + ldy #$8888 ; Off-white, Off-white, Off-white, Off-white + + lda $1,s + and #$0f0f + ora #$8080 + sta $1,s + + lda $3,s + and #$0f00 + ora #$4048 + sta $3,s + + lda $5,s + and #$0f0f + ora #$8080 + sta $5,s + + lda $a1,s + and #$f0f0 + ora #$0408 + sta $a1,s + + lda #$4448 + sta $a3,s + + lda $a5,s + and #$fff0 + ora #$0008 + sta $a5,s + + tsc + adc #$13c + tcs + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $3,s + and #$ff00 + ora #$0088 + sta $3,s + + lda $5,s + and #$0ff0 + ora #$8008 + sta $5,s + + lda $7,s + and #$0f00 + ora #$8088 + sta $7,s + + lda $9,s + and #$ff00 + ora #$0088 + sta $9,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a3,s + and #$fff0 + ora #$0008 + sta $a3,s + + lda $a5,s + and #$00ff + ora #$8800 + sta $a5,s + + tya + sta $a7,s + + lda $a9,s + and #$ff0f + ora #$0080 + sta $a9,s + + tsc + adc #$140 + tcs + + lda $1,s + and #$f0ff + ora #$0800 + sta $1,s + + lda $3,s + and #$0ff0 + ora #$8008 + sta $3,s + + lda $7,s + and #$0f00 + ora #$8088 + sta $7,s + + lda $a1,s + and #$f0ff + ora #$0800 + sta $a1,s + + lda $a3,s + and #$00ff + ora #$8800 + sta $a3,s + + lda $a5,s + and #$ff0f + ora #$0080 + sta $a5,s + + lda $a7,s + and #$0f00 + ora #$8088 + sta $a7,s + + tsc + adc #$142 + tcs + + lda $1,s + and #$f00f + ora #$0880 + sta $1,s + + lda $5,s + and #$0f00 + ora #$8088 + sta $5,s + + lda $a5,s + and #$ff00 + ora #$0088 + sta $a5,s + + tya + sta $3,s + sta $a3,s + + _spriteFooter + rtl backupStack dc i2'0'