4-Digit Serial LED Display Module

'****************************************************************
'*  Name    : SLED_1307.BAS                                     *
'*  Author  : Bruce Reynolds                                    *
'*  Notice  : Copyright (c) 2004 Reynolds Electronics           *
'*          : All Rights Reserved                               *
'*  Date    : 7/02/2004                                         *
'*  Version : 1.0  Digital Clock w/ Time & Temp                 *
'*  Notes   : Test code for the SLED4C 4-digit serial           *
'*          : LED/clock display module, DS1620 & DS1307 RTC     *
'****************************************************************
' PIC16F876A @ 20MHz w/boot-loader
DEFINE OSC 20
DEFINE LOADER_USED 1 ' Comment out if not using boot-loader
INCLUDE "modedefs.bas"

' Note: use 10K pull-up resistors on both SDA and SCL i2C lines
' DS1307 control pins
SDA     VAR PORTB.0 ' DS1307 SDA pin #5
SCL     VAR PORTB.1 ' DS1307 SCL pin #6

' DS1620 control pins
DQ      VAR PORTB.2 ' DS1620 DQ pin #1 
CLK0    VAR PORTB.3 ' DS1620 CLK pin #2
RST     VAR PORTB.4 ' DS1620 RST pin #3

' SLED4C display control pins
EN      VAR PORTB.5 ' SLED enable pin #5
CLK     VAR PORTB.6 ' SLED clock pin #4
DOUT    VAR PORTB.7 ' SLED data pin #3

' Variables
X       VAR WORD    ' GP var
Y       VAR BYTE    ' GP var
CFG     VAR BYTE    ' Holds display bank & digit config value
Temp    VAR WORD    ' 1620 temperature result register
DB0     VAR BYTE[8] ' Data byte array

' Port configuration
TRISB   =   0
TRISA   =   0
CMCON   =   %00000111 ' Comparators = off

    PAUSE 1000 ' Allow power to stabilize on power-up
    
    ' 24-hour clock routine for the DS1307 RTC w/SLED4C clock display
Main:
    GOSUB Write_1307 ' Write time & date on entry
    
Read_1307:
    CFG = %11000011  ' Banks 5,4,3,2 HEX decode, bank 1 (colon) special decode
    GOSUB Config     ' Configure display
    
    ' Read time Secs,Mins,Hours,Day,Date,Month,Year,Control
    I2CREAD SDA,SCL,$D0,$00,[STR DB0\8]  ' Read 8 bytes from DS1307
    EN = 0           ' Enable data input
    '                           DIM      5/4     3/2     :=ON
    SHIFTOUT DOUT,CLK,MSBFIRST,[%0000\4, DB0[2], DB0[1], $8\4]
    EN = 1           ' Transfer data into display registers
    PAUSE 2000       ' Display time for 2 seconds
    GOSUB Read_1620  ' Read & display Temp
    GOTO Read_1307   ' Read & display Time
          
Write_1307:
    ' Set time & date to 15:30:00 Tuesday 6th of July 2004
    I2CWRITE SDA,SCL,$D0,$00,[$00,$30,$15,$02,$06,$07,$04,$90] ' Write to DS1307
    RETURN                  ' Sec Min  Hr  Day D   M   Y  Control

Read_1620:    
    RST = 1
    SHIFTOUT DQ,CLK0,LSBFIRST,[$0C,$02] ' Continuous convert, CPU mode
    RST = 0
    PAUSE 10                            ' Minimum wait time after write
    RST = 1                             ' Enable 1620
    SHIFTOUT DQ, CLK0, LSBFIRST, [$EE]  ' Send start temp convert command
    RST = 0                             ' Disable 1620
    PAUSE 1000                          ' Wait for conversion to complete
    
    RST = 1                             ' Enable 1620
    SHIFTOUT DQ, CLK0, LSBFIRST, [$AA]  ' Send read temp command
    SHIFTIN DQ, CLK0, LSBPRE, [Temp\9]  ' Read 9 bit temperature
    RST = 0                             ' Disable 1620
    Temp = Temp/2                       ' Scale reading to whole degrees C. 
    Temp = (Temp */ $01CC)              ' Multiply by 1.8.
    Temp = Temp + 32                    ' Complete C to F conversion.
    IF Temp > 99 THEN Ouch              ' Is Temp > 99 deg F..?
    HSEROUT [DEC Temp DIG 1,".",DEC Temp DIG 0,13,10]
    Temp = (Temp DIG 1*16)+Temp DIG 0   ' No. Convert to BCD
    
    ' Configure display
    CFG = %11001011  ' 5,4,2 HEX decode. 3,1 special decode
    GOSUB Config     ' Write config value to display
    
    ' Display temp in deg F
    EN = 0           ' Enable data input     5/4    deg   F    :=OFF
    SHIFTOUT DOUT, CLK, MSBFIRST, [%0000\4, Temp, $F\4, $F\4, $0\4]
    EN = 1           ' Transfer data into display registers
    PAUSE 2000       ' Display Temp for 2 seconds
    RETURN

