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
EEF8 [04] 1901 569 bclr 4,PTB
EEFA [04] AD0C 570 bsr deleysret ;çàäåðæêà 30mkc
EEFC [04] 3C83 571 inc adres ;Ïîäãîòîâêà
ê ñëåäóþùåìó öèêëó
EEFE [03] BEA3 572 ldx BCDX ;----
EF00 [02] FE 573 ldx ,x ;--------
EF01 [05] 3B88CB 574 dbnz ci,stind ;Åñëè âñå ÷èñëà âûâåäåíû òî âûõîäèì èç ïîäðîãðàììû
575
EF04 [02] 88 576 pulx
EF05 [02] 8A 577 pulh
EF06 [02] 86 578 pula
EF07 [04] 81 579 rts
580
581 ;\\\\\\ Ïîäïðîãðàììà çàäåðæêè íà 30 ìêÑ\\\\\\\\\\\
582
583 deleysret:
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 14
584
585
586
EF08 [02] 87 587 psha
EF09 [02] 8B 588 pshh
EF0A [02] 89 589 pshx
590
EF0B [02] A61E 591 lda #!30
592 loopdel:
EF0D [01] 4A 593 deca
EF0E [03] 26FD 594 bne loopdel
595
EF10 [02] 88 596 pulx
EF11 [02] 8A 597 pulh
EF12 [02] 86 598 pula
EF13 [04] 81 599 rts
600
601 ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
602
603 ;/////Òàáëèöà ïåðåêîäèðîâêè äëÿ äàâëåí ////////
604
605 TCP:
606
EF14 00 607 db !0
EF15 01 608 db !1
EF16 03 609 db !3
EF17 05 610 db !5
EF18 06 611 db !6
EF19 08 612 db !8
EF1A 0A 613 db !10
EF1B 0B 614 db !11
EF1C 0D 615 db !13
EF1D 0F 616 db !15
EF1E 10 617 db !16
EF1F 12 618 db !18
EF20 14 619 db !20
EF21 15 620 db !21
EF22 17 621 db !23
EF23 19 622 db !25
EF24 1A 623 db !26
EF25 1C 624 db !28
EF26 1E 625 db !30
EF27 1F 626 db !31
EF28 21 627 db !33
EF29 23 628 db !35
EF2A 24 629 db !36
EF2B 26 630 db !38
EF2C 28 631 db !40
EF2D 29 632 db !41
EF2E 2B 633 db !43
EF2F 2D 634 db !45
EF30 2E 635 db !46
EF31 30 636 db !48
EF32 32 637 db !50
EF33 33 638 db !51
EF34 35 639 db !53
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 15
EF35 37 640 db !55
EF36 38 641 db !56
EF37 3A 642 db !58
EF38 3C 643 db !60
EF39 3D 644 db !61
EF3A 3F 645 db !63
EF3B 41 646 db !65
EF3C 42 647 db !66
EF3D 44 648 db !68
EF3E 46 649 db !70
EF3F 47 650 db !71
EF40 49 651 db !73
EF41 4B 652 db !75
EF42 4C 653 db !76
EF43 4E 654 db !78
EF44 50 655 db !80
EF45 51 656 db !81
EF46 53 657 db !83
EF47 55 658 db !85
EF48 56 659 db !86
EF49 58 660 db !88
EF4A 5A 661 db !90
EF4B 5B 662 db !91
EF4C 5D 663 db !93
EF4D 5F 664 db !95
EF4E 60 665 db !96
EF4F 62 666 db !98
EF50 64 667 db !100
EF51 65 668 db !101
EF52 67 669 db !103
EF53 69 670 db !105
EF54 6A 671 db !106
EF55 6C 672 db !108
EF56 6E 673 db !110
EF57 6F 674 db !111
EF58 71 675 db !113
EF59 73 676 db !115
EF5A 74 677 db !116
EF5B 76 678 db !118
EF5C 78 679 db !120
EF5D 79 680 db !121
EF5E 7B 681 db !123
EF5F 7D 682 db !125
EF60 7E 683 db !126
EF61 80 684 db !128
EF62 82 685 db !130
EF63 83 686 db !131
EF64 85 687 db !133
EF65 87 688 db !135
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
