function pc.init begin ( 30 )setout return load from (std.mpo) *setout -------------------------- function pc.ssend -psse adr i dt = 80000000/100000 begin ->adr 0 ->i :loop adr +i [] L0 =0:exit )pc.bsend i +1 ->i dt wait A:loop :exit return load from(pc.mpo) *pc.bsend ---------------------------- function pc.longsend -pcls x begin ->x x >>24 )pc.bsend x >>16 )pc.bsend x >>8 )pc.bsend x )pc.bsend return load from (pc.mpo) *pc.bsend ---------------------------- function pc.cr begin ( 13 )pc.bsend return load from(pc.mpo) *pc.bsend ---------------------------- function pc.bsend -pbse p115200 = 80000000/115200 begin ( , 30 , p115200 , )send return load from(std.mpo) *send ---------------------------- function pc.rec -pcre p115200 = 80000000/115200 begin ( 31 , p115200 , )receive return load from(std.mpo) *receive