Ouch:
    CFG = %11010111  ' 5,3 hex decode. 4,2,1 special decode, display ON
    GOSUB Config     ' Write config value to display
    
    ' Write OUCH to the display when the temperature is > 99 deg F
    Y = %00001000    ' Set bit 3 for toggling display brightness
    FOR X = 0 TO 4   ' This loop causes OUCH to blink
     EN = 0          ' Enable data input
     Y.0[3] = Y.0[3] ^ 1' Toggle Y.bit.3 by XOR-ing with 1 [ 0=DIM, 1=BRIGHT ]
     '                                   5=O   4=U   3=C   2=H   :=OFF
     SHIFTOUT DOUT, CLK, MSBFIRST, [Y\4, $0\4, $A\4, $C\4, $2\4, $0\4]
     '                              ^--- bit 3 of 4-bit value toggles brightness
     EN = 1          ' Transfer data into display registers
     PAUSE 200       ' Set display blink rate here
    NEXT X           ' Close the loop
    GOTO Read_1307   ' Start over
                     
Config:              ' This routine writes the config byte to the display
    EN = 0           ' Enable data input
    SHIFTOUT DOUT, CLK, MSBFIRST, [CFG] ' Write config data to display
    EN = 1           ' Transfer data into display register
    RETURN
            
    END

