Apple-2-SW/ConwayII
1
0
Fork 0
mirror of https://github.com/thelbane/ConwayII.git synced 2024-06-15 23:29:41 +00:00
Code Issues Projects Releases Wiki Activity

Cleanup/rename labels.

Browse Source
This commit is contained in:
Lee Fastenau 2017-05-01 20:43:02 -07:00
parent a41493b6f7
commit 96bc50b42a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/conway.asm
View File

@ -149,12 +149,14 @@ perfTest subroutine
echo "END TIMER BREAKPOINT:",.endTimer echo "END TIMER BREAKPOINT:",.endTimer
iterate subroutine iterate subroutine
mac TURN_ON mac TURN_ON
ldy #y_{1} ldy #y_{1}
lda (altData),y lda (altData),y
ora #n_{1} ora #n_{1}
sta (altData),y sta (altData),y
endm endm
lda #1 lda #1
eor currentPage eor currentPage
sta currentPage sta currentPage
@ -172,20 +174,20 @@ iterate subroutine
ldy #0 ; .column ldy #0 ; .column
.column equ .-1 .column equ .-1
sta (textRow),y ; set char based on rule sta (textRow),y ; set char based on rule
bne .updateData bne .setBits
.doNothing ldy .column .doNothing ldy .column
lda (textRow),y lda (textRow),y
.updateData cmp #charOn ; A = cell character .setBits cmp #charOn ; A = cell character
bne .clearBit ; cell is disabled, so clear the topleft neighbor bne .clearTopLeft ; cell is disabled, so clear the topleft neighbor
if NOISY if NOISY
bit CLICK bit CLICK
endif endif
ldy #y_topleft ; cell is enabled, so turn on corresponding neighbor bits ldy #y_topleft ; cell is enabled, so turn on corresponding neighbor bits
lda #n_topleft ; top left neighbor is special since it contains stale data lda #n_topleft ; top left neighbor is special since it contains stale data
sta (altData),y ; so we just set the whole byte instead of ORing the bit sta (altData),y ; so we just set the whole byte instead of ORing the bit
TURN_ON top TURN_ON top
if NOISY if NOISY
bit CLICK bit CLICK ; (Pretend I'm not here... I just click the speaker)
endif endif
TURN_ON topright TURN_ON topright
TURN_ON left TURN_ON left
@ -194,7 +196,7 @@ iterate subroutine
TURN_ON bottom TURN_ON bottom
TURN_ON bottomright TURN_ON bottomright
jmp .continue jmp .continue
.clearBit ldy #y_topleft ; cell is disabled, so clear the topleft neighbor (just like it said above) .clearTopLeft ldy #y_topleft ; cell is disabled, so clear the topleft neighbor (just like it said above)
lda #0 lda #0
sta (altData),y sta (altData),y
.continue ldy .column .continue ldy .column