aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/int-trap.asm
blob: dd3170f361aa6323ab043ec6573b535aafde5b9c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( i --  ) 
; Interrupt
; trigger an interrupt
VE_INTTRAP:
    .dw $ff08
    .db "int-trap"
    .dw VE_HEAD
    .set VE_HEAD = VE_INTTRAP
XT_INTTRAP:
    .dw PFA_INTTRAP
PFA_INTTRAP:
    mov isrflag, tosl
    loadtos
    jmp_ DO_NEXT