LIST P=16F877<br />STATUS EQU 03H<br />PORTC EQU 07H<br />TRISB EQU 86H<br />PORTB EQU 06H<br />TRISC EQU 87H<br /> ORG 0000H<br /> NOP<br /> BSF STATUS,5<br /> MOVLW 01H<br /> MOVWF TRISB<br /> MOVLW 00H<br /> MOVWF TRISC<br /> BCF STATUS,5<br /> CLRF PORTC<br />LOOP BTFSC PORTB,0<br /> GOTO LOOP<br /> CALL DELAY1S<br /> BTFSC PORTB,0<br /> GOTO LOOP<br />LOOP1 BTFSS PORTB,0<br /> GOTO LOOP1<br /> CALL DELAY1S<br /> BTFSS PORTB,0<br /> GOTO LOOP1<br />LX INCF PORTC<br /> CALL DELAY1S<br /> GOTO LX<br />DELAY1S MOVLW 06H<br /> MOVWF 20H<br />LP1 MOVLW 0EBH<br /> MOVWF 21H<br />LP2 MOVLW 0ECH<br /> MOVWF 22H<br />LP3 DECFSZ 22H<br /> GOTO LP3<br /> DECFSZ 21H<br /> GOTO LP2<br /> DECFSZ 20H<br /> GOTO LP1<br /> RETURN<br /> END <br />
|