Vasile, Can you check if this file works okay?
Thanks, Joep 2009/9/3 <[email protected]>: > > Revision: 1285 > Author: jsuijs > Date: Thu Sep 3 00:46:45 2009 > Log: merged Vasile's chars into seven_segment.jal - now supports 27 chars > on the seven segment display. > http://code.google.com/p/jallib/source/detail?r=1285 > > Modified: > /trunk/include/external/seven_segment/seven_segment.jal > > ======================================= > --- /trunk/include/external/seven_segment/seven_segment.jal Wed Aug 19 > 11:15:25 2009 > +++ /trunk/include/external/seven_segment/seven_segment.jal Thu Sep 3 > 00:46:45 2009 > @@ -1,6 +1,6 @@ > -- Title: seven_segment.jal - translation routine for 7 segment display > -- Author: Wouter van Ooijen (c) 1998, all rights reserved. > --- Adapted-by: Joep Suijs > +-- Adapted-by: Joep Suijs, Vasile Surducan 25.08.2009 > -- Compiler: >=2.2 > -- > -- This file is part of jallib (http://jallib.googlecode.com) > @@ -21,12 +21,44 @@ > -- const byte seven_segment_e = 0b_0001_0000 > -- const byte seven_segment_f = 0b_0010_0000 > -- const byte seven_segment_g = 0b_0100_0000 > --- const byte seven_segment_dp = 0b_1000_0000 > +-- const byte seven_segment_dp = 0b_1000_0000 > -- -- > --- Use: > +-- character set: > +-- -- > +-- value 0 is character 0 > +-- value 1 is character 1 > +-- value 2 is character 2 > +-- value 3 is character 3 > +-- value 4 is character 4 > +-- value 5 is character 5 > +-- value 6 is character 6 > +-- value 7 is character 7 > +-- value 8 is character 8 > +-- value 9 is character 9 > +-- value 10 is character A > +-- value 11 is character b > +-- value 12 is character C_big > +-- value 13 is character d > +-- value 14 is character E > +-- value 15 is character F > +-- value 16 is character S > +-- value 17 is character c_small > +-- value 18 is character r > +-- value 19 is character H > +-- value 20 is character i_small > +-- value 21 is character L > +-- value 22 is character o > +-- value 23 is character P > +-- value 24 is character U_big > +-- value 26 is character u > +-- -- > +-- Use: > +-- -- > +-- const bit seven_segment_common_anode = true ; omit this line if you use > a common cathode display. > +-- -- > -- portd_direction = all_output > -- portd = seven_from_digit(1) -- display '1' > --- -- > +-- -- > -- > -- Notes: > -- > @@ -58,7 +90,7 @@ > end if > > const byte seven_value_space[] = { > - -- const byte seven_value_0 > + -- value 0 is character 0 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_b > @@ -67,12 +99,12 @@ > + seven_segment_e > + seven_segment_f ), > > - -- const byte seven_value_1 > + -- value 1 is character 1 > _seven_common_mask ^ ( > seven_segment_b > + seven_segment_c ), > > - -- const byte seven_value_2 > + -- value 2 is character 2 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_b > @@ -80,7 +112,7 @@ > + seven_segment_e > + seven_segment_g ), > > - -- const byte seven_value_3 > + -- value 3 is character 3 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_b > @@ -88,14 +120,14 @@ > + seven_segment_d > + seven_segment_g ), > > - -- const byte seven_value_4 > + -- value 4 is character 4 > _seven_common_mask ^ ( > seven_segment_b > + seven_segment_c > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_5 > + -- value 5 is character 5 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_c > @@ -103,7 +135,7 @@ > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_6 > + -- value 6 is character 6 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_c > @@ -112,13 +144,13 @@ > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_7 > + -- value 7 is character 7 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_b > + seven_segment_c ), > > - -- const byte seven_value_8 > + -- value 8 is character 8 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_b > @@ -128,7 +160,7 @@ > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_9 > + -- value 9 is character 9 > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_b > @@ -137,7 +169,7 @@ > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_a > + -- value 10 is character A > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_b > @@ -146,7 +178,7 @@ > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_b > + -- value 11 is character b > _seven_common_mask ^ ( > seven_segment_c > + seven_segment_d > @@ -154,14 +186,14 @@ > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_c > + -- value 12 is character C_big > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_d > + seven_segment_e > + seven_segment_f ), > > - -- const byte seven_value_d > + -- value 13 is character d > _seven_common_mask ^ ( > seven_segment_b > + seven_segment_c > @@ -169,7 +201,7 @@ > + seven_segment_e > + seven_segment_g ), > > - -- const byte seven_value_e > + -- value 14 is character E > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_d > @@ -177,27 +209,78 @@ > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_value_f > + -- value 15 is character F > _seven_common_mask ^ ( > seven_segment_a > + seven_segment_e > + seven_segment_f > + seven_segment_g ), > > - -- const byte seven_letter_c (16) > + -- value 16 is character S > _seven_common_mask ^ ( > - seven_segment_a > + seven_segment_a > + seven_segment_f > - + seven_segment_e > + + seven_segment_g > + + seven_segment_c > + seven_segment_d ), > > - -- const byte seven_letter_s (17) > + -- value 17 is character c_small > _seven_common_mask ^ ( > - seven_segment_a > + seven_segment_g > + + seven_segment_e > + + seven_segment_d ), > + > + -- value 18 is character r > + _seven_common_mask ^ ( > + seven_segment_g > + + seven_segment_e ), > + > + -- value 19 is character H > + _seven_common_mask ^ ( > + seven_segment_f > + + seven_segment_e > + + seven_segment_g > + + seven_segment_b > + + seven_segment_c ), > + > + -- value 20 is character i_small > + _seven_common_mask ^ ( > + seven_segment_c ), > + > + -- value 21 is character L > + _seven_common_mask ^ ( > + seven_segment_f > + + seven_segment_e > + + seven_segment_d ), > + > + -- value 22 is character o > + _seven_common_mask ^ ( > + seven_segment_g > + + seven_segment_c > + + seven_segment_d > + + seven_segment_e ), > + > + -- value 23 is character P > + _seven_common_mask ^ ( > + seven_segment_a > + + seven_segment_b > + + seven_segment_g > + seven_segment_f > - + seven_segment_g > + + seven_segment_e ), > + > + -- value 24 is character U_big > + _seven_common_mask ^ ( > + seven_segment_f > + + seven_segment_e > + + seven_segment_d > + seven_segment_c > - + seven_segment_d ) > + + seven_segment_b ), > + > + -- value 26 is character u > + _seven_common_mask ^ ( > + seven_segment_e > + + seven_segment_d > + + seven_segment_c ) > } > > > > > > --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "jallib" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/jallib?hl=en -~----------~----~----~----~------~----~------~--~---
