Etepic

DEFINE OSC 20

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 4   ' 250 KBaud @ 20MHz, 0,0%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
DEFINE	HSER_BAUD 250000	'250Kbps Baud
'******** bu config satırı PBP 3.0 Versiyondan dolayı böyle yazıldı *********
#CONFIG
__config _HS_OSC & _WDT_ON & _LVP_OFF & _CP_OFF & _MCLRE_OFF

#ENDCONFIG
'****************************************************************************
DEFINE LCD_DREG		PORTB	'LCD data bacakları PortB de bağlı
DEFINE LCD_DBIT			4		'LCD data bacakları 4. bitten başlıyor
DEFINE LCD_EREG		PORTB	'LCD Enable Bacağı PortB de bağlı
DEFINE LCD_EBIT			0		'LCD Enable Bacağı 3. bite bağlı	
DEFINE LCD_RWREG    		PORTB	'LCD RW Bacağı PortB de bağlı
DEFINE LCD_RWBIT     		2		'LCD RW Bacağı  2. bite bağlı
DEFINE LCD_RSREG		PORTA	'LCD RS Bacağı PortB de bağlı
DEFINE LCD_RSBIT		0		'LCD RS bacağı 1. Bite bağlı		
DEFINE LCD_BITS			4		'LCD 4 bit  olarak bağlı
DEFINE LCD_LINES		2		'LCD 2 sıra olarak çalışıyor.

' ******** Değişkenler **************
counter VAR word ' Variable de travail WORD
idleflag VAR WORD 
dummy VAR WORD 
RCIF VAR byte
startcode VAR WORD
aminus VAR WORD
adresse_grada VAR WORD
x VAR WORD
newlevel1 VAR WORD
 address1   var word
 startpulse  var byte
 stoppulse  var byte
 xx var byte
 al var byte
bl var byte
cl var byte
pp var byte
kk var byte 
sense1  var byte
sense2 var byte

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

'* * * *

LCDOUT $FE,12
LCDOUT $FE,$80,"DMX VER AL "'ilk sıra baştan itibaren yazdırıyoruz.
LCDOUT $FE,$c0,"PROGRAM" 'ilk sıra baştan itibaren yazdırıyoruz.
 xx=0
 address1=7         ' 7,8,9. datalar okunacak
 aminus = address1 - 1 'adresi bulmak için

basla:

 SPBRG = 0
 TXSTA.2 = 0 'brgh = 0
 RCSTA.6 = 0 'setting 8 bit receive mode, no parity, etc 
RCSTA.4 = 0 'check the datasheet to see what all these bits do
RCSTA.4 = 1 'now, the USART is on and ready to receive

call checkdmx
    
goto basla

checkdmx:
 
pulsin portb.1,0,counter 'mtbf den önceki sıfır seviyesi minimum 88uS

if counter < 45 then checkdmx 'watching for 'break

 pulsin portb.1,1,counter   ' mtbf 1 seviyesi min 8uS
 if counter>4 then
  else
   goto checkdmx
  endif
 pulsin portb.1,0,counter
   

RCSTA.7 = 1 

hserin [startcode]


if startcode = 0 then 'sıfır olması gereken start palsi kontrol
      goto starttamam
else 
'xx=0
'LCDOUT $FE,1
 '   lcdout $fe,$c1,dec3 startcode
  '  lcdout $fe,$81,"startcode HATA"
return
endif

 starttamam:
 
for x = 1 to aminus 'istenen adrese kadar boş kanal datası okunur.
while RCIF = 0:WEND 'sit here until a byte is received
hserin [dummy]'boş kanal okuma
next x

hserin [al,bl,cl] 'adresten başlayıp 3 kanal birden okuma

 LCDOUT $FE,1
    lcdout $fe,$81,dec3 startcode,"  ",dec3 sense2
    lcdout $fe,$c1,dec3 al,"  ",dec3 bl,"  ",dec3 cl
RCSTA.7 = 0 'turn off the USART

return