Dieser kurze Code ist für einen MAX31855SA geschrieben:

'************************************************* ******************************
' Test Display ST7565 128x64
' Hardware: EA DOGxL128-6
'
' Display works with 3,3V Level
'
' use 1024 Byte Daten Buffer
'
' Date:22.05.2014
' By Hkipnik
' © Copyright by H.Kipnik 2012
' Date 14.01.2015
' Email: Hkipnik@aol.com
'
'************************************************* ******************************

'************************************************* ******************************
'MAX 31855SA
'2016 by WL
'************************************************* ******************************


$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 150
$swstack = 150
$framesize = 200

'************************************************* ******************************

Config Portd.3 = Output 'DISPLAY_CS
Lcd_cs Alias Portd.3

Config Portc.2 = Output 'DISPLAY_A0
Lcd_rs Alias Portc.2

Config Portc.0 = Output 'DISPLAY_SI
Data_out Alias Portc.0

Config Portc.1 = Output 'DISPLAY_SCK
Lcd_clk Alias Portc.1

Config Portc.3 = Output 'DISPLAY_Reset
Lcd_rst Alias Portc.3

'Config Graphlcd = 128 * 64eadogm , Cs1 = Portd.3 , A0 = Portc.2 , Si = Portc.0 , Sclk = Portc.1 , Rst = Portc.3

Config Spi = Hard , Interrupt = Off , Data_order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 16 , Noss = 1

Spiinit

Config Portb.2 = Output
Max_cs Alias Portb.2
Max_cs = 1

$include "Eadog128declaration.inc" 'Declaration SUB

Call Lcd_init() 'Init Display

'************************************************* ******************************

'use for Demo

Dim Text11 As String * 40
Dim Temp_s As Single

Dim Element As Integer
Dim Element_l As Byte At Element Overlay
Dim Element_h As Byte At Element + 1 Overlay
Dim Referenz As Integer
Dim Referenz_l As Byte At Referenz Overlay
Dim Referenz_h As Byte At Referenz + 1 Overlay

Call Lcd_clear(white)

Do

Max_cs = 0
Spiin Element_h , 1
Spiin Element_l , 1
Spiin Referenz_h , 1
Spiin Referenz_l , 1
Max_cs = 1


Text11 = Bin(referenz)
Call Lcd_text(text11 , 0 , 25 , 1)

Text11 = Bin(element)
Call Lcd_text(text11 , 0 , 35 , 1)

Shift Referenz , Right , 4
Temp_s = Referenz \ 16
'Text11 = Str(temp_s)
Text11 = Fusing(temp_s , "#.#")
Call Lcd_text(text11 , 10 , 5 , 2)

Shift Element , Right , 2
Temp_s = Element \ 4
'Text11 = Str(temp_s)
Text11 = Fusing(temp_s , "#.#")
Call Lcd_text(text11 , 10 , 45 , 2)

Call Lcd_show()
Waitms 500


Loop

End
$include "Eadog128-6.inc"
'include used fonts
$include "Font\font8x8.font"
$include "Font\font16x16.font"
$include "Font\My12_16.font"

Die Ausgabe (EADOG-LCD) musst Du dir weg denken.
Dann bleibt nicht mehr viel übrig............