aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/prompt-error.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/words/prompt-error.asm')
-rw-r--r--amforth-6.5/common/words/prompt-error.asm64
1 files changed, 0 insertions, 64 deletions
diff --git a/amforth-6.5/common/words/prompt-error.asm b/amforth-6.5/common/words/prompt-error.asm
deleted file mode 100644
index 5d94faa..0000000
--- a/amforth-6.5/common/words/prompt-error.asm
+++ /dev/null
@@ -1,64 +0,0 @@
-; ( n -- )
-; System
-; process the error prompt
-
-.if cpu_msp430==1
- HEADLESS(XT_DEFAULT_PROMPTERROR,DOCOLON)
- DW XT_DOSLITERAL
- DB 4," ?? "
- .align 16
-.endif
-
-.if cpu_avr8==1
-;VE_PROMPTERROR:
-; .dw $ff04
-; .db "p_er"
-; .dw VE_HEAD
-; .set VE_HEAD = VE_PROMPTERROR
-XT_DEFAULT_PROMPTERROR:
- .dw DO_COLON
-PFA_DEFAULT_PROMPTERROR:
- .dw XT_DOSLITERAL
- .dw 4
- .db " ?? "
-.endif
- .dw XT_ITYPE
- .dw XT_BASE
- .dw XT_FETCH
- .dw XT_TO_R
- .dw XT_DECIMAL
- .dw XT_DOT
- .dw XT_TO_IN
- .dw XT_FETCH
- .dw XT_DOT
- .dw XT_R_FROM
- .dw XT_BASE
- .dw XT_STORE
- .dw XT_EXIT
-
-; ------------------------
-
-.if cpu_msp430==1
-; DEFER(XT_PROMPTERROR,6,".error")
- DW link
- DB 0FFh
-.set link = $
- DB 6,".","error"
- .align 16
-XT_PROMPTERROR:
- DW DODEFER
-.endif
-
-.if cpu_avr8==1
-VE_PROMPTERROR:
- .dw $FF06
- .db ".error"
- .dw VE_HEAD
- .set VE_HEAD = VE_PROMPTERROR
-XT_PROMPTERROR:
- .dw PFA_DODEFER1
-PFA_PROMPTERROR:
-.endif
- .dw USER_P_ERR
- .dw XT_UDEFERFETCH
- .dw XT_UDEFERSTORE