fy"> delay ; команда виклику підпрограми;
BCF PORTE, 1 CCC3, 0 dec7 span> PORTA PORTE, 0 delay PORTEpreobr 0x02 ; підпрограма затримки на 2 мс.
movwf 0x50_1 delay_2 0x50, f delay_1_2 ; вкладена затримка на 1 мс 0xf7 0x51_3 0x51, f delay_3
return
; підпрограма табличній конвертації, приймає і повертає дані в акумулятор PCL, f ; додаємо до PCL число, яке потрібно перетворити b'1111110 ' ; цифра "0" b'0110000 ' ; цифра "1" b'1101101' ; цифра " ; 2 " b'1111001 ' ; цифра" 3 " b '0110011 ' ; цифра "4" b'1011011' ; цифра "5" b'1011111 ' ; цифра "6" b'1110000 ' ; цифра "7" b'1111111' ; цифра "8" b'1111011 ' ; цифра "9"
end