CON _clkfreq = 160_000_000 baud = 115200 PUB MyTest() | n waitms(1000) pinstart(62, %0000_0000_000_0000000000000_01_11110_0, (clkfreq/baud)<<16 + 7, 0) waitms(2000) hex($ABCDEF,8) str(string(13,"Hello",13)) dec(54321) repeat n from 32 to 127 tx(n) PUB tx(c) wypin(62,c) repeat until pinread(62) akpin(62) PUB str(stringptr) repeat strsize(stringptr) tx(byte[stringptr++]) PUB dec(value) | r,i if value < 0 value := -value tx("-") r~ i := 1_000_000_000 repeat 10 if value >= i tx(value / i + "0") value //= i r~~ elseif r or i==1 tx("0") i /= 10 PUB hex(value, digits) value <<= (8 - digits) << 2 repeat digits tx(lookupz((value ROL= 4) & $F : "0".."9", "A".."F")) tx(32)