fields zoutpin zinpin baud endfields ------------------------- -- ( outpin , inpin , baud , )z.init -- till från Zigbee ------------------------- function z.init begin 0>zoutpin 1>zinpin 2>baud ( zoutpin )setout ( zoutpin )set1 return load from (std.mpo) *setout *set1 ------------------------ -- ( inpin , baud , )z.initin ------------------------ function z.initin begin 0>zinpin 1>baud return ----------------------- -- ( adress )z.ssend ----------------------- function z.ssend -zsse adr i dt = 80000000/100000 begin ->adr 0 ->i :loop adr +i [] L0 ->g if(g =0):exit ( g )z.bsend i +1 ->i dt wait A:loop :exit return load from(zig.mpo) *z.bsend ---------------------------- -- )cr ---------------------------- function z.cr begin ( 13 )z.bsend return load from(zig.mpo) *z.bsend ---------------------------- -- ( byte )z.bsend ---------------------------- function z.bsend -zbse begin ( , zoutpin , baud , )send return load from(std.mpo) *send ---------------------------- -- ( word )z.lsend ---------------------------- function z.lsend -zlse z begin ->z ( z >>24 &255 )z.bsend ( z >>16 &255 )z.bsend ( z >>8 &255 )z.bsend ( z &255 )z.bsend return load from (zig.mpo) *z.bsend ---------------------------- -- )z.rec ->data ---------------------------- function z.rec -zre begin ( zinpin , baud , )receive return load from(std.mpo) *receive ----------------------------- -- )z.exe ----------------------------- function z.exe -zex begin )z.ssend )z.cr )z.rec return load from (zig.mpo) *z.ssend *z.cr *z.rec