commit f0377ca2d994ec92f8ce0ba6b3df1a9fb1135516 parent 1880b1cd2a86dbfb9f4b9c57f0cfd3d713f087a2 Author: Devine Lu Linvega <aliceffekt@gmail.com> Date: Sat, 15 Jul 2023 21:58:41 -0700 (system.expansion.tal) Added expansion port test file Diffstat:
| A | projects/examples/devices/system.expansion.tal | | | 25 | +++++++++++++++++++++++++ |
1 file changed, 25 insertions(+), 0 deletions(-)
diff --git a/projects/examples/devices/system.expansion.tal b/projects/examples/devices/system.expansion.tal @@ -0,0 +1,25 @@ + +|00 @System &catch $2 &expansion $2 &pad $2 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &halt $1 +|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 + +|0100 + +@on-reset ( -> ) + ;cmd .System/expansion DEO2 + ;dst <print-str> + BRK + +@cmd + [ 01 000b 0000 =src 0000 =dst ] + +@src + "Hello 20 "World $80 + +@dst $0c + +@<print-str> ( str* -- ) + &w ( -- ) + LDAk #18 DEO + INC2 LDAk ?&w + POP2 JMP2r +