int 21h
; Ввод с клавиатуры (функция 0ah) значения b2 в field_b списка параметров vvod_b mov ah,0ah
lea dx,vvod_b int 21h
;Перевод введенных данных из ASCII-кодов в двоичный код call ASCII_bin_b
;Результат преобразования (двоичный код) процедура помещает в регистр al ;Занесение двоичного значения в ячейку памяти с символьным именем b2
mov b2,al mov prom,0 call cursor cmp osh_v,0 jz ii3
jmp povtor_b2
;Ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа w1 ii3:
povtor_w1:
;Вывод на экран сообщения: 'w1= ' mov ah,09
mov osh_v,0 lea dx,s_w1 int 21h
;Ввод с клавиатуры (функция 0ah) значения переменной w1 в field_w списка vvod_w mov ah,0ah
lea dx,vvod_w int 21h
;Перевод введенных данных из ASCII-кодов в двоичный код
call ASCII_bin_w
;Результат преобразования (двоичный код) процедура помещает в регистр ax
; Занесение двоичного значения из ax в ячейку памяти с символьным именем w1 mov word ptr w1,ax
mov prom,0 call cursor cmp osh_v,0 jz ii4
jmp povtor_w1
;Ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа w2 ii4:
povtor_w2:
;Вывод на экран сообщения: 'w2= ' mov ah,09
mov osh_v,0 lea dx,s_w2 int 21h
;Ввод с клавиатуры (функция 0ah) значения w2 в field_w списка параметров vvod_w mov ah,0ah
lea dx,vvod_w
126
int 21h
;Перевод введенных данных из ASCII в двоичный код (процедура ASCII_binw) call ASCII_bin_w
;Занесение двоичного значения из ax в ячейку памяти с символьным именем w2 mov w2,ax
mov prom,0 call cursor cmp osh_v,0 jz ii6
jmp povtor_w2
;Ввод с клавиатуры и преобразование из ASCII в двоичное (bin) числа d1 ii6:
povtor_d1:
;Вывод на экран сообщения: 'd1= ' mov ah,09
mov osh_v,0 lea dx,s_d1 int 21h
;Ввод с клавиатуры значения d1 в ячейку в field_d списка параметров vvod_d mov ah,0ah
lea dx,vvod_w int 21h
;Перевод введенных данных из ASCII-кодов в двоичный код
call ASCII_bin_w
;Результат преобразования (двоичный код) процедура помещает в регистры (dx:ax)
;Занесение переведённого значения (двойное слово) из регистров (dx:ax) в d1 mov word ptr d1,ax
mov word ptr d1+2,dx mov prom,0
call cursor cmp osh_v,0 jz ii7
jmp povtor_d1 |
|
|
ii7: |
d1-(b1+ w1/b2)*w2’ |
|
; Вычисление по формуле |
||
;1. Деление w1/b2 |
|
|
xor dx,dx |
; dx := 0 |
|
xor bx,bx |
; bx := 0 |
|
mov ax,w1 |
; ax :=w1 |
|
mov bl,b2 |
; bx := b2 |
|
div bx |
; ax :=w1/b2 |
dx:= остаток от деления |
mov word ptr rez2,ax |
; rez2 :=w1/b2 |
(слово) |
;2. Сложение b1+ w1/b2 |
|
|
mov al,b1 |
; al := b1 |
|
cbw |
; ax := b1 |
|
xor dx,dx |
; dx := 0 |
|
add ax, rez2 |
|
|
|
|
127 |
adc dx,0 |
;учесть перенос, после этого (dx:ax) := b1+ w1/b2 |
mov word ptr rez3,ax |
|
mov word ptr rez3+2,dx |
; rez3:= b1+ w1/b2 (двойное слово) |
3. Умножение rez3*w2 [3, с. 311-312] |
|
mov ax,word ptr res3 |
; ax:=мл.слово res3 |
mul w2 |
; (dx:ax) := мл.слово res3*w2 |
mov word ptr rezult,ax |
|
mov word ptr rezult+2,dx |
|
mov word ptr result+4,0 |
|
mov word ptr rezult+6,0 |
; rezult := мл.слово res3*w2 |
mov ax,word ptr res3+2 |
; ax:=ст.слово res3 |
mul w2 |
; (dx:ax) := ст.слово res3*w2 |
add word ptr result+2,ax adc word ptr rezult+4,dx adc word ptr result+6,0
mov word ptr rezult+6,0 ; rezult := res3*w2 = (b1+ w1/b2)*w2 (учетверен. слово) ;4 .Вычитание d1 - rezult
mov ax,word ptr d1 mov dx,word ptr d1+2 xor cx,cx
xor bx,bx
sub ax,result sbb dx,result+2 sbb cx,result+4
; учесть заем из старших разрядов: sbb bx,result+6
mov word ptr rezult,ax mov word ptr result+2,dx mov word ptr result+4,cx
mov word ptr result+6,bx ; rezult := = d1 - (b1+ w1/b2)*w2 (учетверенное слово
;Вывод результата на экран
;Результат из двоичного кода перевести в код ASCII (вызвать процедуру bin_ascii ) call bin_ASCII ;вызов процедуры перевода из bin в ASCII
;Вывод на экран сообщения «Результат равен = »
mov ah,09h ; lea dx,soob_o ; int 21h ;
; Вывод на экран полученного в результате вычисления значения (в коде ascii)
mov ah,09h |
|
lea dx,ascval |
|
int 21h |
|
call cursor |
|
mov ah,0 |
;-ожидание нажатия клавиши |
int 16h |
|
|
128 |
;Выход из главной процедуры (возврат в DOS, команда ret) ret
;Конец главной процедуры (директива endp)
begin endp
;
;Процедуры, вызываемые из главной процедуры
;=================================================================== ;ASCII_binb ;процедура перевода из ASCII в bin для байта
;Начало процедуры (директива proc)
ASCII_bin_b proc ;процедура перевода из ASCII в bin для байта
;Вход: список параметров vvod_b должен быть заполнен;
;Выход: al=число в bin
;
; Тело процедуры xor ax,ax xor cx,cx mov prom,ax mov osh_v,al mov al,fact_b mov cl,al dec al
mov si,ax mov bx,1
met1_b:
mov al,field_b[si] cbw
cmp ax,30h jb error_b cmp ax,39h ja error_b and al,0fh mul bx add prom,ax mov ax,bx mov bx,10 mul bx mov bx,ax dec si
loop met1_b mov ax,prom jmp end_error_b
error_b:
call cursor mov ah,09h
lea dx,oshibka_v int 21h
mov osh_v,1
129
end_error_b: ret
ASCII_bin_b endp ; конец процедуры (директива endp) ;=================================================================== ;ASCII_binw ;процедура перевода из ASCII в bin для слова
;Вход: список параметров vvod_w должен быть заполнен
;Выход:ax = число в bin
ASCII_bin_w proc
; Тело процедуры xor ax,ax xor cx,cx mov prom,ax mov osh_v,al mov al,fact_w mov cl,al dec al
mov si,ax mov bx,1
met1_w:
mov al,field_w[si] cbw
cmp ax,30h jb error_w cmp ax,39h ja error_w and al,0fh mul bx add prom,ax mov ax,bx mov bx,10 mul bx mov bx,ax dec si
loop met1_w mov ax,prom jmp end_error_w
error_w:
call cursor mov ah,09h
lea dx,oshibka_v int 21h
mov osh_v,1 end_error_w:
ret
ASCII_bin_w endp ; конец процедуры (директива endp) ;=================================================================== ;ascii_bind ;процедура перевода из ASCII в bin для двойного слова
; Вход: список параметров vvod_d должен быть заполнен
130