Проектирование микропроцессорной системы для управления объектом

0198 308DFD 552 JNB TF0, $ ;ожидание 50 мс

019B C28D 553 clr TF0

019D 0A 554 inc R2 ;накопление интервалов по 50 мс

019E 758C3C 555 mov TH0, #high(65536-50000) ;перезагрузка

01A1 758AB0 556 mov TL0, #low(65536-50000) ;

01A4 BA14EF 557 CJNE R2, #20, clock ;1с = 20*50мс

01A7 22 558 ret

559

560

01A8 561 Xa5:

01A8 7914 562 mov R1, #n*2

563

01AA 564 Xa5_count:

01AA 908800 565 mov dptr, #ADC_1

01AD F0 566 movx @dptr, a ;выбираем ввод напряжения xa5

01AE C295 567 clr P1.5 ;старт преобразования

01B0 2084FD 568 JB P0.4, $ ;ждать, если идет преобразование

569

01B3 908000 570 mov dptr, #ADC

01B6 E0 571 movx a, @dptr ;считать старший байт

01B7 5403 572 anl a, #00000011b ;нам нужны только два первых бита

573

01B9 900000 574 mov dptr, #mass_N5

01BC E582 575 mov a, dpl

01BE 29 576 add a, R1

01BF F582 577 mov dpl, a

01C1 F0 578 movx @dptr, a ;записали старший байт во внешнюю память

01C2 19 579 dec R1

580

01C3 90A800 581 mov dptr, #ADCSecondByte

01C6 E0 582 movx a, @dptr ;считали младший байт

01C7 900000 583 mov dptr, #mass_N5

01CA E582 584 mov a, dpl

01CC 29 585 add a, R1

01CD F582 586 mov dpl, a

01CF F0 587 movx @dptr, a ;записали младший байт во внешнюю память

01D0 D9D8 588 DJNZ R1, Xa5_count

01D2 22 589 ret

590

01D3 591 Xa6: ;запись происходит аналогично Xa5

01D3 7914 592 mov R1, #n*2

593

01D5 594 Xa6_count:

01D5 909000 595 mov dptr, #ADC_2

01D8 F0 596 movx @dptr, a ;выбираем ввод напряжения xa6

01D9 C295 597 clr P1.5 ;старт преобразования

01DB 2084FD 598 JB P0.4, $ ;ждать, если идет преобразование

599

01DE 908000 600 mov dptr, #ADC

01E1 E0 601 movx a, @dptr ;считать старший байт

01E2 5403 602 anl a, #00000011b ;нам нужны только два первых бита

603

01E4 900014 604 mov dptr, #mass_N6

01E7 E582 605 mov a, dpl

01E9 29 606 add a, R1

01EA F582 607 mov dpl, a

01EC F0 608 movx @dptr, a ;записали старший байт во внешнюю память

01ED 19 609 dec R1

610

01EE 90A800 611 mov dptr, #ADCSecondByte

01F1 E0 612 movx a, @dptr ;считали младший байт

01F2 900014 613 mov dptr, #mass_N6

01F5 E582 614 mov a, dpl

01F7 29 615 add a, R1

01F8 F582 616 mov dpl, a

01FA F0 617 movx @dptr, a ;записали младший байт во внешнюю память

01FB D9D8 618 DJNZ R1, Xa6_count

01FD 22 619 ret

620

621

01FE 622 Xa7:

01FE 7901 623 mov R1, #1

0200 909800 624 mov dptr, #ADC_3

0203 F0 625 movx @dptr, a ;выбираем ввод напряжения xa7

0204 C295 626 clr P1.5 ;старт преобразования

0206 2084FD 627 JB P0.4, $ ;ждать, если идет преобразование

628

0209 908000 629 mov dptr, #ADC

020C E0 630 movx a, @dptr ;считать старший байт

020D 5403 631 anl a, #00000011b ;нам нужны только два первый бита

632

020F 900028 633 mov dptr, #N7

0212 E582 634 mov a, dpl

