Устройство управления светофором, страница 4

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

             mvi       a,80h                 ;пересылка в аккумулятор данных

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

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

mvi       a,02h                   ;пересылка в аккумулятор данных

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

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

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

mvi       a,80h                  ;пересылка в аккумулятор данных

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

             mvi       a,10h                    ;пересылка в аккумулятор данных

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

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

         mvi       a,02h                        ;пересылка в аккумулятор данных

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

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

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

         jmp       jestk                          ;переход к «жесткому режиму», w15

;выполнение «ночного» режима

 noch:   mvi         a,02h                        ;пересылка в аккумулятор данных

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

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

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

             mvi          a,0h                        ;пересылка в аккумулятор данных

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

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

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

              jmp      noch                          ;выполнение режима «ночной

; перекресток», w18

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

 zad3:              mvi      d,3          ; пересылка кол. секунд задержки в регистр, w19        

               jmp      zadr           ; переход к подпрограмме задержки, w20                   

 zad2:              mvi       d,2           ; пересылка кол. секунд задержки в регистр, w21

              jmp       zadr       ; переход к подпрограмме задержки, w22

 zad5:              mvi        d,5           ; пересылка кол. секунд задержки в регистр, w23

               jmp        zadr         ; переход к подпрограмме задержки, w24 

 zadr:      call        zader        ; *17  вызов подпрограммы задержки на 1 сек., w25

      dcr        d            ; уменьшение на 1 текущего времени задержки   

               jnz        zadr        ; если зад. не отработана, надо повторить,w26

      ret                          ; возврат из подпрограммы задержки, w27

zader:       lxi          h,pov    ; загрузка в пару h пост. времени для реализации

; временной задержки на 1 секунду, w28

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

                 ani        kodkl1       ;  ** 7  нажата кл. «1» или «3» или «4»

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

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

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

; дребезга