aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/itype.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/avr8/words/itype.asm')
-rw-r--r--amforth-6.5/avr8/words/itype.asm74
1 files changed, 0 insertions, 74 deletions
diff --git a/amforth-6.5/avr8/words/itype.asm b/amforth-6.5/avr8/words/itype.asm
deleted file mode 100644
index 7831344..0000000
--- a/amforth-6.5/avr8/words/itype.asm
+++ /dev/null
@@ -1,74 +0,0 @@
-; ( addr n -- )
-; Tools
-; reads string from flash and prints it
-VE_ITYPE:
- .dw $ff05
- .db "itype",0
- .dw VE_HEAD
- .set VE_HEAD = VE_ITYPE
-XT_ITYPE:
- .dw DO_COLON
-PFA_ITYPE:
- .dw XT_DUP ; ( --addr len len)
- .dw XT_2SLASH ; ( -- addr len len/2
- .dw XT_TUCK ; ( -- addr len/2 len len/2
- .dw XT_2STAR ; ( -- addr len/2 len len'
- .dw XT_MINUS ; ( -- addr len/2 rem
- .dw XT_TO_R
- .dw XT_ZERO
- .dw XT_QDOCHECK
- .dw XT_DOCONDBRANCH
- .dw PFA_ITYPE2
- .dw XT_DODO
-PFA_ITYPE1:
- .dw XT_DUP ; ( -- addr addr )
- .dw XT_FETCHI ; ( -- addr c1c2 )
- .dw XT_DUP
- .dw XT_LOWEMIT
- .dw XT_HIEMIT
- .dw XT_1PLUS ; ( -- addr+cell )
- .dw XT_DOLOOP
- .dw PFA_ITYPE1
-PFA_ITYPE2:
- .dw XT_R_FROM
- .dw XT_GREATERZERO
- .dw XT_DOCONDBRANCH
- .dw PFA_ITYPE3
- .dw XT_DUP ; make sure the drop below has always something to do
- .dw XT_FETCHI
- .dw XT_LOWEMIT
-PFA_ITYPE3:
- .dw XT_DROP
- .dw XT_EXIT
-
-; ( w -- )
-; R( -- )
-; content of cell fetched on stack.
-;VE_HIEMIT:
-; .dw $ff06
-; .db "hiemit"
-; .dw VE_HEAD
-; .set VE_HEAD = VE_HIEMIT
-XT_HIEMIT:
- .dw DO_COLON
-PFA_HIEMIT:
- .dw XT_BYTESWAP
- .dw XT_LOWEMIT
- .dw XT_EXIT
-
-; ( w -- )
-; R( -- )
-; content of cell fetched on stack.
-;VE_LOWEMIT:
-; .dw $ff07
-; .db "lowemit"
-; .dw VE_HEAD
-; .set VE_HEAD = VE_LOWEMIT
-XT_LOWEMIT:
- .dw DO_COLON
-PFA_LOWEMIT:
- .dw XT_DOLITERAL
- .dw $00ff
- .dw XT_AND
- .dw XT_EMIT
- .dw XT_EXIT