aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/type.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/words/type.asm')
-rw-r--r--amforth-6.5/common/words/type.asm32
1 files changed, 32 insertions, 0 deletions
diff --git a/amforth-6.5/common/words/type.asm b/amforth-6.5/common/words/type.asm
new file mode 100644
index 0000000..66929b0
--- /dev/null
+++ b/amforth-6.5/common/words/type.asm
@@ -0,0 +1,32 @@
+; ( addr n -- )
+; Character IO
+; print a RAM based string
+
+.if cpu_msp430==1
+ HEADER(XT_TYPE,4,"type",DOCOLON)
+.endif
+
+.if cpu_avr8==1
+VE_TYPE:
+ .dw $ff04
+ .db "type"
+ .dw VE_HEAD
+ .set VE_HEAD = VE_TYPE
+XT_TYPE:
+ .dw DO_COLON
+PFA_TYPE:
+
+.endif
+ .dw XT_BOUNDS
+ .dw XT_QDOCHECK
+ .dw XT_DOCONDBRANCH
+ DEST(PFA_TYPE2)
+ .dw XT_DODO
+PFA_TYPE1:
+ .dw XT_I
+ .dw XT_CFETCH
+ .dw XT_EMIT
+ .dw XT_DOLOOP
+ DEST(PFA_TYPE1)
+PFA_TYPE2:
+ .dw XT_EXIT