TITLE TABSRCH (COM) Табличный поиск
CODESG  SEGMENT PARA 'Code'
    ASSUME CS:CODESG,DS:CODESG,ES:CODESG
    ORG 100H
BEGIN:  JMP SHORT MAIN
; ------s-----------------------------------------
STOKNIN     DW  '23'
STOKTAB DB  '05','Excavators'
    DB  '08','Lifters   '
    DB  '09','Presses   '
    DB  '12','Valves    '
    DB  '23','Processors'
    DB  '27','Pumps     '
DESCRN  DB  10 DUP (?), '$'
; -----------------------------------------------
MAIN PROC NEAR
    MOV AX,STOKNIN  ;Загрузить номер элемента
    XCHG    AL,AH
    MOV CX,06       ;Число элементов в таблице
    LEA SI,STOKTAB  ;Начальный адрес таблицы
A20:
    CMP AX,[SI]     ;Сравнить элементы
    JE  A30     ;Если равны - выйти,
    ADD SI,12       ;  нет - следующий элемент
    LOOP    A20
    CALL    R10ERR      ;Элемент в таблице не найден
    RET
A30:    MOV CX,05       ;Длина описания элемента
    LEA DI,DESCRN   ;Адрес описания элемента
    INC SI
    INC SI      ;Выделить описание
    REP MOVSW           ;  из таблицы

    mov ah, 09h
    lea dx, DESCRN
    int 21h

    MOV AX, 4C00h;
    int 21h

    RET
MAIN ENDP
;
R10ERR PROC
; Вывод сообщения об ошибке
    RET
R10ERR ENDP
CODESG ENDS
END BEGIN