Ana sayfa | Hakkımda | İletişim | Sosyal platform
PIC CCS C & ASM / Uygulamalar
PIC ASM ile kara şimşek uygulaması
Uygulamayı buraya tıklayarak indirebilirsiniz. Arşiv şifresi isterse elektrocavus.com giriniz. 

 LIST P = 16F877 
 INCLUDE "P16F877.INC" 
 SAY    EQU  0X21
 SAY_2  EQU  0X22
 SAY_3  EQU  0X23
 CLRF       PORTB
 BANKSEL   TRISB
 CLRF      TRISB
BANKSEL  PORTB
 
MOVLW    D'1'
MOVWF    PORTB
CALL     GECIKME
BASLA
SONSUZ_DONGU
 
DONGU_SOL
RLF         PORTB,1
CALL        GECIKME
BTFSS       PORTB,7
GOTO DONGU_SOL
DONGU_SAG
RRF         PORTB,1
CALL        GECIKME
BTFSS       PORTB,0
GOTO DONGU_SAG
 
GOTO SONSUZ_DONGU
 
 
GECIKME  ; ALT PROGRAM
MOVLW d'5'   ; yaklaşık 26 İKEN 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