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