Port ayırma

[baki.yldrm]

TRISA=001111 : PORTA=0
TRISB=0 : PORTB=0
ADCON1=7

DEFINE LCD_DREG       PORTB   'LCD data bacakları B portuna bağlı
DEFINE LCD_DBIT      4      'LCD data bacakları 4. bitten başlıyor
DEFINE LCD_RSREG   PORTB   'LCD RS Bacağı B pportuna bağlı
DEFINE LCD_RSBIT   2      'LCD RS bacağı 2. bite bağlı
DEFINE LCD_EREG       PORTB   'LCD Enable Bacağı B portuna bağlı
DEFINE LCD_EBIT      3      'LCD Enable Bacağı 3. bite bağlı
DEFINE LCD_BITS      4      'LCD 4 bit olarak bağlı
DEFINE LCD_LINES   2      'LCD 2 sıralı
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
ID VAR BYTE
A VAR BYTE
C VAR BYTE



BASLA:
ID=PORTA
LCDOUT $FE,$89+2,"ID:",DEC2 A
LCDOUT $FE,$C0,DEC PORTA

GOTO BASLA

ID YE SADECE PORTA NIN İLK 4 BİTİNİ AKTARCAM YARDIMCI OLABİLİRMİSİNİZ

[ete]

ID=PORTA & %00001111

Ete