system fifo global x tstamp exec an usb process an ch0 = 0 ch1 = 4 begin 19 18 17 16 init_analogp :loop ch0 analog 10 or [tcode] or ->x [tcode] ->tstamp >loop function tcode c = 53687 -- now/80000 begin now 10 >> c * 22 >> 1 & return \ process usb sw2pin = 14 knpin = 12 txepin = 9 digpin = 23 dt = 80000000 ts = 8000000 begin 268 fifoinit :loop sw2pin inpin ? ={>instrloop} knpin inpin ? #{>loop} digpin inpin ? ={>digloop} #{>anloop} :digloop tstamp fifolog dt wait >loop :anloop x fifoalog dt wait >loop :instrloop ts fifoinit :iloop x fifoalog >iloop \