Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

Лабораторная работа №4 - файл Настина lab4.doc


Лабораторная работа №4
скачать (21.3 kb.)

Доступные файлы (1):

Настина lab4.doc75kb.09.12.2005 20:28скачать


Настина lab4.doc

Министерство Образования Российской Федерации

Уфимский Государственный Авиационный Технический Университет

Кафедра ТК
Отчет по лабораторным работам

по предмету «Организация ЭВМ»

На тему «Программирование операций ввода-вывода»


Выполнила: студентка

Проверил: Даринцев О.В.

Уфа, 2005

Лабораторная работа №4

Программирование операций ввода-вывода

5. Найти сумму всех отрицательных элементов двухмерного массива, а среди положительных найти максимальный и указать его местоположение:

а) элементы массива однобайтовые;

б) элементы массива двухбайтовые.

а)

.486

dseg segment para public 'data'

source db -8h, 3h, 48h,12h

db 5h, 6h,-10h,56h

db 7h,-3h, -2h, 9h

db 0h,-8h, 12h,-5h,'$'

len db 0h

hexdigits db '0123456789ABCDEF'

SumMessage db 'Summ of negative is ','$'

MaxMessage db 'Max of positive is ','$'

IndexMessage db ' index is ','$'

Ent db 13,10,'$'

negative_sum dw 0

positive_max db 0

temp db 0

max_index dw 0

dseg ends

stack segment para stack 'stack'

dw 10 dup (0FFFFh)

stack ends

cseg segment use16

assume cs:cseg,ds:dseg,ss:stack

main proc

jmp begin

OutputByte proc;Выводит на экран байтовую беззнаковую величину.

;Вход - В ds:dx адрес числовой переменной

push ax

push bx

push cx

push dx

push si

push di

pushf

mov di,dx

mov ax,[di]

mov ah,0

mov dl,10h

div dl ;al - частное ah - остаток

push ax

mov ah,0

mov si,ax

mov dl,byte ptr hexdigits[si]

mov ah,2h

int 21h

pop ax

xchg ah,al

mov ah,0

mov si,ax

mov dl,byte ptr hexdigits[si]

mov ah,2h

int 21h

popf

pop di

pop si

pop dx

pop cx

pop bx

pop ax

ret

endp OutputByte

OutputWord proc;Выводит на экран беззнаковое слово.

;Вход - В ds:dx адрес слова

push dx

add dx,1

call OutputByte

sub dx,1

call OutputByte

pop dx

ret

endp OutputWord

begin:

mov ax,dseg

mov ds,ax

mov negative_sum, 0000h

mov di,0

LenCalculation:

mov dh,source[di]

cmp dh,'$'

mov ax,0

setnz ah

pushf

add len,ah

;Заодно и массив распечатаем

mov bl,source[di]

mov temp, bl

cmp bl,0

jge PositiveNumber

;А тут можно еще сумму отрицательных пощитать

neg bl

mov bh,0

add negative_sum,bx

mov temp,bl

mov dl,45; '-'

mov ah,2h

int 21h

PositiveNumber:

lea dx,temp

call OutputByte

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

add di,1

popf

jnz LenCalculation

xor ax,ax

mov positive_max, al

mov max_index, ax

mov cl,len

dec cl

mov ch,0h

xor di,di

MainTask:

mov al,source[di]

cmp al,0h

jge GetMaxPositive

jmp EndCmpVars

GetMaxPositive:

cmp positive_max,al

jna SetNewMaxValue

jmp EndCmpVars

SetNewMaxValue:

mov max_index, di

mov positive_max, al

EndCmpVars:

inc di

loop MainTask

;Вывод

lea dx,ent

mov ah,9h

int 21h

lea dx,ent

mov ah,9h

int 21h

lea dx,SumMessage

mov ah,9h

int 21h

mov dl,45; '-'

mov ah,2h

int 21h

lea dx,negative_sum

call OutputWord

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

lea dx,ent

mov ah,9h

int 21h

