WRITE KOMUTU YAPAMIYORUM :(

[ErtugrulM]

@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_ON
@ DEVICE pic16F628A, PWRT_ON
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_ON
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT

CMCON=7
B1 var BYTE
B2 var byte

ON INTERRUPT GOTO KESME
INTCON=%10010000
EEPROM ["ErtugrulM 122-12"]
'EEPROM ["122-12."]

TRISA=0
TRISB=%00000111

DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 6
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 7
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
PAUSE 200

LCDOUT $FE,1
LCDOUT $FE,2, "BEYKOZ AND. MES."
LCDOUT $FE,$C0, "Lisesi"

HIGH PORTB.3
PAUSE 600
LOW PORTB.3
PAUSE 200
HIGH PORTB.4
PAUSE 500
LOW PORTB.4
PAUSE 200
HIGH PORTB.4
PAUSE 500
LOW PORTB.4
PAUSE 200
PORTB=%01111000
PAUSE 500
PORTB=0

DONGU:
IF PORTB.1=0 THEN OKU
IF PORTB.2=0 THEN KARASIMSEK
GOTO DONGU

OKU:
LCDOUT $FE,1
FOR B1=0 TO 15
PAUSE 500
READ B1,B2
LCDOUT $FE,$06,B2
NEXT B1
LCDOUT $FE,$C0
FOR B1= 12 TO 15
PAUSE 500
READ B1,B2
LCDOUT $FE,$06,HEX B2
NEXT B1
GOTO DONGU
DISABLE

KESME:
PORTB=%01111000 'ledler için.
INTCON.1=0
RESUME
ENABLE


KARASIMSEK:
PORTB=%00001000
PAUSE 200
PORTB=%00010000
PAUSE 200
PORTB=%00100000
PAUSE 200
PORTB=%01000000
PAUSE 200
PORTB=%00100000
PAUSE 200
PORTB=%00010000
PAUSE 200
PORTB=%00001000
PAUSE 200
GOTO KARASIMSEK
END


KESME ETİKETİNDEKİ KISIMDA WRITE KOMUTU İLE l LCDYE "122-12 ErtugrulM" YAZDIRMAK İSTİYORUM. FAKAT YAPAMADIM YARDIMCI OLUR MUSUNUZ?

[erdogan2734]

  Kardeş kodların çok karışık ve ne istediğini de bu kodlardan anlayamadım eğer biraz daha açıklama yaparsan yardımcı olurum kolay gelsin...

[Maxim]

program satırlar arasında boşlukları ayarladım yukarıda
ama bende hiç birşey anlamadım

EEPROM ["ErtugrulM 122-12"]
bu satırda ne yapılmak isteniyor?
eeproma yazımı yazılacak ?

lcd ye yazmak istiyorum demişsin
tamam komutun lcdout zaten?
onu neden kullanmadınız ?