include f628_4i include VarDelay disable_comp uart_init -- LED1B- 1 |--U--| 18 - LED1G -- 2 | | 17 - LED1R -- 3 | | 16 -- 4 | | 15 -- PS- - 5 | | 14 - PS+ -- 6 | | 13 -- SerIn- 7 | | 12 -- 8 | | 11 -- 9 |-----| 10 -- ---------------------------------------------------------------------- -- Declare Variables -- ---------------------------------------------------------------------- var volatile byte theLED1 is port_a_low = 0b0000 var volatile byte theLED1_dir is port_a_low_direction = all_output var volatile bit led1Red is pin_a0 var volatile bit led1Green is pin_a1 var volatile bit led1Blue is pin_a2 var volatile byte address = 0 var volatile byte val1Red = 0 var volatile byte val1Green = 0 var volatile byte val1Blue = 0 var volatile byte theCount = 0 var volatile byte tempData = 0 var volatile byte rxDatatemp = 0 var volatile bit dataWaiting = low -- ---------------------------------------------------------------------- procedure getData is async_rx (rxDatatemp,dataWaiting) if dataWaiting then address = rxDatatemp dataWaiting = low while ! dataWaiting loop async_rx (val1Red,dataWaiting) end loop dataWaiting = low while ! dataWaiting loop async_rx (val1Green,dataWaiting) end loop dataWaiting = low while ! dataWaiting loop async_rx (val1Blue,dataWaiting) end loop end if end procedure -- ---------------------------------------------------------------------- -- Main Progam Loop -- ---------------------------------------------------------------------- forever loop theCount = 0 for 255 loop getData led1Red = ( val1Red > theCount ) led1Green = ( val1Green > theCount ) led1Blue = ( val1Blue > theCount ) theCount = theCount + 1 end loop end loop -- ----------------------------------------------------------------------