device 16f628

'--------------------------------------------------------------------
'--------kijelző mintázat--------------------------------------------
'--------------------------------------------------------------------
data 0,248,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,248,0
data 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,66,127,64,0,0,66,97,81,73,70,0,54,73,73
data 73,54,0,68
data 40,16,40,68,0,60,74,73,73,48,0,24,20,18,127,16,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0
data 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0
data 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,127,73,73,73,65,0,38,73,73,73,50,0,0,66,127,64,0,0,33,65,69,75
data 49,0,127,73,73,73,54,0,127,73,73,73,54,0,62
data 81,73,69,62,0,0,0,0,0,0,0,127,64,64,64,64,0,62,65,65,65,34,0,127,65
data 65,34,28,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0
data 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0
data 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,127,73,73,73
data 54,0,7,8,112,8,7,0,0,0,0,0,0,0,31,32,64,32,31,0,56,69,68,69,56,0
data 127,9,25,41,70,0,56,69,68,69,56,0,38
data 73,73,73,50,0,0,0,0,0,0,0,1,1,127,1,1,0,124,18,17,18,124,0,127,2
data 12,2,127,0,112,40,38,41,112,0,38,73,73,73,50,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0
data 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0
data 0,15,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
data 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,15,0
'---------------------------------------------------------------------

dim temp,temp2,i,j as byte

symbol rst=porta.7
symbol cs1=porta.6
symbol a0_rs=porta.2
symbol wr_rw=porta.1
symbol rd_e=porta.0

cmcon=7
trisb=0

'----------portok beállítása---
high cs1
high a0_rs
high wr_rw
high rd_e
high rst

'------------------------------
'-------főprogram--------------
'------------------------------

kezd:
	gosub lcd_reset
	delayms 1000
	gosub lcd_inicializalas
	delayms 1000
	gosub kepernyotorles
	delayms 1000
	gosub rajzolas
end

'------------------------------
'-------szubrutinok------------
'------------------------------

lcd_reset:
	low rst
	high rst
	delayms 1
return

'------------------------------
lcd_inicializalas:
	temp=%10100010 'LCD bias beállítása
	gosub wcmd
	temp=%00101111 'Belső táp. üzemmód
	gosub wcmd
	temp=%00100100 'Belső fesz. szabályzó
	gosub wcmd
	temp=%10000001 'Vo beállítása
	gosub wcmd
	temp=%00111111
	gosub wcmd
	gosub lcd_be   'Kijelző bekapcsolása
return

'------------------------------
kepernyotorles:
	temp=0
	gosub lcd_lapcim
	temp=0
	gosub lcd_oszlopcim
	for i=0 to 7
		temp=i
		gosub lcd_lapcim
		temp=0
		gosub lcd_oszlopcim
		for j=0 to 127
		temp=%00000000
		gosub wdata
		next j
	next i
return

'------------------------------
rajzolas:
	restore
	for i=0 to 7
		temp=i
		gosub lcd_lapcim
		temp=0
		gosub lcd_oszlopcim
		for j=0 to 127
		read temp
		gosub wdata
		next j
	next i
return
'------------------------------
lcd_be:
	temp=%10101111
	gosub wcmd
return

'------------------------------
lcd_ki:
	temp=%10101110
	gosub wcmd
return

'------------------------------
lcd_kezdosor:
	temp=temp & 63
	temp=temp | %01000000
	gosub wcmd
return

'------------------------------
lcd_lapcim:
	temp=temp & 15
	temp=temp | %10110000
	gosub wcmd
return

'------------------------------
lcd_oszlopcim:
	temp2=temp
	temp=(temp & 240)/16
	temp=temp | %00010000 'felső 4 bit
	gosub wcmd
	temp=temp2 & 15
	temp=temp | %00000000 'alsó 4 bit
	gosub wcmd
return

'------------------------------
wcmd:
	low cs1
	low a0_rs
	high rd_e
	low wr_rw
	portb=temp
	high wr_rw
	high cs1
return

'------------------------------	
wdata:
	low cs1
	high a0_rs
	high rd_e
	low wr_rw
	portb=temp
	high wr_rw
	high cs1
return

'------------------------------