Êóðñîâàÿ ðàáîòà: Ðàçðàáîòêà öèôðîâîãî èçìåðèòåëÿ êðîâÿíîãî äàâëåíèÿ íà ìèêðîêîíòðîëëåðå MC68HC908JL3
ED86 [03] 2006
303 bra raznom
304
time2m:
ED88 [03] B79C
305 sta time2 ;Âðåìÿ èìïóëüñà â
time2
ED8A [03] B09B 306
sub time1 ;Âû÷èòàåì èç
time2,time1
ED8C [04] 1291
307 bset 1,bitf1 ;Óñòàíàâëèâàåì pb
308 raznom:
ED8E [03] B79D 309
sta time3 ;Ðàçíîñòü âðåìåíè â
Time3
ED90 [03] B697 310
lda amp2 ;-------------------
------
ED92 [03] B098 311
sub amp1 ;Âû÷èñëÿåì ðàçíîñòü àìïëèòóä ðåç. â àêêóìóëÿòîðå
ED94 [02] AE0A 312
ldx #!10 ;Ðàçíîñòü àìïëèòóä
óìíîæàåì íà 10
ED96 [05]
42 313 mul ;-------------------
-------------
ED97 [03] BFA4 314
stx pmem1
ED99 [04] 55A4
315 ldhx pmem1
ED9B [03] BE9D
316 ldx time3
ED9D [07] 52
317 div ;Ðàçíîñòü àìïëèòóä óìíîæåííàÿ íà 10 äåëèì íà time3
318 ;â
ðåçóëüòàòå ïîëó÷àåì ïðîèçâîäíóþ àìïëèòóä
319
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 8
320
;--------------------- Ïðîöåäóðà îïðåäåëåíèÿ
äàâëåíèÿ
----------------------------------;
321
ED9E [05] 049109 322
brset 2,bitf1,pr2m ;Åñëè qb=1 òî
ïåðåõîäèì íà pr2m
EDA1 [03] B19E 323
cmp pr1 ;pr1 - ïîðîã äëÿ
ñèñòîëè÷åñêîãî
äàâëåíèÿ
EDA3 [03] 2505 324
blo pr2m ;Åñëè ïðîèçâîäíàÿ
ìåíüøå pr1 òî ïåðåõîä íà pr2m
EDA5 [05] 4E8C9F 325
mov udav,sis ;Çàíîñèì çíà÷åíèå
äàâëåíèÿ â sis
EDA8 [04] 1489 326
bset 2,bitf ;Óñòàíàâëèâàåì qb â
1
327 pr2m:
EDAA [04] C7FFFF
328 sta $ffff
EDAD [03] B1A0
329 cmp pr2 ;pr2 - ïîðîã äëÿ
äèàñòîëè÷åñêîãî
äàâëåíèÿ
EDAF [03] 2591 330
blo cbm ;Åñëè ïðîèçâîäíàÿ
ìåíüøå pr2 òî ïåðåõîä íà cbm
EDB1 [05] 4E8CA1 331
mov udav,dia ;Çíà÷åíèå äàâëåíèÿ
çàíîñèì â dia
EDB4 [02] A600
332 lda #!0
EDB6 [03] B19F
333 cmp sis
EDB8 [03] 2342
334 bls rorm ;Åñëè sis=<0 òî
ïåðåõîäèì íà rorm
EDBA [02] A63C 335
lda #!60 ;Âû÷èñëÿåì óñðåäí¸ííîå çíà÷åíèå ïóëüñà
EDBC [03]
BE99 336 ldx sec ;-----------------
EDBE [07] 52
337 div ;-----------------
EDBF [03] BE90
338 ldx pulse ;-----------------
EDC1 [05] 42
339 mul ;-----------------
EDC2 [03] B7A2 340
sta pul ;-----------------
341
342
;--------------------- Èíäèêàöèÿ äàâëåíèÿ è ïóëüñà
-----------------------------------;
343
EDC4 [04] C7FFFF 344
sta $ffff
EDC7 [05] 4E9F8C 345
mov sis,udav ;Âûâîä ñèñòîëè÷åñêîãî äàâëåíèÿ
EDCA [05]
CDEE74 346 jsr VOLTS_PRESSURE_RET ;Âûçîâ
ïîäïðîãðàììû ïåðåêîäèðîâêè íàïðÿæåíèå â
äàâëåíèå
EDCD [05] 4E8E8F 347
mov dav,y
EDD0 [05] CDEE85 348
jsr BCD_RET
EDD3 [04] 6E0483 349
mov #$04,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
EDD6 [05]
CDEEC1 350 jsr IND_RET
351
EDD9 [05] 4EA18C
352 mov dia,udav ;Âûâîä äèàñòîëè÷åñêîãî äàâëåíèÿ
EDDC [05]
CDEE74 353 jsr VOLTS_PRESSURE_RET ;Âûçîâ
ïîäïðîãðàììû ïåðåêîäèðîâêè íàïðÿæåíèå â
äàâëåíèå
EDDF [05] 4E8E8F 354
mov dav,y
EDE2 [05]
CDEE85 355 jsr BCD_RET
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 9
EDE5 [04] 6E4483
356 mov #$44,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
EDE8 [05]
CDEEC1 357 jsr IND_RET
358
EDEB [04] C7FFFF
359 sta $ffff
EDEE [05] 4EA28F
360 mov pul,y ;Âûâîä ïóëüñà
EDF1 [05] CDEE85
361 jsr BCD_RET
EDF4 [04] 6E4D83
362 mov #$4d,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
EDF7 [05] CDEEC1
363 jsr IND_RET
EDFA [03] 2022
364 bra exitdav
365 rorm:
EDFC [04] 1501 366 bclr
2,PTB
EDFE [04] 1701
367 bclr 3,PTB
EE00 [04] 6E0103
368 mov #$1,PTD
;Î÷èñòêà äèñïëåÿ
EE03 [04]
6E1284 369 mov #!18,bcd100 ; "O"
EE06 [04] 6E1385
370 mov #!19,bcd10 ; "Ø"
EE09 [04] 6E0C86
371 mov #!12,bcd1 ; "È"
EE0C [04] 6E0583
372 mov #$5,adres
EE0F [05] CDEEC1
373 jsr IND_RET
EE12 [04] 6E1484
374 mov #!20,bcd100 ; "Á"
EE15 [04] 6E1585
375 mov #!21,bcd10 ; "Ê"
EE18 [04] 6E0E86
376 mov #!14,bcd1 ; "À"
EE1B [05] CDEEC1
377 jsr IND_RET
378
exitdav:
379
380 ;------
Ïðîâåðêà ñïóùåíà ìàíæåòà èëè íåò ---------
EE1E [04]
C7FFFF 381 sta $ffff
EE21 [04] 1189
382 bclr 0,bitf
EE23 [04] 1789
383 bclr 3,bitf
EE25 [05] 0789FD
384 brclr 3,bitf,$ ;Åñëè COCO1=0 ïðîèñõîäèò
çàöèêëåâàíèå
EE28 [03]
B68B 385 lda upress
EE2A [02] A105 386 cmp
#!5
EE2C [03] 22F0
387 bhi exitdav
EE2E [03] CCEC39
388 jmp main
389
390
;------------------------------------------------;
391
392
393
394
395
396
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
397
398
399 ADC_INT: ;
îáðàáîò÷èê ïðåðûâàíèÿ îò ÀÖÏ
EE31 [02] 8B
400 pshh
EE32 [05] 018913
401 brclr 0,bitf,adm1 ;åñëè àâ=0
òî ïåðåõîä íà adm1
EE35 [05] 038907
402 brclr 1,bitf,adm2 ;ïåðåõîä åñëè àâ1=0
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 10
EE38 [04] 1889
403 bset 4,bitf
EE3A [05] 4E3D8A
404 mov ADR,upress1
EE3D [03] 2004
405 bra zap
406 adm2:
EE3F [04] 1589
407 bclr 2,bitf ;ñáðîñ àâ2
EE41 [04] 1289
408 bset 1,bitf ;óñò. àâ1
409 zap:
EE43 [04] 6E413C
410 mov #$41,ADSCR ;êîìàíäà
çàïóñêà ÀÖÏ âõîä PTB1
411
EE46 [03] 2011
412 bra exit
413 adm1:
EE48 [05] 058907
414 brclr 2,bitf,adm3 ;ïåðåõîä åñëè àâ2=0
EE4B [04]
1689 415 bset 3,bitf
EE4D [05] 4E3D8B
416 mov ADR,upress
EE50 [03] 2004
417 bra zap1
418 adm3:
EE52 [04] 1389
419 bclr 1,bitf ; ñáðîñ àâ1
EE54 [04] 1489
420 bset 2,bitf ; óñò. àâ2
421 zap1:
EE56 [04] 6E403C
422 mov #$40,ADSCR ;êîìàíäà
çàïóñêà ÀÖÏ âõîä PTB0
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
