Page 218 - 4503

; для зручності напису кодів-----------
STATUS equ 3 ; регістр розміщений за
;адресою h’03’
Z equ 2 ; ознака нуля — це біт 2
C equ 0 ;ознака перенесення ;
;(запозичення) — біт 0
FUEL equ h’34’; регістр де зберігається
;величина
; рівня палива розміщений за
;адресою h’34’
RA1 equ 1 ; біт 1 порту А для сигналу
;до світлодіода
RA0 equ 0 ; біт 0 порту А для сигналу
;до звуку
PORTA equ 05; портА розміщений за
;адресою 05
---- ; власне підпрограма---------------
PROCEDURE
bcf PORTA,RA0 ;очистити біти RA0 і RA1
;порта А
bcf PORTA,RA1
movf FUEL,w ;скопіювати вміст регістра
;рівня палива у робочий регістр
addlw -5 ; і порівняти його з
;числом 5
btfss STATUS,C ; перевірити чи рівень
;>5, якщо
bsf PORTA,RA0 ; ні, то встановити біт
;RA0,
movf FUEL,w ; інакше скопіювати вміст
;регістра
; рівня палива у робочий регістр

218