uxn/projects/examples/demos/life.tal

( Game Of Life:
	Any live cell with fewer than two live neighbours dies, as if by underpopulation.
	Any live cell with two or three live neighbours lives on to the next generation.
	Any live cell with more than three live neighbours dies, as if by overpopulation.
	Any dead cell with exactly three live neighbours becomes a live cell, as if by reproduction. )

|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2
|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|30 @Audio0 &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1
|80 @Controller &vector $2 &button $1 &key $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $1

|0000

@world &frame $1 &count $2
@anchor &x $2 &y $2 &x2 $2 &y2 $2
@pointer &x $2 &y $2

|0100 ( -> )

	( theme )
	#02cf .System/r DEO2
	#02ff .System/g DEO2
	#024f .System/b DEO2
	( resize )
	#00c0
		DUP2 .Screen/width DEO2
		.Screen/height DEO2
	( vectors )
	;on-frame .Screen/vector DEO2
	;on-mouse .Mouse/vector DEO2
	;on-control .Controller/vector DEO2
	( glider )
	#0703 set-cell
	#0704 set-cell
	#0504 set-cell
	#0705 set-cell
	#0605 set-cell
	( center )
	.Screen/width DEI2 #01 SFT2 #0040 SUB2
		DUP2 .anchor/x STZ2
		#007e ADD2 .anchor/x2 STZ2
	.Screen/height DEI2 #01 SFT2 #0040 SUB2
		DUP2 .anchor/y STZ2
		#007e ADD2 .anchor/y2 STZ2

BRK

@on-frame ( -> )

	.Mouse/state DEI #00 EQU #01 JCN [ BRK ]
	#0000 .world/count STZ2
	.world/frame LDZ INC
		DUP .world/frame STZ
		#03 AND #00 EQU #01 JCN [ BRK ]
	run
	&paused

BRK

@on-mouse ( -> )

	( clear last cursor )
	;cursor .Screen/addr DEO2
	.pointer/x LDZ2 .Screen/x DEO2
	.pointer/y LDZ2 .Screen/y DEO2
	#40 .Screen/sprite DEO
	( record pointer positions )
	.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
	.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
	( colorize on state )
	#42 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/sprite DEO
	( on touch in rect )
	.Mouse/state DEI #00 NEQ #01 JCN [ BRK ]
	.Mouse/x DEI2 .Mouse/y DEI2 .anchor within-rect [ JMP BRK ]
	( paint )
	.Mouse/x DEI2 .anchor/x LDZ2 SUB2 #01 SFT NIP
	.Mouse/y DEI2 .anchor/y LDZ2 SUB2 #01 SFT NIP
		set-cell
	( draw )
	draw-grid

BRK

@on-control ( -> )

	( toggle play )
	.Controller/key DEI #20 NEQ ?&no-toggle
		;on-frame
		.Screen/vector DEI2 ;on-frame/paused EQU2 ?&swap
			POP2 ;on-frame/paused
			&swap
		.Screen/vector DEO2
		&no-toggle
	( clear on home )
	.Controller/button DEI #08 NEQ ?&no-reset
		;bank1 #0400 mclr
		&no-reset

BRK

@run ( -- )

	( clear buffer )
	;bank2 #1000 mclr
	( run grid )
	#4000
	&ver
		STHk
		#4000
		&hor
			DUP STHkr run-cell
			INC GTHk ?&hor
		POP2
		POPr
		INC GTHk ?&ver
	POP2
	( move buffer )
	;bank2 ;bank1 #1000 mcpy
	( draw )
!draw-grid

@run-cell ( x y -- )

	( x y ) DUP2k
	( neighbours ) get-neighbours
	( state ) ROT ROT get-cell
	#00 EQU ?&dead
		DUP #02 LTH ?&dies
		DUP #03 GTH ?&dies
		POP !&save
		&dies POP POP2 JMP2r
	&dead
		DUP #03 EQU ?&birth POP POP2 JMP2r
		&birth POP 

