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