aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/int-fetch.asm
blob: f0c713a54aebe0a9c81fbc0938e41107a9bb142f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( i -- xt ) 
; Interrupt
; fetches XT from interrupt vector i
VE_INTFETCH:
    .dw $ff04
    .db "int@"
    .dw VE_HEAD
    .set VE_HEAD = VE_INTFETCH
XT_INTFETCH:
    .dw DO_COLON
PFA_INTFETCH:
    .dw XT_DOLITERAL
    .dw intvec
    .dw XT_PLUS
    .dw XT_FETCHE
    .dw XT_EXIT