Продолжение прил. 1.2 ;перевод введенных данных из ASCII-кодов в двоичный код (вызвать процедуру
ASCII_binb)
;результат преобразования (двоичный код) процедура помещает в регистр al ;занесение двоичного значения из регистра al в ячейку памяти с символьным именем b1
;***************************************************************************
;ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа b2
;***************************************************************************
;вывод на экран сообщения: 'b2= '
;ввод с клавиатуры (функция 0ah) значения переменной b2 в field_b списка параметров vvod_b
;перевод введенных данных из ASCII-кодов в двоичный код (вызвать процедуру
ASCII_binb)
;результат преобразования (двоичный код) процедура помещает в регистр al ;занесение двоичного значения в ячейку памяти с символьным именем b2
;***************************************************************************
;ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа w1
;***************************************************************************
;вывод на экран сообщения: 'w1= '
;ввод с клавиатуры (функция 0ah) значения переменной w1 в field_w списка параметров vvod_w
;перевод введенных данных из ASCII-кодов в двоичный код (вызвать процедуру
ASCII_binw)
;результат преобразования (двоичный код) процедура помещает в регистр ax ;занесение двоичного значения из ax в ячейку памяти с символьным именем w1
;***************************************************************************
;ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа w2
;***************************************************************************
;вывод на экран сообщения: 'w2= '
;ввод с клавиатуры (функция 0ah) значения переменной w2 в field_w списка параметров vvod_w
;перевод введенных данных из ASCII кодов в двоичный код (вызвать процедуру
ASCII_binw)
;занесение двоичного значения в ячейку памяти с символьным именем w2
;***************************************************************************
;ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа d1
;***************************************************************************
;вывод на экран сообщения: 'd1= '
;ввод с клавиатуры значения (функция 0ah) переменной d1 в ячейку в field_d списка параметров vvod_d
;перевод введенных данных из ASCII-кодов в двоичный код (вызвать процедуру
ASCII_bind)
;результат преобразования (двоичный код) процедура помещает в регистры (dx:ax)
;занесение переведённого значения (двойное слово) из регистров (dx:ax) в d1
;***************************************************************************
; вычисление по формуле |
<формула>, например, d1-(b1+ w1/b2)*w2 |
; вычисление w1/b2 |
|
|
121 |
Окончание прил. 1.2
;вычисление b1+ w1/b2
;вычисление (b1+ w1/b2)*w2
;вычисление d1-(b1+ w1/b2)*w2
;Вывод результата на экран
; Результат из двоичного кода перевести в код ASCII (вызвать процедуру bin_ascii )
;Вывод на экран сообщения «Результат равен = »
;Вывод на экран полученного в результате вычисления значения (в коде ascii)
; выход из главной процедуры (возврат в DOS, команда ret)
;Конец главной процедуры (директива endp)
;Процедуры, вызываемые из главной процедуры
;=================================================================== ;ASCII_binb ;процедура перевода из ASCII в bin для байта
;Вход: список параметров vvod_b должен быть заполнен
;Выход:al = двоичное число
;Начало процедуры (директива proc)
;Тело процедуры
;Конец процедуры (директива endp) ;=================================================================== ;ASCII_binw ;процедура перевода из ASCII в bin для слова
;Вход: список параметров vvod_w должен быть заполнен
;Выход:ax = двоичное число
;Начало процедуры (директива proc)
;Тело процедуры
;Конец процедуры (директива endp) ;=================================================================== ;ASCII_bind ;процедура перевода из ASCII в bin для двойного слова
;Вход: список параметров vvod_d должен быть заполнен
;Выход:dx:ax = двоичное число
;Начало процедуры (директива proc)
;Тело процедуры
;Конец процедуры (директива endp) ;===================================================================
;bin_ascii ;процедура перевода из bin в ASCII
;Вход: rezult = двоичное число
;Выход:ascval = число в кодах ascii
;Начало процедуры (директива proc)
;Тело процедуры
;Конец процедуры (директива endp)
;Конец сегмента кода (директива ends)
;Конец программы (директива end)
122
Приложение 1.3
Пример лабораторной работы №1
;Лабораторная работа №1
;ВЫПОЛНЕНА СТУДЕНТОМ ГРУППЫ ЗИ-103 СЫРВАЧЕВЫМ АЛЕКСЕЕМ
;тема: «Определение данных. Операции двоичной арифметики. Экранные операции»
;вычисление по формуле w1*w2-w3/b1+d1+b2
;г. Омск, СибАДИ, Сургутский филиал, октябрь 2003 г.
;Ограничения: не вводить отрицательных чисел;
;не получать отрицательный результат.
;Сегмент стека
;Начало сегмента стека (директива segment)
stacksg segment para stack 'Stack' ; резервирование 1024 ячеек памяти под стек db 1024 dup (?)
;Конец сегмента стека (директива ends) stacksg ends
; Сегмент данных
;Начало сегмента данных (директива segment) datasg segment para 'Data'
;ячейки памяти b1, b2,…,bm, определенные директивой db; b1 db 0
b2 db 0
;ячейки памяти w1, w2,…,wn, определенные директивой dw;
w1 dw 0
w2 dw 0
w3 dw 0
;ячейки памяти d1, d2,…,dk, определенные директивой dd; d1 dd 0
;списки параметров для ввода с клавиатуры значений, занимающих
;один байт, т.е. значений b1, b2,
;список параметров vvod_b (поле для символов - field_b); vvod_b label byte
max_b db 4 fact_b db 0 field_b db '0000','$'
;одно слово (w1, w2)
;список параметров vvod_w (поле для символов - field_w); vvod_w label byte
max_w db 7 fact_w db 0
field_w db '0000000','$'
двойное слово (d1)
;список параметров vvod_d (поле для символов - field_d); vvod_d label byte
max_d db 9 fact_d db 0
field_d db '000000000','$'
;ячейки памяти, используемые процедурами ascii_binb, ascii_binw, ascii_bind и bin_ascii.
123
ascval db "00000000000000000000","$" binval db 0
asclen db 20 mult10 db 1 binval_w dw 0
; поле переведённых данных ;результат преобразования ;длина введенного символьного числа ;фактор умножения
;символьные константы (тексты сообщений, выдаваемых на экран) soob_p db 'Здравствуйте, уважаемый пользователь',0dh,0ah,'$'
soob_f db 'Программа вычисляет по формуле w1*w2-w3/b1+d1+b2',0ah,0dh,'$' s_b1 db 'Введите b1',0ah,0dh,'$'
s_b2 db 'Введите b2',0ah,0dh,'$' s_w1 db 'Введите w1',0ah,0dh,'$' s_w2 db 'Введите w2',0ah,0dh,'$' s_w3 db 'Введите w3',0ah,0dh,'$' s_d1 db 'Введите d1',0ah,0dh,'$'
soob_o db 'Ответ будет равен:',0ah,0dh,'$'
soob_vixod db "Для выхода нажмите любую клавишу","$" soob db 'До свидания',0ah,0dh,'$'
perevod_cursora db 0dh,0ah,"$"
oshibka_v db "Ошибка ввода!(введите другое число)","$"
;ячейки промежуточных результатов
rez1 dd 0 rez2 dd 0 rez3 dd 0 rez4 dd 0 rezult dq 0 kol dq 0 osh_v db 0 prom dw 0 promd dd 0 fml dd 0 stroka db 2
;Конец сегмента данных (директива ends) datasg ends
;Сегмент кода
;Начало сегмента кода (директива segment) codesg segment para 'Code'
;Начало главной процедуры (директива proc)
begin proc far
; Директива, устанавливающая соответствие сегментных регистров сегментам
; (директива assume)
assume cs:codesg,ds:datasg,ss:stacksg
; Команды, которые должны быть в любой EXE-программе push ds
xor ax,ax push ax
mov ax,datasg mov ds,ax
;очистка экрана
124
mov ax,0600h |
;\ |
| ah=06(прокрутка), al=00(весь экран) |
mov bh,02 |
; \ |
| нормальный атрибут (черно-белый) |
mov cx,0000 ; очистка экрана | верхняя левая позиция |
||
mov dx,314fh |
; / |
| нижняя правая позиция |
int 10h |
;/ |
| передача управления в BIOS |
mov ah,02 |
;\ |
| установка курсора |
mov bh,00 |
; \ |
| экран 0 |
mov dh,01 ; |
управление курсором | строка 01 |
|
mov dl,00 |
; / |
| столбец 00 |
int 10h |
;/ |
| передача упр. в BIOS |
;Вывод на экран сообщения 'Привет, пользователь!' |
||
mov ah,09 |
|
;Вывод приветствия |
lea dx,soob_p |
|
|
int 21h |
|
|
formula1:
;Вывод на экран сообщения 'Эта программа производит вычисления по формуле
; |
d1 - (b1+ w1/b2)*w2’ |
mov ah,09 |
;Вывод формулы d1 - (b1+ w1/b2)*w2’ |
lea dx,soob_f |
|
int 21h |
|
;Ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа b1
;вывод на экран сообщения: 'b1= '
povtor_b1:
mov ah,09 ;вывод сообщения 'b1= ' mov osh_v,0
lea dx,s_b1 int 21h
; Ввод с клавиатуры (функция 0ah) значения b1 в field_b списка параметров vvod_b mov ah,0ah
lea dx,vvod_b int 21h
;Перевод введенных данных из ASCII-кодов в двоичный код call ASCII_bin_b
;Результат преобразования (двоичный код) процедура помещает в регистр al ;Занесение двоичного значения из al в ячейку памяти с символьным именем b1
mov b1,al mov prom,0 call cursor cmp osh_v,0 je ii2
jmp povtor_b1
;Ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа b2 ii2:
povtor_b2:
; Вывод на экран сообщения: 'b2= ' mov ah,09
mov osh_v,0 lea dx,s_b2
125