KARA ŞİMŞEK UYGULAMASI (2)
PORTB ile 8 ledli karaşimşek devresi.
Bu devre port b ye bağlı olan ledleri sıra ile yakar. 4 MHZ kristal ile gecikme döngüsü ayarlanmıştır hızı ayarlamak için gecikme döngüsünde bulunan sayac içeriklerini azaltınız.


LIST P=16F84 INCLUDE "P16F84A.INC" __CONFIG _CP_OFF &_WDT_OFF &_XT_OSC &_PWRTE_ON ORG 0X000 SAYAC1 EQU H'0C' SAYAC2 EQU H'0D' SAYAC3 EQU H'0E' CLRF PORTA MOVLW 0X00 MOVWF PORTB BSF STATUSRP0 CLRF TRISB BCF STATUS5 BAS MOVLW B'00000001' MOVWF PORTB CALL GECIKME MOVLW B'00000010' MOVWF PORTB CALL GECIKME MOVLW B'00000100' MOVWF PORTB CALL GECIKME MOVLW B'00001000' MOVWF PORTB CALL GECIKME MOVLW B'00010000' MOVWF PORTB CALL GECIKME MOVLW B'00100000' MOVWF PORTB CALL GECIKME MOVLW B'01000000' MOVWF PORTB CALL GECIKME MOVLW B'10000000' MOVWF PORTB CALL GECIKME GOTO BAS GECIKME MOVLW D'2' MOVWF SAYAC1 DON1 MOVLW D'200' MOVWF SAYAC2 DON2 MOVLW D'250' MOVWF SAYAC3 DON3

DECFSZ SAYAC3F GOTO DON3 DECFSZ SAYAC2F GOTO DON2 DECFSZ SAYAC1F GOTO DON1 RETURN END