Ana sayfa | Hakkımda | İletişim | Sosyal platform
PIC CCS C & ASM / Uygulamalar
PIC ASM ile flaşör uygulaması
Bu uygulama B portunun tamamına flaşör çıkışı verir. Flaşör süresi için 20MHz 'de yaklaşık 1 saniye küsür hesaplanmıştır. Komut sürelerine göz atmak için buraya tıklayınız.

Uygulamayı indirmek için buraya tıklayabilirsiniz. Arşiv şifresi isterse elektrocavus.com giriniz.

NOT : Gecikme  20MHz kristal ile tasarlanmıştır. 
  LIST P = 16F877 
 INCLUDE   " P16F877.INC "  
  SAY   EQU  h'20'  ;SaY etiketinin  adresini  0.bank 20h olarak belirledik.
  SAY_2 EQU h'21'  ; Say etiketinin adresini 0.bank 21h olarak belirledik. 
  SAY_3 EQU h'22'  ; Say etiketinin adresini 0.bank 22h olarak belirledik. 
 
  CLRF PORTB ;  PORTB nin içeriğini sıfırladık  
  BANKSEL TRISB ; TRISB nin olduğu bank a geçildi 
  CLRF TRISB ; B portu tümüyle çıkış oldu
  BANKSEL PORTB ; 0. bank'a geçildi
 
  BASLA
 
  SONSUZ_DONGU
 
  MOVLW D'255' ; W saklayıcısına 255 sayısını yükledik.
  MOVWF PORTB ; 255 sayısını W 'dan PORTB ye yükledik.
 
  CALL GECIKME ; Gecikme için alt programa gittik.
 
  MOVLW D'0' ; W saklayıcısa 0 sıfır değerini yükledik. b'00000000'
  MOVWF PORTB ; Sıfır değerini port b ye yükledik.
 
  CALL GECIKME ; tekrar gecikme
 
 
GOTO SONSUZ_DONGU
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GECIKME ; ALT PROGRAM
MOVLW d'26' ; yaklaşık 1 sn küsür gecikme (1.0217484sn)
MOVWF SAY_3
DONGU3
MOVLW D'255'
MOVWF SAY_2
DONGU2
MOVLW D'255'
MOVWF SAY
;;;;;;;;;;;;;;;;;;;
DONGU1
DECFSZ SAY,1
GOTO DONGU1
;;;;;;;;;;;;;;;;;;;
DECFSZ SAY_2,1
GOTO DONGU2
DECFSZ SAY_3,1
GOTO DONGU3
 
RETURN ; ALT PROGRAM SONU
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
END
ELEKTRO ÇAVUŞ
Ana sayfa | Hakkımda | İletişim | Sosyal platform
ELEKTRO ÇAVUŞ2012 | elektrocavus.com