ТЕЛЕФОНИЯ
. -------------
p a u se
movlw . z50
v e r 2
f z f r é g i , n21
movwf TMRO
g o to v e r3
lo c p
m ovf TMR0,w
''y
nofzO reg 2
b t f s c STATUS,Z
g o to w r o f f
r e t u r n
f z f re g 2 , n22
g o to lo c p
g o to v e r3
;*+***
+ *++ + + ★ + +++ + + + + + + + + + + + ++ + **+ + + * + 4-* + +* + *- + +
nofzO reg 3
w r ite
f l a s h movwf d a t
g o to w r o f f
m ovf
STATUS, w
n o f z f re g 3 , n23
movwf tem p
g o to ok n
b c f
STATUS, RPO
m ovf
a d r,w
v er3
f z f r é g i , n31
movwf EEADR
g o to
v er4
m ovf
d a t,w
nofzO reg 2
movwf EEDATA
g o to w r o f f
b s f
STATUS,RPO
f z f re g 2 , r,32
b s f
EEC0N1 '‘SOh, WREN
g o to
v er4
movlw 55h
nofzO reg 3
movwf ЕЕСОМ2Л60Ь
g o to w r o f f
movlw OxAA
n o f z f re g 3 , n33
movwf ЕЕСОП2Л80Ь
g o to ok n
b s f
EEC0M1Л80Н, WR
Щ
:
-----■—
-----
m ovf
tem p,w
v er4
f z f r é g i , n41
movwf STATUS
g o to v e rb
r e t u r n
nofzO reg 2
+************** + *-,* + „ + + **^*******
g o to w r o f f
bad
c a l l beep
f z f re g 2 , n42
c a l l b e e p l
g o to v e r 5
c a l l beep
nofzO reg 3
c a l l b e e p l
g o to w r o f f
c a l l beep
n o f z f re g 3 , n43
c a l l b e e p l
g o to ok n
c a l l beep
; ------------
c a l l b e e p l
v e rb
verm n51,
n52,
n53,
v e r6
; те же самые процедуры
c a l l beep
* '
'
; полностью замененные
c a l l b e e p l
; на м акрос
c a l l p au se
VCr 6
verm n61,
n62,
n63,
v e r 7
b t f s s in
v er7
verm n71,
n i 2,
n73,
v erS
g o to bad
f.'Tfc
v er8
verm n81,
n82,
n83,
v e r9
c a l l p au se
t -
v e r9
verm n91,
n92,
n93.
v e r 10
b t f s s in
v e r 10
verm n lO l, n l0 2 , n l0 3 .
v e r 11
g o to bad
v e r 11
verm n l l l , n l l 2 , n l l 3 .
v e r l2
g o to ok n
X
v e r 12
verm n l2 1 , n l2 2 , n l2 3 .
v e r l3
; ---------
v e r 13
verm n l3 1 , n l3 2 , n l3 3 .
v e r 14
ok
v e r 14
verm n l4 1 , n !4 2 , n l4 3 .
v e r l5
ok n
b t f s c FORTA, 1
v e r 15
verm n l5 1 , n l5 2 , n l5 3 ,
v e r l6
g o to w e it
v e r 16
verm n l6 1 , n l6 2 , n l6 3 .
v e r 17
b c f STATUS,RPO
V er 17
verm n l7 1 , n l7 2 , n l7 3 .
v e rlS
movlw У 10010000'
v e rlS
verm n lS l, n l8 2 , n l8 3 ,
v e r 19
movwf INTCOH
v e r l9
verm n l9 1 , n l9 2 , n l9 3 ,
v er2 0
s le e p
t
; ------------
nop
v er2 0
f z f r é g i , n201
nop
g o to bad
;
nofzO reg 2
w e it
b t f s s PORTA,1
; w e it program m ing
g o to w r o f f
g o to ok
f z f re g 2 , n202
b t f s c in
g o to bad
g o to w e it
nofzO reg 3
c l r f tem p re g
g o to w r o f f
c l r f tem p s in g l
n o f z f re g 3 , n203
g o to sO
g o to ok n
<
-
g o to b ad
;: ни сд ан и з номеров не совпал
c l e a r
f la s h
c l r f
a d r
; ——-----—-
n ec
c a l l
pwr
w r o f f
m ovf tem p s in g l,w
movlv; O xff
c a l l b e e p l
c a l l w r ite і la s h
c l r f tem p s in g l
c a l l
beep2
g o to sO
in c f s z
a d r , f
; ——------
g o to
nec
beep
movlw .255
r e t u r n
movwf TMRO
;---------
lo c b
b c f
o u t
pwr
b t f s c in
m ovf
TMRO, w
r e t u r n
b t f s c STATUS,Z
b s f o u t
r e t u r n
b c f o u t
b s f o u t
r e t u r n
g o to
lo c b
;
beep2
movlw .12
b e e p l
movlw .120
movwf tem p
movwf tem p
b2
b s f o u t
Ы
b s f o u t
nop
пор
b c f o u t
b c f o u t
d e c fs z te m p ,f
d e c f s z te m p ,f
g o to Ы
g o to Ы
r e t u r n
r e t u r n
4/гооз
end
предыдущая страница 15 Радиолюбитель 2003-04 читать онлайн следующая страница 17 Радиолюбитель 2003-04 читать онлайн Домой Выключить/включить текст