system zigread global x exec read topc process read p9600 = 80000000/9600 p115200 = 80000000/115200 pdefault zoutpin zinpin cat = "+++" cbd = "ATBD" cbdset = "ATBD 7" cch = "ATCH" cid = "ATID" cidset = "ATID 5" cwr = "ATWR" ccn = "ATCN" tguard = 80000000*2 begin -- set pin numbers and current baud rate of module here 12 ->zinpin 14 ->zoutpin p115200 ->pdefault 1 zoutpin << setdir ' dup outpins -- Enter configuration mode tguard wait #cat [ssend] tguard wait -- Verify baudrate, update baudrate (115200) and confirm #cbd [exe] #cbdset [exe] #cbd [exe] -- Verify channel number (0xC = 12) #cch [exe] -- Verify PAN-ID, update and confirm (0x5 from 0x 3332) #cid [exe] #cidset [exe] tguard wait #cid [exe] -- Write to EEPROM #cwr [exe] -- Exit configuration #ccn [ssend] :loop >loop --------------------------------- function exe begin [ssend] 13 [bsend] return --- function ssend -sse adr i begin ->adr 0 ->i :loop adr i @ ? ={>exit} ' [bsend] i 1 + ->i >loop :exit return --- function bsend -bse begin zoutpin pdefault send return \ --------------------------------------- -- Send module responses to pc process topc begin 1 30 << setdir :loop [zrec] [pcsend] >loop function zrec -zre p115200 = 80000000/115200 begin 12 p115200 receive return function pcsend -pcse p115200 = 80000000/115200 begin 30 p115200 send return \