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

Finish the sprites for the scorpion.

This commit is contained in:
Jeremy Rand 2020-06-30 23:17:55 -04:00
parent cc03c8a0a0
commit 0393cf6bf6
2 changed files with 318 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BuGS/game.s
View File

@ -247,10 +247,10 @@ game start
jsl right_scorpion3s
ldx #$486b
jsl left_scorpion4
jsl right_scorpion4
ldx #$487b
jsl left_scorpion4s
jsl right_scorpion4s
jsl waitForKey
rtl

316
BuGS/sprites.s
View File

@ -6337,6 +6337,322 @@ right_scorpion3s entry
rtl
right_scorpion4 entry
dex
dex
dex
dex
dex
dex
dex
dex
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ....|.O.O|.ROR|.O.O
; ...O|..O.|RROR|R.O.
; .OO.|O.OO|.OOO|.OO.
; OO..|O..O|OOOO|OO..
; O..O|....|.OOO|....
; O...|....|.OOO|....
; OOOO|OOOO|OOOO|....
; .OOO|OOOO|OOO.|....
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $3,s
and #$f0f0
ora #$0808
sta $3,s
lda $5,s
and #$00f0
ora #$8404
sta $5,s
lda $7,s
and #$f0f0
ora #$0808
sta $7,s
lda $a1,s
and #$f0ff
ora #$0800
sta $a1,s
lda $a3,s
and #$0fff
ora #$8000
sta $a3,s
lda #$8444
sta $a5,s
lda $a7,s
and #$0f0f
ora #$8040
sta $a7,s
tsc
adc #$140
tcs
lda $1,s
and #$0ff0
ora #$8008
sta $1,s
lda $3,s
and #$000f
ora #$8880
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 #$ff00
ora #$0088
sta $a1,s
lda $a3,s
and #$f00f
ora #$0880
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 #$f00f
ora #$0880
sta $1,s
lda $5,s
and #$00f0
ora #$8808
sta $5,s
lda $a1,s
and #$ff0f
ora #$0080
sta $a1,s
lda $a5,s
and #$00f0
ora #$8808
sta $a5,s
tsc
adc #$146
tcs
phy
phy
phy
lda $a1,s
and #$00f0
ora #$8808
sta $a1,s
lda $a5,s
and #$0f00
ora #$8088
sta $a5,s
tya
sta $a3,s
_spriteFooter
rtl
right_scorpion4s entry
dex
dex
dex
dex
dex
dex
dex
dex
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ....|....|O.O.|ROR.|O.O.
; ....|..O.|.O.R|RORR|.O..
; ....|OO.O|.OO.|OOO.|OO..
; ...O|O..O|..OO|OOOO|O...
; ...O|..O.|....|OOO.|....
; ...O|....|....|OOO.|....
; ...O|OOOO|OOOO|OOO.|....
; ....|OOOO|OOOO|OO..|....
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $3,s
and #$0f0f
ora #$8080
sta $3,s
lda $5,s
and #$0f00
ora #$4048
sta $5,s
lda $7,s
and #$0f0f
ora #$8080
sta $7,s
lda $a1,s
and #$0fff
ora #$8000
sta $a1,s
lda $a3,s
and #$f0f0
ora #$0408
sta $a3,s
lda #$4448
sta $a5,s
lda $a7,s
and #$fff0
ora #$0008
sta $a7,s
tsc
adc #$13e
tcs
lda $3,s
and #$f000
ora #$0888
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 #$f00f
ora #$0880
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 #$0fff
ora #$8000
sta $3,s
lda $7,s
and #$0f00
ora #$8088
sta $7,s
lda $a1,s
and #$f0ff
ora #$0800
sta $a1,s
lda $a7,s
and #$0f00
ora #$8088
sta $a7,s
tsc
adc #$140
tcs
lda $1,s
and #$f0ff
ora #$0800
sta $1,s
lda $7,s
and #$0f00
ora #$8088
sta $7,s
lda $a7,s
and #$ff00
ora #$0088
sta $a7,s
tya
sta $3,s
sta $a3,s
sta $5,s
sta $a5,s
_spriteFooter
rtl
backupStack dc i2'0'
end