Управление Двигателем через КМ1816ВЕ51 - Микроконтроллер - Ответ 10309985

ORG 0Bh
    LJMP increment  ;метка на прерывание от таймера
 
ORG 8100h   
start:
    setb EA
    setb ET0
    orl TMOD,#00000001b
    mov TH0,#252
    mov TL0,#24
    mov A, #0
    jmp infinity    
infinity:
    mov A, #0
    mov R1,#0
    jmp cycle_f1
    
    ;Прямой ход нарастания 3600 об/мин  
    cycle_f1:
            mov R0,#0
            mov p1,#10100000b
            setb TR0
        part5:
            cjne R0, A, part5
            add A, #10
            inc R1
        cjne R1, #100, cycle_f1
        mov R1,#0
        mov A, #0
        jmp cycle_b1
        
    ;Реверс нарастания 3600 об/мин
    cycle_b1:   
            mov R0,#0
            mov p1,#01010000b
            setb TR0
        part6:
            cjne R0, A, part6
            add A, #10
        cjne R1, #100, cycle_b1
        mov R1,#0
        mov A, #0
        jmp cycle_f05
        
        ;Нарастание оборотов от 0 до 1800 об/мин
    cycle_f05:
            mov A, #0
            mov R0,#0
            mov p1,#10100000b
            setb TR0
        part1:
            cjne R0, A, part1
            add A, #5
            mov R0,#0
            mov p1,#00110000b
            setb TR0
        part2:
            cjne R0, A, part2
            inc R1
        cjne R1, #50, cycle_f05
        
        ;Сбавление оборотов от 1800 до 0
        part1_1:
            cjne R0, A, part1
            subb A, #5
            mov R0,#0
            mov p1,#00110000b
            setb TR0
        part2_2:
            cjne R0, A, part2
            dec R1
        cjne R1, #0, cycle_f05
    ljmp infinity
 
increment:   ;прерывание от таймера  
    clr TR0
    inc R0
    mov TH0,#252
    mov TL0,#24
    setb TR0
    RETI    
END