mirror of https://github.com/jeremysrand/BuGS.git
449 lines
6.8 KiB
ArmAsm
449 lines
6.8 KiB
ArmAsm
;
|
|
; fleas.s
|
|
; BuGS
|
|
;
|
|
; Created by Jeremy Rand on 2020-07-02.
|
|
;Copyright © 2020 Jeremy Rand. All rights reserved.
|
|
;
|
|
|
|
case on
|
|
mcopy fleas.macros
|
|
keep fleas
|
|
|
|
fleas start spriteSeg
|
|
using globalData
|
|
|
|
|
|
flea1 entry
|
|
_spriteHeader ; 30
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; ....|..OO|O...
|
|
; ....|.ROO|OO..
|
|
; ....|RROO|OOO.
|
|
; ...O|OOOO|OOOO
|
|
; ...O|OOG.|GOOO
|
|
; ....|..G.|G.OO
|
|
; ....|..G.|G.G.
|
|
; ....|.G.G|...G
|
|
;
|
|
|
|
lda $0,s ; 5
|
|
and #$00ff ; 3
|
|
ora #$8800 ; 3
|
|
sta $0,s ; 5
|
|
; 46
|
|
lda $2,s ; 5
|
|
and #$ff0f ; 3
|
|
ora #$0080 ; 3
|
|
sta $2,s ; 5
|
|
; 62
|
|
lda $a0,s
|
|
and #$00f0
|
|
ora #$8804
|
|
sta $a0,s
|
|
; 78
|
|
lda $a2,s
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $a2,s
|
|
; 94
|
|
tsc ; 2
|
|
adc #$0141 ; 3
|
|
tcs ; 2
|
|
; 101
|
|
pea $8844 ; 5
|
|
lda $3,s
|
|
and #$0f00
|
|
ora #$8088
|
|
sta $3,s
|
|
; 122
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
; 138
|
|
tsc
|
|
adc #$00a4
|
|
tcs
|
|
pea $8888
|
|
pea $8888
|
|
; 155
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
; 171
|
|
lda $a1,s
|
|
and #$0f00
|
|
ora #$c088
|
|
sta $a1,s
|
|
; 187
|
|
tsc
|
|
adc #$00a4
|
|
tcs
|
|
pea $88c8
|
|
; 199
|
|
lda $9f,s
|
|
ora #$c000
|
|
sta $9f,s
|
|
; 212
|
|
lda $a1,s
|
|
and #$000f
|
|
ora #$88c0
|
|
sta $a1,s
|
|
; 228
|
|
tsc
|
|
adc #$013e
|
|
tcs
|
|
; 235
|
|
lda $1,s
|
|
ora #$c000
|
|
sta $1,s
|
|
; 248
|
|
lda $3,s
|
|
ora #$c0c0
|
|
sta $3,s
|
|
; 261
|
|
lda $a1,s
|
|
ora #$0c0c
|
|
sta $a1,s
|
|
; 274
|
|
lda $a3,s
|
|
ora #$0c00
|
|
sta $a3,s
|
|
; 287
|
|
_spriteFooter
|
|
; 311 cycles
|
|
rtl
|
|
|
|
|
|
flea2 entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; ....|..OO|O...
|
|
; ....|.ROO|OO..
|
|
; ....|RROO|OOO.
|
|
; ...O|OOOO|OOOO
|
|
; ...O|OO.G|.OOO
|
|
; ....|..G.|.GOO
|
|
; ....|.G..|G..G
|
|
; ....|.G.G|..G.
|
|
;
|
|
|
|
lda $0,s
|
|
and #$00ff
|
|
ora #$8800
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
and #$ff0f
|
|
ora #$0080
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
and #$00f0
|
|
ora #$8804
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$0141
|
|
tcs
|
|
|
|
pea $8844
|
|
lda $3,s
|
|
and #$0f00
|
|
ora #$8088
|
|
sta $3,s
|
|
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
|
|
tsc
|
|
adc #$00a4
|
|
tcs
|
|
pea $8888
|
|
pea $8888
|
|
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
|
|
lda $a1,s
|
|
and #$f000
|
|
ora #$0c88
|
|
sta $a1,s
|
|
|
|
lda $a3,s
|
|
and #$00f0
|
|
ora #$8808
|
|
sta $a3,s
|
|
|
|
tsc
|
|
adc #$0140
|
|
tcs
|
|
|
|
lda $1,s
|
|
ora #$c000
|
|
sta $1,s
|
|
|
|
lda $3,s
|
|
and #$00f0
|
|
ora #$880c
|
|
sta $3,s
|
|
|
|
tsc
|
|
adc #$00a0
|
|
tcs
|
|
|
|
lda $1,s
|
|
ora #$000c
|
|
sta $1,s
|
|
|
|
lda $3,s
|
|
ora #$0cc0
|
|
sta $3,s
|
|
|
|
lda $a1,s
|
|
ora #$0c0c
|
|
sta $a1,s
|
|
|
|
lda $a3,s
|
|
ora #$c000
|
|
sta $a3,s
|
|
|
|
_spriteFooter
|
|
rtl
|
|
|
|
|
|
flea3 entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; ....|..OO|O...
|
|
; ....|.ROO|OO..
|
|
; ....|RROO|OOO.
|
|
; ...O|OOOO|OOOO
|
|
; ...O|OO.G|.OOO
|
|
; ....|..G.|G.OO
|
|
; ....|..G.|.G.G
|
|
; ....|...G|..G.
|
|
;
|
|
|
|
lda $0,s
|
|
and #$00ff
|
|
ora #$8800
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
and #$ff0f
|
|
ora #$0080
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
and #$00f0
|
|
ora #$8804
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$0141
|
|
tcs
|
|
|
|
pea $8844
|
|
lda $3,s
|
|
and #$0f00
|
|
ora #$8088
|
|
sta $3,s
|
|
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
|
|
tsc
|
|
adc #$00a4
|
|
tcs
|
|
pea $8888
|
|
pea $8888
|
|
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
|
|
lda $a1,s
|
|
and #$f000
|
|
ora #$0c88
|
|
sta $a1,s
|
|
|
|
lda $a3,s
|
|
and #$00f0
|
|
ora #$8808
|
|
sta $a3,s
|
|
|
|
tsc
|
|
adc #$0140
|
|
tcs
|
|
|
|
lda $1,s
|
|
ora #$c000
|
|
sta $1,s
|
|
|
|
lda $3,s
|
|
and #$000f
|
|
ora #$88c0
|
|
sta $3,s
|
|
|
|
tsc
|
|
adc #$00a0
|
|
tcs
|
|
|
|
lda $1,s
|
|
ora #$c000
|
|
sta $1,s
|
|
|
|
lda $3,s
|
|
ora #$0c0c
|
|
sta $3,s
|
|
|
|
lda $a1,s
|
|
ora #$0c00
|
|
sta $a1,s
|
|
|
|
lda $a3,s
|
|
ora #$c000
|
|
sta $a3,s
|
|
|
|
_spriteFooter
|
|
rtl
|
|
|
|
|
|
flea4 entry
|
|
_spriteHeader
|
|
|
|
; $c - Green
|
|
; $4 - Red
|
|
; $8 - Off-white
|
|
;
|
|
; ....|..OO|O...
|
|
; ....|.ROO|OO..
|
|
; ....|RROO|OOO.
|
|
; ...O|OOOO|OOOO
|
|
; ...O|OOG.|GOOO
|
|
; ....|..G.|G.OO
|
|
; ....|..G.|.G.G
|
|
; ....|...G|.G.G
|
|
;
|
|
lda $0,s
|
|
and #$00ff
|
|
ora #$8800
|
|
sta $0,s
|
|
|
|
lda $2,s
|
|
and #$ff0f
|
|
ora #$0080
|
|
sta $2,s
|
|
|
|
lda $a0,s
|
|
and #$00f0
|
|
ora #$8804
|
|
sta $a0,s
|
|
|
|
lda $a2,s
|
|
and #$ff00
|
|
ora #$0088
|
|
sta $a2,s
|
|
|
|
tsc
|
|
adc #$0141
|
|
tcs
|
|
|
|
pea $8844
|
|
lda $3,s
|
|
and #$0f00
|
|
ora #$8088
|
|
sta $3,s
|
|
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
|
|
tsc
|
|
adc #$00a4
|
|
tcs
|
|
pea $8888
|
|
pea $8888
|
|
|
|
lda $9f,s
|
|
and #$f0ff
|
|
ora #$0800
|
|
sta $9f,s
|
|
|
|
lda $a1,s
|
|
and #$0f00
|
|
ora #$c088
|
|
sta $a1,s
|
|
|
|
tsc
|
|
adc #$00a4
|
|
tcs
|
|
pea $88c8
|
|
|
|
lda $9f,s
|
|
ora #$c000
|
|
sta $9f,s
|
|
|
|
lda $a1,s
|
|
and #$000f
|
|
ora #$88c0
|
|
sta $a1,s
|
|
|
|
tsc
|
|
adc #$013e
|
|
tcs
|
|
|
|
lda $1,s
|
|
ora #$c000
|
|
sta $1,s
|
|
|
|
lda $3,s
|
|
ora #$0c0c
|
|
sta $3,s
|
|
|
|
lda $a1,s
|
|
ora #$0c00
|
|
sta $a1,s
|
|
|
|
lda $a3,s
|
|
ora #$0c0c
|
|
sta $a3,s
|
|
|
|
_spriteFooter
|
|
rtl
|
|
|
|
end
|