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

Add a bunch more centipede segment sprites.

This commit is contained in:
Jeremy Rand 2020-07-06 00:01:44 -04:00
parent 5de91ba0ec
commit 9e06ec991b
3 changed files with 1545 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
BuGS/game.s
View File

@ -372,6 +372,78 @@ game start
ldx #$666b
jsl leftBody5s
ldx #$6673
jsl rightHead1
ldx #$667b
jsl rightHead1s
ldx #$6683
jsl rightHead2
ldx #$668b
jsl rightHead2s
ldx #$6693
jsl rightHead3
ldx #$669b
jsl rightHead3s
ldx #$7003
jsl rightHead4
ldx #$700b
jsl rightHead4s
ldx #$7013
jsl rightHead5
ldx #$701b
jsl rightHead5s
ldx #$7023
jsl rightBody1
ldx #$702b
jsl rightBody1s
ldx #$7033
jsl rightBody2
ldx #$703b
jsl rightBody2s
ldx #$7043
jsl rightBody3
ldx #$704b
jsl rightBody3s
ldx #$7053
jsl rightBody4
ldx #$705b
jsl rightBody4s
ldx #$7063
jsl rightBody5
ldx #$706b
jsl rightBody5s
ldx #$7073
jsl leftDownHead1
ldx #$707b
jsl leftDownHead1s
ldx #$7083
jsl leftDownHead2
ldx #$708b
jsl leftDownHead2s
jsl waitForKey
rtl

1133
BuGS/sprites/segments.s
View File

File diff suppressed because it is too large Load Diff

341
BuGS/sprites/sprites.macros
View File

@ -215,7 +215,7 @@
; ....|....
lda $a1,s
;; and #$00f0 not necessary with pure green
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $a1,s
@ -278,6 +278,7 @@
mend
macro
_leftBodyShift
@ -363,3 +364,341 @@
sta $3,s
mend
macro
_rightHead
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ....|....
; ...G|GRR.
; ..GG|GRRG
; .GGG|GGGG
; .GGG|GGGG
; ..GG|GRRG
; ...G|GRR.
; ....|....
lda $a1,s
; and #$f0ff not necessary with pure green
ora #$0c00
sta $a1,s
lda $a3,s
and #$0f00
ora #$40c4
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $1,s
lda #$4cc4
sta $3,s
lda $a1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $a1,s
lda #$cccc
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $1,s
lda #$cccc
sta $3,s
lda $a1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $a1,s
lda #$4cc4
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$f0ff not necessary with pure green
ora #$0c00
sta $1,s
lda $3,s
and #$0f00
ora #$40c4
sta $3,s
mend
macro
_rightHeadShift
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ....|....
; ..GG|RR..
; .GGG|RRG.
; GGGG|GGG.
; GGGG|GGG.
; .GGG|RRG.
; ..GG|RR..
; ....|....
lda $a1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $a1,s
lda $a3,s
and #$ff00
ora #$0044
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $1,s
lda $3,s
and #$0f00
ora #$c044
sta $3,s
lda #$cccc
sta $a1,s
lda $a3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $a3,s
tsc
adc #$142
tcs
pea $cccc
lda $3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $3,s
lda $a1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $a1,s
lda $a3,s
and #$0f00
ora #$c044
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $1,s
lda $3,s
and #$ff00
ora #$0044
sta $3,s
mend
macro
_rightBody
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ....|....
; ...G|GGG.
; ..GG|GGGG
; .GGG|GGGG
; .GGG|GGGG
; ..GG|GGGG
; ...G|GGG.
; ....|....
lda $a1,s
; and #$f0ff not necessary with pure green
ora #$0c00
sta $a1,s
lda $a3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $1,s
lda #$cccc
sta $3,s
lda $a1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $a1,s
lda #$cccc
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $1,s
lda #$cccc
sta $3,s
lda $a1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $a1,s
lda #$cccc
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$f0ff not necessary with pure green
ora #$0c00
sta $1,s
lda $3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $3,s
mend
macro
_rightBodyShift
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ....|....
; ..GG|GG..
; .GGG|GGG.
; GGGG|GGG.
; GGGG|GGG.
; .GGG|GGG.
; ..GG|GG..
; ....|....
lda $a1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $a1,s
lda $a3,s
; and #$ff00 not necessary with pure green
ora #$00cc
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $1,s
lda $3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $3,s
lda #$cccc
sta $a1,s
lda $a3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $a3,s
tsc
adc #$142
tcs
pea $cccc
lda $3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $3,s
lda $a1,s
; and #$00f0 not necessary with pure green
ora #$cc0c
sta $a1,s
lda $a3,s
; and #$0f00 not necessary with pure green
ora #$c0cc
sta $a3,s
tsc
adc #$140
tcs
lda $1,s
; and #$00ff not necessary with pure green
ora #$cc00
sta $1,s
lda $3,s
; and #$ff00 not necessary with pure green
ora #$00cc
sta $3,s
mend