30 lines
398 B
Plaintext
30 lines
398 B
Plaintext
open Extern
|
|
|
|
|
|
node hs_handler(hs:bool)
|
|
returns (id:int)
|
|
var x,y,id1,id2 : int;
|
|
let
|
|
id1 = g() when hs;
|
|
|
|
y = (15 fby x);
|
|
id2 = f1(y);
|
|
x = f2(id2);
|
|
|
|
id = merge hs
|
|
(true -> id1)
|
|
(false -> id2);
|
|
tel
|
|
|
|
const addr_hs:int = 0x2000 (* global constant *)
|
|
|
|
node main () returns ()
|
|
var
|
|
hs: bool ;
|
|
id : int ;
|
|
let
|
|
hs = read_bool(addr_hs) ;
|
|
id = hs_handler(hs) ;
|
|
() = act(id) ;
|
|
tel
|