Ассемблер и программирование для IBM PC



       

ГЛАВА 23. Прерывания BIOS и DOS - часть 31


Ассемблер для IBM PC. Программы. 102

D30: ADD SI,05 ;Следующий элемент в строке LEA DI,DISPROW+80 CMP DI,SI JNE D40 MOV AH,40H ;Функция вывода на экран MOV BX,01 ;Номер устройства MOV CX,81 ;Вся строка LEA DX,DISPROW INT 21H LEA SI,DISPROW ;Начальный адрес строки D40: RET D10DISP ENDP

Q10CLR PROC NEAR ;Очистка экрана MOV AX,0600H MOV BH,03 ;Цвет (07 для ч/б) MOV CX,0000 MOV DX,184FH INT 10H RET Q10CLR ENDP

CODESG ENDS END BEGIN

Ассемблер для IBM PC. Программы. 103

page 60,132 TITLE NMSORT (EXE) Ввод и сортировка имен ; ----------------------------------------------- STACK SGMENT PARA STACK 'Stack' DW 32 DUP(?) STACK ENDS ; ----------------------------------------------- DATASG SEGMENT PARA 'Data' NAMEPAR LABEL BYTE ;Имя списка параметров: MAXNLEN DB 21 ; макс. длина NAMELEN DB ? ; число введенных символов NAMEFLD DB 21 DUP(' ') ; имя

CRLF DB 13, 10, '$' ENDADDR DW ? MESSG1 DB 'Name?', '$' NAMECTR DB 00 NAMETAB DB 30 DUP(20 DUP(' ')) ;Таблица имен NAMESAV DB 20 DUP(?), 13, 10, '$' SWAPPED DB 00 DATA ENDS ; ----------------------------------------------- CODESG SEGMENT PARA 'Code' BEGIN PROC FAR ASSUME CS:CODESG,DS:DATDSG,SS:STACK,ES:DATASG PUSH DS SUB AX,AX PUSH AX MOV AX,DATASG MOV DS,AX MOV ES,AX CLD LEA DI,NAMETAB CALL Q10CLR ;Очистить экран CALL Q20CURS ;Установить курсор A20LOOP: CALL B10READ ;Ввести имя с клавиатуры CMP NAMELEN,00 ;Есть ли еще имена? JZ A30 ; нет - идти на сортировку CMP NAMECTR,30 ;Введено 30 имен? JE A30 ; да - идти на сортировку CALL D10STOR ;Записать имя в таблицу JMP A20LOOP A30: ;Конец ввода имен CALL Q10CLR ;Очистить экран CALL Q20CURS ; и установить курсор CMP NAMECTR,01 ;Введено менее 2 имен? JBE A40 ; да - выйти CALL G10SORT ;Сортировать имена CALL K10DISP ;Вывести результат на экран A40: RET ;Завершить программу BEGIN ENDP

Ассемблер для IBM PC. Программы. 104

; Ввод имен с клавиатуры? ; ---------------------- B10READ PROC MOV AH,09 LEA DX,MESSG1 ;Вывести текст запроса INT 21H MOV AH,0AH LEA DX,NAMEPAR ;Ввести имя INT 21H MOV AH,09 LEA DX,CRLF ;Вывести CRLF INT 21H




Содержание  Назад  Вперед