'' '' really simple cogatn test '' CON oscmode = $010007f8 freq = 160_000_000 baud = 230400 'must configure RUN command to match this rx = 63 tx = 62 VAR long ctr OBJ ser : "spin/SmartSerial" PUB Main | cog, r clkset(oscmode, freq) ser.start(rx, tx, 0, baud) 'start up serial terminal waitx_(80_000_000) ser.printf("calling cognew...") cog := cognew(@loop, @ctr) ser.printf(" started %d\n", cog) repeat ser.printf("ctr = %d. Hit x to send COGATN to cog %d\n", ctr, cog) repeat r := ser.rx until r > 0 if r == "x" ser.printf("sending!\n") sendcogatn(cog) PRI sendcogatn(c) | mask mask := 1<