Устройство управления охранной сигнализацией, страница 5

        out      portb             ;вывод 2. на индикацию

        call     zader             ;вызов подпрограммы задержки

        mvi     a,0fch                   ; код цифры 0 для вывода

        out      porta            ;вывод 0 на индикацию

        mvi     a,0dah          ;код цифры 2 для вывода

        out      portb            ;вывод 2 на индикацию

        call     zader             ;вызов подпрограммы задержки

        mvi     a,0fdh                  ;код цифры 0. для вывода

        out      porta              ;вывод 0. на индикацию

          mvi   a,0dbh            ;код цифры 2. для вывода

         out    portb            ;вывод 2. на индикацию

          call   zader            ;вызов подпрограммы задержки

         mvi   a,0fch                   ; код цифры 0 для вывода

         2out  porta           ;вывод 0 на индикацию

          mvi   a,0dah         ;код цифры 2 для вывода

         out    portb           ;вывод 2 на индикацию

          call   zader            ;вызов подпрограммы задержки

          mvi   a,0fdh                  ;код цифры 0. для вывода

         out    porta             ;вывод 0. на индикацию

          mvi   a,0dbh           ;код цифры 2. для вывода

         out    portb            ;вывод 2. на индикацию

         jmp   rept1            ;переход на начало

gaz:   mvi a,8h               ; загрузка кода «3»

         cmp   e                  ; сравнение содержимого аккумулятора и регистра Е

         jnz     zod1            ; нажата не «3», переход на начало

         mvi   a,0fch                   ;код цифры 0 для вывода

         out    porta             ;вывод 0 на индикацию

          mvi   a,66h             ;код цифры 4 для вывода

          out    portb             ;вывод 4 на индикацию

          call   zader            ;вызов подпрограммы задержки

          mvi   a,0fdh                  ;код цифры 0. для вывода

          out    porta            ;вывод 0. на индикацию

          mvi   a,67h            ;код цифры 4. для вывода

          out    portb            ;вывод 4. на индикацию

          call   zader            ;вызов подпрограммы задержки

          mvi   a,0fch                   ;код цифры 0 для вывода

          out    porta            ;вывод 0 на индикацию

          mvi   a,66h           ;код цифры 4 для вывода

         out    portb           ;вывод 4 на индикацию

          call   zader            ;вызов подпрограммы задержки

          mvi   a,0fdh                  ;код цифры 0. для вывода

         out    porta            ;вывод 0. на индикацию

          mvi   a,67h            ;код цифры 4. для вывода

         out    portb             ;вывод 4. на индикацию

         jmp   rept1             ;переход на начало

***подпрограмма задержки на 0.5с. с опросом клавиатуры***

zader:         lxi     h,pov                   ;*10      загрузка в пару h постоянной времени

zader1:in    portc            ;**10    опрос клавиатуры

          ani    mask136      ;**7      нажато что-то нужное?

           jz     zader2        ;**10    нет нажатия- продолжаем выполнять

                                           временную задержку      

  mvi c,povdr       ;нажато что-то нужное переходим к защите от       

                                 дребезга

zader3:in    portc           ; опрос клавиатуры

 ani    mask136    ;нажато что-то нужное?        

         jz       zader2        ;дребезг или помеха, продолжаем временную         

                                       задержку           

         dcr    c                  ;клавиша нажата, уменьшение счетчика