aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/parse-name.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/words/parse-name.asm')
-rw-r--r--amforth-6.5/common/words/parse-name.asm60
1 files changed, 0 insertions, 60 deletions
diff --git a/amforth-6.5/common/words/parse-name.asm b/amforth-6.5/common/words/parse-name.asm
deleted file mode 100644
index 3c26396..0000000
--- a/amforth-6.5/common/words/parse-name.asm
+++ /dev/null
@@ -1,60 +0,0 @@
-; ( "<name>" -- c-addr u )
-; String
-; In the SOURCE buffer parse whitespace delimited string. Returns string address within SOURCE.
-
-.if cpu_msp430==1
- HEADER(XT_PARSENAME,10,"parse-name",DOCOLON)
-.endif
-
-.if cpu_avr8==1
-
-VE_PARSENAME:
- .dw $FF0A
- .db "parse-name"
- .dw VE_HEAD
- .set VE_HEAD = VE_PARSENAME
-XT_PARSENAME:
- .dw DO_COLON
-PFA_PARSENAME:
-.endif
- .dw XT_BL
- .dw XT_SKIPSCANCHAR
- .dw XT_EXIT
-
-; ( c -- addr2 len2 )
-; String
-; skips char and scan what's left in source for char
-.if cpu_msp430==1
- HEADLESS(XT_SKIPSCANCHAR,DOCOLON)
-.endif
-
-.if cpu_avr8==1
-;VE_SKIPSCANCHAR:
-; .dw $FF0A
-; .db "skipscanchar"
-; .dw VE_HEAD
-; .set VE_HEAD = VE_SKIPSCANCHAR
-XT_SKIPSCANCHAR:
- .dw DO_COLON
-PFA_SKIPSCANCHAR:
-.endif
- .dw XT_TO_R
- .dw XT_SOURCE
- .dw XT_TO_IN
- .dw XT_FETCH
- .dw XT_SLASHSTRING
-
- .dw XT_R_FETCH
- .dw XT_CSKIP
- .dw XT_R_FROM
- .dw XT_CSCAN
-
- ; adjust >IN
- .dw XT_2DUP
- .dw XT_PLUS
- .dw XT_SOURCE
- .dw XT_DROP
- .dw XT_MINUS
- .dw XT_TO_IN
- .dw XT_STORE
- .dw XT_EXIT