'**************************************************************** '* Name : SLED4_2.BAS * '* Author : Bruce Reynolds * '* Notice : Copyright (c) 2004 Reynolds Electronics * '* : All Rights Reserved * '* Date : 7/02/2004 * '* Version : 1.0 * '* Notes : Test routines for the SLED4 4-digit serial * '* : LED display module * '**************************************************************** ' PIC16F876A @ 20MHz w/boot-loader DEFINE OSC 20 DEFINE LOADER_USED 1 INCLUDE "modedefs.bas" EN VAR PORTB.5 ' Enable pin CLK VAR PORTB.6 ' Clock pin DOUT VAR PORTB.7 ' Data out pin X VAR WORD ' GP var Y VAR BYTE ' GP var ' Bank #1 controls the colon ":" D2 VAR BYTE ' Bank #2 right LED digit D3 VAR BYTE ' Bank #3 D4 VAR BYTE ' Bank #4 D5 VAR BYTE ' Bank #5 left LED digit CFG VAR BYTE ' Holds display bank/digit config value TRISB = 0 Main: GOSUB Counter2 ' Count from 0 to 1000 GOSUB LampTest ' Lamp test with 8.8.:8.8. + blinking GOSUB Clock ' 4-digit clock from 16:50 to 17:00 w/blinking colon GOSUB Counter0 ' Colon ON + 100% bright, count on right 2, then 50% on left 2 GOSUB Help ' Display H.E.L.P. pulsing brightness from 50% to 100% GOSUB Counter1 ' Counte from 9994 to 0000 @ 50% brightness GOSUB Ouch ' Display OUCH pulsing brightness from 50% to 100% GOTO Main Counter0: ' Count 00-14h on right 100% bright, then count on left with 50% bright CFG = %11110001 ' Digits 5,4 special decode/OFF, 3,2,1 HEX decode GOSUB Config ' Configure display ' Now write data to the display FOR X = 0 TO 20 ' Count from 0 to 14h on digits 3 & 2 with leading 0 blanking EN = 0 ' Display banks 5 4 3\2 :=ON SHIFTOUT DOUT, CLK, MSBFIRST, [%1000\4, $0\4, $0\4, X, $2\4] EN = 1 ' Transfer data into display registers PAUSE 150 ' Pause 150mS NEXT X CFG = %11001101 ' Digits 5,4,1 HEX decode, 3,2 special/OFF GOSUB Config ' Configure display FOR X = 0 TO 20 ' Count from 0 to 14h on digits 5 & 4 with leading 0 blanking EN = 0 ' Enable data input 5\4 3 2 :=ON SHIFTOUT DOUT, CLK, MSBFIRST, [%0000\4, X, $0\4, $0\4, $2\4] EN = 1 ' Transfer data into display registers PAUSE 150 ' Display count from 0 to 14h NEXT X PAUSE 500 RETURN Counter1: ' Count from 9994 to 0000 CFG = %11000011 ' Digits 5,4,3,2 HEX decode, 1 special decode GOSUB Config ' Configure display ' Now write data to the display D5=9 : D4=9 : D3=9 : D2=4 ' Load counter with 9994 on start FOR X = 0 TO 6 ' Count from 9994 to 0000 EN = 0 ' Enable data input IF D2 > 9 THEN D2=0 : D3=D3+1 ' Increment each higher digit # on 9 IF D3 > 9 THEN D3=0 : D4=D4+1 ' value of each lower digit # for BCD IF D4 > 9 THEN D4=0 : D5=D5+1 ' counting IF D5 > 9 THEN D5=0 ' bright 5 4 3 2 :=OFF SHIFTOUT DOUT, CLK, MSBFIRST, [%0000\4, D5\4, D4\4, D3\4, D2\4, $0\4] EN = 1 ' Transfer data into display registers PAUSE 500 ' Without pause, display can count from 0 to 9999 in ~6 seconds D2=D2+1 ' Increment counter NEXT X PAUSE 500 RETURN Counter2: ' Count from 0 to 1000 CFG = %11000011 ' Digits 5,4,3,2 HEX decode, 1 special decode GOSUB Config ' Configure display ' Now write data to the display D5=0 : D4=0 : D3=0 : D2=0 ' Load counter with 0000 on start FOR X = 0 TO 1000 ' Count from 0 to 1000 EN = 0 ' Enable data input IF D2 > 9 THEN D2=0 : D3=D3+1 ' Increment each higher digit # on 9 IF D3 > 9 THEN D3=0 : D4=D4+1 ' value of each lower digit # for BCD IF D4 > 9 THEN D4=0 : D5=D5+1 ' counting IF D5 > 9 THEN D5=0' bright 5 4 3 2 :=OFF SHIFTOUT DOUT, CLK, MSBFIRST, [%0000\4, D5\4, D4\4, D3\4, D2\4, $0\4] EN = 1 ' Transfer data into display registers PAUSE 20 ' Without pause, display counts from 0 to 9999 in ~6 seconds D2=D2+1 ' Increment counter NEXT X PAUSE 500 RETURN Help: ' Display H.E.L.P. while toggling brightness from 100% to 50% CFG = %11101111 ' Digits 5,3,2,1 special decode, 4 HEX decode GOSUB Config ' Configure display ' Now write H.E.L.P. to display blinking 50% to 100% brightness Y = %00001111 ' Setup bit 3 for toggling display brightness FOR X = 0 TO 4 ' and all DP's ON EN = 0 ' Enable data input Y.0[3] = Y.0[3] ^ 1' Flip Y.bit.3 by XOR-ing with 1 [ 0=DIM, 1=BRIGHT ] ' Y = brightness & DP's 5 4 3 2 :=OFF SHIFTOUT DOUT, CLK, MSBFIRST, [Y\4, $2\4, $E\4, $5\4, $8\4, $0\4] EN = 1 ' Transfer data into display registers PAUSE 200 NEXT X PAUSE 500 RETURN Ouch: ' Display OUCH while toggling brightness from 100% to 50% CFG = %11010111 ' Special decode 4,2,1. 3,5 HEX decode GOSUB Config ' Configure display ' Now write OUCH to display Y = %00001000 ' Set bit 3 for toggling brightness & all DP's OFF FOR X = 0 TO 4 EN = 0 ' Enable data input Y.0[3] = Y.0[3] ^ 1' Flip Y.bit.3 by XOR-ing with 1 [ 0=DIM, 1=BRIGHT ] ' 5 4 3 2 :=OFF SHIFTOUT DOUT, CLK, MSBFIRST, [Y\4, $0\4, $A\4, $C\4, $2\4, $0\4] ' ^--- bit 3 of 4-bit value toggles brightness EN = 1 ' Transfer data into display registers PAUSE 200 NEXT X PAUSE 500 RETURN LampTest: ' Lamp test to display 8.8.:8.8. CFG = %11000001 ' All digits normal HEX decode GOSUB Config ' Configure display ' Now write 8.8.:8.8. EN = 0 ' 5=8 4=8 3=8 2=8 :=ON SHIFTOUT DOUT, CLK, MSBFIRST, [$F\4, $8\4, $8\4, $8\4, $8\4, $2\4] ' ^-- bright display + all DP's ON EN = 1 ' Transfer data into display registers PAUSE 3000 ' Now blink display ON & OFF 3 times ' Note: Toggling bit.0 of the 8-bit config byte toggles the ' display ON (1) & OFF (0) for normal/low power modes FOR X = 0 TO 2 CFG = %11000000 ' All digits HEX decode / display off GOSUB Config ' Configure display PAUSE 250 CFG = %11000001 ' All digits HEX decode / display ON GOSUB Config ' Configure display PAUSE 250 NEXT X RETURN Clock: ' 24-hour clock times from 16:50 to 17:00 w/blinking colon CFG = %11000011 ' 5,4,3,2 HEX decode, 1 special decode GOSUB Config ' Configure display Y = 8 ' Used to toggle colon. 8 = ON, 0 = OFF ' Now write data to the display D5=1 : D4=6 : D3=5 : D2=0 ' Set clock time to 16:50 FOR X = 0 TO 10 ' Display clock time from 16:50 to 17:00 EN = 0 ' Enable data input IF D2 > 9 THEN D2=0 : D3=D3+1 ' Increment each higher digit on 9 IF D3 > 5 THEN D3=0 : D4=D4+1 ' Roll-over from 59 minutes IF D4 > 9 THEN D4=0 : D5=D5+1 ' Roll-over from hours to tens hours IF D5 > 2 THEN D5=0 ' Never > 2 for 10's hour digit IF (D5 = 2) AND (D4 > 3) THEN ' Roll-over from 23:59 to 00:00 D5 = 0 : D4 = 0 ENDIF' 5=1 4=6 3=5 2=0 :=blinking SHIFTOUT DOUT, CLK, MSBFIRST, [%0000\4, D5\4, D4\4, D3\4, D2\4, Y\4] Y = Y ^ 8 ' 8^8=0, 0^8=8 EN = 1 ' Transfer data into display registers PAUSE 250 ' Update frequency or clock ticks D2=D2+1 ' Increment low digit counter NEXT X PAUSE 500 RETURN Config: EN = 0 ' Enable data input SHIFTOUT DOUT, CLK, MSBFIRST, [CFG] ' Write to display config register EN = 1 ' Transfer data into display registers RETURN END

