Êóðñîâàÿ ðàáîòà: Ðàçðàáîòêà öèôðîâîãî èçìåðèòåëÿ êðîâÿíîãî äàâëåíèÿ íà ìèêðîêîíòðîëëåðå MC68HC908JL3
423
exit:
EE59 [02] 8A
424 pulh
EE5A [07] 80
425 rti
426
427
428
429
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
430
431
timer_int: ;Îáðàáîò÷è ïðåðûâàíèÿ îò òàéìåðà
EE5B [04] 1F20
432 bclr 7,TSC ;Ñáðîñ TOF
EE5D [04]
3C9A 433 inc sec10
EE5F [03] B69A
434 lda sec10
EE61 [02] A109
435 cmp #$9
EE63 [03] 250E
436 blo exittime ;Åñëè sec10>9 òî ïåðõîäà íåò
EE65 [03] 3F9A
437 clr sec10
EE67 [04] 3C99
438 inc sec
EE69 [04] 3C95
439 inc ovsec
EE6B [03] B695
440 lda ovsec
EE6D [02] A105
441 cmp #!5
EE6F [03] 2502
442 blo exittime
EE71 [04] 1A89
443 bset 5,bitf
444
exittime:
EE73 [07] 80
445 rti
446
447
448
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
449
450
451
VOLTS_PRESSURE_RET: ;ïîäïðîãðàììà òàáëè÷íîé ïåðåêîäèðîâêè íàïð. â äàâëåíèå
452 ;÷èñëî äëÿ ïåðåêîäèð
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 11
453 ;íà÷àëî òàáëèöû -TCP
EE74 [02]
87 454 psha
EE75 [02] 8B
455 pshh
EE76 [02]
89 456 pshx
457
EE77 [03] B68C
458 lda udav
EE79 [03] B08D
459 sub const ;const- íàïðÿæåíèå
ïðè
íóëåâîì äàâëåíèè
EE7B [01] 97
460 tax
EE7C [04] D6EF14
461 lda TCP,x
EE7F [03] B78E 462 sta
dav ;ïåðåêîäèðîâàííîå
÷èñëî â dav
463
EE81 [02] 88
464 pulx
EE82 [02] 8A
465 pulh
EE83 [02] 86 466
pula
EE84 [04] 81
467 rts
468
469
470
471
472
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
473
474
475
476
477 BCD_RET:
;ïîäïðîãðàììà ïåðåâîäà ÷èñëà â BCD ôîðìàò
478
;÷èñëî äëÿ ïåðåâîäà íàõîäèòñÿ â "y"
479 ;BCD100 - ñîòíè
480 ;BCD10 - äåñÿòêè
481 ;BCD1 - åäèíèöû
482
EE85 [02] 87
483 psha
EE86 [02] 8B
484 pshh
EE87 [02] 89
485 pshx
486
EE88 [03] B68F
487 lda y ;Äåëèìîå â
àêêóìóëÿòîð
EE8A [02] A163
488 cmp #!99
EE8C [03] 2206
489 bhi bcd100m ;åñëè y>99 òî ïåðåõîä íà bcd100m
EE8E [02] A109 490
cmp #!9
EE90 [03] 2210
491 bhi bcd10m ;åñëè y>9 òî ïåðåõîä íà bcd10m
EE92 [03] 2020
492 bra bcd1m
493 bcd100m:
EE94 [02] AE64 494 ldx
#!100 ;100-äåëèòåëü
EE96 [07] 52
495 div
EE97 [03] B784
496 sta BCD100 ;Ðåçóëüòàò â BCD100
EE99 [04]
35A4 497 sthx pmem1
EE9B [03] 450000 498 ldhx
#!0
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 12
EE9E [03] B6A4
499 lda pmem1 ;Îñòàòîê â
àêêóìóëÿòîð
EEA0 [03] 2003
500 bra mb1
501
bcd10m:
EEA2 [04] 6E0A84
502 mov #$a,BCD100 ;Ïðîáåë â BCD100
503 mb1:
EEA5 [02] AE0A
504 ldx #!10 ;10-äåëèòåëü
EEA7 [07] 52
505 div ;Äåëèì îñòàòîê íà 10
EEA8 [03] B785
506 sta BCD10 ;Ðåçóëüòàò â BCD10
EEAA [04]
35A4 507 sthx pmem1
EEAC [03] 450000
508 ldhx #!0
EEAF [05] 4EA486
509 mov pmem1 BCD1
EEB2 [03] 200C
510 bra exitb
511
bcd1m:
EEB4 [04] 6E0A84 512 mov
#$a,BCD100 ;Ïðîáåë â BCD100
EEB7 [04] 6E0A85
513 mov #$a,BCD10 ;Ïðî BCD10
EEBA [05] 4E8F86
514 mov y,BCD1
515
516
EEBD [02] 88
517 pulx
EEBE [02] 8A
518 pulh
EEBF [02] 86
519 pula
EEC0 [04] 81 520
exitb: rts
521
522
523
524
525
526
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
527
528
529
530 IND_RET:
;Ïîäïðîãðàììà äëÿ âûâîäà ÷èñëà íà èíäèêàöèþ
531
;äëÿ ïîäïðîãðàììû íåîáõîäèìî:
532
;- ÷èñëî èëè ñèìâîë äëÿ èíäèêàöèè
533 ;(BCD100,BCD
10,BCD1)
534
;- àäðåñ ÿ÷åéêè â èíäèêàòîðå
EEC1 [02]
87 535 psha
EEC2 [02] 8B
536 pshh
EEC3 [02] 89
537 pshx
538
EEC4 [04] 6E0388
539 mov #$3,ci
EEC7 [04] 6E8087
540 mov #$80,indx ;çàìåñòî ind ïîñòàâèòü àäðåñ!!!!!!!!!!!!!!!!!
EECA [04] 6E84A3
541 mov #$84,bcdx ;àäðåñ bcd100 â
bcdx
òîíîìåòð.asm
Assembled with CASM08Z 25.02.03 9:58:45 PAGE 13
EECD [03] BE84
542 ldx BCD100
543
stind:
EECF [04] D6EFAE
544 lda TCI,x ;TCI-íà÷àëîòàáëèöû ïåðåêîäèðîâêè
EED2 [04]
3CA3 545 inc BCDX
EED4 [03] BE87
546 ldx indx
EED6 [02] F7
547 sta ,x ;Ðåçóëüòàò ïåðåêîäèðîâêè â ÿ÷åéêó ïàìÿòè
ñ ðåãèñòðå Õ
EED7 [04] 3C87
548 inc indx ;ïåðåäâåãàåìñÿ ïî ÿ÷åéêàì IND
EED9 [04] 1501 549 bclr
2,PTB ;óñò. â 0
PTB2
EEDB [04] 1701
550 bclr 3,PTB
EEDD [05] 4E8303
551 mov adres,PTD ;Àäðåñ
çíàêîìåñòà â ïîðò PTD
EEE0 [04]
1801 552 bset 4,PTB
EEE2 [01] 9D
553 nop
EEE3 [01] 9D
554 nop
EEE4 [01] 9D
555 nop ;Ôîðìèðîâàíèå ñòðîáèðóþùåãî èìïóëüñà
EEE5 [01]
9D 556 nop
EEE6 [01] 9D
557 nop
EEE7 [04] 1901
558 bclr 4,PTB
EEE9 [04] AD1D
559 bsr deleysret ;çàäåðæêà 30mkc
EEEB [04] 1401 560
bset 2,PTB
EEED [04] 1701
561 bclr 3,PTB
EEEF [04] 7E03
562 mov x+,PTD ;Âûâîä ÷èñëà íà èíäèêàöèþ
EEF1 [04]
1801 563 bset 4,PTB
EEF3 [01] 9D 564
nop
EEF4 [01] 9D
565 nop ;Ôîðìèðîâàíèå ñòðîáèðóþùåãî èìïóëüñà
EEF5 [01]
9D 566 nop
EEF6 [01] 9D
567 nop
EEF7 [01] 9D
568 nop
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
