Browse code
Fixed hello world
neauoire authored on 13/05/2021 15:47:18
Showing 2 changed files
| ... | ... |
@@ -34,19 +34,15 @@ Read more in the [Uxambly Guide](https://wiki.xxiivv.com/site/uxambly.html). |
| 34 | 34 |
|
| 35 | 35 |
|0100 ( -> ) |
| 36 | 36 |
|
| 37 |
- ;hello-word ,print JSR |
|
| 38 |
- |
|
| 39 |
-BRK |
|
| 37 |
+ ,hello-word |
|
| 40 | 38 |
|
| 41 |
-@print ( addr* -- ) |
|
| 42 |
- |
|
| 43 | 39 |
&loop |
| 44 |
- ( send ) DUP2 LDA .Console/char DEO |
|
| 45 |
- ( incr ) #0001 ADD2 |
|
| 46 |
- ( loop ) DUP2 LDA #00 NEQ ,&loop JCN |
|
| 47 |
- POP2 |
|
| 48 |
- |
|
| 49 |
-RTN |
|
| 40 |
+ ( send ) LDRk .Console/char DEO |
|
| 41 |
+ ( incr ) #01 ADD |
|
| 42 |
+ ( loop ) DUP ,&loop JCN |
|
| 43 |
+ POP |
|
| 44 |
+ |
|
| 45 |
+BRK |
|
| 50 | 46 |
|
| 51 | 47 |
@hello-word "hello 20 "World! |
| 52 | 48 |
``` |
| ... | ... |
@@ -10,18 +10,14 @@ |
| 10 | 10 |
|
| 11 | 11 |
|0100 ( -> ) |
| 12 | 12 |
|
| 13 |
- ,hello-word ,print JSR |
|
| 14 |
- |
|
| 15 |
-BRK |
|
| 13 |
+ ,hello-word |
|
| 16 | 14 |
|
| 17 |
-@print ( addr* -- ) |
|
| 18 |
- |
|
| 19 | 15 |
&loop |
| 20 |
- ( send ) LDAk .Console/char DEO |
|
| 21 |
- ( incr ) #0001 ADD2 |
|
| 22 |
- ( loop ) LDAk ,&loop JCN |
|
| 23 |
- POP2 |
|
| 24 |
- |
|
| 25 |
-RTN |
|
| 16 |
+ ( send ) LDRk .Console/char DEO |
|
| 17 |
+ ( incr ) #01 ADD |
|
| 18 |
+ ( loop ) DUP ,&loop JCN |
|
| 19 |
+ POP |
|
| 20 |
+ |
|
| 21 |
+BRK |
|
| 26 | 22 |
|
| 27 | 23 |
@hello-word "hello 20 "World! |
| 28 | 24 |
\ No newline at end of file |