diff --git a/projects/examples/devices/system.expansion.tal b/projects/examples/devices/system.expansion.tal new file mode 100644 index 0000000..2a687e6 --- /dev/null +++ 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 + BRK + +@cmd + [ 01 000b 0000 =src 0000 =dst ] + +@src + "Hello 20 "World $80 + +@dst $0c + +@ ( str* -- ) + &w ( -- ) + LDAk #18 DEO + INC2 LDAk ?&w + POP2 JMP2r +