-- DN007 : count seven-segment on BUS_C
-- hardware: DB016 + DB013 on BUS_C

include DB016_18F252_PLL_40
include jdelay
include jseven

bus_c_digital
bus_c_direction = all_output

var byte n = 0

forever loop
   bus_c = ! seven_from_digit( n )
   delay_10ms( 50 )
   bus_c = ! ( seven_from_digit( n ) + seven_segment_dp )
   delay_10ms( 50 )
   n = n + 1
   if n > 9 then
      n = 0
   end if
end loop