0214 29 635 add a, R1

0215 F582 636 mov dpl, a

0217 F0 637 movx @dptr, a ;записали старший байт во внешнюю память

0218 19 638 dec R1

639

0219 90A800 640 mov dptr, #ADCSecondByte

021C E0 641 movx a, @dptr ;считали младший байт

021D 900028 642 mov dptr, #N7

0220 E582 643 mov a, dpl

0222 29 644 add a, R1

0223 F582 645 mov dpl, a

0225 F0 646 movx @dptr, a ;записали младший байт во внешнюю память

0226 22 647 ret

648

0227 649 Y2:

0227 C291 650 clr P1.1

0229 758901 651 mov TMOD, #00000001b ;установим таймер 0 в режим 1

022C 758C8A 652 mov TH0, #high(65536-30000) ;30000=30мс

022F 758AD0 653 mov TL0, #low(65536-30000)

0232 D291 654 setb P1.1 ;формируем сигнал высокого уровня

0234 D28C 655 setb TR0 ;запуск таймера

0236 308DFD 656 JNB TF0,$ ;ожидание

0239 C28D 657 clr TF0

023B C291 658 clr P1.1 ;снова низкий уровень

023D 22 659 ret

660

023E 661 Y3:

023E 7A3C 662 mov R2, #60 ;60 мс = 60*1мс

0240 758901 663 mov TMOD, #00000001b ;установим таймер 0 в режим 1

0243 664 Y2_form:

0243 758CFE 665 mov TH0, #high(65536-500) ;500=0.5мс

0246 758A0C 666 mov TL0, #low(65536-500)

0249 D292 667 setb P1.2 ;формируем сигнал высокого уровня

024B D28C 668 setb TR0 ;запуск таймера

024D 308DFD 669 JNB TF0,$ ;ожидание

0250 C28D 670 clr TF0

671

0252 758CFE 672 mov TH0, #high(65536-500) ;500=0.5мс

0255 758A0C 673 mov TL0, #low(65536-500)

0258 C291 674 clr P1.1 ;формируем сигнал низкого уровня

025A D28C 675 setb TR0 ;запуск таймера

025C 308DFD 676 JNB TF0,$ ;ожидание

025F C28D 677 clr TF0

0261 BA00DF 678 CJNE R2, #0, Y2_form

0264 22 679 ret

680

0265 681 Q2:

682 ;деление массива N5 пополам

0265 900000 683 mov DPTR, #mass_N5 ;в DPTR адрес начала массива N5

0268 7A0A 684 mov R2, #n

685

026A 686 delenie:

026A AB83 687 mov R3, dph

026C AC82 688 mov R4, dpl

026E A3 689 inc DPTR ;DPTR указывает на старший байт

026F E0 690 movx a, @DPTR ;загружаем старший байт

0270 A2E0 691 mov C, ACC.0 ;запоминаем нулевой бит старшего байта

0272 03 692 rr a ;сдвигаем старший байт

0273 F0 693 movx @DPTR, a ;запоминаем старший байт

0274 8B83 694 mov dph, R3

0276 8C82 695 mov dpl, R4

0278 E0 696 movx a, @DPTR ;загружаем младший байт

0279 03 697 rr a ;сдвигаем младший байт с переносом (деление на 2)

027A 92E7 698 mov ACC.7, C ;в старший бит младшего байта загружаем младший бит старшего байта

027C F0 699 movx @DPTR, a ;запоминаем младший байт

700

027D A3 701 inc DPTR

027E A3 702 inc DPTR ;теперь DPTR указывает на младший байт следующего ч

исла

703

027F DAE9 704 DJNZ R2, delenie

705

706 ;нахождение суммы

707 ;сначала необходимо обнулить сумму

0281 E4 708 clr a

0282 900080 709 mov DPTR, #S

0285 F0 710 movx @DPTR, a

0286 A3 711 inc DPTR

0287 F0 712 movx @DPTR, a

713

