From 0132d025cd6073ab10bcf894243e4f296a8351be Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Thu, 22 Aug 2024 20:10:03 -0700 Subject: [PATCH] (dotdash) Added new project --- cli/dotdash/dotdash.tal | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 cli/dotdash/dotdash.tal diff --git a/cli/dotdash/dotdash.tal b/cli/dotdash/dotdash.tal new file mode 100644 index 0000000..4b7fdd1 --- /dev/null +++ b/cli/dotdash/dotdash.tal @@ -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 +