/p>
movlw d'2 '; записуємо в акумулятор значення "2"
addwf TIMER1, 1; додаємо до змінної TIMER1 значення акумулятора
goto calc3; йдемо на мітку calc3
; ---------------------------------------------- ------- коригуємо змінні TIMER1 і TIMER2
calc1 addwf TIMER1, 1; додаємо до змінної TIMER1 значення акумулятора
movlw d'100 'записуємо в акумулятор значення "100"
addwf TIMER1, 1; додаємо до змінної TIMER1 значення акумулятора
decf TIMER2 зменшуємо значення змінної TIMER2 на "1"
перевіряємо прапори регістра STATUS
btfss STATUS, C; прапор C-перенесення
btfsc STATUS, Z; і прапор Z-нульового результату
goto calc4; якщо результат не негативний-; продовжуємо
якщо Z = 0 і C = 0 значить результат негативний-
return повернення з підпрограми
; ============================================== ================
end
; ============================================== ================
