Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 3 views

    EXO3

    Uploaded by

    pa7diop

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    EXO3

    Uploaded by

    pa7diop
    3 views3 pages

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    3 views3 pages

    EXO3

    Uploaded by

    pa7diop

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    of 3

    LIST P=16F877A

    #include<p16F877A.inc>

    CNT EQU H'20'

    BSF STATUS,RP0

    BCF STATUS,RP1

    CLRF TRISD

    BCF STATUS,RP0

    L1

    MOVLW b'10000001'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    MOVLW b'11000011'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    MOVLW b'11100111'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    MOVLW h'FF'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    CLRF PORTD

    CALL TEMPO

    CALL TEMPO

    MOVLW D'2'

    MOVWF CNT
    L2

    MOVLW h'FF'

    MOVWF PORTD

    CALL TEMPO

    MOVLW h'00'

    MOVWF PORTD

    CALL TEMPO

    DECFSZ CNT

    GOTO L2

    MOVLW b'11000000'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    MOVLW b'11110000'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    MOVLW b'11111100'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    MOVLW h'FF'

    MOVWF PORTD

    CALL TEMPO

    CALL TEMPO

    GOTO L1

    TEMPO

    MOVLW h'31'

    MOVWF T1CON
    MOVLW H'7E'

    MOVWF TMR1H

    MOVLW H'96'

    MOVWF TMR1L

    BCF PIR1,TMR1IF

    L200

    BTFSS PIR1,TMR1IF

    GOTO L200

    RETURN

    END

    You might also like