!&save

	&save ( x y -- )
		STH2 #01 STH2r get-index #1000 ADD2 STA
		.world/count LDZ2 INC2 .world/count STZ2
	JMP2r

@get-index ( x y -- index* )

	( y ) #3f AND #00 SWP #60 SFT2
	( x ) ROT #3f AND #00 SWP ADD2
		;bank1 ADD2

JMP2r

@set-cell ( x y -- )

	STH2 #01 STH2r get-index STA

JMP2r

@get-cell ( x y -- cell )

	get-index LDA

JMP2r

@get-neighbours ( x y -- neighbours )

	,&origin STR2
	LITr 00
	#0800
	&loop
		#00 OVRk ADD2 ;&mask ADD2 LDA2 [ LIT2 &origin $2 ]
		ROT ADD STH ADD STHr get-cell STH ADDr
		INC GTHk ?&loop
	POP2
	STHr

JMP2r
	&mask [ ffff 00ff 01ff ff00 0100 ff01 0001 0101 ]

@draw-grid ( -- )

	( draw cell count )
	.anchor/x LDZ2 .Screen/x DEO2
	.anchor/y2 LDZ2 #0008 ADD2 .Screen/y DEO2
	#01 .Screen/auto DEO
	.world/count LDZ2 draw-short
	#00 .Screen/auto DEO
	#4000
	&ver
		#00 OVRk ADD2 .anchor/y LDZ2 ADD2 .Screen/y DEO2
		STHk
		#4000
		&hor
			#00 OVRk ADD2 .anchor/x LDZ2 ADD2 .Screen/x DEO2
			DUP STHkr get-cell INC .Screen/pixel DEO
			INC GTHk ?&hor
		POP2
		POPr
		INC GTHk ?&ver
	POP2

JMP2r

@draw-short ( short* -- )

	SWP draw-byte

@draw-byte ( byte color -- )

	DUP #04 SFT draw-hex #0f AND

@draw-hex ( char color -- )

	#00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
	[ LIT2 03 -Screen/sprite ] DEO

JMP2r

