Browse code
(console.write.tal) Added output example to /error port
neauoire authored on 26/10/2023 18:29:49
Showing 2 changed files
| ... | ... |
@@ -5,12 +5,18 @@ |
| 5 | 5 |
|0100 |
| 6 | 6 |
|
| 7 | 7 |
@on-reset ( -> ) |
| 8 |
- ;text |
|
| 9 |
- &while ( -- ) |
|
| 8 |
+ ( | write ) |
|
| 9 |
+ { "Hello 20 "Write 0a 00 }
|
|
| 10 |
+ STH2r |
|
| 11 |
+ &wa ( -- ) |
|
| 10 | 12 |
LDAk .Console/write DEO |
| 11 |
- INC2 LDAk ?&while |
|
| 13 |
+ INC2 LDAk ?&wa |
|
| 14 |
+ POP2 |
|
| 15 |
+ ( | error ) |
|
| 16 |
+ { "Hello 20 "Error 0a 00 }
|
|
| 17 |
+ STH2r |
|
| 18 |
+ &wb ( -- ) |
|
| 19 |
+ LDAk .Console/error DEO |
|
| 20 |
+ INC2 LDAk ?&wb |
|
| 12 | 21 |
POP2 BRK |
| 13 | 22 |
|
| 14 |
-@text |
|
| 15 |
- "Hello $1 |
|
| 16 |
- |