Has anyone used MAX6952, MAX6953, MAX6955 With PBP?

[CuriousOne]

Hello.

Want to use any of these chips for a school project, have them on hands, but no sample code available. Maybe someone already did something with these chips?

[top204]

Here's a simple program for the Crownhill Proton compiler that scrolls a message on a MAX6952 chip, so it should be adaptable for the PIC BASIC Pro compiler.



'
' A scrolling message on a MAX6952 chip
' Written for the Proton compiler by Les Johnson
'
Device = 16F877
Declare Xtal = 8

$define CLK_Pin PORTD.2 ' Attaches to the CLK_Pin pin of the MAX6952
$define CS_Pin PORTD.1 ' Attaches to the CS_Pin pin of the MAX6952
$define DIN_Pin PORTD.0 ' Attaches to the DIM pin of the MAX6952
'
' Create some variables
'
Dim MyText[11] As Byte = "HELLO WORLD"

Dim MAX6952_bIndex As Byte
Dim MAX6952_bLoop As Byte
Dim MAX6952_bResult As Byte
Dim MAX6952_Address As Byte
Dim MAX6952_Data As Byte

'--------------------------------------------------------------------------
GoTo Main ' Jump to the main program loop

'--------------------------------------------------------------------------
' Write a byte to the MAX6952
' Input : pAddress holds the address to write
' : pData hold the value to write
' Output : None
' Notes : None
'
$define MAX6952_Write(pAddress, pData) '
MAX6952_Address = pAddress '
MAX6952_Data = pData '
GoSub _MAX6952

_MAX6952:
'
' Send the address
'
For MAX6952_bLoop = 0 To 7
If MAX6952_Address.7 = 0 Then
Clear DIN_Pin
Set CLK_Pin
Clear CLK_Pin
Else
Set DIN_Pin
Set CLK_Pin
Clear CLK_Pin
EndIf
MAX6952_Address = MAX6952_Address << 1
Next
'
' Send the byte
'
For MAX6952_bLoop = 0 To 7
If MAX6952_Data.7 = 0 Then
Clear DIN_Pin
Set CLK_Pin
Clear CLK_Pin
Else
Set DIN_Pin
Set CLK_Pin
Clear CLK_Pin
EndIf
MAX6952_Data = MAX6952_Data << 1
Next
Return

'------------------------------------------------------------------------------------
' The main program loop starts here
' A simple scroll on the LED display
'
Main:
MAX6952_bIndex = 0

High CS_Pin
Low DIN_Pin
Low CLK_Pin

Clear CS_Pin
MAX6952_Write($04, $01)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($01, $FF)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($02, $FF)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($03, $01)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($07, $00) ' Set display
Set CS_Pin

Clear CS_Pin
MAX6952_Write($20, "H")
Set CS_Pin

While
Clear CS_Pin
MAX6952_Write($20, MyText[MAX6952_bIndex])

Set CS_Pin
Clear CS_Pin
MAX6952_Write($21,MyText[MAX6952_bIndex + 1])

Set CS_Pin
Clear CS_Pin
MAX6952_Write($22,MyText[MAX6952_bIndex + 2])

Set CS_Pin
Clear CS_Pin
MAX6952_Write($23,MyText[MAX6952_bIndex + 3])
Set CS_Pin
MAX6952_bIndex = MAX6952_bIndex + 1
If MAX6952_bIndex >= SizeOf(MyText) Then MAX6952_bIndex = 0

DelayMS 700
Wend

[top204]

Here's a program that is more akin to PICBASIC Pro, so it will be a lot easier to adapt from Proton. It uses the Shout command, ShiftOut in Pro, instead of bit manipulating an SPI interface:



'
' A scrolling message on a MAX6952 chip
' Written for the Proton compiler by Les Johnson
'
Device = 16F877
Declare Xtal = 8

$define CLK_Pin PORTD.2 ' Attaches to the CLK_Pin pin of the MAX6952
$define CS_Pin PORTD.1 ' Attaches to the CS_Pin pin of the MAX6952
$define DIN_Pin PORTD.0 ' Attaches to the DIM pin of the MAX6952
'
' Create some variables
'
Dim MyText[11] As Byte = "HELLO WORLD"

Dim MAX6952_bIndex As Byte

'--------------------------------------------------------------------------
' Write a byte to the MAX6952
' Input : pAddress holds the address to write
' : pData hold the value to write
' Output : None
' Notes : None
'
$define MAX6952_Write(pAddress, pData) SHOut DIN_Pin, CLK_Pin, MsbFirst, [pAddress, pData]

'------------------------------------------------------------------------------------
' The main program loop starts here
' A simple scroll on the LED display
'
Main:
MAX6952_bIndex = 0

High CS_Pin
Low DIN_Pin
Low CLK_Pin

Clear CS_Pin
MAX6952_Write($04, $01)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($01, $FF)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($02, $FF)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($03, $01)
Set CS_Pin

Clear CS_Pin
MAX6952_Write($07, $00) ' Set display
Set CS_Pin

Clear CS_Pin
MAX6952_Write($20, "H")
Set CS_Pin

While
Clear CS_Pin
MAX6952_Write($20, MyText[MAX6952_bIndex])

Set CS_Pin
Clear CS_Pin
MAX6952_Write($21,MyText[MAX6952_bIndex + 1])

Set CS_Pin
Clear CS_Pin
MAX6952_Write($22,MyText[MAX6952_bIndex + 2])

Set CS_Pin
Clear CS_Pin
MAX6952_Write($23,MyText[MAX6952_bIndex + 3])
Set CS_Pin
MAX6952_bIndex = MAX6952_bIndex + 1
If MAX6952_bIndex >= SizeOf(MyText) Then MAX6952_bIndex = 0

DelayMS 700
Wend