aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/hardware/int-critical.frt
blob: d3bbf7f1846e8e0679457bcc6714aea8b6179ed0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12

\ include mcu specific file
\ #require int-q.frt

: critical[
    r> int? >r >r \ keep the current state
    -int 
;

: ]critical
    r> r> if +int then >r \ will crash if not matched
;