16F88 ile LCD' ye Yazı Yazdırma

'*  Date    : 13.03.2009                                        * '*  Version : 1.0                                               * '*  Notes   :                                                   * '*          :                                                   * '********************** kayit ***********************************    Include "modedefs.bas"   OSCCON = %01100000 ' kristalsiz çalışıyor 'Define  LCD_DREG        PORTA 'Define  LCD_DBIT        0 'Define  LCD_RSREG       PORTB 'Define  LCD_RSBIT       6 'Define  LCD_EREG        PORTB 'Define  LCD_EBIT        3 'DEFINE LOADER_USED 1 'define osc 4     @ DEVICE pic16F88, INTRC_OSC_NOCLKOUt,MCLR_off       ANSEL = 0               ' PORTA is digital         CMCON = 7               ' PORTA is digital Pause 100 ' Wait for LCD to start BAS: LCDOUT $FE,1, " SINASI YAVUZ " PAUSE 1000 'LCDOUT $FE,1 LCDOUT $FE,$C0,"WYATTS EKRANI TEST.." PAUSE 1000 'LCDOUT $FE,1 LCDOUT $FE, $94,"YAZI GORUNUYORSA. " PAUSE 1000 'LCDOUT $FE,1 LCDOUT $FE, $D4,"SORUN YOKTUR........" PAUSE 1000 LCDOUT $FE, 1 PAUSE 1000 LCDOUT $FE,1, "MIKROISLEMCI CALISMA" PAUSE 1000 LCDOUT $FE,$C0,"LARI DEVAM EDIYOR  " PAUSE 1000 LCDOUT $FE, $94,"YAZAN SINASI YAVUZ " PAUSE 1000 LCDOUT $FE, 1 PAUSE 1000 GOTO BAS Return