aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/abort-string.asm
blob: 116b1dc5fc27d4eec816fd3f083c5cde541a90b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
;C ABORT"  i*x 0  -- i*x   R: j*x -- j*x  x1=0
;C         i*x x1 --       R: j*x --      x1<>0
;   POSTPONE IS" POSTPONE ?ABORT ; IMMEDIATE

.if cpu_msp430==1
    ; IMMED(ABORTQUOTE,6,"ABORT"",DOCOLON)
        DW      link
        DB      0FEh       ; immediate
.set link = $
        DB      6,"abort",'"'
        .align 16
XT_ABORTQUOTE: 
	.DW      DOCOLON
.endif

.if cpu_avr8==1
VE_ABORTQUOTE:
    .dw $0006
    .db "abort",'"'
    .dw VE_HEAD
    .set VE_HEAD = VE_ABORTQUOTE
XT_ABORTQUOTE:
    .dw DO_COLON
PFA_ABORTQUOTE:
.endif
    .dw XT_SQUOTE
    .dw XT_COMPILE
    .dw XT_QABORT
    .DW XT_EXIT