Курсовая работа: Система автоматической подстройки частоты

  MUL AB ;A=2*N

  SUBB A,R2;

  JZ L1;сравнение A и R2

  АJMP L2;переход на L2

  RET

INPUT:     MOV A,R2  ;процедура чтения данных из порта

SETB ACC.5

SETB ACC.4      

OUT P0,A  ;вывод в Р0 адреса

SETB PO.3          ;запуск УВХ

CLR P0.3;

CLR P0.4 ;запуск АЦП

L3:    IN A,P1;чтение из Р1

          JNB ACC.7 L3;проверка готовности АЦП

          CLR ACC.7;ст. бит аккумулятора равен 0

          SETB PO.4                      

          MOV @R0,A;занести считанные данные в память

          RET         

OUTPUT: MOV A,R2;процедура вывода результатов

          SETB ACC.4     

   OUT P1,R5;вывод в Р1

          OUT P0,A ;вывод в Р0 адреса

          SETB P0.5

   RET       

OBRAB:   DEC RO;адрес значения пульта оператора

          MOV A,@R0;значение пульта оператора в акк.

          INC R0;адрес значения датчика

          SUBB A,@R0;отклонение между пультом оператора и датчиком

          MOV R4,A         ;отклонение в регистр 4

          АCALL ANALIZ ;процедура обработки и получения сигнала управления

          MOV A,R4         ;значения отклонения в акк.

          MOV B,#100;

          MUL AB;умножить отклонение на 100%

          DEC R0;адрес значения пульта оператора

          MOV B,@R0;значение пульта оператора в В

          DIV AB;разделить отклонение на значение пульта оператора

          JB ACC.7 NEG;переход если погрешность <0

          SUB A,#10         ;вычесть 10% из погрешности

          JNB ACC.7 INDIK1;если погрешность > 10% индикация

          АSJMP INDIK2

NEG: ADD A,#10

   JB ACC.7 INDIK1 ;если погрешность > 10% индикация

          АJMP INDIK2

INDIK1:    SETB P2.R2

   АJMP KON

INDIK2:    CRL  P2.R2         

KON:    RET      

ANALIZ:   MOV B,K;в регистр B значение коэффициента пропорциональности         

    MUL AB         ;умножить отклонение на коэффициент

           ADD A,#127;прибавить макс. зн-е результата деленное на 2 =127

           MOV R5,A;занести результат в регистр 5

           RET