0288 900080 714 mov DPTR, #S

028B E0 715 movx a, @DPTR

028C FD 716 mov R5, a ;запомнить старший байт суммы

028D A3 717 inc DPTR

028E E0 718 movx a, @DPTR

028F FE 719 mov R6, a ;запомнить младший байт суммы

720

0290 900000 721 mov DPTR, #mass_N5

0293 7A14 722 mov R2, #n*2

723

0295 724 summing:

0295 E0 725 movx a, @DPTR ;получаем младший байт очередного числа массива

0296 FC 726 mov R4, a ;запоминаем младший байт

0297 A3 727 inc DPTR

0298 E0 728 movx a, @DPTR ;получаем старший байт очередного числа массива

0299 FB 729 mov R3, a ;запоминаем старший байт

029A A3 730 inc DPTR ;DPTR указывает на следующий байт массива

731

732 ;суммируем то, что находится в сумме с очередным байтом

029B EC 733 mov a, R4 ;в R4 младший байт очередного числа

029C 2E 734 add a, R6 ;в R6 младший байт суммы

029D FE 735 mov R6, a ;запоминаем младший байт суммы

029E EB 736 mov a, R3 ;в R3 старший байт очередного числа

029F 3D 737 addc a, R5 ;суммируем с учетом переноса

02A0 FD 738 mov R5, a ;запоминаем старший байт суммы

739

02A1 DAF2 740 DJNZ R2, summing ;складываем все N5i и N6i

741

742 ;запоминаем результат суммы во внешней памяти

02A3 900080 743 mov DPTR, #S

02A6 ED 744 mov a, R5

02A7 F0 745 movx @DPTR, a

02A8 A3 746 inc DPTR

02A9 EE 747 mov a, R6

02AA F0 748 movx @DPTR, a

749

750 ;деление суммы на N

02AB 900080 751 mov DPTR, #S ;сумма, которую необходимо поделить

02AE E0 752 movx a, @DPTR

02AF FB 753 mov R3, a ;запоминаем старший байт делимого

02B0 A2E7 754 mov C, ACC.7 ;запоминаем знаковый бит делимого (суммы)

02B2 92D5 755 mov F0, C ;в F0, так как при выполнении операций признак С может меня

ться

02B4 A3 756 inc DPTR

02B5 E0 757 movx a, @DPTR

02B6 FA 758 mov R2, a ;запоминаем младший байт делимого

02B7 780A 759 mov R0, #n ;запоминаем делитель

760

02B9 5008 761 JNC beg_del ;так как моманды mov не меняют бита С,

02BB EB 762 mov a, R3 ;то там все еще знаковый бит

02BC F4 763 cpl a ;если число отрицательное

02BD FB 764 mov R3, a ;то переводим его из дополнительного кода

02BE EA 765 mov a, R2 ;в прямой код

02BF F4 766 cpl a ;cpl = инвертировать все биты

02C0 2401 767 add a, #1

02C2 FA 768 mov R2, a

769

02C3 770 beg_del:

02C3 EB 771 mov a, R3 ;старший байт делимого

02C4 88F0 772 mov b, R0 ;запись делителя в регистр В

02C6 84 773 div AB ;деление

02C7 FB 774 mov R3, a ;старший байт частного

02C8 E5F0 775 mov a, b ;текущий остаток

02CA 88F0 776 mov b, R0 ;запись делителя в регистр В

02CC 7908 777 mov R1, #8 ;количество разрядов остатка

778

02CE 779 dwb3:

02CE C3 780 clr C ;очистка очередногго бита для частного

02CF CA 781 xch a, R2 ;обмен байтами

02D0 33 782 rlc a ;сдвиг младшийх разрядов частного

02D1 CA 783 xch a, R2 ;

02D2 33 784 rlc a ;сдвиг текущего остатка

02D3 B5F000 785 CJNE A, B, dwb1 ;сравнение текущего остатка с делителем

786

02D6 787 dwb1:

