uxn/projects/examples/dev.console.usm

( dev/console )

%RTN { JMP2r }

( devices )

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

( init )

|0100 ( -> )
	
	;hello-word ;print JSR2
	
BRK

@print ( addr -- )
	
	&loop
		( send ) DUP2 GET .Console/char IOW
		( incr ) #0001 ADD2
		( loop ) DUP2 GET #00 NEQ ,&loop JNZ
	POP2

RTN

@hello-word [ 48 65 6c 6c 6f 20 57 6f 72 6c 64 21 ]
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
Ported the hello-world example 2021-04-20 14:32:26 -04:00			`;hello-word ;print JSR2`

Rewrote the devscreen example 2021-02-20 18:00:34 -05:00			`BRK`

Ported the hello-world example 2021-04-20 14:32:26 -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`
Implemented PEK/POK/GET/PUT 2021-04-21 13:23:58 -04:00			`( send ) DUP2 GET .Console/char IOW`
Jump experiments 2021-03-11 15:19:59 -05:00			`( incr ) #0001 ADD2`
Implemented PEK/POK/GET/PUT 2021-04-21 13:23:58 -04:00			`( loop ) DUP2 GET #00 NEQ ,&loop JNZ`
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
Ported the hello-world example 2021-04-20 14:32:26 -04:00			`@hello-word [ 48 65 6c 6c 6f 20 57 6f 72 6c 64 21 ]`