aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/handler.asm
blob: 61b1c58a07be42840f8d5c2f413245f0173fc375 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; ( -- a-addr ) 
; Exceptions
; USER variable used by catch/throw

.if cpu_msp430==1
    HEADER(XT_HANDLER,7,"handler",DOUSER)
.endif

.if cpu_avr8==1
VE_HANDLER:
    .dw $ff07
    .db "handler",0
    .dw VE_HEAD
    .set VE_HEAD = VE_HANDLER
XT_HANDLER:
    .dw PFA_DOUSER
PFA_HANDLER:
.endif
    .dw USER_HANDLER