fl { serial test PropForth 5.5 2013/05/26 21:03:22 BeagleBoneBlack Propeller J1-1(GND) --- GND J1-4(RxD) --- P0(TxD) J1-5(TxD) --- P1(RxD) } : term over cognchan min ." Hit CTL-P to exit term, CTL-Q exit nest1 CTL-R exit nest2 ... CTL-exit nest9~h0D~h0A" >r >r cogid 0 r> r> (iolink) begin key dup h10 = if drop -1 else dup h11 h19 between if 1- then emit 0 then until cogid iounlink ; : _snet 4 cogreset h10 delms \ pin 0 rx, pin 1 tx d115200/4 = d28800 c" 0 1 d28800 serial" 4 cogx h100 delms \ if this bit is 0, CR is transmitted as CR LF \ if this bit is 1, CR is transmitted as CR 0 4 sersetflags ; : resnet _snet h10 delms h4 0 term 0 7 sersetflags ; { Prop0 Cog6 ok resnet CON:Prop0 Cog4 RESET - last status: 0 ok Hit CTL-P to exit term, CTL-Q exit nest1 CTL-R exit nest2 ... CTL-exit nest9 Cog:0 #io chan:1 PropForth v5.5 2013Feb20 11:30 0 Cog:1 #io chan:1 PropForth v5.5 2013Feb20 11:30 0 Cog:2 #io chan:1 PropForth v5.5 2013Feb20 11:30 0 Cog:3 #io chan:1 PropForth v5.5 2013Feb20 11:30 0 Cog:4 #io chan:1 SERIAL Cog:5 #io chan:1 PropForth v5.5 2013Feb20 11:30 0 Cog:6 #io chan:1 PropForth v5.5 2013Feb20 11:30 0 6(0)->7(0) Cog:7 #io chan:1 SERIAL 7(0)->6(0) Prop0 Cog6 ok }