asmbler ile lcdye isim nasl yazarım kodu lazım arkadaslar acil tek buton olacak.

[TANRIVERDİ]

asmbler ile lcdye isim nasl yazarım kodu lazım arkadaslar acil tek buton olacak.

[kudretuzuner]

Merhaba,
LCD çalışması dosyası buyrun belki işinize yarar.Kolay gelsin.
https://www.dropbox.com/s/87amzg680zo4ya4/TANRVERD.rar

[TANRIVERDİ]

kardes dosya bozuk galiba öle birsey yok yada silmissin.

[kudretuzuner]

Merhaba,
Yerim kısıtlı olduğu için bir seferlik kullanılan dosyaları silmek mecburiyetinde kalıyorum.Kısa bir süre sonra tekrar sileceğim.Kolay gelsin.
https://www.dropbox.com/s/gqy0lk1fq5oe6kk/sablon16A%20LCD.rar

[TANRIVERDİ]

merhaba kardes. bu cok karısık bana remzi tanrıverdi yazan bi kod lazım daha basit bişey bide kullanacagım malzeler de önemli bitirmem gereken bi ödev cokacil.

[magic_gun]

   LIST   P=16f887, F=INHX8M      ;      
        include    "P16F887.inc"      ;      
;======================================================;                           
 

__CONFIG _CONFIG1, _DEBUG_OFF & _LVP_OFF & _FCMEN_OFF & _IESO_OFF & _BOR_OFF & _CPD_OFF & _CP_OFF & _MCLRE_ON & _PWRTE_ON & _WDT_OFF & _HS_OSC
__CONFIG _CONFIG2, _WRT_OFF & _BOR21V

                  
                  
   cblock   0x020   ;         
   SAY1      ;01         
   SAY2      ;02         
   SAY3      ;03         
   LCDADRES      ;06         
   COUNT_16      ;07         
   TEMP      ;08         
   L_BYTE      ;09         
   H_BYTE      ;10         
   FLASH      ;11         
   R0      ;12         
   R1      ;13         
   R2      ;14         
   TEST      ;15   
        flash
   index_t
   cnt

        endc



 
   ORG   0x0000      ;      
   GOTO   start      ;      
;------------------------------------------------------;                  
   ORG   0x0005      ;      
        retfie
                  
start                  
   clrwdt               
   BANKSEL   EECON1      ;bank 4      
   NOP               
   CLRF   EECON1            
   NOP               
   BANKSEL   TRISA      ;bank 1      
   MOVLW   b'11111111'            
   MOVWF   TRISA      ;A0-A& input      
   CLRF   TRISB      ;B0-B& output      
   MOVLW   b'00000100'            
   MOVWF   TRISC      ;E0-E& output      
   CLRF   TRISD      ;E0-E& output      
   CLRF   TRISE      ;E0-E& output      
   CLRF   INTCON      ;all int clear      
   CLRF   ADCON1      ;port a analog input      
   CLRF   PIE1      ;all flags clear      
   MOVLW   b'10001111'      ;disables all int      
   MOVWF   OPTION_REG      ;assigned wdt rate 1/128      
   BANKSEL   PORTA      ;bank 0      
   MOVLW   b'10000000'      ;f/32 conv.& ad off      
   MOVWF   ADCON0            
   CLRF   PIR1      ;clear all request      
   banksel ANSEL
        clrf    ANSEL

        banksel PORTB

        CLRF   STATUS      ;ready      
   CLRF   PORTA            
   CLRF   PORTB            
   CLRF   PORTC            
   CLRF   PORTC            
   CLRF   PORTE            
   CLRF   FLASH            
      
   CLRF   LCDADRES            
   CALL   LCDbas      ;LCD init       
               
   MOVLW   0x38            
   CALL   Komut_Yaz            
   MOVLW   0x0c            
   CALL   Komut_Yaz            
   MOVLW   0x06            
   CALL   Komut_Yaz

        MOVLW   0x38            
   CALL   send_cmd            
   MOVLW   0x0c            
   CALL   send_cmd            
   MOVLW   0x06            
   CALL   send_cmd
               
_Program                  
   CALL   _200ms            
   CALL   LCDtemizle      ;LCDclear      
   CALL   ImlecBasa      ;cursor1stline      
   

line_1
        incf flash,1
        btfss flash,2
        call line_1text
        btfsc flash,2
        call x_line
       
        clrwdt
        goto line_1


