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 -~----------~----~----~----~------~----~------~--~---
