Using MAX 7221 LED driver

[achuri]

here is some code wrote for this purpose. Works well.


decode VAR byte
decode = %00001001
intens VAR byte
intens = %00001010
limit VAR byte
limit = %00001011
shutdn VAR byte
shutdn = %00001100
test VAR byte
test = $0F

intense (set to max)
LOW PORTD.3
SHIFTOUT PORTD.2, PORTC.4, 1, [intens\8, %00000111\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [intens\8, %00001111\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [intens\8, %00001111\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [intens\8, %00001111\8]
HIGH PORTD.3
'limit (set to scan only 4 of 8 rows) better change this if you want more
LOW PORTD.3
SHIFTOUT PORTD.2, PORTC.4, 1, [limit\8, %00000011\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [limit\8, %00000011\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [limit\8, %00000011\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [limit\8, %00000011\8]
HIGH PORTD.3
'shutdown (shutdown is not in effect)
LOW PORTD.3
SHIFTOUT PORTD.2, PORTC.4, 1, [shutdn\8, %00000001\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [shutdn\8, %00000001\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [shutdn\8, %00000001\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [shutdn\8, %00000001\8]
HIGH PORTD.3
'test (testing. all LEDs on.)
LOW PORTD.3
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000001\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000001\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000001\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000001\8]
HIGH PORTD.3
pause 1000
'test (not testing)
LOW PORTD.3
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000000\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000000\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000000\8]
SHIFTOUT PORTD.2, PORTC.4, 1, [test\8, %00000000\8]
HIGH PORTD.3

row0Var = %01111110
row1Var = %10000001
row2Var = %10100101
row3Var = %10000001
row4Var = %10100101
row5Var = %10011001
row6Var = %10000001
row7Var = %01111110


for i = 0 to 7
LOOKUP i, [%00000001 , %00000010 , %00000011 , %00000100, %00000101, %00000111, %00001000, %00001001 ], rownum

LOOKUP2 i, [row0Var, row1Var, row2Var, row3Var, row4Var, row5Var, row6Var, row7Var], rowbits

low porta.0
low porta.1
SHIFTOUT porta.2, porta.0, 1, [rownum\8, rowbits\8]
high porta.1
next




_________________________
_ariel

[JDM160]

I am trying to use the code achuri posted to better understand how to interface the MaX 7219 with my PIC (18F2331).

I am having a hard time compiling it because of errors, namely with the rowxVar statements. Obviously what was posted is not complete code, but I need help putting it to use for me.

Ultimately what I'm trying to do is display a 3 digit number on a 3 digit LED display using the 18F2331. How exactly do I update or write the number to each digit? Any help would be greatly appreciated...

[plasmajocky]

The following is code that I wrote for the MAX 7219. This is only the sub that I call to initialize and test the display. This was written for a 16F877 but can be ported to just about anything. I am far from a programmer so if anyone out there can clean this up or make it better please let me know. I know this code works, as we have shipped many units running it. You must, of course, setup your ports and outputs. Hope this helps - if anyone finds this usefull I would love to hear from you! Feel free to cut and paste this but please pass on help to others - we all must stick together!

LEData VAR PORTC.1
CLK VAR PORTC.5
Load VAR PORTC.0




Max_init:

ShiftOut LEData,clk,MSBFIRST,[%0000100111111111\16] ' Reg. 9 Decode
PulsOut Load,10


ShiftOut LEData,clk,MSBFIRST,[%0000101000001111\16] ' Reg. A Intensity
PulsOut Load,10


ShiftOut LEData,clk,MSBFIRST,[%0000101100000111\16] ' Reg. B Scan Limit
PulsOut Load,10



ShiftOut LEData,clk,MSBFIRST,[%0000110000000001\16] ' Reg. C Shutdown
PulsOut Load,10



ShiftOut LEData,clk,MSBFIRST,[%000011110000000\16] ' Reg. F Display Test
PulsOut Load,10



' Blank the display
digit = 8
For x = 1 TO 8

ShiftOut LEData,clk,MSBFIRST,[digit,$F]
PulsOut Load,10
digit = digit - 1

Next

' Test the display by writting 8's to each digit and scrolling them across

digit = 8
For x = 1 TO 8

ShiftOut LEData,clk,MSBFIRST,[digit,8]
PulsOut Load,10
Pause 500
ShiftOut LEData,clk,MSBFIRST,[digit,$F]
PulsOut Load,10
digit = digit - 1


Next





' Write H
digit = 1
ShiftOut LEData,clk,MSBFIRST,[digit,$C]
PulsOut Load,10


' Write E
digit = 2
ShiftOut LEData,clk,MSBFIRST,[digit,$B]
PulsOut Load,10

' Write L
digit = 3
ShiftOut LEData,clk,MSBFIRST,[digit,$D]
PulsOut Load,10
digit = 4

' Write L
digit = 4
ShiftOut LEData,clk,MSBFIRST,[digit,$D]
PulsOut Load,10
digit = 4

' Write 0
digit = 5
ShiftOut LEData,clk,MSBFIRST,[digit,0]
PulsOut Load,10
digit = 4

Pause 250

' Blink it 5 times

For x = 1 TO 4

ShiftOut LEData,clk,MSBFIRST,[%0000110000000000\16] ' Reg. C Shutdown ON
PulsOut Load,10

Pause 150


ShiftOut LEData,clk,MSBFIRST,[%0000110000000001\16] ' Reg. C Shutdown OFF
PulsOut Load,10

Pause 200

Next

Pause 1000

Return

[l2_star]

Unfortunaly none of these projects does not work.
The program of using the PROTEUS to check.
I want to do a project with a running line is from PIC 16f877 and driver MAX 7221.

We also managed if someone let the finished project + program

I apologize for my English, I am from Ukraine and use a translator Google.

[l2_star]

[email protected]

[plasmajocky]

What about the code does not work? We have shipped many units running this code??
Have you actually compiled and ran it?

[l2_star]

У МЕНЯ НЕ работает код. что-то не так