(dotdash) Added new project

This commit is contained in:
Devine Lu Linvega 2024-08-22 20:10:03 -07:00
parent c1ada0d3a6
commit 0132d025cd
1 changed files with 18 additions and 0 deletions

18
cli/dotdash/dotdash.tal Normal file
View File

@ -0,0 +1,18 @@
( . _ )
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|100
@on-reset ( -> )
;on-console .Console/vector DEO2
BRK
@on-console ( -> )
[ LITr -Console/read ] DEIr #f8
&>l ( -- )
[ LIT2 "._ ] STHkr #01 AND ?{ SWP }
POP #18 DEO
[ LITr 01 ] SFTr INC DUP ?&>l
POP POPr BRK