Ассемблер для IBM PC. Программы. 97
CODESG ENDS END BEGIN
Ассемблер для IBM PC. Программы. 98
page 60,132 TITLE TABSRCH (COM) Табличный поиск CODESG SEGMENT PARA 'Code' ASSUME CS:CODESG,DS:CODESG,ES:CODESG ORG 100H BEGIN: JMP SHORT MAIN ; ----------------------------------------------- STOKNIN DW '23' STOKTAB DB '05','Excavators' DB '08','Lifters ' DB '09','Presses ' DB '12','Valves ' DB '23','Processors' DB '27','Pumps ' DESCRN 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 ; из таблицы RET MAIN ENDP ; R10ERR PROC ; <Вывод сообщения об ошибке>
RET R10ERR ENDP
CODESG ENDS END BEGIN
Ассемблер для IBM PC. Программы. 99
page 60,132 TITLE TABSRCH (COM) Табличный поиск, использующий CMPSB CODESG SEGMENT PARA 'Code' ASSUME CS:CODESG,DS:CODESG,ES:CODESG ORG 100H BEGIN: JMP SHORT MAIN ; ---------------------------------------------------- STOKNIN DW '123' STOKTAB DB '035','Excavators' ;Начало таблицы DB '038','Lifters ' DB '049','Presses ' DB '102','Valves ' DB '123','Processors' DB '127','Pumps ' DB '999', 10 DUP(' ') ;Конец таблицы DESCRN 10 DUP(?) ; ---------------------------------------------------- MAIN PROC NEAR CLD LEA SI,STOKTAB ;Начальный адрес таблицы A20: MOV CX,03 ;Сравнивать по 3 байта LEA DI,STOKNIN ;Адрес искомого элемента REPE CMPSB ;Сравнение JE A30 ;Если равно - выйти, JA A40 ;если больше - нет в таблице ADD SI,CX ;Прибавить CX к адресу JMP A20 ;Следующий элемент таблицы A30: MOV CX,05 ;Пересылать 5 слов LEA DI,DESCRN ;Адрес описания REP MOVSV ;Переслать из таблицы RET A40: CALL R10ERR ;элемент в таблице не найден RET MAIN ENDP