aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/isr-exec.asm
blob: 6c1a379860b32b58543de32a1a47c77f9c298867 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( n -- ) 
; Interrupt
; executes an interrupt service routine
;VE_ISREXEC:
;    .dw $ff08
;    .db "isr-exec"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_ISREXEC
XT_ISREXEC:
    .dw DO_COLON
PFA_ISREXEC:
    .dw XT_INTFETCH
    .dw XT_EXECUTE
    .dw XT_ISREND
    .dw XT_EXIT