uxn

Varvara Ordinator, written in ANSI C(SDL2)
git clone https://git.eamoncaddigan.net/uxn.git
Log | Files | Refs | README | LICENSE
commit 8845a326d89c64100858b7f8ab44efb1a7134c0a
parent bceed46348f10ea05567268683e10551cf2e3c27
Author: neauoire <aliceffekt@gmail.com>
Date:   Thu, 13 May 2021 08:47:18 -0700

Fixed hello world

Diffstat:

MREADME.md | 18+++++++-----------


Mprojects/examples/devices/console.usm | 18+++++++-----------


2 files changed, 14 insertions(+), 22 deletions(-)

diff --git a/README.md b/README.md
@@ -34,19 +34,15 @@ Read more in the [Uxambly Guide](https://wiki.xxiivv.com/site/uxambly.html).
 
 |0100 ( -> )
 	
-	;hello-word ,print JSR
-	
-BRK
+	,hello-word 
 
-@print ( addr* -- )
-	
 	&loop
-		( send ) DUP2 LDA .Console/char DEO
-		( incr ) #0001 ADD2
-		( loop ) DUP2 LDA #00 NEQ ,&loop JCN
-	POP2
-
-RTN
+		( send ) LDRk .Console/char DEO
+		( incr ) #01 ADD
+		( loop ) DUP ,&loop JCN
+	POP
+	
+BRK
 
 @hello-word "hello 20 "World!
 ```
diff --git a/projects/examples/devices/console.usm b/projects/examples/devices/console.usm
@@ -10,18 +10,14 @@
 
 |0100 ( -> )
 	
-	,hello-word ,print JSR
-	
-BRK
+	,hello-word 
 
-@print ( addr* -- )
-	
 	&loop
-		( send ) LDAk .Console/char DEO
-		( incr ) #0001 ADD2
-		( loop ) LDAk ,&loop JCN
-	POP2
-
-RTN
+		( send ) LDRk .Console/char DEO
+		( incr ) #01 ADD
+		( loop ) DUP ,&loop JCN
+	POP
+	
+BRK
 
 @hello-word "hello 20 "World!
 \ No newline at end of file