aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/dt-null.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/words/dt-null.asm')
-rw-r--r--amforth-6.5/common/words/dt-null.asm41
1 files changed, 0 insertions, 41 deletions
diff --git a/amforth-6.5/common/words/dt-null.asm b/amforth-6.5/common/words/dt-null.asm
deleted file mode 100644
index 640562f..0000000
--- a/amforth-6.5/common/words/dt-null.asm
+++ /dev/null
@@ -1,41 +0,0 @@
-; ( -- addr )
-; Interpreter
-; there is no parser for this recognizer, this is the default and failsafe part
-
-.if cpu_msp430==1
- HEADER(XT_DT_NULL,7,"dt:null",DOROM)
-.endif
-
-.if cpu_avr8==1
-VE_DT_NULL:
- .dw $ff07
- .db "dt:null"
- .dw VE_HEAD
- .set VE_HEAD = VE_DT_NULL
-XT_DT_NULL:
- .dw PFA_DOCONSTANT
-PFA_DT_NULL:
-.endif
- .dw XT_FAIL ; interpret
- .dw XT_FAIL ; compile
- .dw XT_FAIL ; postpone
-
-; ( addr len -- )
-; Interpreter
-; default failure action: throw exception -13.
-.if cpu_msp430==1
- HEADLESS(XT_FAIL,DOCOLON)
-.endif
-.if cpu_avr8==1
-;VE_FAIL:
-; .dw $ff04
-; .db "fail"
-; .dw VE_HEAD
-; .set VE_HEAD = VE_FAIL
-XT_FAIL:
- .dw DO_COLON
-PFA_FAIL:
-.endif
- .dw XT_DOLITERAL
- .dw -13
- .dw XT_THROW