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

Add edge test pattern

Browse Source
This commit is contained in:
Lee Fastenau 2017-05-03 21:09:02 -07:00
parent 9453ae6d22
commit 5e65fb4885
1 changed files with 33 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/conway.asm
View File

@ -25,9 +25,10 @@
; Build Options
; ------------------------------------
NOISY equ 1
CHARSET equ 4 ; 0 = Olde Skoole, 1 = Pixel, 2 = Inverse, 3 = Small O's, 4 = Experiment
NOISY equ 1 ; 0 = Sound off, 1 = Sound on
CHARSET equ 4 ; 0 = Olde Skoole, 1 = Pixel, 2 = Inverse, 3 = Small O's, 4 = Enhanced
TEST_PERF equ 0
INIT_PATTERN equ 1 ; 0 = Glider gun, 1 = "Random", 2 = Edge test
; ------------------------------------
; Constants
@ -193,10 +194,10 @@ iterate subroutine
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
sta (altData),y ; so we just set the whole byte instead of ORing the bit
TURN_ON top
if NOISY
bit CLICK ; (Pretend I'm not here... I just click the speaker)
endif
TURN_ON top
TURN_ON topright
TURN_ON left
TURN_ON right
@ -508,7 +509,7 @@ textRowsTable subroutine ; Lookup table for text page 0 r
repend
LOG_REGION "textRowsTable", textRowsTable, 0
if 0
if INIT_PATTERN == 0 ; Glider gun
initData dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%01000000,%00000000
dc.b %00000000,%00000000,%00000001,%01000000,%00000000
@ -533,7 +534,8 @@ initData dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
else
endif
if INIT_PATTERN == 1 ; "Random"
initData dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%01000000
@ -559,6 +561,32 @@ initData dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
endif
if INIT_PATTERN == 2 ; Edge test
initData dc.b %11000000,%00000000,%00011000,%00000000,%00000011
dc.b %11000000,%00000000,%00100100,%00000000,%00000011
dc.b %00000000,%00000000,%00011000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %11100000,%00000000,%00000000,%00000000,%00000111
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00011100,%00000000,%00111000,%00000000
dc.b %00000000,%00010000,%11011011,%00001000,%00000000
dc.b %00000000,%00001000,%11011011,%00010000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00001000,%11011011,%00010000,%00000000
dc.b %00000000,%00010000,%11011011,%00001000,%00000000
dc.b %00000000,%00011100,%00000000,%00111000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %11100000,%00000000,%00000000,%00000000,%00000111
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
dc.b %00000000,%00000000,%00011000,%00000000,%00000000
dc.b %11000000,%00000000,%00100100,%00000000,%00000011
dc.b %11000000,%00000000,%00011000,%00000000,%00000011
endif
initDataLen equ .-initData
dataSeg equ .