@within-rect ( x* y* rect -- flag )

	STH
	( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ?&skip
	( y > rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ?&skip
	SWP2
	( x < rect.x1 ) DUP2 STHkr LDZ2 LTH2 ?&skip
	( x > rect.x2 ) DUP2 STHkr #04 ADD LDZ2 GTH2 ?&skip
	POP2 POP2 POPr
	#01
JMP2r
	&skip
	POP2 POP2 POPr #00 JMP2r

@mclr ( addr* len* -- )

	OVR2 ADD2 SWP2
	&loop
		STH2k #00 STH2r STA
		INC2 GTH2k ?&loop
	POP2 POP2

JMP2r

@mcpy ( src* dst* len* -- )

	SWP2 STH2
	OVR2 ADD2 SWP2
	&loop
		LDAk STH2kr STA INC2r
		INC2 GTH2k ?&loop
	POP2 POP2
	POP2r

JMP2r

@cursor [
	80c0 e0f0 f8e0 1000 ]

@font-hex [
	7c82 8282 8282 7c00
	3010 1010 1010 3800
	7c82 027c 8080 fe00
	7c82 021c 0282 7c00
	2242 82fe 0202 0200
	fe80 807c 0282 7c00
	7c82 80fc 8282 7c00
	fe82 0408 0810 1000
	7c82 827c 8282 7c00
	7c82 827e 0202 0200
	7c82 82fe 8282 8200
	fc82 82fc 8282 fc00
	7c82 8080 8082 7c00
	fc82 8282 8282 fc00
	fe80 80f0 8080 fe00
	fe80 80f0 8080 8000 ]

@bank1 $1000 @bank2
(examples/) Improved a few demos 2022-03-25 15:05:11 -04:00			`( Game Of Life:`
Added Game Of Life 2021-05-05 23:16:27 -04:00			`Any live cell with fewer than two live neighbours dies, as if by underpopulation.`
Added cell count to GOL 2021-05-06 13:38:38 -04:00			`Any live cell with two or three live neighbours lives on to the next generation.`
			`Any live cell with more than three live neighbours dies, as if by overpopulation.`
			`Any dead cell with exactly three live neighbours becomes a live cell, as if by reproduction. )`
Game of life 2021-05-05 21:38:28 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`\|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2`
			`\|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1`
			`\|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1`
			`\|30 @Audio0 &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1`
			`\|80 @Controller &vector $2 &button $1 &key $1`
			`\|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $1`
Game of life 2021-05-05 21:38:28 -04:00
			`\|0000`

(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`@world &frame $1 &count $2`
			`@anchor &x $2 &y $2 &x2 $2 &y2 $2`
			`@pointer &x $2 &y $2`
Game of life 2021-05-05 21:38:28 -04:00
			`\|0100 ( -> )`

(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`( theme )`
			`#02cf .System/r DEO2`
			`#02ff .System/g DEO2`
Optimized life.tal 2021-08-07 23:03:13 -04:00			`#024f .System/b DEO2`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( resize )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`#00c0`
			`DUP2 .Screen/width DEO2`
			`.Screen/height DEO2`
Game of life 2021-05-05 21:38:28 -04:00			`( vectors )`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`;on-frame .Screen/vector DEO2`
			`;on-mouse .Mouse/vector DEO2`
Added cell count to GOL 2021-05-06 13:38:38 -04:00			`;on-control .Controller/vector DEO2`
Game of life 2021-05-05 21:38:28 -04:00			`( glider )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`#0703 set-cell`
			`#0704 set-cell`
			`#0504 set-cell`
			`#0705 set-cell`
			`#0605 set-cell`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( center )`
			`.Screen/width DEI2 #01 SFT2 #0040 SUB2`
			`DUP2 .anchor/x STZ2`
			`#007e ADD2 .anchor/x2 STZ2`
			`.Screen/height DEI2 #01 SFT2 #0040 SUB2`
			`DUP2 .anchor/y STZ2`
			`#007e ADD2 .anchor/y2 STZ2`
Added cell count to GOL 2021-05-06 13:38:38 -04:00
Game of life 2021-05-05 21:38:28 -04:00			`BRK`

			`@on-frame ( -> )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`.Mouse/state DEI #00 EQU #01 JCN [ BRK ]`
			`#0000 .world/count STZ2`
			`.world/frame LDZ INC`
			`DUP .world/frame STZ`
			`#03 AND #00 EQU #01 JCN [ BRK ]`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`run`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`&paused`
Added Game Of Life 2021-05-05 23:16:27 -04:00
			`BRK`

			`@on-mouse ( -> )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
Added Game Of Life 2021-05-05 23:16:27 -04:00			`( clear last cursor )`
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`;cursor .Screen/addr DEO2`
			`.pointer/x LDZ2 .Screen/x DEO2`
			`.pointer/y LDZ2 .Screen/y DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 16:58:33 -04:00			`#40 .Screen/sprite DEO`
Added Game Of Life 2021-05-05 23:16:27 -04:00			`( record pointer positions )`
Improved piano example 2021-07-09 14:38:45 -04:00			`.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2`
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2`
Added Game Of Life 2021-05-05 23:16:27 -04:00			`( colorize on state )`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`#42 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/sprite DEO`
			`( on touch in rect )`
			`.Mouse/state DEI #00 NEQ #01 JCN [ BRK ]`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`.Mouse/x DEI2 .Mouse/y DEI2 .anchor within-rect [ JMP BRK ]`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( paint )`
			`.Mouse/x DEI2 .anchor/x LDZ2 SUB2 #01 SFT NIP`
			`.Mouse/y DEI2 .anchor/y LDZ2 SUB2 #01 SFT NIP`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`set-cell`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( draw )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`draw-grid`
Added Game Of Life 2021-05-05 23:16:27 -04:00
			`BRK`

Added cell count to GOL 2021-05-06 13:38:38 -04:00			`@on-control ( -> )`

(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( toggle play )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`.Controller/key DEI #20 NEQ ?&no-toggle`
Optimized life.tal 2021-08-07 23:03:13 -04:00			`;on-frame`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`.Screen/vector DEI2 ;on-frame/paused EQU2 ?&swap`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`POP2 ;on-frame/paused`
Optimized life.tal 2021-08-07 23:03:13 -04:00			`&swap`
			`.Screen/vector DEO2`
			`&no-toggle`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( clear on home )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`.Controller/button DEI #08 NEQ ?&no-reset`
			`;bank1 #0400 mclr`
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`&no-reset`

Added cell count to GOL 2021-05-06 13:38:38 -04:00			`BRK`

(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`@run ( -- )`
Added Game Of Life 2021-05-05 23:16:27 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( clear buffer )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`;bank2 #1000 mclr`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( run grid )`
			`#4000`
Game of life 2021-05-05 21:38:28 -04:00			`&ver`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`STHk`
			`#4000`
Game of life 2021-05-05 21:38:28 -04:00			`&hor`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`DUP STHkr run-cell`
			`INC GTHk ?&hor`
Cleaned example files 2021-05-12 21:28:45 -04:00			`POP2`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`POPr`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`INC GTHk ?&ver`
Game of life 2021-05-05 21:38:28 -04:00			`POP2`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( move buffer )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`;bank2 ;bank1 #1000 mcpy`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( draw )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`!draw-grid`
Game of life 2021-05-05 21:38:28 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`@run-cell ( x y -- )`
Game of life 2021-05-05 21:38:28 -04:00
Minor changes to a few example projects 2022-05-27 23:12:59 -04:00			`( x y ) DUP2k`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`( neighbours ) get-neighbours`
			`( state ) ROT ROT get-cell`
			`#00 EQU ?&dead`
			`DUP #02 LTH ?&dies`
			`DUP #03 GTH ?&dies`
			`POP !&save`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`&dies POP POP2 JMP2r`
			`&dead`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`DUP #03 EQU ?&birth POP POP2 JMP2r`
			`&birth POP`

			`!&save`
Game of life 2021-05-05 21:38:28 -04:00
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`&save ( x y -- )`
			`STH2 #01 STH2r get-index #1000 ADD2 STA`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`.world/count LDZ2 INC2 .world/count STZ2`
			`JMP2r`

			`@get-index ( x y -- index* )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
			`( y ) #3f AND #00 SWP #60 SFT2`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( x ) ROT #3f AND #00 SWP ADD2`
			`;bank1 ADD2`
Game of life 2021-05-05 21:38:28 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`JMP2r`
Game of life 2021-05-05 21:38:28 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`@set-cell ( x y -- )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
			`STH2 #01 STH2r get-index STA`
Add RLE text import to life.tal 2021-11-26 17:29:20 -05:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`JMP2r`
Add RLE text import to life.tal 2021-11-26 17:29:20 -05:00
Game of life 2021-05-05 21:38:28 -04:00			`@get-cell ( x y -- cell )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
			`get-index LDA`
Game of life 2021-05-05 21:38:28 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`JMP2r`
Game of life 2021-05-05 21:38:28 -04:00
			`@get-neighbours ( x y -- neighbours )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`,&origin STR2`
			`LITr 00`
			`#0800`
			`&loop`
Housekeeping on some of the example files 2022-07-22 14:57:45 -04:00			`#00 OVRk ADD2 ;&mask ADD2 LDA2 [ LIT2 &origin $2 ]`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`ROT ADD STH ADD STHr get-cell STH ADDr`
			`INC GTHk ?&loop`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`POP2`
Game of life 2021-05-05 21:38:28 -04:00			`STHr`

(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`JMP2r`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`&mask [ ffff 00ff 01ff ff00 0100 ff01 0001 0101 ]`
Game of life 2021-05-05 21:38:28 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`@draw-grid ( -- )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`( draw cell count )`
			`.anchor/x LDZ2 .Screen/x DEO2`
			`.anchor/y2 LDZ2 #0008 ADD2 .Screen/y DEO2`
			`#01 .Screen/auto DEO`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`.world/count LDZ2 draw-short`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`#00 .Screen/auto DEO`
			`#4000`
			`&ver`
Housekeeping on some of the example files 2022-07-22 14:57:45 -04:00			`#00 OVRk ADD2 .anchor/y LDZ2 ADD2 .Screen/y DEO2`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`STHk`
			`#4000`
			`&hor`
Housekeeping on some of the example files 2022-07-22 14:57:45 -04:00			`#00 OVRk ADD2 .anchor/x LDZ2 ADD2 .Screen/x DEO2`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`DUP STHkr get-cell INC .Screen/pixel DEO`
			`INC GTHk ?&hor`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`POP2`
			`POPr`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`INC GTHk ?&ver`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`POP2`
Added cell count to GOL 2021-05-06 13:38:38 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`JMP2r`

			`@draw-short ( short* -- )`

(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`SWP draw-byte`
Added --install flag to build script 2022-02-03 22:52:12 -05:00
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`@draw-byte ( byte color -- )`
Added --install flag to build script 2022-02-03 22:52:12 -05:00
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`DUP #04 SFT draw-hex #0f AND`
Added --install flag to build script 2022-02-03 22:52:12 -05:00
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`@draw-hex ( char color -- )`
Added --install flag to build script 2022-02-03 22:52:12 -05:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`#00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`[ LIT2 03 -Screen/sprite ] DEO`
Added cell count to GOL 2021-05-06 13:38:38 -04:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`JMP2r`

			`@within-rect ( x* y* rect -- flag )`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`STH`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ?&skip`
			`( y > rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ?&skip`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`SWP2`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`( x < rect.x1 ) DUP2 STHkr LDZ2 LTH2 ?&skip`
			`( x > rect.x2 ) DUP2 STHkr #04 ADD LDZ2 GTH2 ?&skip`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`POP2 POP2 POPr`
			`#01`
			`JMP2r`
			`&skip`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`POP2 POP2 POPr #00 JMP2r`
Added cell count to GOL 2021-05-06 13:38:38 -04:00
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`@mclr ( addr* len* -- )`

(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`OVR2 ADD2 SWP2`
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`&loop`
			`STH2k #00 STH2r STA`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`INC2 GTH2k ?&loop`
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`POP2 POP2`

			`JMP2r`

			`@mcpy ( src* dst* len* -- )`

			`SWP2 STH2`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`OVR2 ADD2 SWP2`
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`&loop`
			`LDAk STH2kr STA INC2r`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`INC2 GTH2k ?&loop`
(life.tal) Minor cleanup 2022-02-08 23:04:18 -05:00			`POP2 POP2`
			`POP2r`

			`JMP2r`

(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`@cursor [`
			`80c0 e0f0 f8e0 1000 ]`
Cleaned example files 2021-05-12 21:28:45 -04:00
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`@font-hex [`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00			`7c82 8282 8282 7c00`
			`3010 1010 1010 3800`
			`7c82 027c 8080 fe00`
			`7c82 021c 0282 7c00`
			`2242 82fe 0202 0200`
			`fe80 807c 0282 7c00`
			`7c82 80fc 8282 7c00`
			`fe82 0408 0810 1000`
			`7c82 827c 8282 7c00`
			`7c82 827e 0202 0200`
			`7c82 82fe 8282 8200`
			`fc82 82fc 8282 fc00`
			`7c82 8080 8082 7c00`
			`fc82 8282 8282 fc00`
			`fe80 80f0 8080 fe00`
(life.tal) Migrated to immediate opcodes 2023-03-05 23:58:55 -05:00			`fe80 80f0 8080 8000 ]`
(life.tal) General optimizations 2022-03-26 00:36:33 -04:00
			`@bank1 $1000 @bank2`