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

Start adding centipede head segment sprites.

This commit is contained in:
Jeremy Rand 2020-07-03 02:04:27 -04:00
parent e5378bf5cb
commit 72265face9
3 changed files with 223 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
BuGS.xcodeproj/project.pbxproj
View File

@ -74,6 +74,7 @@
9D3396FC24AECFBB003222B3 /* letters.s */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.asm; path = letters.s; sourceTree = "<group>"; };
9D3396FD24AECFF5003222B3 /* mushrooms.s */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.asm; path = mushrooms.s; sourceTree = "<group>"; };
9D3396FF24AED09D003222B3 /* sprites.md */ = {isa = PBXFileReference; lastKnownFileType = net.daringfireball.markdown; path = sprites.md; sourceTree = "<group>"; };
9D33970024AEFBF2003222B3 /* segments.s */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.asm; path = segments.s; sourceTree = "<group>"; };
9D62AF3B249871A300348F45 /* colour.s */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.asm; path = colour.s; sourceTree = "<group>"; };
9D62AF3E2499660100348F45 /* local.macros */ = {isa = PBXFileReference; lastKnownFileType = text; path = local.macros; sourceTree = "<group>"; };
9D62AF3F2499CD1E00348F45 /* LICENSE */ = {isa = PBXFileReference; lastKnownFileType = text; path = LICENSE; sourceTree = "<group>"; };
@ -169,6 +170,7 @@
9D3396FB24AECF7C003222B3 /* symbols.s */,
9D3396FC24AECFBB003222B3 /* letters.s */,
9D3396FD24AECFF5003222B3 /* mushrooms.s */,
9D33970024AEFBF2003222B3 /* segments.s */,
);
path = sprites;
sourceTree = "<group>";

6
BuGS/game.s
View File

@ -312,6 +312,12 @@ game start
ldx #$5c6b
jsl explosion6
ldx #$5c73
jsl left_head1
ldx #$5c7b
jsl left_head1s
jsl waitForKey
rtl

215
BuGS/sprites/segments.s Normal file
View File

@ -0,0 +1,215 @@
;
; segments.s
; BuGS
;
; Created by Jeremy Rand on 2020-07-03.
;Copyright © 2020 Jeremy Rand. All rights reserved.
;
case on
mcopy segments.macros
keep segments
segments start
left_head1 entry
dex
dex
dex
dex
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ...O|....
; .RRG|G...
; GRRG|GG..
; GGGG|GGG.
; GGGG|GGG.
; GRRG|GG..
; .RRG|G...
; ...O|....
lda $1,s
and #$f0ff
ora #$0800
sta $1,s
lda $a1,s
and #$00f0
ora #$4c04
sta $a1,s
lda $a3,s
; and #$ff0f not necessary with pure green
ora #$00c0
sta $a3,s
tsc
adc #$142
tcs
pea $4cc4
lda $3,s
; and #$ff00 not necessary with pure green
ora #$00cc
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 #$4cc4
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
ora #$4c04
sta $1,s
lda $3,s
; and #$ff0f not necessary with pure green
ora #$00c0
sta $3,s
lda $a1,s
and #$f0ff
ora #$0800
sta $a1,s
_spriteFooter
rtl
left_head1s entry
dex
dex
dex
dex
_spriteHeader
; $c - Green
; $4 - Red
; $8 - Off-white
;
; ....|O...
; ..RR|GG..
; .GRR|GGG.
; .GGG|GGGG
; .GGG|GGGG
; .GRR|GGG.
; ..RR|GG..
; ....|O...
lda $3,s
and #$ff0f
ora #$0080
sta $3,s
lda $a1,s
and #$00ff
ora #$4400
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
ora #$440c
sta $1,s
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 #$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 #$00f0
ora #$440c
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
ora #$4400
sta $1,s
lda $3,s
; and #$ff00 not necessary with pure green
ora #$00cc
sta $3,s
lda $a3,s
and #$ff0f
ora #$0080
sta $a3,s
_spriteFooter
rtl
backupStack dc i2'0'
end