Разработка и отладка устройств дискретного управления. Хлуденев А.В. - 18 стр.

                       Приложение А
                       (обязательное)
             Исходный текст программы Tabl.asm

DEL   EQU   1000      ; значение задержки

      SEG IOSPACE, START=00h
PA:   DS    1         ; порты ИС КР580ВВ55
PB:   DS    1
PC:   DS    1
PS:   DS    1

      SEG CODE, START=8000h
      MVI   A,8Bh     ; инициализация порта
      OUT   PS
      MVI   B,0       ; начальное состояние
LOOP: IN    PB        ; прием входного набора
      ANI   00001100b ; выделение x2x1
      ORA   B         ; формирование входного слова и
      MOV   C,A       ; запись его в С
      LXI   H,TAB     ; загрузка начальн. адреса таблицы
      MVI   B,0
      DAD   B         ; формирование адреса строки
      MOV   B,M       ; выборка выходного слова
      MOV   A,B
      ANI   00011100b ; выделение выходного набора
      OUT   PA        ; вывод выходного набора
      MOV   A,B
      ANI   00000011b ; выдел. кода сост.
      MOV   B,A       ; и запись его в В
      LXI   D,DEL     ; цикл задержки
DLY: DCX    D
      MOV   A,D
      ORA   E
      JNZ   DLY
      JMP   LOOP

       SEG DATA        ; таблица соответствия
TAB    DB    00h, 0Eh, 00h, 00h, 05h, 0Eh, 0Eh, 17h
       DB    00h, 0Eh, 00h, 00h, 05h, 0Eh, 17h, 0Eh
      END




                                                           18