aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/do-sliteral.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/avr8/words/do-sliteral.asm')
-rw-r--r--amforth-6.5/avr8/words/do-sliteral.asm21
1 files changed, 21 insertions, 0 deletions
diff --git a/amforth-6.5/avr8/words/do-sliteral.asm b/amforth-6.5/avr8/words/do-sliteral.asm
new file mode 100644
index 0000000..41ddb15
--- /dev/null
+++ b/amforth-6.5/avr8/words/do-sliteral.asm
@@ -0,0 +1,21 @@
+; ( -- addr len )
+; String
+; runtime portion of sliteral
+;VE_DOSLITERAL:
+; .dw $ff0a
+; .db "(sliteral)"
+; .dw VE_HEAD
+; .set VE_HEAD = VE_DOSLITERAL
+XT_DOSLITERAL:
+ .dw DO_COLON
+PFA_DOSLITERAL:
+ .dw XT_R_FETCH ; ( -- addr )
+ .dw XT_ICOUNT
+ .dw XT_R_FROM
+ .dw XT_OVER ; ( -- addr' n addr n)
+ .dw XT_1PLUS
+ .dw XT_2SLASH ; ( -- addr' n addr k )
+ .dw XT_PLUS ; ( -- addr' n addr'' )
+ .dw XT_1PLUS
+ .dw XT_TO_R ; ( -- )
+ .dw XT_EXIT