PIC Assembly Yürüyen Led

Açıklama

• PORTB'nin bütün pinleri çıkış yaptık.
• Daha sonra soldan sağa, sağdan sola ledlerin yanıp sönmesini sağladık.

Şekille gösterim

Kod

    LIST P=16F877A
    #INCLUDE <P16F877A.INC>
    __config _CP_OFF &_WDT_OFF &_HS_OSC &_PWRTE_OFF &_LVP_OFF

    SAY0 EQU 0X21
    SAY1 EQU 0X22
    SAY2 EQU 0X23
    
    
    ORG 0X00
    GOTO MAIN
    ORG 0X04
    GOTO MAIN
    
    
    MAIN
    BANKSEL TRISB
    CLRF TRISB
    BANKSEL PORTB
    MOVLW .1
    MOVWF PORTB
    BCF STATUS,C
    BCF STATUS,Z
    GOTO SOLA
    
    
    SOLA
    RLF PORTB,F
    CALL BEKLE
    BTFSC PORTB,7
    GOTO SAGA
    GOTO SOLA
    
    SAGA
    RRF PORTB,F
    CALL BEKLE
    BTFSC PORTB,0
    GOTO SOLA
    GOTO SAGA
    
  

    
    BEKLE
    MOVLW .50
    MOVWF SAY0
    BEKLE1
    MOVLW .50
    MOVWF SAY1
    BEKLE2
    MOVLW .50
    MOVWF SAY2
    BEKLE3
    DECFSZ SAY2,F
    GOTO BEKLE3
    DECFSZ SAY1,F
    GOTO BEKLE2
    DECFSZ SAY0,F
    GOTO BEKLE1
    RETURN
    
    
    END