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 PEK2 .Console/char IOW
		( incr ) #0001 ADD2
		( loop ) DUP2 PEK2 #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 16:09:18 +00:00			`( dev/console )`
Rewrote the devscreen example 2021-02-20 23:00:34 +00:00
Removed RTN 2021-03-16 04:29:44 +00:00			`%RTN { JMP2r }`

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

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

Ported mouse example 2021-04-21 16:48:04 +00:00			`( init )`
Allow device memory offsets in assembler 2021-04-21 12:45:17 +00:00
Ported mouse example 2021-04-21 16:48:04 +00:00			`\|0100 ( -> )`
Rewrote the devscreen example 2021-02-20 23:00:34 +00:00
Ported the hello-world example 2021-04-20 18:32:26 +00:00			`;hello-word ;print JSR2`

Rewrote the devscreen example 2021-02-20 23:00:34 +00:00			`BRK`

Ported the hello-world example 2021-04-20 18:32:26 +00:00			`@print ( addr -- )`
Jump experiments 2021-03-11 20:19:59 +00:00
Ported the hello-world example 2021-04-20 18:32:26 +00:00			`&loop`
			`( send ) DUP2 PEK2 .Console/char IOW`
Jump experiments 2021-03-11 20:19:59 +00:00			`( incr ) #0001 ADD2`
Ported the hello-world example 2021-04-20 18:32:26 +00:00			`( loop ) DUP2 PEK2 #00 NEQ ,&loop JNZ`
Started implementing structs everywhere 2021-02-23 21:49:36 +00:00			`POP2`
Improved hover example 2021-03-01 16:55:16 +00:00
Ported the hello-world example 2021-04-20 18:32:26 +00:00			`RTN`
Rewrote the devscreen example 2021-02-20 23:00:34 +00:00
Ported the hello-world example 2021-04-20 18:32:26 +00:00			`@hello-word [ 48 65 6c 6c 6f 20 57 6f 72 6c 64 21 ]`