02D6 4003 788 JC dwb2 ;переход, если остаток меньше делителя

02D8 95F0 789 subb A, B ;вычитание делителя из текущего остатка

02DA 0A 790 inc R2 ;запись 1 в очередной разряд частного

791

02DB 792 dwb2:

02DB D9F1 793 DJNZ R1, dwb3 ;8ми кратное повторение цикла

794 ;теперь в R3 старший байт частного, в R2 младший байт, а в А остаток

02DD FF 795 mov R7, a

796

02DE A2D5 797 mov C, F0 ;было ли число отрицательным?

02E0 5008 798 JNC addk

02E2 EB 799 mov a, R3

02E3 F4 800 cpl a

02E4 FB 801 mov R3, a

02E5 EA 802 mov a, R2

02E6 F4 803 cpl a

02E7 2401 804 add a, #1

02E9 FA 805 mov R2, a

806

02EA 807 addk:

02EA 900100 808 mov DPTR, #K

02ED E0 809 movx a, @DPTR

02EE 2A 810 add a, R2 ;складываем младший байт суммы с К

02EF FA 811 mov R2, a ;запоминаем младший байт суммы

02F0 7400 812 mov a, #0

02F2 3B 813 addc a, R3 ;если был перенос, то он учитывается

02F3 FB 814 mov R3, a ;запоминаем старший байт суммы

815

02F4 900080 816 mov DPTR, #S

02F7 F0 817 movx @DPTR, a ;записываем во внешнюю память старший байт суммы

02F8 A3 818 inc DPTR

02F9 EA 819 mov a, R2

02FA F0 820 movx @DPTR, a ;записываем младший байт суммы

02FB 22 821 ret ;закончили функцию Q2

822

823

02FC 824 CompareQ0Q2:

02FC 900265 825 mov DPTR, #Q2

02FF E0 826 movx a, @DPTR

0300 F9 827 mov R1, a ;в R1 старший байт суммы

0301 A3 828 inc DPTR

0302 E0 829 movx a, @DPTR

0303 FA 830 mov R2, a ;в R2 младший байт суммы

831

0304 7B02 832 mov R3, #high(Q0);в R4 старший байт Q0

0306 7C00 833 mov R4, #low(Q0) ;в R4 младший байт Q0

834

0308 E9 835 mov a, R1

0309 9B 836 subb a, R3

030A 600A 837 JZ ravno

030C 4004 838 JC menshe

839

030E 840 bolshe: ;сумма больше Q0

030E 513E 841 call Y3

0310 800A 842 JMP nosignal

0312 843 menshe: ;сумма меньше Q0

0312 5127 844 call Y2

0314 8006 845 JMP nosignal

0316 846 ravno: ;значения равны

0316 EA 847 mov a, R2

0317 9C 848 subb a, R4

0318 6002 849 JZ nosignal

031A 40F6 850 JC menshe

851

031C 852 nosignal:

031C 22 853 ret

854

855

031D 856 Q4_count:

031D 7928 857 mov R1, #N7

031F E7 858 mov a, @R1 ;читаем младший байт N7

0320 09 859 inc R1

0321 75F002 860 mov B, #A1

0324 A4 861 MUL AB

0325 900101 862 mov DPTR, #Q4

0328 A3 863 inc DPTR

0329 F0 864 movx @DPTR, a ;записываем в память младший байт результата

032A ABF0 865 mov R3, B ;сохраним старший байт результата умножения

032C E7 866 mov a, @R1

032D 75F002 867 mov B, #A1

0330 A4 868 MUL AB

0331 2B 869 add a, R3

0332 900101 870 mov DPTR, #Q4

0335 F0 871 movx @DPTR, a ;записываем старший байт результата умножения

0336 22 872 ret

873

874

0337 875 Q4ToY4:

876

877

878

0337 900101 879 mov dptr, #Q4

033A A3 880 inc dptr

033B E0 881 movx a, @dptr

033C F9 882 mov R1, a

033D 54C0 883 anl a, #11000000b

