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



         

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


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

MOV AN,0AN ;Функция ввода LEA DX,NAMEPAR INT 21H RET D10INPT ENDP ; Установка сигнала и ограничителя '$': ; ------------------------------------ E10CODE PROC NEAR MOV BN,00 ;Замена символа Return (0D) MOV BL,NAMELEN ; на зв.сигнал (07) MOV NAMEFLD[BX],07 MOV NAMEFLD[BX+1],'$' ;Установить ограничитель RET E10CODE ENDP ; Центрирование и вывод имени на экран: ; ------------------------------------ F10CENT PROC NEAR MOV DL,NAMELEN ;Определение столбца: SHR DL,1 ; разделить длину на 2, NEG DL ; поменять знак, ADD DL,40 ; прибавить 40 MOV DH,12 ;Центральная строка CALL Q20CURS ;Установить курсор MOV AN,09 LEA DX,NAMEFLD ;Вывести имя на экран INT 21H RET F10CENT ENDP ; Очистить экран: ; -------------- Q10CLR PROC NEAR MOV AX,0600H ;Функция прокрутки экрана MOV BH,30 ;Цвет (07 для ч/б) MOV CX,0000 ;От 00,00 MOV DX,184FH ;До 24,79 INT 10H ;Вызов BIOS RET Q10CLR ; Установка курсора (строка/столбец): ; ---------------------------------- Q20CURS PROC NEAR ;DX уже установлен MOV AH,02 ;Функция установки курсора MOV BH,00 ;Страница #0 INT 10H ;Вызов BIOS RET Q20CURS ENDP

CODESG ENDS END BEGIN

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

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

COL DB 00 COUNT DB ? PROMPT DB 'Name? ' ROW DB 00 DATASG ENDS ; ------------------------------------------------------- CODESG SEGMENT PARA 'Code' BEGIN PROC FAR ASSUME CS:CODESG,DS:DATASG,SS:STACKSG,ES:DATASG PUSH DS SUB AX,AX PUSH DS MOV AX,DATASG MOV ES,AX MOV AX,0600H CALL Q10CLR ;Очистить экран A20LOOP: MOV COL,00 ;Установить столбец 0 CALL Q20CURS CALL B10PRMP ;Выдать текст запроса CALL D10INPT ;Ввести имя с клавиатуры CMP ACTNLEN,00 ;Нет имени? (т.е. конец) JNE A30 MOV AX,0600H CALL Q10CLR ;Если да, то очистить экран, RET ; и завершить программу A30: CALL E10NAME ;Вывести имя на экран JMP A20LOOP BEGIN ENDP ; Вывод текста запроса: ; -------------------- B10PRMP PROC NEAR LEA SI,PROMPT ;Адрес текста MOV COUNT,05 B20: MOV BL,70H ;Видеоинверсия




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