Sunish, anybody, It compiles okay. Do you have a configuration available to test this function of should I create one?
Joep 2009/8/16 <[email protected]>: > > Revision: 1204 > Author: jsuijs > Date: Sun Aug 16 10:54:17 2009 > Log: jseven port to jalv2 > http://code.google.com/p/jallib/source/detail?r=1204 > > Added: > /trunk/include/external/seven > /trunk/include/external/seven/jseven.jal > > ======================================= > --- /dev/null > +++ /trunk/include/external/seven/jseven.jal Sun Aug 16 10:54:17 2009 > @@ -0,0 +1,165 @@ > +-- Title: jseven.jal - translation routine for 7 segment display > +-- Author: Wouter van Ooijen (c) 1998, all rights reserved. > +-- Adapted-by: Joep Suijs > +-- Compiler: >=2.2 > +-- > +-- This file is part of jallib (http://jallib.googlecode.com) > +-- Released under the ZLIB license > (http://www.opensource.org/licenses/zlib-license.html) > +-- > +-- Sources: > +-- > +-- Description: Translation routine for 7 segment display. > +-- -- > +-- The seven segment display needs to be connected to a single port. > +-- Define the pin layout of the seven segment display like: > +-- -- > +-- -- constant for the segments gfe dcba > +-- const byte seven_segment_a = 0b_0000_0001 > +-- const byte seven_segment_b = 0b_0000_0010 > +-- const byte seven_segment_c = 0b_0000_0100 > +-- const byte seven_segment_d = 0b_0000_1000 > +-- 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 > +-- -- > +-- Use: > +-- portd_direction = all_output > +-- portd = seven_from_digit(1) -- display '1' > +-- -- > +-- > +-- Notes: > +-- > + > +const byte seven_value_space[] = { > + -- const byte seven_value_0 > + seven_segment_a > + + seven_segment_b > + + seven_segment_c > + + seven_segment_d > + + seven_segment_e > + + seven_segment_f, > + > + -- const byte seven_value_1 > + seven_segment_b > + + seven_segment_c, > + > + -- const byte seven_value_2 > + seven_segment_a > + + seven_segment_b > + + seven_segment_d > + + seven_segment_e > + + seven_segment_g, > + > + -- const byte seven_value_3 > + seven_segment_a > + + seven_segment_b > + + seven_segment_c > + + seven_segment_d > + + seven_segment_g, > + > + -- const byte seven_value_4 > + seven_segment_b > + + seven_segment_c > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_5 > + seven_segment_a > + + seven_segment_c > + + seven_segment_d > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_6 > + seven_segment_a > + + seven_segment_c > + + seven_segment_d > + + seven_segment_e > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_7 > + seven_segment_a > + + seven_segment_b > + + seven_segment_c, > + > + -- const byte seven_value_8 > + seven_segment_a > + + seven_segment_b > + + seven_segment_c > + + seven_segment_d > + + seven_segment_e > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_9 > + seven_segment_a > + + seven_segment_b > + + seven_segment_c > + + seven_segment_d > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_a > + seven_segment_a > + + seven_segment_b > + + seven_segment_c > + + seven_segment_e > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_b > + seven_segment_c > + + seven_segment_d > + + seven_segment_e > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_c > + seven_segment_a > + + seven_segment_d > + + seven_segment_e > + + seven_segment_f, > + > + -- const byte seven_value_d > + seven_segment_b > + + seven_segment_c > + + seven_segment_d > + + seven_segment_e > + + seven_segment_g, > + > + -- const byte seven_value_e > + seven_segment_a > + + seven_segment_d > + + seven_segment_e > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_value_f > + seven_segment_a > + + seven_segment_e > + + seven_segment_f > + + seven_segment_g, > + > + -- const byte seven_letter_c (16) > + seven_segment_a > + + seven_segment_f > + + seven_segment_e > + + seven_segment_d, > + > + -- const byte seven_letter_s (17) > + seven_segment_a > + + seven_segment_f > + + seven_segment_g > + + seven_segment_c > + + seven_segment_d > +} > + > + > +-- return seven segment value corresponding to lower nibble of x > +function seven_from_digit( byte in x ) return byte is > + > + return seven_value_space[x] > + > +end function > > > > --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
