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



         

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


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

; в двоичное представление: ; -------------------------- M10ASBI PROC MOV MULT10,0001 MOV BINVAL,00 MOV DECIND,00 SUB BX,BX M20: MOV AL,[SI] ;ASCII-символ CMP AL,'.' ;Обойти, если дес.точка JNE M40 MOV DECIND,01 JMP M90 M40: AND AX,000FH MUL MULT10 ;Умножить на фактор ADD BINVAL,AX ;Сложить с дв.значением MOV AX,MULT10 ;Вучислить следующий MUL TENVD ; фактор x 10 MOV MULT10,AX CMP DECIND,00 ;Десятичная точка? JNZ M90 INC BX ; да - обойти точку M90: DEC SI LOOP M20 ;Конец цикла CMP DECIND,00 ;Была дес.точка? JZ M100 ; да -- ADD NODEC,BX ; сложить с итогом M100: RET M10ASBI ENDP ; Прокрутка экрана: ; ---------------- Q10SCR PROC NEAR ;AX установлен при вызове MOV BH,30 ;Цвет (07 для ч/б) SUB CX,CX MOV DX,184FH INT 10H RET Q10SCR ENDP ; Установка курсора: ; ----------------- Q20CURS PROC NEAR MOV AH,02 SUB BH,BH MOV DH,ROW MOV DL,COL INT 10H RET Q20CURS ENDP

CODESG ENDS

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

END BEGIN

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

page 60,132 TITLE DIRECT (COM) Прямой табличный доступ CODESG SEGMENT PARA 'Code' ASSUME CS:CODESG,DS:CODESG,ES:CODESG ORG 100H BEGIN: JMP SHORT MAIN ; ------------------------------------------------ THREE DB 3 MONIN DB '11' ALFMON DB '???','$' MONTAB DB 'JAN','FEB','MAR','APR','MAY','JUN' DB 'JUL','AUG','SEP','OKT','NOV','DEC' ; ------------------------------------------------ MAIN PROC NEAR ;Основная процедура CALL C10CONV ;Получить двоичное значение CALL D10LOC ;Выделить месяц из таблицы CALL F10DISP ;Выдать месяц на экран RET MAIN ENDP ; Перевод ASCII в двоичное представление: ; -------------------------------------- C10CONV PROC MOV AH,MONIN ;Загрузить номер месяца MOV AL,MONIN+1 XOR AX,3030H ;Удалить ASCII тройки CMP AH,00 ;Месяц 01-09? JZ C20 ; да - обойти SUB AH,AH ; нет - очистить AH, ADD AL,10 ; и перевести в двоичное C20 RET C10CONV ENDP ; Выделение месяца из таблицы: ; --------------------------- D10LOC PROC LEA SI,MONTAB DEC AL ;Коррекция для таблицы MUL THREE ;Умножить AL на 3 ADD SI,AX MOV CX,03 ;Трехсимвольная пересылка CLD LEA DI,ALFMON REP MOVSB ;Переслать 3 символа RET D10LOC ENDP ; Вывод на экран симв.месяца: ; -------------------------- F10DISP PROC LEA DX,ALFMON MOV AH,09 INT 21H RET F10DISP ENDP




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