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

2526 lines
40 KiB
ArmAsm
Raw Permalink Blame History

;
; scorpions.s
; BuGS
;
; Created by Jeremy Rand on 2020-07-02.
;Copyright © 2020 Jeremy Rand. All rights reserved.
;
case on
mcopy scorpions.macros
keep scorpions
scorpions start spriteSeg
using globalData
leftScorpion1 entry
iny
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; O.O.|.ROR|..O.|O...
; .O..|RROR|R..O|....
; .OO.|.OOO|..OO|.OOO
; ..OO|OOOO|OOO.|.O.O
; ....|.OOO|O...|...O
; ....|.OOO|O...|..OO
; ....|.OOO|OOOO|OOOO
; ....|..OO|OOOO|OOO.
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$0f0f
ora #$8080
sta $0,s
lda $2,s
; and #$00f0
ora #$8404
sta $2,s
lda $4,s
; and #$0fff
ora #$8000
sta $4,s
lda $6,s
; and #$ff0f
ora #$0080
sta $6,s
lda $a0,s
; and #$fff0
ora #$0008
sta $a0,s
lda #$8444
sta $a2,s
lda $a4,s
; and #$f00f
ora #$0840
sta $a4,s
tsc
adc #$140
tcs
lda $0,s
; and #$0ff0
ora #$8008
sta $0,s
lda $2,s
; and #$00f0
ora #$8808
sta $2,s
lda $4,s
; and #$00ff
ora #$8800
sta $4,s
lda $6,s
; and #$00f0
ora #$8808
sta $6,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
tya
sta $a2,s
lda $a4,s
; and #$0f00
ora #$8088
sta $a4,s
lda $a6,s
; and #$f0f0
ora #$0808
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$00f0
ora #$8808
sta $0,s
lda $2,s
; and #$ff0f
ora #$0080
sta $2,s
lda $4,s
; and #$f0ff
ora #$0800
sta $4,s
lda $a0,s
; and #$00f0
ora #$8808
sta $a0,s
lda $a2,s
; and #$ff0f
ora #$0080
sta $a2,s
lda $a4,s
; and #$00ff
ora #$8800
sta $a4,s
tsc
adc #$140
tcs
lda $0,s
; and #$00f0
ora #$8808
sta $0,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
lda $a4,s
; and #$0f00
ora #$8088
sta $a4,s
tya
sta $2,s
sta $4,s
sta $a2,s
_spriteFooter
rtl
leftScorpion1s entry
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ...O|.O..|ROR.|.O.O|....
; ....|O..R|RORR|..O.|....
; ....|OO..|OOO.|.OO.|OOO.
; ....|.OOO|OOOO|OO..|O.O.
; ....|....|OOOO|....|..O.
; ....|....|OOOO|....|.OO.
; ....|....|OOOO|OOOO|OOO.
; ....|....|.OOO|OOOO|OO..
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$fff0
ora #$0008
sta $2,s
lda $4,s
; and #$0f00
ora #$4048
sta $4,s
lda $6,s
; and #$f0f0
ora #$0808
sta $6,s
lda $a2,s
; and #$f00f
ora #$0480
sta $a2,s
lda #$4448
sta $a4,s
lda $a6,s
; and #$0fff
ora #$8000
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$ff00
ora #$0088
sta $0,s
lda $2,s
; and #$0f00
ora #$8088
sta $2,s
lda $4,s
; and #$0ff0
ora #$8008
sta $4,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $a0,s
; and #$00f0
ora #$8808
sta $a0,s
tya
sta $a2,s
lda $a4,s
; and #$ff00
ora #$0088
sta $a4,s
lda $a6,s
; and #$0f0f
ora #$8080
sta $a6,s
tsc
adc #$142
tcs
tya
sta $0,s
sta $a0,s
lda $4,s
; and #$0fff
ora #$8000
sta $4,s
lda $a4,s
; and #$0ff0
ora #$8008
sta $a4,s
tsc
adc #$140
tcs
lda $4,s
; and #$0f00
ora #$8088
sta $4,s
lda $a0,s
; and #$00f0
ora #$8808
sta $a0,s
lda $a4,s
; and #$ff00
ora #$0088
sta $a4,s
tya
sta $0,s
sta $2,s
sta $a2,s
_spriteFooter
rtl
leftScorpion2 entry
iny
_spriteHeader
; $c - Green
; $4 - Red
; $8 - 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...
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$0f0f
ora #$8080
sta $0,s
lda $2,s
; and #$00f0
ora #$8404
sta $2,s
lda $4,s
; and #$0fff
ora #$8000
sta $4,s
lda $6,s
; and #$ff0f
ora #$0080
sta $6,s
lda $a0,s
; and #$fff0
ora #$0008
sta $a0,s
lda #$8444
sta $a2,s
lda $a4,s
; and #$f00f
ora #$0840
sta $a4,s
tsc
adc #$140
tcs
lda $0,s
; and #$0ff0
ora #$8008
sta $0,s
lda $2,s
; and #$00f0
ora #$8808
sta $2,s
lda $4,s
; and #$00ff
ora #$8800
sta $4,s
lda $6,s
; and #$00f0
ora #$8808
sta $6,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
lda $a2,s
; and #$00f0
ora #$8808
sta $a2,s
lda $a4,s
; and #$0ff0
ora #$8008
sta $a4,s
lda $a6,s
; and #$f0f0
ora #$0808
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
tya
sta $2,s
lda $4,s
; and #$ff00
ora #$0088
sta $4,s
lda $6,s
; and #$fff0
ora #$0008
sta $6,s
lda $a2,s
; and #$00f0
ora #$8808
sta $a2,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$00f0
ora #$8808
sta $0,s
lda $4,s
; and #$ff00
ora #$0088
sta $4,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
lda $a4,s
; and #$ff0f
ora #$0080
sta $a4,s
tya
sta $2,s
sta $a2,s
_spriteFooter
rtl
leftScorpion2s entry
_spriteHeader
; $c - Green
; $4 - Red
; $8 - 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|....
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$fff0
ora #$0008
sta $2,s
lda $4,s
; and #$0f00
ora #$4048
sta $4,s
lda $6,s
; and #$f0f0
ora #$0808
sta $6,s
lda $a2,s
; and #$f00f
ora #$0480
sta $a2,s
lda #$4448
sta $a4,s
lda $a6,s
; and #$0fff
ora #$8000
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$ff00
ora #$0088
sta $0,s
lda $2,s
; and #$0f00
ora #$8088
sta $2,s
lda $4,s
; and #$0ff0
ora #$8008
sta $4,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $a0,s
; and #$0ff0
ora #$8008
sta $a0,s
lda $a2,s
; and #$0f00
ora #$8088
sta $a2,s
lda $a4,s
; and #$ff00
ora #$0088
sta $a4,s
lda $a6,s
; and #$0f0f
ora #$8080
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$00ff
ora #$8800
sta $0,s
tya
sta $2,s
lda $4,s
; and #$ff0f
ora #$0080
sta $4,s
lda $6,s
; and #$ff0f
ora #$0080
sta $6,s
lda $a2,s
; and #$0f00
ora #$8088
sta $a2,s
lda $a4,s
; and #$f0ff
ora #$0800
sta $a4,s
lda $a6,s
; and #$ff0f
ora #$0080
sta $a6,s
tsc
adc #$142
tcs
lda $4,s
; and #$ff0f
ora #$0080
sta $4,s
lda $a0,s
; and #$00f0
ora #$8808
sta $a0,s
tya
sta $0,s
sta $2,s
sta $a2,s
_spriteFooter
rtl
leftScorpion3 entry
iny
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; O.O.|ROR.|O.O.|....
; .O.R|RORR|.O..|....
; .OO.|OOO.|OO..|..OO
; ..OO|OOOO|O...|.O.O
; ....|OOO.|....|OO.O
; ....|OOO.|..OO|O..O
; ....|OOOO|OOOO|..O.
; ....|.OOO|OOO.|....
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$0f0f
ora #$8080
sta $0,s
lda $2,s
; and #$0f00
ora #$4048
sta $2,s
lda $4,s
; and #$0f0f
ora #$8080
sta $4,s
lda $a0,s
; and #$f0f0
ora #$0408
sta $a0,s
lda #$4448
sta $a2,s
lda $a4,s
; and #$fff0
ora #$0008
sta $a4,s
tsc
adc #$140
tcs
lda $0,s
; and #$0ff0
ora #$8008
sta $0,s
lda $2,s
; and #$0f00
ora #$8088
sta $2,s
lda $4,s
; and #$ff00
ora #$0088
sta $4,s
lda $6,s
; and #$00ff
ora #$8800
sta $6,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
tya
sta $a2,s
lda $a4,s
; and #$ff0f
ora #$0080
sta $a4,s
lda $a6,s
; and #$f0f0
ora #$0808
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$0f00
ora #$8088
sta $0,s
lda $4,s
; and #$f000
ora #$0888
sta $4,s
lda $a0,s
; and #$0f00
ora #$8088
sta $a0,s
lda $a2,s
; and #$00ff
ora #$8800
sta $a2,s
lda $a4,s
; and #$f00f
ora #$0880
sta $a4,s
tsc
adc #$140
tcs
lda $4,s
; and #$0fff
ora #$8000
sta $4,s
lda $a0,s
; and #$00f0
ora #$8808
sta $a0,s
lda $a2,s
; and #$0f00
ora #$8088
sta $a2,s
tya
sta $0,s
sta $2,s
_spriteFooter
rtl
leftScorpion3s entry
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ...O|.O.R|OR.O|.O..|....
; ....|O.RR|ORR.|O...|....
; ....|OO.O|OO.O|O...|.OO.
; ....|.OOO|OOOO|....|O.O.
; ....|...O|OO..|...O|O.O.
; ....|...O|OO..|.OOO|..O.
; ....|...O|OOOO|OOO.|.O..
; ....|....|OOOO|OO..|....
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$f0f0
ora #$0408
sta $2,s
lda $4,s
; and #$f000
ora #$0884
sta $4,s
lda $6,s
; and #$fff0
ora #$0008
sta $6,s
lda $a2,s
; and #$000f
ora #$4480
sta $a2,s
lda $a4,s
; and #$0f0
ora #$4084
sta $a4,s
lda $a6,s
; and #$ff0f
ora #$0080
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$f000
ora #$0888
sta $0,s
lda $2,s
; and #$f000
ora #$0888
sta $2,s
lda $4,s
; and #$ff0f
ora #$0080
sta $4,s
lda $6,s
; and #$0ff0
ora #$8008
sta $6,s
lda $a0,s
; and #$00f0
ora #$8808
sta $a0,s
tya
sta $a2,s
lda $a6,s
; and #$0f0f
ora #$8080
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$ff00
ora #$0088
sta $2,s
lda $4,s
; and #$f0ff
ora #$0800
sta $4,s
lda $6,s
; and #$0f0f
ora #$8080
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$ff00
ora #$088
sta $a2,s
lda $a4,s
; and #$00f0
ora #$8808
sta $a4,s
lda $a6,s
; and #$0fff
ora #$8000
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $4,s
; and #$0f00
ora #$8088
sta $4,s
lda $6,s
; and #$fff0
ora #$0008
sta $6,s
lda $a4,s
; and #$ff00
ora #$0088
sta $a4,s
tya
sta $2,s
sta $a2,s
_spriteFooter
rtl
leftScorpion4 entry
iny
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; O.O.|ROR.|O.O.|....
; .O.R|RORR|.O..|O...
; .OO.|OOO.|OO.O|.OO.
; ..OO|OOOO|O..O|..OO
; ....|OOO.|....|O..O
; ....|OOO.|....|...O
; ....|OOOO|OOOO|OOOO
; ....|.OOO|OOOO|OOO.
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$0f0f
ora #$8080
sta $0,s
lda $2,s
; and #$0f00
ora #$4048
sta $2,s
lda $4,s
; and #$0f0f
ora #$8080
sta $4,s
lda $a0,s
; and #$f0f0
ora #$0408
sta $a0,s
lda #$4448
sta $a2,s
lda $a4,s
; and #$fff0
ora #$0008
sta $a4,s
lda $a6,s
; and #$ff0f
ora #$0080
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$0ff0
ora #$8008
sta $0,s
lda $2,s
; and #$0f00
ora #$8088
sta $2,s
lda $4,s
; and #$f000
ora #$0888
sta $4,s
lda $6,s
; and #$0ff0
ora #$8008
sta $6,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
tya
sta $a2,s
lda $a4,s
; and #$f00f
ora #$0880
sta $a4,s
lda $a6,s
; and #$00ff
ora #$8800
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$0f00
ora #$8088
sta $0,s
lda $4,s
; and #$f00f
ora #$0880
sta $4,s
lda $a0,s
; and #$0f00
ora #$8088
sta $a0,s
lda $a4,s
; and #$f0ff
ora #$0800
sta $a4,s
tsc
adc #$145
tcs
phy
phy
phy
lda $a1,s
; and #$00f0
ora #$8808
sta $a1,s
tya
sta $a3,s
lda $a5,s
; and #$0f00
ora #$8088
sta $a5,s
_spriteFooter
rtl
leftScorpion4s entry
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ...O|.O.R|OR.O|.O..|....
; ....|O.RR|ORR.|O..O|....
; ....|OO.O|OO.O|O.O.|OO..
; ....|.OOO|OOOO|..O.|.OO.
; ....|...O|OO..|...O|..O.
; ....|...O|OO..|....|..O.
; ....|...O|OOOO|OOOO|OOO.
; ....|....|OOOO|OOOO|OO..
;
ldy #$8888 ; Off-white, Off-white, Off-white, Off-white
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$f0f0
ora #$0408
sta $2,s
lda $4,s
; and #$f000
ora #$0884
sta $4,s
lda $6,s
; and #$fff0
ora #$0008
sta $6,s
lda $a2,s
; and #$000f
ora #$4480
sta $a2,s
lda $a4,s
; and #$0f0
ora #$4084
sta $a4,s
lda $a6,s
; and #$f00f
ora #$0880
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$f000
ora #$0888
sta $0,s
lda $2,s
; and #$f000
ora #$0888
sta $2,s
lda $4,s
; and #$0f0f
ora #$8080
sta $4,s
lda $6,s
; and #$ff00
ora #$0088
sta $6,s
lda $a0,s
; and #$00f0
ora #$8808
sta $a0,s
tya
sta $a2,s
lda $a4,s
; and #$0fff
ora #$8000
sta $a4,s
lda $a6,s
; and #$0ff0
ora #$8008
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$ff00
ora #$0088
sta $2,s
lda $4,s
; and #$f0ff
ora #$0800
sta $4,s
lda $6,s
; and #$0fff
ora #$8000
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$ff00
ora #$0088
sta $a2,s
lda $a6,s
; and #$0fff
ora #$8000
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tya
sta $2,s
sta $4,s
sta $a2,s
sta $a4,s
_spriteFooter
rtl
rightScorpion1 entry
_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 $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$fff0
ora #$0008
sta $2,s
lda $4,s
; and #$0f00
ora #$4048
sta $4,s
lda $6,s
; and #$f0f0
ora #$0808
sta $6,s
lda $a2,s
; and #$f00f
ora #$0480
sta $a2,s
lda #$4448
sta $a4,s
lda $a6,s
; and #$0fff
ora #$8000
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$0f00
ora #$8088
sta $0,s
lda $2,s
; and #$ff00
ora #$0088
sta $2,s
lda $4,s
; and #$0f00
ora #$8088
sta $4,s
lda $6,s
; and #$0ff0
ora #$8008
sta $6,s
lda $a0,s
; and #$0f0f
ora #$8080
sta $a0,s
lda $a2,s
; and #$00f0
ora #$8808
sta $a2,s
tya
sta $a4,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$ff0f
ora #$0080
sta $0,s
lda $2,s
; and #$f0ff
ora #$0800
sta $2,s
lda $4,s
; and #$0f00
ora #$8088
sta $4,s
lda $a0,s
; and #$ff00
ora #$0088
sta $a0,s
lda $a2,s
; and #$f0ff
ora #$0800
sta $a2,s
lda $a4,s
; and #$0f00
ora #$8088
sta $a4,s
tsc
adc #$143
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
rightScorpion1s entry
_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 $0,s
; and #$0fff
ora #$8000
sta $0,s
lda $2,s
; and #$f00f
ora #$0480
sta $2,s
lda $4,s
; and #$ff00
ora #$0084
sta $4,s
lda $6,s
; and #$0f0f
ora #$8080
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$00ff
ora #$4400
sta $a2,s
lda $a4,s
; and #$0f00
ora #$4084
sta $a4,s
lda $a6,s
; and #$fff0
ora #$0008
sta $a6,s
tsc
adc #$13e
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$f000
ora #$0888
sta $2,s
lda $4,s
; and #$f00f
ora #$0880
sta $4,s
lda $6,s
; and #$ff00
ora #$0088
sta $6,s
lda $8,s
; and #$ff00
ora #$0088
sta $8,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$fff0
ora #$0008
sta $a2,s
tya
sta $a4,s
sta $a6,s
lda $a8,s
; and #$ff0f
ora #$0080
sta $a8,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $4,s
; and #$00ff
ora #$8800
sta $4,s
lda $6,s
; and #$ff00
ora #$0088
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$ff0f
ora #$0080
sta $a2,s
lda $a4,s
; and #$00ff
ora #$8800
sta $a4,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $6,s
; and #$ff00
ora #$0088
sta $6,s
lda $a6,s
; and #$ff0f
ora #$0080
sta $a6,s
tya
sta $2,s
sta $4,s
sta $a2,s
sta $a4,s
_spriteFooter
rtl
rightScorpion2 entry
_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 $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$fff0
ora #$0008
sta $2,s
lda $4,s
; and #$0f00
ora #$4048
sta $4,s
lda $6,s
; and #$f0f0
ora #$0808
sta $6,s
lda $a2,s
; and #$f00f
ora #$0480
sta $a2,s
lda #$4448
sta $a4,s
lda $a6,s
; and #$0fff
ora #$8000
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$0f00
ora #$8088
sta $0,s
lda $2,s
; and #$ff00
ora #$0088
sta $2,s
lda $4,s
; and #$0f00
ora #$8088
sta $4,s
lda $6,s
; and #$0ff0
ora #$8008
sta $6,s
lda $a0,s
; and #$0f0f
ora #$8080
sta $a0,s
lda $a2,s
; and #$0ff0
ora #$8008
sta $a2,s
lda $a4,s
; and #$0f00
ora #$8088
sta $a4,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$0fff
ora #$8000
sta $0,s
lda $2,s
; and #$00ff
ora #$8800
sta $2,s
tya
sta $4,s
lda $6,s
; and #$ff0f
ora #$0080
sta $6,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
lda $a4,s
; and #$0f00
ora #$8088
sta $a4,s
tsc
adc #$140
tcs
lda $0,s
; and #$00ff
ora #$8800
sta $0,s
lda $4,s
; and #$0f00
ora #$8088
sta $4,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a4,s
; and #$ff00
ora #$0088
sta $a4,s
tya
sta $2,s
sta $a2,s
_spriteFooter
rtl
rightScorpion2s entry
_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 $0,s
; and #$0fff
ora #$8000
sta $0,s
lda $2,s
; and #$f00f
ora #$0480
sta $2,s
lda $4,s
; and #$ff00
ora #$0084
sta $4,s
lda $6,s
; and #$0f0f
ora #$8080
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$00ff
ora #$4400
sta $a2,s
lda $a4,s
; and #$0f00
ora #$4084
sta $a4,s
lda $a6,s
; and #$fff0
ora #$0008
sta $a6,s
tsc
adc #$13e
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$f000
ora #$0888
sta $2,s
lda $4,s
; and #$f00f
ora #$0880
sta $4,s
lda $6,s
; and #$ff00
ora #$0088
sta $6,s
lda $8,s
; and #$ff00
ora #$0088
sta $8,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$fff0
ora #$0008
sta $a2,s
lda $a4,s
; and #$f000
ora #$0888
sta $a4,s
lda $a6,s
; and #$f000
ora #$0888
sta $a6,s
lda $a8,s
; and #$ff0f
ora #$0080
sta $a8,s
tsc
adc #$142
tcs
lda $0,s
; and #$fff0
ora #$0008
sta $0,s
lda $2,s
; and #$00f0
ora #$8808
sta $2,s
tya
sta $4,s
lda $a0,s
; and #$0ff0
ora #$8008
sta $a0,s
lda $a2,s
; and #$f0ff
ora #$0800
sta $a2,s
lda $a4,s
; and #$ff00
ora #$0088
sta $a4,s
tsc
adc #$140
tcs
lda $0,s
; and #$00f0
ora #$8808
sta $0,s
lda $4,s
; and #$ff00
ora #$0088
sta $4,s
lda $a0,s
; and #$00ff
ora #$8800
sta $a0,s
lda $a4,s
; and #$ff0f
ora #$0080
sta $a4,s
tya
sta $2,s
sta $a2,s
_spriteFooter
rtl
rightScorpion3 entry
_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 $2,s
; and #$f0f0
ora #$0808
sta $2,s
lda $4,s
; and #$00f0
ora #$8404
sta $4,s
lda $6,s
; and #$f0f0
ora #$0808
sta $6,s
lda $a2,s
; and #$0fff
ora #$8000
sta $a2,s
lda #$8444
sta $a4,s
lda $a6,s
; and #$0f0f
ora #$8040
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$0f00
ora #$8088
sta $0,s
lda $2,s
; and #$00ff
ora #$8800
sta $2,s
lda $4,s
; and #$00f0
ora #$8808
sta $4,s
lda $6,s
; and #$0ff0
ora #$8008
sta $6,s
lda $a0,s
; and #$0f0f
ora #$8080
sta $a0,s
lda $a2,s
; and #$f0ff
ora #$0800
sta $a2,s
tya
sta $a4,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$000f
ora #$8880
sta $0,s
lda $4,s
; and #$00f0
ora #$8808
sta $4,s
lda $a0,s
; and #$f00f
ora #$0880
sta $a0,s
lda $a2,s
; and #$ff00
ora #$0088
sta $a2,s
lda $a4,s
; and #$00f0
ora #$8808
sta $a4,s
tsc
adc #$140
tcs
lda $0,s
; and #$fff0
ora #$0008
sta $0,s
lda $a2,s
; and #$00f0
ora #$8808
sta $a2,s
lda $a4,s
; and #$0f00
ora #$8088
sta $a4,s
tya
sta $2,s
sta $4,s
_spriteFooter
rtl
rightScorpion3s entry
_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 $2,s
; and #$0f0f
ora #$8080
sta $2,s
lda $4,s
; and #$0f00
ora #$4048
sta $4,s
lda $6,s
; and #$0f0f
ora #$8080
sta $6,s
lda $a2,s
; and #$f0f0
ora #$0408
sta $a2,s
lda #$4448
sta $a4,s
lda $a6,s
; and #$fff0
ora #$0008
sta $a6,s
tsc
adc #$13e
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$ff00
ora #$0088
sta $2,s
lda $4,s
; and #$0ff0
ora #$8008
sta $4,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $8,s
; and #$ff00
ora #$0088
sta $8,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$fff0
ora #$0008
sta $a2,s
lda $a4,s
; and #$00ff
ora #$8800
sta $a4,s
tya
sta $a6,s
lda $a8,s
; and #$ff0f
ora #$0080
sta $a8,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$0ff0
ora #$8008
sta $2,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$00ff
ora #$8800
sta $a2,s
lda $a4,s
; and #$ff0f
ora #$0080
sta $a4,s
lda $a6,s
; and #$0f00
ora #$8088
sta $a6,s
tsc
adc #$142
tcs
lda $0,s
; and #$f00f
ora #$0880
sta $0,s
lda $4,s
; and #$0f00
ora #$8088
sta $4,s
lda $a4,s
; and #$ff00
ora #$0088
sta $a4,s
tya
sta $2,s
sta $a2,s
_spriteFooter
rtl
rightScorpion4 entry
_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 $2,s
; and #$f0f0
ora #$0808
sta $2,s
lda $4,s
; and #$00f0
ora #$8404
sta $4,s
lda $6,s
; and #$f0f0
ora #$0808
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$0fff
ora #$8000
sta $a2,s
lda #$8444
sta $a4,s
lda $a6,s
; and #$0f0f
ora #$8040
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$0ff0
ora #$8008
sta $0,s
lda $2,s
; and #$000f
ora #$8880
sta $2,s
lda $4,s
; and #$00f0
ora #$8808
sta $4,s
lda $6,s
; and #$0ff0
ora #$8008
sta $6,s
lda $a0,s
; and #$ff00
ora #$0088
sta $a0,s
lda $a2,s
; and #$f00f
ora #$0880
sta $a2,s
tya
sta $a4,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f00f
ora #$0880
sta $0,s
lda $4,s
; and #$00f0
ora #$8808
sta $4,s
lda $a0,s
; and #$ff0f
ora #$0080
sta $a0,s
lda $a4,s
; and #$00f0
ora #$8808
sta $a4,s
tsc
adc #$145
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
rightScorpion4s entry
_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 $2,s
; and #$0f0f
ora #$8080
sta $2,s
lda $4,s
; and #$0f00
ora #$4048
sta $4,s
lda $6,s
; and #$0f0f
ora #$8080
sta $6,s
lda $a0,s
; and #$0fff
ora #$8000
sta $a0,s
lda $a2,s
; and #$f0f0
ora #$0408
sta $a2,s
lda #$4448
sta $a4,s
lda $a6,s
; and #$fff0
ora #$0008
sta $a6,s
tsc
adc #$13e
tcs
lda $2,s
; and #$f000
ora #$0888
sta $2,s
lda $4,s
; and #$0ff0
ora #$8008
sta $4,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $8,s
; and #$ff00
ora #$0088
sta $8,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a2,s
; and #$f00f
ora #$0880
sta $a2,s
lda $a4,s
; and #$00ff
ora #$8800
sta $a4,s
tya
sta $a6,s
lda $a8,s
; and #$ff0f
ora #$0080
sta $a8,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $2,s
; and #$0fff
ora #$8000
sta $2,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $a0,s
; and #$f0ff
ora #$0800
sta $a0,s
lda $a6,s
; and #$0f00
ora #$8088
sta $a6,s
tsc
adc #$140
tcs
lda $0,s
; and #$f0ff
ora #$0800
sta $0,s
lda $6,s
; and #$0f00
ora #$8088
sta $6,s
lda $a6,s
; and #$ff00
ora #$0088
sta $a6,s
tya
sta $2,s
sta $a2,s
sta $4,s
sta $a4,s
_spriteFooter
rtl
end
Reference in New Issue View Git Blame Copy Permalink