Êóðñîâàÿ ðàáîòà: Ðàçðàáîòêà öèôðîâîãî èçìåðèòåëÿ êðîâÿíîãî äàâëåíèÿ íà ìèêðîêîíòðîëëåðå MC68HC908JL3
ECAD [05] CDEE74 177
jsr VOLTS_PRESSURE_RET ;Âûçîâ ïîäïðîãðàììû ïåðåêîäèðîâêè íàïðÿæåíèå â
äàâëåíèå
ECB0 [05]
4E8E8F 178 mov dav,y
ECB3 [05] CDEE85
179 jsr BCD_RET
ECB6 [04] 6E0483
180 mov #$04,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
ECB9 [05]
CDEEC1 181 jsr IND_RET
ECBC [04] 3A93
182 dec del
ECBE [03] 26E0
183 bne loop2 ;Åñëè del=0 òî ïåðåõîä íà loop2
ECC0 [05] 069104 184
brset 3,bitf1,lop ;Åñëè 3 áèò=0 òî çàäåðæêà ïðîèñõîäèò ñíîâà
ECC3 [04] 1691 185
bset 3,bitf1 ;Óñòàíîâèòü 3 áèò â 1
ECC5 [03] 20D6 186
bra loop ;Ïåðåõîä íà loop
187 lop:
ECC7 [04] 1789 188
bclr 3,bitf ;Ñáðîñèòü 3 áèò â 1
189
190
;-------------------------------------------------
ECC9 [04] C7FFFF 191
sta $ffff
ECCC [03] B68B 192
lda upress ;Çàãðóæàåì upress â àêêóìóëÿòîð äëÿ ñðàâíåíèÿ
ECCE [03]
B192 193 cmp cmp1 ;ñ cmp1
ECD0 [03] 2502
194 blo ampmet ;Åñëè À>cmp1, òî
íàêà÷êà ìàíæåòû âñ¸ åù¸ èäåò
ECD2 [03] 20C9 195
bra loop ;ïîýòîìó ïåðåõîäèì íà loop
196
197 ;-------
Îïðåäåëåíèå àìïëèòóäû -------------------
198
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 5
199 ampmet:
ECD4 [04] C7FFFF 200 sta
$ffff
ECD7 [04] 1089 201
bset 0,bitf ;Óñòàíàâëèâàåì àíàëîãîâûé âõîä ÐÒÂ1
ECD9 [04] 6E3023 202
mov #$30,TMODH ;Èíèöèàëèçàöèÿ
òàéìåðà, ïåðèîä ñ÷¸òà äî 12499
ECDC [04] 6ED324 203
mov #$d3,TMODL ; ÷àñòîòà òàêòèðîâàíèÿ 125000 Ãö
ECDF [04] 6E4320 204
mov #$43,TSC ;Çàïóñê òàéìåðà
205 dvbm:
ECE2 [04] C7FFFF 206
sta $ffff
ECE5 [05] 0A8902 207
brset 5,bitf,rm ;Åñëè öèêë ïðîäîëæàåòñÿ áîëüøå 5 ñåêóíä
ECE8 [03] 2003 208
bra m55 ;òî âûâîäèì ñîîáùåíèå îá îøèáêè
209
rm:
ECEA [03] CCEDFC
210 jmp rorm
211 m55:
ECED [03] B68A
212 lda upress1
ECEF [03] B194
213 cmp por ;Ñðàíèâàåì upress1 c ïîðîãîì por
ECF1 [03] 25EF
214 blo dvbm ;Åñëè upress1<por
òî ïåðåõîäèì íà
dvbm
ECF3 [03] 3F95
215 clr ovsec ;Ñáðîñ OVsec
ECF5 [05] 4E8A96
216 mov upress1,cmpad ;-----------------------------
217
loopamp:
ECF8 [04] C7FFFF
218 sta $ffff ;-----------------
ECFB [04] 1989
219 bclr 4,bitf ;-----------------
ECFD [05] 0989FD
220 brclr 4,bitf,$ ;Èäåíòèôèêàöèÿ
àìïëèòóäû
ED00 [03] B68A
221 lda upress1 ;-----------------
ED02 [03] B196
222 cmp cmpad ;-----------------
ED04 [03] 22F2
223 bhi loopamp ;Åñëè
upress1>cmpad
òî ïåðåõîäèì íà loopamp
224
225 ;----------
Ñáðîñ è ïåðåçàïóñê òàéìåðà -----------
226
ED06 [04] 1A20
227 bset 5,TSC
ED08 [04] 1820
228 bset 4,TSC
ED0A [04] 6E4320
229 mov #$43,TSC
230
231
;-------------------------------------------------
232
ED0D [05] 4E9697
233 mov cmpad,amp2 ; amp2 íàõîäèòñÿ çíà÷åíèå àìïëèòóäû
ED10 [04] 1189
234 bclr 0,bitf ;Óñòàíàâëèâàåì àíàëîãîâûé âõîä ÐÒÂ0
ED12 [04] 1789 235
bclr 3,bitf ;Îáíóëÿåì áèò ÑÎÑÎ1
ED14 [05] 0789FD 236
brclr 3,bitf,$ ;Åñëè ÑÎÑÎ1=0 òî
çàöèêëåâàåìñÿ
ED17 [05] 4E8B8C 237 mov
upress,udav ;Êîä íàïðÿæåíèÿ ñ
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 6
äàò÷èêà
â udav
ED1A [04] 1089 238
bset 0,bitf ;Óñòàíàâëèâàåì
àíàëîãîâûé âõîä ÐÒÂ1
ED1C [04] 3C90 239
inc pulse ;Â pulse êîë-âî
àìïëèòóä
ED1E [03] B697 240
lda amp2
ED20 [03] B198 241
cmp amp1
ED22 [03]
220B 242 bhi proim ;Åñëè amp2>amp1 òî
ïåðåõîä íà proim
ED24 [05] 4E98A4
243 mov amp1,pmem1 ;-----------------
ED27 [05] 4E9798
244 mov amp2,amp1 ;Ìåíÿåì ìåñòàìè
amp2
ñ
amp1
ED2A [05] 4EA497
245 mov pmem1,amp2 ;-----------------
ED2D [04] 1E89
246 bset 7,bitf ;Óñòàíàâëèâàåì â 1
áèò
cb
247
248 ;---
Ïðîöåäóðà âû÷èñëåíèÿ ïðîèçâîäíîé àìïëèòóäû --
249 proim:
ED2F [04] C7FFFF 250
sta $ffff
ED32 [05] 00913E 251
brset 0,bitf1,mtime ;Åñëè âõîä â
ïðîöåäóðó 2-îé ðàç òî ïåðåõîä íà mtime
ED35 [04] 1091 252
bset 0,bitf1 ;Óñòàíàâëèâàåì sb â 1
ED37 [03]
BE99 253 ldx sec
ED39 [02] A60A 254
lda #!10
ED3B [05] 42
255 mul ;Óìíîæàåì sec íà 10
ED3C [01] 8C
256 clrh
ED3D [01] 5F
257 clrx
ED3E [03] BB9A
258 add sec10 ;Ðåçóëüòàò óìíîæåíèÿ
ñêëàäûâàåì ñ sec10,
259 ;ïîëó÷àåì âðåìÿ èìïóëüñà
ED40 [03] B79B 260
sta time1 ;Âðåìÿ èìïóëüñà
çàíîñèì â time1
261 cbm:
ED42 [05] 0F8908 262
brclr 7,bitf,perem ;Åñëè amp2 è amp1
ìåíÿëèñü ìåñòàìè òî
ED45 [04] 1F89 263
bclr 7,bitf ;ìåíÿåì èõ îáðàòíî
ED47 [05]
4E97A4 264 mov amp2,pmem1 ;-------------------
ED4A [05] 4E9897
265 mov amp1,amp2
;-------------------
266
perem:
ED4D [05] 4E9798
267 mov amp2,amp1 ;amp2 çàíîñèì â amp1
268
269 ;- Çàäåðæêà
ñ èíäèêàöèåé òåêóùåãî äàâëåíèÿ 0.3 ñåêóíäû ---------------------;
270
271
ED50 [04] 6E0093
272 mov #$0,del
273
loop20:
ED53 [01] 4F
274 clra
ED54 [04] C7FFFF
275 sta $ffff ;Ñáðîñ WDOG
276
loop11:
ED57 [01] 4A 277
deca
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 7
ED58 [03] 26FD
278 bne loop11
ED5A [05] 4E8B8C
279 mov upress,udav
ED5D [03] 450000
280 ldhx #$0
ED60 [05] CDEE74 281
jsr VOLTS_PRESSURE_RET;Âûçîâ ïîäïðîãðàììû ïåðåêîäèðîâêè íàïðÿæåíèå â
äàâëåíèå
ED63 [05]
4E8E8F 282 mov dav,y
ED66 [05] CDEE85
283 jsr BCD_RET
ED69 [04] 6E0483
284 mov #$04,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
ED6C [05]
CDEEC1 285 jsr IND_RET
ED6F [04] 3A93
286 dec del
ED71 [03] 26E0
287 bne loop20
288
289
290
291 ;---------------------------------------------
292
293 mtime:
ED73 [04] C7FFFF 294
sta $ffff
ED76 [03] BE99 295
ldx sec
ED78 [02] A60A 296
lda #!10
ED7A [05] 42 297
mul ;sec óìíîæàåì íà 10
ED7B [03] BB9A
298 add sec10 ;sec10+ðåçóëüòàò
óìíîæåíèÿ
ED7D [05] 039108
299 brclr 1,bitf1,time2m ;Åñëè pb=0 òî
ïåðåõîäèì
íà time2m
ED80 [03] B79B 300
sta time1 ;Âðåìÿ èìïóëüñà â
time1
ED82 [03] B09C
301 sub time2 ;Âû÷èòàåì èç
time1,time2
ED84 [04] 1391
302 bclr 1,bitf1 ;Îáíóëÿåì pb
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
