lim
2002
I
МИКРОКОНТРОЛЛЕРЫ
Программа считывающего устройства
Program !2C_Com2;
Uses
Dos, CRT;
C onst
BA-52F8;
h e z e ,h e e i ,e i n ,a d r ,z a h l ,s p a l t : b y t e ;
H is tr ,H e x a s tr ;s tr in g ;
( . r.g-oi*, '.‘a-. ,
::
P ro c ed u re J.
:: . ;
B egin
D e la y (10);
End;
P ro ced u re S t a r t;
Begin
P e rt [BA't 4 } :«2;
D e la y (lO );
D elay (IQ );
End;
P ro ced u re '■
s ;
B egin
P o rt i.BA+4 3
: =0;
D elay (10) ; , )
^
P o rt (BA-i-4} :=2;
D e la y (10);
D e la y (10);
End;
P ro c ed u re -
.. • : ■•. ;
V ar Hi:word;
Begin
irport [BA-t4:l;
.I:-;
D elay (10);
D e la y (10);
For m :=l to 100 do;
D elay (1.0) ;
P ro c ed u re K einA cknow lecge;
V ar iTiiword;
Begin
P o rt [BA-r4) : =1;
D elay (10) ;
P o rt [BA-r4 3
:=3;
D elay (1C);
For m;<i. to 100 do;
:
i
I:; ^
P o rt Г5At<J ] : ----1;
End;
P ro c ed u re ■■
.
: r.
i
,
:
V ar : . *
л- i
w
i y" »; r
Begin
iifttw e
1
f.
F or . i :
to
. B egin
I f
(wert, an d B itw e r t) ÄB itw e rt th e n
P c r tw e rt:“ l
E ls e P o rtw e rt r e -
port. [BA+4] ;« P o rtw e rt;
uelay(j и/ ;
!Ч,: ■
г л- г ‘ - ь ;
D elay (10) ;
For m :-l t o 1Ö0 do;
D elay (1 );
P ort[B A + 4):-P o r tw e r t;
'■
U i . : ' . :
■« * t
j
. v г ;
End;
Port[B A +43:=1;
Port[BA +4} :-3 ;
D e la y (10);
F o r m: = l to 100 do;
I f (Port[EA-f6j and 16) =16 th e n
W r ite ln ('I C a n tw o rte t n i c h t 7)
D e la y (10);
F u n c tio n E in le s e n :b y te ;
V ar . 'i ‘.w- ■*»,■.
.*
*
.. . .;
B egin
D e la y (10);
F or
.: ' to
do Begin
D e la y (1 0 );
F or m :-I to 100 do
D e la y (1 );
I f
(P o r t [BA-^-6j
a n d
1 6 )= 1 6
th e n
w e r t:= w e rt+ b itw e rt;
P o rt[B A + 4 j:-1 ;
D e la y (1 0 );
B itw ert:= B ifcw ert d iv 2;
E in le s e n ; - w e rt;
P ro c ed u re v; •.*.!;
B egin
fle x a s tr := 77;
I f heze>=10 th en H exastr:=C hr(heze+55)
(Й|:ШЙ;Й
lilie i-iitiS i
I f heei>=10 th e n H i s t r : ~Chr (heei-t-55)
E ls e H istrr^ C h r (heei-M e) ;
P ro c ed u re
;
B egin
iSsg]e|äe?|.
A u sg e b e n (a d r);
A u sg e b e n (z a h l);
S to p ;
D elay (3 0 0 0 ;
End;
J-!
P ro c ed u re *j .
B egin
H v;t:= readkey; w rite (h w t);
W w t^read k ey ; w rite (n w t);
H e ze := o rd (h w t)-4 8 ;
H e e i:= o rd (n w t)-4 8 ;
I f beze>48 th e n h e z e :-h e z e -3 S ;
I f heze>16 th e n h e z e := h e z e -7 ;
I f *.*■-
th e n
I f heei> 16 th e n h e e i:= h e e i-7 ;
Z a h l: « lö ^ h e z e + h e e i;
P ro c ed u ra s c h re ib e n ;
B egin
C lr s c r;
G o to x y (1 ,1 0 );
w r i t e ( 'В ведите
адрес
яч ей к и
в
ш естн ад ц атер и чн о м
ви де
Ат
G otoxy (1,-15); -w rite ( 'В ведите зн а ч е -
ние д .ч н к /. :■
jj-cvH.ijn-.v-rn-.-K'M :-;:;>
0 0 .
. .FF : ' ) ;
S p eich ern ;
P ro c ed u re
/■
] ;
B egin
F or
'j to . . \<
do
A usgeben($OAO);
- "
A usgeben( a d r ) ;
, s
.Acknowledge;
^
в^0ЙЯШ:1|И^"^М8МВ1р'ШР1И|18в1Я
A usgeben ($0A1);
ч ‘
1
E in ;= e in le s e n ;
'
jt|p ;-'' ;Шш1^Ш|1Щв(е^ИййрЙЧ^^Й1Я
I f a d r d iv 8s" a d r/8 th e n
B egin
Z a h l:= a d r;
Wand; w r ite ln ;
W rite ( 'А дрес7, H e x a s t r , '; 7};
.
Z a h l:= e in ;
W rite (H e x a s tr);
W r ite ( ' 7) ;
' '
"
* i|w§piД
j i |
G o to x y (sp alt+ 3 0 ,W h erey );
C ase e in o f
0 0 :w r i t e ( ' . ' ) ;
0 7 ;w rite ( ' . ' ) ;
'
10:w r i t e { \ 7);
- / : w r i t e < '. '‘
. ;
/-.
..:
w ri te ■
’ 4
. ' I ;
w r i t e ( e h r ( e in ) ) ;
Gotoxy (sp alt+ 3 0 ,W h erey );
'
R e p e a t;
D e la y (30);
U n til k ey p re sse d ;
B egin
R ep eat
l2 C _ in it;
D e la y (5000) ;
Textm ode(C080) ;
G o to x y (IQ ,1 );
VJ*
реграммное обеспечение дл^
,
х. г' С
-ь;'7
: ;
G otoxy (12, 6) ;
W rite ln ( 'Автор программы A. K ohler7);
Gotoxy (10, U ) ;
W rite ln ('& n s чтения карточки вв ед и -
.
•»■
:*.• *F'7);
G otoxy(2 0 ,1 6 );
W r ite ln ( 'В ведите 'V или 'S 77) ;
G otoxy(2 0 ,2 1 );
W r ite ln ('Д ля выхода введите ' х ' , для
продолжения любуж) клавиш у7) ;
E in g a b e:» read k ey ;
Case
i
o f
' l 7 :dump;
1
'S 7 : s c h re ib e n ;
U n t i l
e in g a b e 5»7 x 7
;
!1 Я 1 ^Ш В ^И 1 1 Я 1 1 Я 1 !1 1 ^^Й В в 1
End;
предыдущая страница 30 Радиолюбитель 2002-11 читать онлайн следующая страница 32 Радиолюбитель 2002-11 читать онлайн Домой Выключить/включить текст