і
А В Т О М А Т И К А
І
Л истинг програм м ы для устройства на основе PIC12F629
l i s t p = p ic l2 f 6 2 9
;3 а д а е м т и п м и к р о к о н т р о л л е р а P IC 1 2 F 6 2 9
i n c lu d e p ! 2 f 6 2 9 . i n c
/П о д к л ю ч а е м ф айл с о п и с а н и е м с л у ж е б н ы х р е г и с т р о в м и к р о к о н т р о л л е р а P IC 1 2 F 6 2 9
b o t e q u 2 0 h
c b lo c k b o t
fa s
te m p
te m p _ l
s e c
m in
h o u r
m in _ l
h o u r _ l
h o u r _ 2
f l a g s
a d r
d a t
s t a t _ l
a k u
e n d c
# d e f in e
s h i f t
# d e f in e
z e r o
# d e f in e
c a r r y
S TA TU S ,R P O
S T A T U S ,Z
S T A T U S ,C
# d e f in e
# d e f in e
# d e f in e
k e y _ l
k e y _ 2
out
G P IO ,1
G P IO ,2
G P IO ,0
; О п и с а н и е р е г и с т р о в
/Б и т п е р е к л ю ч е н и я б а н к о в
/Ф л а г н у л я
/К н о п к а №1
/К н о п к а №2
; С в е т о д и о д
o r g 0 x 0 0 0
g o t o r e s e t
/В е к т о р с б р о с а
П о д п р о гр а м м а о б р а б о т к и п р е р ы в а н и й п о п е р е п о л н е н и ю TMR0
o r g 0 x 0 0 4
m o v w f a k u
m o v f S T A T U S ,w
m o v w f s t a t _ l
b c f IN T C O N ,T O I F
d e c f s z s e c , 1
g o t o e x i t
m o v lw 0 x 3 c
m o v w f s e c
d e c f s z m i n , 1
g o t o e x i t
m o v lw O x3c
m o v w f m in
d e c f s z h o u r ,1
q o t o e x i t
m o v lw 0 x 1 8
/С о х р а н я е м у к у м у л я т о р
/С о х р а н я е м р е г и с т р с т а т у с а
/С б р а ш и в а е м ф л а г п е р е п о л н е н и я ТМР0
/О т н и м а е м о т р е г и с т р а с е к у н д е д е н и ц у и п р о п у с к а е м е с л и « 0 »
/И д е м н а в ы х о д е с л и н е « н о л ь »
/З а д а е м с т а р т о в о е з н а ч е н и е « с е к у н д »
/О т н и м а е м о т р е г и с т р а с е к у н д е д е н и ц у и п р о п у с к а е м е с л и « 0 »
/И д е м н а в ы х о д е с л и н е « н о л ь »
/З а д а е м с т а р т о в о е з н а ч е н и е « м и н у т »
/О т н и м а е м о т р е г и с т р а с е к у н д е д е н и ц у и п р о п у с к а е м е с л и « 0 »
/И д е м н а в ы х о д е с л и н е « н о л ь »
/З а д а е м с т а р т о в о е з н а ч е н и е « ч а с о в »
m o v w f h o u r
e x i t
m o v f s t a t _ l , w
m o v w f STATUS
m o v f a k u ,w
r e t f i e
/В о з в р а щ а е м с о д е р ж ы м о е г л а в н о г о р е г и с т р а
/В о з в р а щ а е м с о х р а н е н и й а к у м у л я т о р
/В ы х о д и м и з п о д п р о гр а м м ы
И н и ц и а л и з а ц и я
b s f s h i f t
/В ы б и р а е м Б а н к №1
m o v lw Ь ' 0 0 0 0 0 1 0 0 ’
m o v w f O PTIO N _R EG
/В ы б и р а е м д е л и т е л ь д л я TMR0
( 1 :3 2 )
m o v lw b '0 0 0 0 0 1 1 0 *
m o v w f WPU
m o v lw b '0 0 0 0 0 1 1 0 '
m o v w f T R IS 10
/З а д а е м н а п р а в л е н и е р а б о т ы п о р т а
b c f s h i f t
/В ы б и р а е м Б а н к №0
m o v lw O xFF
/В ы кл ю ч а е м м о д у л ь к о м п а р а т о р о в
m o v w f CMC0N
c l r f G P IO
/О ч и щ а е м п о р т
m o v lw О х З с
/Н а ч а л ь н о е з н а ч е н и е р е г и с т р а « с е к у н д »
m o v w f s e c
m o v lw О хЗ с
/Н а ч а л ь н о е з н а ч е н и е р е г и с т р а « м и н у т »
m o v w f m in
m o v lw 0 x 1 8
/Н а ч а л ь н о е
з н а ч е н и е р е г и с т р а « ч а с о в »
m o v w f h o u r
m o v lw b ' 1 0 1 0 0 0 0 0 *
m o v w f IN TC O N
/Р о з р е щ а е м п р е р ы в а н и я о т TMR0
s c a n
b t f s s k e y _ l
c a l l p r o g _ l
b t f s s k e y _ 2
c a l l p r o g 2
c a l l tim e
m o v f m in ,w
s u b w f m in _ l, w
b t f s s z e r o
g o t o s c a n
m o v f h o u r , w
s u b w f h o u r _ l, w
b t f s s z e r o
g o t o s c a n
c a l l s t a r t
п о д п р о гр а м м у о б р а б о т к и д а н н о г о с о б ы т и я
g o t o s c a n
/П р о в е р я е м с о с т о я н и е к н о п к и
/Е с л и н а ж а т а т о в ы зы в а е м п о д п р о г р а м м у
/П р о в е р я е м с о с т о я н и е к н о п к и
/Е с л и н а ж а т а т о в ы зы в а е м п о д п р о г р а м м у
/В ы з ы в а е м п о д п р о г р а м м у п р о в е р к и н а ч а л а ч а с а
/С р а в н и в а е м з н а ч е н и е « м и н у т »
/Е с л и р а в н о т о п р о п у с к а е м
/Е с л и н е т т о в о з в р а щ а е м с я н а с к а н и р о в а н и е к л а в и а т у р ы
/С р а в н и в а е м з н а ч е н и е « ч а с о в »
/Е с л и р а в н о т о п р о п у с к а е м
/Е с л и н е т т о в о з в р а щ а е м с я н а с к а н и р о в а н и е к л а в и а т у р ы
/Е с л и з н а ч е н и я в р е г и с т р а х Ь о и г _ 1 и п й п 1 р а в н ы т е к у щ е м у в р е м е н и т о в ы зы в а е м
/В о з в р а щ а е м с я н а с к а н и р о в а н и е к л а в и а т у р ы
20 f
I
Родиолюбитель - 0 4 /2 0 0 4
предыдущая страница 19 Радиолюбитель 2004-04 читать онлайн следующая страница 21 Радиолюбитель 2004-04 читать онлайн Домой Выключить/включить текст