Browse code
(system.expansion.tal) Added expansion port test file
Devine Lu Linvega authored on 16/07/2023 04:58:41
Showing 1 changed files
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,25 @@ |
| 1 |
+ |
|
| 2 |
+|00 @System &catch $2 &expansion $2 &pad $2 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &halt $1 |
|
| 3 |
+|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 |
|
| 4 |
+ |
|
| 5 |
+|0100 |
|
| 6 |
+ |
|
| 7 |
+@on-reset ( -> ) |
|
| 8 |
+ ;cmd .System/expansion DEO2 |
|
| 9 |
+ ;dst <print-str> |
|
| 10 |
+ BRK |
|
| 11 |
+ |
|
| 12 |
+@cmd |
|
| 13 |
+ [ 01 000b 0000 =src 0000 =dst ] |
|
| 14 |
+ |
|
| 15 |
+@src |
|
| 16 |
+ "Hello 20 "World $80 |
|
| 17 |
+ |
|
| 18 |
+@dst $0c |
|
| 19 |
+ |
|
| 20 |
+@<print-str> ( str* -- ) |
|
| 21 |
+ &w ( -- ) |
|
| 22 |
+ LDAk #18 DEO |
|
| 23 |
+ INC2 LDAk ?&w |
|
| 24 |
+ POP2 JMP2r |
|
| 25 |
+ |