Gosub Max7219_setup
Main:
Disp_num2 = 1 ' ( 0 - 7 ) digit#
Disp_data2 = 2 ' (0 - 15 ) number to display.
Gosub Disp_write
'setup max7219 config. registers
Max7219_setup:
Disp_num1 = &H0C : Disp_data1 = 0 ' Shutdown On
Gosub Disp_write
Disp_num1 = 9 : Disp_data1 = &B0011_0111 ' Decode "B" For 1st 6
Gosub Disp_write
Disp_num1 = &H0A : Disp_data1 = &H0F ' Brightness Full
Gosub Disp_write
Disp_num1 = &H0B : Disp_data1 = 7 ' # Digits 8
Gosub Disp_write
Disp_num1 = &H0F : Disp_data1 = 0 ' Test Off
Gosub Disp_write
Disp_num1 = &H0C : Disp_data1 = 1 ' Shutdown Off
Gosub Disp_write
Return
' Sends data to the Max7219 display driver
Disp_write:
Disable Interrupts
Reset Ser_data
Reset Ser_clk
Reset Disp_en
Shiftout Ser_data , Ser_clk , Disp_num1 , 1
Shiftout Ser_data , Ser_clk , Disp_data1 , 1
Set Disp_en
Enable Interrupts
Return
End Sub
Lesezeichen