uxn/projects/examples/devices/console.usm

( dev/console )

%RTN { JMP2r }

( devices )

|10 @Console    [ &pad $8 &char $1 ]

( init )

|0100 ( -> )
	
	;hello-word ,print JSR
	
BRK

@print ( addr* -- )
	
	&loop
		( send ) DUP2 LDA .Console/char DEO
		( incr ) #0001 ADD2
		( loop ) DUP2 LDA #00 NEQ ,&loop JCN
	POP2

RTN

@hello-word "hello 20 "World!
Ported the keys example 2021-04-21 12:09:18 -04:00			`( dev/console )`
Rewrote the devscreen example 2021-02-20 18:00:34 -05:00
Removed RTN 2021-03-16 00:29:44 -04:00			`%RTN { JMP2r }`

Allow device memory offsets in assembler 2021-04-21 08:45:17 -04:00			`( devices )`

			`\|10 @Console [ &pad $8 &char $1 ]`

Ported mouse example 2021-04-21 12:48:04 -04:00			`( init )`
Allow device memory offsets in assembler 2021-04-21 08:45:17 -04:00
Ported mouse example 2021-04-21 12:48:04 -04:00			`\|0100 ( -> )`
Rewrote the devscreen example 2021-02-20 18:00:34 -05:00
Removed LTS/GTS opcodes 2021-05-01 12:59:57 -04:00			`;hello-word ,print JSR`
Ported the hello-world example 2021-04-20 14:32:26 -04:00
Rewrote the devscreen example 2021-02-20 18:00:34 -05:00			`BRK`

Cleaned a few examples 2021-04-29 00:00:39 -04:00			`@print ( addr* -- )`
Jump experiments 2021-03-11 15:19:59 -05:00
Ported the hello-world example 2021-04-20 14:32:26 -04:00			`&loop`
* 2021-05-03 12:57:39 -04:00			`( send ) DUP2 LDA .Console/char DEO`
Jump experiments 2021-03-11 15:19:59 -05:00			`( incr ) #0001 ADD2`
JNZ is now JCN 2021-05-11 14:12:07 -04:00			`( loop ) DUP2 LDA #00 NEQ ,&loop JCN`
Started implementing structs everywhere 2021-02-23 16:49:36 -05:00			`POP2`
Improved hover example 2021-03-01 11:55:16 -05:00
Ported the hello-world example 2021-04-20 14:32:26 -04:00			`RTN`
Rewrote the devscreen example 2021-02-20 18:00:34 -05:00
Working toward bidirectional talk between devices and program 2021-04-24 12:43:30 -04:00			`@hello-word "hello 20 "World!`