Материал: 1117

loop clr1 ret

clrascval endp ; конец процедуры

cursor proc ;процедура перевода курсора на след. строку mov ah,09

lea dx,perevod_cursora int 21h

ret cursor endp

codesg ends ; ends – директива, показывающая конец сегмента end main ; конец программы

===================================================================

Пример 1.6

;lab1pr6.asm ред. 17_12_05

;РАЗРАБОТАЛ МИШУРИН А.О., СТУДЕНТ ГРУППЫ 11БИ, ИЮЛЬ 2003 ГОДА. ;Программа (МП 8086) вычисляет по формулам: b1+b2; w1+w2; w1-b1; d1+d2

;Компиляция: tasm.exe lab1pr6.asm

;tlink.exe lab1pr6.obj

;-сегмент стека---------------------------------

stacksg segment para stack 'Stack' db 1024 dup(?)

stacksg ends

;-сегмент данных-------------------------------

datasg segment para 'Data' msg_b1 db "b1=",0dh,0ah,"$" msg_w1 db "w1=",0dh,0ah,"$" msg_d1 db "d1=",0dh,0ah,"$"

msg_b1b2 db "b1+b2=",0dh,0ah,"$" msg_w1w2 db "w1+w2=",0dh,0ah,"$" msg_d1d2 db "d1+d2=",0dh,0ah,"$" msgd1_d3 db "d1-d3=",0dh,0ah,"$" msg_w1b1 db "w1-b1=",0dh,0ah,"$"

msg_e db "Для выхода нажмите любую клавишу!", 0dh,0ah,"$" msg_err1 db "Ошибка#1: ошибка ввода!", 0dh,0ah,"$"

ascval db "000000000000",0dh,0ah,"$" ; 12 нулей (под дв. слово в символьном виде) perevod_cursora db 0dh,0ah,"$"

; сюда вставляются списки параметров (из файла vvod_bwd.asm)

include vvod_bwd.asm ; include – директива, вставляющая в текст программы текст ; файла (в данном ; случае вставляется текст файла vvod_bwd.asm ) b1 db 255

b2 db 10

w1 dw 65535

w2 dw 1000

d1 dd 2147483647

d2 dd 3000000000

d3 dd 147483647 prom dw 0 promd dd 0

106

assume cs:codesg,ds:datasg,ss:stacksg ; директива, устанавливающая соответствие

;сегментных регистров (cs, ds, ss) сегментам (ее обычный вид для EXE-программы)

;следующие строки должны быть в любой EXE-программе:

xor cx,cx

mov ax,word ptr d1 mov dx,word ptr d1+2 add ax,word ptr d2 adc dx,word ptr d2+2

;Т.к. сумма двух двойных слов не помещается в двойном слове, надо учесть перенос в

;старшее (третье) слово:

adc cx,0 ;cx:=cx+0+cf=0+0+(cf=1, если перенос был, или cf=0, если его не было)

;Сумма d1+d2 получается в трех регистрах: ax, bx и cx

;подготовка к вызову процедуры call bin_ASCII (она получает данные в ячейке rezult) mov word ptr rezult,ax

mov ax,word ptr d1; mov dx,word ptr d1+2 ; sbb ax,word ptr d3 ;

sbb dx,word ptr d3+2;/ d1d3 mov word ptr rezult,ax

mov word ptr rezult+2,dx

call bin_ASCII

;

mov ah,09h

lea dx, msgd1_d3

main endp

;-процедуры-----------------------------

; сюда вставляются процедуры ASCII_bin_b, ASCII_bin_w

; и ASCII_bin_d из файла as_b_bwd.asm include as_b_bwd.asm

; сюда вставляется процедура bin_ASCII из файла bin_asci.asm

clr1: and ascval[si],30h dec si

109

mov ah,09

lea dx,perevod_cursora int 21h

===================================================================

Пример 1.7

;lab1pr7.asm ред. 11_07_05

;РАЗРАБОТАЛ МИШУРИН А.О., СТУДЕНТ ГРУППЫ 11БИ, ИЮЛЬ 2003 ГОДА. ;Программа (МП 8086) вычисляет по формулам: b1*b2; w1*w2; w1*b1; b1*w2. ;Компиляция:

;tasm.exe lab1pr7.asm

;tlink.exe lab1pr7.obj

;-сегмент стека---------------------------------

stacksg segment para stack 'Stack' db 1024 dup(?)

stacksg ends

;-сегмент данных-------------------------------

datasg segment para 'Data' msg_b1 db "b1=","$" msg_w1 db "w1=","$" msg_d1 db "d1=","$" msg_b1b2 db "b1*b2=","$" msg_w1w2 db "w1*w2=","$" msg_b1w2 db "b1*w2=","$" msg_w1b1 db "w1*b1=","$"

msg_e db "Для выхода нажмите любую клавишу!","$" msg_err1 db "Ошибка#1: ошибка ввода!","$"

ascval db "00000000000000000000","$" perevod_cursora db 0dh,0ah,"$"

; сюда вставляются списки параметров (из файла vvod_bwd.asm)

b1 db 255

b2 db 10

w1 dw 65535

w2 dw 1000

d1 dd 2147483647

d2 dd 3000000000 prom dw 0 promd dd 0

fml dd 0

110