033F C9 884 xch a, R1

0340 C3 885 clr c

0341 33 886 rlc a

0342 C3 887 clr c

0343 33 888 rlc a

0344 F0 889 movx @dptr, a

0345 E9 890 mov a, R1

0346 C3 891 clr c

0347 33 892 rlc a

0348 33 893 rlc a

0349 33 894 rlc a

034A F9 895 mov R1, a

034B 900101 896 mov dptr, #Q4

034E E0 897 movx a, @dptr

034F 23 898 rl a

0350 23 899 rl a

0351 49 900 orl a, R1

0352 F0 901 movx @dptr, a ;сделали сдвиг так, как необходимо передать в цап

902

903

0353 75A140 904 mov SPI0CFG, #01000000b

0356 75A201 905 mov SPI0CKR, #01h

0359 900101 906 mov dptr, #Q4

035C E0 907 movx a, @dptr

035D F9 908 mov R1, a

035E A3 909 inc DPTR

035F E0 910 movx a, @dptr

0360 FA 911 mov R2, a

0361 90B000 912 mov dptr, #DAC

0364 F0 913 movx @dptr, a

0365 89A3 914 mov SPI0DAT, R1

0367 75F801 915 mov SPI0CN, #01h ;передача первого байта

916

036A 30FFFD 917 JNB SPIF, $

918

036D 8AA3 919 mov SPI0DAT, R2

036F 75F801 920 mov SPI0CN, #01h ;передача второго байта

921

0372 30FFFD 922 JNB SPIF, $

923

0375 22 924 ret

925

926

0376 927 Ind_Q4:

0376 C0F9A4B0 928 table: db 0C0h, 0F9h, 0A4h, 0B0h, 99h, 92h, 82h, 0F8h, 80h, 90h

037A 999282F8

037E 8090

929

0380 900103 930 mov dptr, #Q4_0

0383 E0 931 movx a, @DPTR

0384 900376 932 mov dptr, #table

0387 93 933 movc a, @a+dptr

0388 90D000 934 mov dptr, #SIndReg_num

038B F0 935 movx @dptr, a

038C 90C800 936 mov dptr, #SIndReg_pos

038F 74EF 937 mov a, #11101111b

0391 F0 938 movx @dptr, a

939

940

0392 7D14 941 mov R5, #020d

0394 942 z1:

0394 7BC8 943 mov R3, #200d

0396 944 z2:

0396 00 945 nop

0397 DBFD 946 DJNZ R3, z2

0399 DDF9 947 DJNZ R5, z1

948

039B 900103 949 mov dptr, #Q4_0

039E E0 950 movx a, @DPTR

039F 900376 951 mov dptr, #table

03A2 93 952 movc a, @a+dptr

03A3 90D000 953 mov dptr, #SIndReg_num

03A6 F0 954 movx @dptr, a

03A7 90C800 955 mov dptr, #SIndReg_pos

03AA 74EF 956 mov a, #11101111b

03AC F0 957 movx @dptr, a

958

959

03AD 7D14 960 mov R5, #020d

03AF 961 z3:

03AF 7BC8 962 mov R3, #200d

03B1 963 z4:

03B1 00 964 nop

03B2 DBFD 965 DJNZ R3, z4

03B4 DDF9 966 DJNZ R5, z3

967

03B6 900103 968 mov dptr, #Q4_0

03B9 E0 969 movx a, @DPTR

03BA 900376 970 mov dptr, #table

03BD 93 971 movc a, @a+dptr

03BE 90D000 972 mov dptr, #SIndReg_num

03C1 F0 973 movx @dptr, a

03C2 90C800 974 mov dptr, #SIndReg_pos

03C5 74EF 975 mov a, #11101111b

03C7 F0 976 movx @dptr, a

977

978

03C8 7D14 979 mov R5, #020d

03CA 980 z5:

03CA 7BC8 981 mov R3, #200d

03CC 982 z6:

03CC 00 983 nop