line_1text

        CALL   ImlecBasa      ;cursor1stline   
         
   MOVLW    'M'      ;1      
   CALL   Karakter_Yaz            
   MOVLW    '.'      ;2      
   CALL   Karakter_Yaz            
   MOVLW    'T'      ;3      
   CALL   Karakter_Yaz            
   MOVLW    'e'      ;4      
   CALL   Karakter_Yaz            
   MOVLW    'c'      ;5      
   CALL   Karakter_Yaz            
        MOVLW    'h'           ;6      
   CALL   Karakter_Yaz            
   MOVLW    ' '      ;7      
   
        return


x_line

       
        CALL   ImlecBasa   
       
        clrf index_t

new_1
        movf index_t,w

        call text_lt
        iorlw 0
        btfsc STATUS,Z
        return

       

        call Karakter_Yaz
        incf index_t,1
        goto new_1




text_lt
       
       addwf PCL,1

       dt "*   Magic_Gun  *",0





send_chr
                  
   MOVWF   PORTB            
      
   BSF   PORTC,5   ;RS         
   CALL   up_it
            
   RETURN               
;-------------------------------------------------                  
send_cmd
                  
   MOVWF   PORTB            

   BCF   PORTC,5   ;RS         
   CALL   up_it
            
   RETURN               
;-------------------------------------------------                  
up_it
                  
   BSF   PORTC,6   ;E   ;EN = "1".      
   NOP
        nop
        nop
               
   BCF   PORTC,6   ;E   ;EN = "0".      
   CALL   _125us      ;125usec
   
   RETURN               





;-------------------------------------------------                  
LCDtemizle                  
   MOVLW   0x01            
   CALL   send_cmd            
   CALL   _1ms         
         
        RETURN               
;-------------------------------------------------                  
ImlecBasa                  

        MOVLW   0x02            
   CALL   send_cmd
         
   CALL   _1ms

        RETURN               
;-------------------------------------------------                  
ADRES_Yaz                  
   IORLW   0x80            
   MOVWF   PORTB            
      
   BCF   PORTC,5   ;RS         
   CALL   Yukle            
   RETURN               
;-------------------------------------------------                  
LCDbas                  
   CALL   _25ms            
   MOVLW   0x30            
   CALL   Komut_Yaz            
   CALL   _1ms            
   MOVLW   0x30            
   CALL   Komut_Yaz            
   CALL   _1ms            
   MOVLW   0x30            
   CALL   Komut_Yaz            
   CALL   _1ms            
   

        CALL   _25ms            
   MOVLW   0x30            
   CALL   send_cmd            
   CALL   _1ms            
   MOVLW   0x30            
   CALL   send_cmd            
   CALL   _1ms            
   MOVLW   0x30            
   CALL   send_cmd
            
   CALL   _1ms            
   



        RETURN               
               
               
_10us                  
   MOVLW   .8            
   MOVWF   SAY1            
Gec1                  
   clrwdt               
   DECFSZ   SAY1,f            
   GOTO   Gec1            
   RETURN               
                  
_125us                  
   MOVLW   .42            
   MOVWF   SAY1            
   GOTO   Gec1            
               
_1ms                  
   MOVLW   .10            
   MOVWF   SAY2            
Gec2                  
   clrwdt               
   CALL   _125us            
   DECFSZ   SAY2,f            
   GOTO   Gec2            
   RETURN               

_50ms                  
                  
   MOVLW   .110
            
   MOVWF   SAY2            
   GOTO   Gec2
                  
_25ms                  
   MOVLW   .199
            
   MOVWF   SAY2            
   GOTO   Gec2            
               
_200ms                  
   MOVLW   .8            
   MOVWF   SAY3            
Gec7                  
   CALL   _25ms            
   DECFSZ   SAY3,f            
   GOTO   Gec7            
   RETURN               
                  
_600ms                  
   MOVLW   .24            
   MOVWF   SAY3            
Gec5                  
   CALL   _25ms            
   DECFSZ   SAY3,f            
   GOTO   Gec5            
   RETURN               
                  
_1sn                  
   MOVLW   .70            
   MOVWF   SAY3            
Gec4                  
   CALL   _25ms            
   DECFSZ   SAY3,f            
   GOTO   Gec4            
   RETURN               
               
   END               
         

   umarim isinizi gorur saygilarimla