aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/irqcnt.asm
blob: edb8a39d22a9f158e3de6fe8d4932654454e2910 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( i -- xt ) 
; Interrupt
; fetches XT from interrupt vector i
VE_IRQCNTADDR:
    .dw $ff06
    .db "irq[]#"
    .dw VE_HEAD
    .set VE_HEAD = VE_IRQCNTADDR
XT_IRQCNTADDR:
    .dw DO_COLON
PFA_IRQCNTADDR:
    .dw XT_DOLITERAL
    .dw intcnt
    .dw XT_PLUS
    .dw XT_EXIT