uxn/projects/examples/devices/console.write.tal

( usage: uxncli console.write.rom )

|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1

|0100

@on-reset ( -> )
	( | write )
	{ "Hello 20 "Write 0a 00 }
	STH2r
	&wa ( -- )
		LDAk .Console/write DEO
		INC2 LDAk ?&wa
	POP2
	( | error )
	{ "Hello 20 "Error 0a 00 }
	STH2r
	&wb ( -- )
		LDAk .Console/error DEO
		INC2 LDAk ?&wb
	POP2 BRK
Improved device examples 2023-07-16 16:41:40 +00:00			`( usage: uxncli console.write.rom )`

			`\|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1`

			`\|0100`

			`@on-reset ( -> )`
(console.write.tal) Added output example to /error port 2023-10-26 18:29:49 +00:00			`( \| write )`
			`{ "Hello 20 "Write 0a 00 }`
			`STH2r`
			`&wa ( -- )`
Improved device examples 2023-07-16 16:41:40 +00:00			`LDAk .Console/write DEO`
(console.write.tal) Added output example to /error port 2023-10-26 18:29:49 +00:00			`INC2 LDAk ?&wa`
			`POP2`
			`( \| error )`
			`{ "Hello 20 "Error 0a 00 }`
			`STH2r`
			`&wb ( -- )`
			`LDAk .Console/error DEO`
			`INC2 LDAk ?&wb`
Improved device examples 2023-07-16 16:41:40 +00:00			`POP2 BRK`