Apple-2gs-SW
/
BuGS
mirror of https://github.com/jeremysrand/BuGS.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Add some more sprites for the scorpion.

This commit is contained in:
Jeremy Rand 2020-06-23 01:52:06 -04:00
parent 964da82807
commit e34ea58cc1
2 changed files with 363 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
BuGS/game.s
View File

@ -210,6 +210,12 @@ game start
ldx #$3e1b
jsl scorpion1s
ldx #$3e2b
jsl scorpion2
ldx #$3e3b
jsl scorpion2s
jsl waitForKey
rtl

357
BuGS/sprites.s
View File

@ -4581,6 +4581,363 @@ scorpion1s entry
_spriteFooter
scorpion2 entry
_spriteHeader
; $d - Green
; $e - Red
; $f - Off-white
;
; O.O.|.ROR|..O.|O...
; .O..|RROR|R..O|....
; .OO.|.OOO|..OO|.OOO
; ..OO|.OOO|.OO.|.O.O
; ...O|OOOO|OO..|.O..
; ....|.OOO|....|OO..
; ....|.OOO|OOOO|OO..
; ....|..OO|OOOO|O...
;
dex
dex
dex
dex
dex
dex
dex
dex
txa
tcs
ldy #$ffff ; Off-white, Off-white, Off-white, Off-white
ldx #$feee ; Red, Red, Off-white, Red
clc
lda $1,s
and #$0f0f
ora #$f0f0
sta $1,s
lda $3,s
and #$00f0
ora #$fe0e
sta $3,s
lda $5,s
and #$0fff
ora #$f000
sta $5,s
lda $7,s
and #$ff0f
ora #$00f0
sta $7,s
lda $a1,s
and #$fff0
ora #$000f
sta $a1,s
tsc
adc #$a4
tcs
phx
lda $3,s
and #$f00f
ora #$0fe0
sta $3,s
lda $9f,s
and #$0ff0
ora #$f00f
sta $9f,s
lda $a1,s
and #$00f0
ora #$ff0f
sta $a1,s
lda $a3,s
and #$00ff
ora #$ff00
sta $a3,s
lda $a5,s
and #$00f0
ora #$ff0f
sta $a5,s
tsc
adc #$13e
tcs
lda $1,s
and #$00ff
ora #$ff00
sta $1,s
lda $3,s
and #$00f0
ora #$ff0f
sta $3,s
lda $5,s
and #$0ff0
ora #$f00f
sta $5,s
lda $7,s
and #$f0f0
ora #$0f0f
sta $7,s
lda $a1,s
and #$f0ff
ora #$0f00
sta $a1,s
lda $a5,s
and #$ff00
ora #$00ff
sta $a5,s
lda $a7,s
and #$fff0
ora #$000f
sta $a7,s
tsc
adc #$a4
tcs
phy
lda $a1,s
and #$00f0
ora #$ff0f
sta $a1,s
lda $a5,s
and #$ff00
ora #$00ff
sta $a5,s
tsc
adc #$144
tcs
phy
tsc
dec a
dec a
tcs
lda $1,s
and #$00f0
ora #$ff0f
sta $1,s
lda $5,s
and #$ff00
ora #$00ff
sta $5,s
lda $a1,s
and #$00ff
ora #$ff00
sta $a1,s
lda $a5,s
and #$ff0f
ora #$00f0
sta $a5,s
tsc
adc #$a4
tcs
phy
_spriteFooter
scorpion2s entry
_spriteHeader
; $d - Green
; $e - Red
; $f - Off-white
;
; ...O|.O..|ROR.|.O.O|....
; ....|O..R|RORR|..O.|....
; ....|OO..|OOO.|.OO.|OOO.
; ....|.OO.|OOO.|OO..|O.O.
; ....|..OO|OOOO|O...|O...
; ....|....|OOO.|...O|O...
; ....|....|OOOO|OOOO|O...
; ....|....|.OOO|OOOO|....
;
dex
dex
dex
dex
dex
dex
dex
dex
dex
dex
txa
tcs
ldy #$ffff ; Off-white, Off-white, Off-white, Off-white
ldx #$eeef ; Red, Off-white, Red, Red
clc
lda $1,s
and #$f0ff
ora #$0f00
sta $1,s
lda $3,s
and #$fff0
ora #$000f
sta $3,s
lda $5,s
and #$0f00
ora #$e0ef
sta $5,s
lda $7,s
and #$f0f0
ora #$0f0f
sta $7,s
lda $a3,s
and #$f00f
ora #$0ef0
sta $a3,s
lda $a7,s
and #$0fff
ora #$f000
sta $a7,s
tsc
adc #$a6
tcs
phx
lda $9f,s
and #$ff00
ora #$00ff
sta $9f,s
lda $a1,s
and #$0f00
ora #$f0ff
sta $a1,s
lda $a3,s
and #$0ff0
ora #$f00f
sta $a3,s
lda $a5,s
and #$0f00
ora #$f0ff
sta $a5,s
tsc
adc #$13e
tcs
lda $1,s
and #$0ff0
ora #$f00f
sta $1,s
lda $3,s
and #$0f00
ora #$f0ff
sta $3,s
lda $5,s
and #$ff00
ora #$00ff
sta $5,s
lda $7,s
and #$0f0f
ora #$f0f0
sta $7,s
lda $a1,s
and #$00ff
ora #$ff00
sta $a1,s
lda $a5,s
and #$ff0f
ora #$00f0
sta $a5,s
lda $a7,s
and #$ff0f
ora #$00f0
sta $a7,s
tsc
adc #$a4
tcs
phy
lda $a1,s
and #$0f00
ora #$f0ff
sta $a1,s
lda $a3,s
and #$f0ff
ora #$0f00
sta $a3,s
lda $a5,s
and #$ff0f
ora #$00f0
sta $a5,s
tsc
adc #$144
tcs
phy
phy
lda $5,s
and #$ff0f
ora #$00f0
sta $5,s
lda $a1,s
and #$00f0
ora #$ff0f
sta $a1,s
tsc
adc #$a4
tcs
phy
_spriteFooter
backupStack dc i2'0'
end