/* File name: SLED4C.c Simulates 24 hour clock for SLED4C serial LED display test */ #include <16f876A.h> #use delay(clock=20000000) #define EN PIN_B5 // Wire to enable pin on SLED4C #define CLK PIN_B6 // Wire to clock pin on SLED4C #define DOUT PIN_B7 // Wire to data pin on SLED4C struct Time { int hr; int min; int sec; }; // Hrs Mins Secs struct Time Time_Now = {0x22, 0x55, 0x00}; // Time_Now = 22:55:00 // Function Prototypes void send_byte(int DAT); void send_nib(int NIB); void enable(void); void disable(void); void init(void); void clock(void); int Y = 8; void Main(void) { int N = 8; init(); // Initialize port pins while(1) // Loop forever { enable(); // Enable data entry send_byte(0xC3); // Dig 5,4,3,2 HEX decode. Dig 1 special. Display ON disable(); // Write value into config register Y ^= N; // Toggle Y bit 3 to toggle colon enable(); // Enable data entry send_nib(0x00); // DIM display, no DP's send_byte(Time_Now.hr); // Send hours to display digits 5/4 send_byte(Time_Now.min); // Send minutes to display digits 3/2 send_nib(Y); // Toggle colon ON/OFF disable(); // Write time data into display registers delay_ms(1000); // Set clock minutes tick time here clock(); // Pseudo clock function } } void send_byte(int DAT) // Shift out the 8-bit value in DAT MSB first { int n; for(n=0; n<8; n++) // Shift out 8-bits { output_bit(DOUT,DAT & 0x80); // Output MSB of 8-bit value first output_bit(CLK, 1); // Clock pin = 1 output_bit(CLK, 0); // Clock pin = 0 DAT = DAT << 1; // Shift lower bits into position } } void send_nib(int NIB) // Shift out the lower 4-bit nibble in NIB MSB first { int n; for(n=0; n<4; n++) // Shift out only 4 bits { output_bit(DOUT,NIB & 0x08); // Output MSB of 4-bit value first output_bit(CLK, 1); // Clock pin = 1 output_bit(CLK, 0); // Clock pin = 0 NIB = NIB << 1; // Shift lower bits into position } } void enable(void) // Take enable pin to SLED4C low { output_bit(EN,0); } void disable(void) // Take enable pin to SLED4C high { output_bit(EN,1); } void init(void) // Initialize port { port_b_pullups(FALSE); // Pull-ups off set_tris_b(0x00); // All outputs output_bit(EN,1); // Enable idles HIGH output_bit(CLK,0); // Clock idles LOW disable_interrupts(GLOBAL); // all interrupts OFF } void clock(void) { Time_Now.min +=1; // Increment minutes time count if ((Time_Now.min & 0x0F) > 0x09) // Is 1's minutes digit > 9h..? { // 0x0A + 0x06 = 0x10 Time_Now.min +=0x06; // Increment 10's minutes digit by 1 if ((Time_Now.min & 0xF0) > 0x50) // If > 59 minutes { Time_Now.hr = Time_Now.hr +1; // Increment hours Time_Now.min = 0; // Roll over minutes 59 to 00 here } } if ((Time_Now.hr & 0x0F) > 0x09) // Is 1's hours > 9h..? { // 0x0A + 0x06 = 0x10 Time_Now.hr +=0x06; // Increment 10' hours digit by 1 } if (Time_Now.hr > 0x23) // If Time > 23 { Time_Now.hr = 0x00; // Roll over from 23 to 00 hours } }