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

\ #require int-critical.frt

: bar ." bar" int? . ;
: baz ." baz" int? . ;
: qux ." qux" int? . ;

: foo 
  bar
  critical[ 
    \ nothing will disturb us here
    baz 
  ]critical \ now interrupts or other things may happen again
  qux ;