aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/pause.asm
blob: 747fde45a770780934237e696d908bb7190ca0a7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( -- ) 
; Multitasking
; Fetch pause vector and execute it. may make a context/task switch
VE_PAUSE:
    .dw $ff05
    .db "pause",0
    .dw VE_HEAD
    .set VE_HEAD = VE_PAUSE
XT_PAUSE:
    .dw PFA_DODEFER1
PFA_PAUSE:
    .dw ram_pause
    .dw XT_RDEFERFETCH
    .dw XT_RDEFERSTORE

.dseg
ram_pause: .byte 2
.cseg