lea dx,MaxMessage

mov ah,9h

int 21h

lea dx,positive_max

call OutputByte

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

lea dx,IndexMessage

mov ah,9h

int 21h

lea dx,max_index

call OutputByte

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

mov ah,4ch

int 21h

main endp

cseg ends

end main


б)

.486

dseg segment para public 'data'

source dw -8h, 3h, 48h,12h

dw 5h, 6h,-10h,56h

dw 7h,-3h, -2h, 9h

dw 0h,-8h, 12h,-5h,'$'

len db 0h

hexdigits db '0123456789ABCDEF'

SumMessage db 'Summ of negative is ','$'

MaxMessage db 'Max of positive is ','$'

IndexMessage db ' index is ','$'

Ent db 13,10,'$'

negative_sum dw 0

positive_max dw 0

temp dw 0

max_index dw 0

dseg ends

stack segment para stack 'stack'

dw 10 dup (0FFFFh)

stack ends

cseg segment use16

assume cs:cseg,ds:dseg,ss:stack

main proc

jmp begin

OutputByte proc;Выводит на экран байтовую беззнаковую величину.

;Вход - В ds:dx адрес числовой переменной

push ax

push bx

push cx

push dx

push si

push di

pushf

mov di,dx

mov ax,[di]

mov ah,0

mov dl,10h

div dl ;al - частное ah - остаток

push ax

mov ah,0

mov si,ax

mov dl,byte ptr hexdigits[si]

mov ah,2h

int 21h

pop ax

xchg ah,al

mov ah,0

mov si,ax

mov dl,byte ptr hexdigits[si]

mov ah,2h

int 21h

popf

pop di

pop si

pop dx

pop cx

pop bx

pop ax

ret

endp OutputByte

OutputWord proc;Выводит на экран беззнаковое слово.

;Вход - В ds:dx адрес слова

push dx

add dx,1

call OutputByte

sub dx,1

call OutputByte

pop dx

ret

endp OutputWord

begin:

mov ax,dseg

mov ds,ax

mov negative_sum, 0000h

mov di,0

LenCalculation:

mov dx,source[di]

cmp dx,'$'

mov ax,0

setnz ah

pushf

add len,ah

;Заодно и массив распечатаем

mov bx,source[di]

mov temp, bx

cmp bx,0

jge PositiveNumber

;А тут можно еще сумму отрицательных пощитать

neg bx

add negative_sum,bx

mov temp,bx

mov dl,45; '-'

mov ah,2h

int 21h

PositiveNumber:

lea dx,temp

call OutputWord

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

add di,2

popf

jnz LenCalculation

xor ax,ax

mov positive_max, ax

mov max_index, ax

mov cl,len

mov ch,0h

xor di,di

MainTask:

mov ax,source[di]

cmp ax,0h

jge GetMaxPositive

jmp EndCmpVars

GetMaxPositive:

cmp positive_max,ax

jna SetNewMaxValue

jmp EndCmpVars

SetNewMaxValue:

mov max_index, di

mov positive_max, ax

EndCmpVars:

inc di

inc di

loop MainTask

xor ax,ax

mov ax,max_index

mov ch,2

div ch

mov ah,0

mov max_index,ax

;Вывод

lea dx,ent

mov ah,9h

int 21h

lea dx,ent

mov ah,9h

int 21h

lea dx,SumMessage

mov ah,9h

int 21h

mov dl,45; '-'

mov ah,2h

int 21h

lea dx,negative_sum

call OutputWord

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

lea dx,ent

mov ah,9h

int 21h

lea dx,MaxMessage

mov ah,9h

int 21h

lea dx,positive_max

call OutputWord

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

lea dx,IndexMessage

mov ah,9h

int 21h

lea dx,max_index

call OutputWord

mov dl,104; буква 'h'

mov ah,2h

int 21h

mov dl,20h; пробел

mov ah,2h

int 21h

mov ah,4ch

int 21h

main endp

cseg ends

end main



Скачать файл (21.3 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации