2_lab_4_var

#INCLUDE "P16F877A.INC"
    COUNT EQU 20h
    COUNT_1 EQU 21h
    COUNT_2 EQU 22h
    COUNT_3 EQU 23h
    COUNT_4 EQU 24h
    COUNT_5 EQU 25h
    ORG 0

START:
    BSF STATUS,RP0
    BCF TRISA,RB4
    CLRF TRISD
    BCF STATUS,RP0
    CLRF PORTD

RUN:
main_part
;   start main part
call PROVERKA
BTFSC COUNT_5,0
INCF PORTD,F
DECF PORTD,F
CLRF COUNT_5
goto main_part
;   end main part

PROVERKA:
    MOVLW 50
    MOVWF COUNT_1
    LOOP_COUNT_1:
    MOVLW 50
    MOVWF COUNT_2
    LOOP_COUNT_2:
        MOVLW 50
        MOVWF COUNT_3
        LOOP_COUNT_3:
        BSF PORTB,4
        BTFSC PORTB,4
        NOP
        CALL DELAY
        CALL DELAY
        BTFSC PORTB,4
        NOP
        BSF COUNT_5,0
        DECFSZ COUNT_3,F
        GOTO LOOP_COUNT_3
        DECFSZ COUNT_2,F
    GOTO LOOP_COUNT_2
    DECFSZ COUNT_1,F
    GOTO LOOP_COUNT_1
RETURN

DELAY:
    MOVLW 50
    MOVWF COUNT
    MOVLW 50
    MOVWF COUNT_4
    LOOP_4:
        LOOP:
        DECFSZ COUNT,F
        GOTO LOOP
        DECFSZ COUNT_4,F
    GOTO LOOP_4
    RETURN

END ;