(system.expansion.tal) Added expansion port test file
This commit is contained in:
parent
1880b1cd2a
commit
f0377ca2d9
|
@ -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
|
||||
|
Loading…
Reference in New Issue