Default field is a glider gun.
This commit is contained in:
parent
71ea27eea0
commit
7e16ebc98c
|
@ -13,7 +13,7 @@
|
|||
; ------------------------------------
|
||||
|
||||
NOISY equ 1
|
||||
CHARSET equ 0 ; 0 = Olde Skoole, 1 = Pixel, 2 = Small O's
|
||||
CHARSET equ 2 ; 0 = Olde Skoole, 1 = Pixel, 2 = Inverse, 3 = Small O's
|
||||
|
||||
; ------------------------------------
|
||||
; Constants
|
||||
|
@ -51,6 +51,11 @@ charOff equ ' | normalText
|
|||
endif
|
||||
|
||||
if CHARSET == 2
|
||||
charOn equ ' | normalText
|
||||
charOff equ ' & inverseText
|
||||
endif
|
||||
|
||||
if CHARSET == 3
|
||||
charOn equ 'o | normalText
|
||||
charOff equ ' | normalText
|
||||
endif
|
||||
|
@ -97,7 +102,9 @@ start subroutine
|
|||
jsr makeRules ; Create Conway rules table
|
||||
jsr initScreen ; Render initial cell layout
|
||||
jsr updateData ; Initialize backing data based on displayed cells
|
||||
jsr RDKEY
|
||||
.1 jsr iterate ; Modify and display next generation
|
||||
jsr RDKEY
|
||||
jmp .1 ; Until cows come home
|
||||
|
||||
iterate subroutine
|
||||
|
@ -433,25 +440,25 @@ textRowsTable subroutine
|
|||
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,%00100000,%00000000,%00000000,%00000000
|
||||
dc.b %00000000,%00010000,%00000000,%00000000,%00010000
|
||||
dc.b %00000000,%01110000,%00000000,%00000000,%00100000
|
||||
dc.b %00000000,%00000000,%00000000,%00000000,%00111000
|
||||
dc.b %00000000,%00000000,%00000000,%00001000,%00000000
|
||||
dc.b %00000000,%00000000,%00000000,%00001010,%00000000
|
||||
dc.b %00001000,%00000000,%00000000,%00001100,%00000000
|
||||
dc.b %00000100,%00000000,%00000000,%00000000,%00000000
|
||||
dc.b %00011100,%00111000,%00000000,%00000000,%00000000
|
||||
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
|
||||
dc.b %00000000,%00011100,%00111000,%00000000,%00000000
|
||||
dc.b %00000000,%00000000,%00000000,%01000000,%00000000
|
||||
dc.b %00000000,%00000000,%00000001,%01000000,%00000000
|
||||
dc.b %00000000,%00000110,%00000110,%00000000,%00011000
|
||||
dc.b %00000000,%00001000,%10000110,%00000000,%00011000
|
||||
dc.b %01100000,%00010000,%01000110,%00000000,%00000000
|
||||
dc.b %01100000,%00010001,%01100001,%01000000,%00000000
|
||||
dc.b %00000000,%00010000,%01000000,%01000000,%00000000
|
||||
dc.b %00000000,%00001000,%10000000,%00000000,%00000000
|
||||
dc.b %00000000,%00000110,%00000000,%00000000,%00000000
|
||||
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
|
||||
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
|
||||
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
|
||||
dc.b %00000000,%00001110,%00000000,%00000000,%00001000
|
||||
dc.b %00000000,%00000000,%00000000,%00000000,%00010100
|
||||
dc.b %00000000,%00111000,%00000000,%00000000,%00010100
|
||||
dc.b %00000000,%01000100,%00001000,%00000000,%00010100
|
||||
dc.b %00000000,%00111000,%00010100,%00000000,%00001000
|
||||
dc.b %00000000,%00000000,%00010100,%00000000,%00000000
|
||||
dc.b %00000000,%00000000,%00001000,%00000000,%00000000
|
||||
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
|
||||
dc.b %00000000,%00000000,%00000000,%00000000,%00000000
|
||||
|
||||
|
|
Loading…
Reference in New Issue