03CD DBFD 984 DJNZ R3, z6

03CF DDF9 985 DJNZ R5, z5

986

03D1 900104 987 mov dptr, #Q4_1

03D4 E0 988 movx a, @DPTR

03D5 900376 989 mov dptr, #table

03D8 93 990 movc a, @a+dptr

03D9 90D000 991 mov dptr, #SIndReg_num

03DC F0 992 movx @dptr, a

03DD 90C800 993 mov dptr, #SIndReg_pos

03E0 74F7 994 mov a, #11110111b

03E2 F0 995 movx @dptr, a

996

997

03E3 7D14 998 mov R5, #020d

03E5 999 z7:

03E5 7BC8 1000 mov R3, #200d

03E7 1001 z8:

03E7 00 1002 nop

03E8 DBFD 1003 DJNZ R3, z8

03EA DDF9 1004 DJNZ R5, z7

1005

03EC 900105 1006 mov dptr, #Q4_2

03EF E0 1007 movx a, @DPTR

03F0 900376 1008 mov dptr, #table

03F3 93 1009 movc a, @a+dptr

03F4 90D000 1010 mov dptr, #SIndReg_num

03F7 F0 1011 movx @dptr, a

03F8 90C800 1012 mov dptr, #SIndReg_pos

03FB 74FB 1013 mov a, #11111011b

03FD F0 1014 movx @dptr, a

1015

1016

03FE 7D14 1017 mov R5, #020d

0400 1018 z9:

0400 7BC8 1019 mov R3, #200d

0402 1020 z10:

0402 00 1021 nop

0403 DBFD 1022 DJNZ R3, z10

0405 DDF9 1023 DJNZ R5, z9

1024

0407 900106 1025 mov dptr, #Q4_3

040A E0 1026 movx a, @DPTR

040B 900376 1027 mov dptr, #table

040E 93 1028 movc a, @a+dptr

040F 90D000 1029 mov dptr, #SIndReg_num

0412 F0 1030 movx @dptr, a

0413 90C800 1031 mov dptr, #SIndReg_pos

0416 74FD 1032 mov a, #11111101b

0418 F0 1033 movx @dptr, a

1034

1035

0419 7D14 1036 mov R5, #020d

041B 1037 z11:

041B 7BC8 1038 mov R3, #200d

041D 1039 z12:

041D 00 1040 nop

041E DBFD 1041 DJNZ R3, z12

0420 DDF9 1042 DJNZ R5, z11

1043

0422 900107 1044 mov dptr, #Q4_4

0425 E0 1045 movx a, @DPTR

0426 900376 1046 mov dptr, #table

0429 93 1047 movc a, @a+dptr

042A 90D000 1048 mov dptr, #SIndReg_num

042D F0 1049 movx @dptr, a

042E 90C800 1050 mov dptr, #SIndReg_pos

0431 74FE 1051 mov a, #11111110b

0433 F0 1052 movx @dptr, a

1053

1054

0434 7D14 1055 mov R5, #020d

0436 1056 z13:

0436 7BC8 1057 mov R3, #200d

0438 1058 z14:

0438 00 1059 nop

0439 DBFD 1060 DJNZ R3, z14

043B DDF9 1061 DJNZ R5, z13

043D 22 1062 ret

1063

043E 1064 main_prog:

043E 111D 1065 call Init

1066

0440 1067 main_func:

0440 300114 1068 JNB prog_start, stop

1069

0443 3182 1070 call Xd1

0445 31A8 1071 call Xa5

0447 31D3 1072 call Xa6

0449 31FE 1073 call Xa7

1074

044B 5165 1075 call Q2

044D 51FC 1076 call CompareQ0Q2

1077

044F 711D 1078 call Q4_count

1079

0451 7137 1080 call Q4ToY4

0453 7176 1081 call Ind_Q4

1082

0455 80E9 1083 JMP main_func

0457 1084 stop:

0457 7176 1085 call Ind_Q4

1086 end

Размещено на Allbest.ru