Êóðñîâàÿ ðàáîòà: Ðàçðàáîòêà öèôðîâîãî èçìåðèòåëÿ êðîâÿíîãî äàâëåíèÿ íà ìèêðîêîíòðîëëåðå MC68HC908JL3
0000 16
TMODH equ $23
0000 17
TMODL equ $24
0000 18
ADSCR equ $3C
0000 19
ADR equ $3D
0000 20
ADICLK equ $3E
21
22
23
0080
24 org $80 ;ÎÇÓ
25
0080 26
ind rmb 3
0083 01 27
adres db 1
0084 01 28
BCD100 db 1
0085 01 29
BCD10 db 1
0086 01 30
BCD1 db 1
0087 01 31
indx db 1
0088 01 32
ci db 1
0089 01 33
bitf db 1
008A 01 34
upress1 db 1
008B 01 35
upress db 1
008C 01 36 udav
db 1
008D 01 37
const db 1
008E 01 38
dav db 1
008F 01 39
y db 1
0090 01 40
pulse db 1
0091 01 41
bitf1 db 1
0092 01 42
cmp1 db 1
0093 01 43
del db 1
0094 01 44
por db 1
0095 01 45
ovsec db 1
0096 01 46
cmpad db 1
0097 01 47 amp2
db 1
0098 01 48
amp1 db 1
0099 01 49
sec db 1
009A 01 50
sec10 db 1
009B 01 51
time1 db 1
009C 01 52
time2 db 1
009D 01 53
time3 db 1
009E 01 54
pr1 db 1
009F 01 55
sis db 1
00A0 01 56
pr2 db 1
00A1 01 57
dia db 1
00A2 01 58
pul db 1
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 2
00A3 01 59
bcdx db 1
00A4 01 60
pmem1 db 1
61
EC00
62 org $ec00 ;ïðîãðàììà
63
64
start:
65
;--------------------------- Èíèöèàëèçàöèÿ -----
66
EC00 [01] 4F
67 clra
EC01 [01] 5F
68 clrx
69
EC02 [04] 6EFF07 70
mov #$ff,DDRD ;Íàñòðàèâàåì ëèíèè
ïîðòà PTD íà âûâîä
EC05 [04] 6E1C05 71
mov #$1c,DDRB ;Íàñòðàèâàåì ëèíèè
ÐÒÂ2,ÐÒÂ3,ÐÒÂ4
íà âûâîä
72
73
;Èíèöèàëèçàöèÿ èíäèêàòîðà
74
EC08 [04] 1501 75
bclr 2,PTB
EC0A [04] 1701 76 bclr
3,PTB
EC0C [04] 6E0603 77
mov #$6,PTD ;Óñòàíîâêà ðåæèìà ââîäà
EC0F [04] 1801 78
bset 4,PTB ;Ôîðìèðîâàíèå
ñòðîáèðóþùåãî
èìïóëüñà
EC11 [01]
9D 79 nop
EC12 [01] 9D
80 nop
EC13 [01] 9D
81 nop
EC14 [01] 9D
82 nop
EC15 [01] 9D
83 nop
EC16 [04] 1901
84 bclr 4,PTB
EC18 [05] CDEF08
85 jsr deleysret
EC1B [04] 6E3803
86 mov #$38,PTD ;Óñòàíîâêà âûïîëíÿåìûõ
ôóíêöèé
EC1E [04] 1801 87
bset 4,PTB ;Ôîðìèðîâàíèå
ñòðîáèðóþùåãî èìïóëüñà
EC20 [01]
9D 88 nop
EC21 [01] 9D
89 nop
EC22 [01] 9D
90 nop
EC23 [01] 9D
91 nop
EC24 [01] 9D 92
nop
EC25 [04] 1901
93 bclr 4,PTB
EC27 [05] CDEF08
94 jsr deleysret ;Çàäåðæêà 30 ìêÑ
EC2A [04] 6E0803
95 mov #$8,PTD
EC2D [04] 1801
96 bset 4,PTB ;Ôîðìèðîâàíèå
ñòðîáèðóþùåãî
èìïóëüñà
EC2F [01] 9D 97 nop
EC30 [01] 9D 98 nop
EC31 [01]
9D 99 nop
EC32 [01] 9D
100 nop
EC33 [01] 9D 101 nop
EC34 [04] 1901
102 bclr 4,PTB
EC36 [05] CDEF08
103 jsr deleysret ;Çàäåðæêà 30 ìêÑ
104
105
;---------------------------------------------
106
107 main:
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 3
EC39 [02] A628
108 lda #!40
EC3B [02] AE80
109 ldx #$80
110 sbm:
EC3D [02] 7F
111 clr ,X ; Îáíóëåíèå ÿ÷ååê ïàìÿòè
EC3E [01] 5C
112 incx
EC3F [01] 4A
113 deca
EC40 [03] 26FB
114 bne sbm
EC42 [04] 6E5994
115 mov #!89,por
EC45 [04] 6E089E
116 mov #!8,pr1 ;Ïîðîã äëÿ ñèñòîëè÷å
ñêîãî
EC48 [04] 6E0DA0 117
mov #!13,pr2;Ïîðîã äëÿ äèàñòîëè÷åñêîãî
118
EC4B [02] 9A 119
cli ;Ðàçðåøàåì ïðåðûâàíèÿ
120
EC4C [04] 6E403C 121
mov #$40,ADSCR ;Çàïóñê ÀÖÏ âõîä ÐÒÂ0
EC4F [05]
0789FD 122 brclr 3,bitf,$
EC52 [04] 1789 123 bclr
3,bitf
EC54 [05] 4E8B8D
124 mov upress,const
125
126
;--------------------------- ÈÍÄÈÊÀÖÈß ñèñ,äèà,ïóë
127
EC57 [04] 6E0B84 128
mov #!11,bcd100 ;$34 - êîä áóêâû "C"
EC5A [04]
6E0C85 129 mov #!12,bcd10
EC5D [04] 6E0B86
130 mov #!11,bcd1
EC60 [04] 6E0083
131 mov #$0,adres
EC63 [05] CDEEC1
132 jsr IND_RET ;Âûâîä íà èíäèêàöèþ
EC66 [04] 6E0D84
133 mov #!13,bcd100 ;Âûâîä "ÄÈÀ"
EC69 [04] 6E0C85
134 mov #!12,bcd10
EC6C [04] 6E0E86
135 mov #!14,bcd1
EC6F [04] 6E4083
136 mov #$40,adres
EC72 [05] CDEEC1
137 jsr IND_RET
EC75 [04] 6E0F84
138 mov #!15,bcd100 ;Âûâîä "ÏÓË"
EC78 [04] 6E1085
139 mov #!16,bcd10
EC7B [04] 6E1186
140 mov #!17,bcd1
EC7E [04] 6E4983 141 mov
#$49,adres
EC81 [05] CDEEC1
142 jsr IND_RET
143
144
;----------------------------------------------
145
146
147 ;----------
ÈÍÄÈÊÀÖÈß 0 â ðàçäåëå ñèñ ------------------------------;
148
EC84 [04] 6E0A84 149
mov #$a,bcd100 ;Ñèìâîë ïðîáåëà
EC87 [04]
6E0A85 150 mov #$a,bcd10
EC8A [04] 6E0386 151
mov #$03,bcd1 ;Ñèìâîë "0"
EC8D [04] 6E4683
152 mov #$46,adres ;Çàïèñü àäðåñà
EC90 [05]
CDEEC1 153 jsr IND_RET
EC93 [04] 1501
154 bclr 2,PTB
EC95 [04] 1701
155 bclr 3,PTB
EC97 [04] 6E0C03
156 mov #$c,PTD ;Âêëþ÷èòü äèñïëåé
157
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 4
158
159
;-------------------------------------------------
160
EC9A [05] 4E8B92
161 mov upress,cmp1
162
163 ;-
Ïðîöåäóðà îæèäàíèÿ îêîí÷àíèÿ íàêà÷êè ìàíæåòû --
164
165 ;- Çàäåðæêà
0.7 ñåêóíäû ñ èíäèêàöèåé òåêóùåãî äàâëåíèÿ --------
166
167 loop:
EC9D [04] 6E0093
168 mov #$0,del
169
loop2:
ECA0 [01] 4F
170 clra
ECA1 [04] C7FFFF
171 sta $ffff ;Ñáðîñ WDOG
172
loop1:
ECA4 [01] 4A
173 deca
ECA5 [03] 26FD
174 bne loop1 ;Åñëè àêêóìóëÿòîð=0 òî
ïåðåõîä íà loop1
ECA7 [05] 4E8B8C 175
mov upress,udav ;êîä íàïðÿæåíèÿ ñ äàò÷èêà çàíîñèì â udav
ECAA [03] 450000 176
ldhx #$0
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
