-- DN004.jal : kitt-style display on all pins 
-- hardware: db016 + connect active-low LEDs to all pins

include DB016_18F252_PLL_40
include jdelay

bus_a_digital
bus_b_digital
bus_c_digital

bus_a_direction = all_output -- note: only 6 pins!
bus_b_direction = all_output
bus_c_direction = all_output

var byte count = 0
var byte step = 0

forever loop
   count = count + step
   
   if ( count == 0 ) then
      step = 1
   end if
   if ( count == 21 ) then
      step = -1 
   end if
   
   bus_b_pin_0 = ! ( count ==  0 )
   bus_b_pin_1 = ! ( count ==  1 )
   bus_b_pin_2 = ! ( count ==  2 )
   bus_b_pin_3 = ! ( count ==  3 )
   bus_b_pin_4 = ! ( count ==  4 )
   bus_b_pin_5 = ! ( count ==  5 )
   bus_b_pin_6 = ! ( count ==  6 )
   bus_b_pin_7 = ! ( count ==  7 )
   
   bus_c_pin_0 = ! ( count ==  8 )
   bus_c_pin_1 = ! ( count ==  9 )
   bus_c_pin_2 = ! ( count == 10 )
   bus_c_pin_3 = ! ( count == 11 )
   bus_c_pin_4 = ! ( count == 12 )
   bus_c_pin_5 = ! ( count == 13 )
   bus_c_pin_6 = ! ( count == 14 )
   bus_c_pin_7 = ! ( count == 15 )
   
   bus_a_pin_0 = ! ( count == 16 )
   bus_a_pin_1 = ! ( count == 17 )
   bus_a_pin_2 = ! ( count == 18 )
   bus_a_pin_3 = ! ( count == 19 )
   bus_a_pin_4 = ! ( count == 20 )
   bus_a_pin_5 = ! ( count == 21 )
   
   delay_1ms( 100 )
end loop