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

Promising progress...

Browse Source
This commit is contained in:
Lee Fastenau 2017-03-13 11:33:22 -07:00
parent daddce6037
commit 1e80714179
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/conway.asm
View File

@ -115,6 +115,9 @@ y_bottomleft equ dataWidth*2
y_bottom equ dataWidth*2+1
y_bottomright equ dataWidth*2+2
y_copyfrom equ y_bottomright+1 ; Relative to current data pointer
y_copyto equ dataWidth+2 ; Relative to current neighbor pointer
; ------------------------------------
; Entry Point
; ------------------------------------
@ -126,7 +129,8 @@ main subroutine
sta currentPage
jsr initScreen
jsr updateData
jsr iterate
.1 jsr iterate
jmp .1
rts
LOG_REGION "main", main, 0
@ -211,7 +215,11 @@ iterate subroutine
TOGGLE bottomleft
TOGGLE bottom
TOGGLE bottomright
.continue sec
.continue ldy #y_copyfrom
lda (nbrAddr),y
ldy #y_copyto
sta (dataAddr),y
sec
lda dataAddr
sbc #1
sta dataAddr