Информатика и выч. техника \ Цифровые устройства и микропроцессоры

Формирование массива и 10 двухбайтных чисел, переписать во второй массив все положительные числа

Страницы работы

10 страниц (Word-файл)

Скачать файл

Содержание работы

Задание № 1 (вариант № 4):

Сформировать массив и 10 двухбайтных чисел. Переписать во второй массив все положительные числа.

Текст программы:

STACKSG SEGMENT PARA USE16

A DW 25 DUP(0)

B DW 25 DUP(0)

С DB 1 DUP(0)

ENTS DB 0AH,0DH,24H

FIN DB 'fin.txt',00H

FOUT DB 'fout.txt',00H

STACKSG ENDS

CODESG SEGMENT PARA'Code'

BEGIN PROC FAR

ASSUME DS:STACKSG,CS:CODESG

MOV AX,STACKSG

MOV DS,AX

;Чтение с клавиатуры и запись в массив А

MOV CX,10

LEA SI,A

M100: MOV AH,01H

INT 21H

MOV [SI],AL

INT 21H

MOV [SI+1],AL

INT 21H

MOV [SI+2],AL

INT 21H

MOV [SI+3],AL

MOV [SI+4],20H

ADD SI,5

MOV AH,09H

LEA DX,ENTS

INT 21H

LOOP M100

;Сравнение

LEA SI,A

LEA DI,B

MOV CX,10

M0: MOV AL,[SI]

CMP AL,37H

JG M1

ADD SI,5

LOOP M0

JMP M3

M1: MOV BL,[SI]

MOV [DI],BL

MOV BL,[SI+1]

MOV [DI+1],BL

MOV BL,[SI+2]

MOV [DI+2],BL

MOV BL,[SI+3]

MOV [DI+3],BL

MOV BL,[SI+4]

MOV [DI+4],BL

ADD SI,5

ADD DI,5

LOOP M0

M3:

MOV AH,09H

LEA DX,ENTS

INT 21H

LEA DX,B

MOV AH,09H

INT 21H

MOV AX,4C00H

INT 21H

BEGIN ENDP

CODESG ENDS

END BEGIN

seg_data segment para public 'data'

mas_in dw 0ah dup ('?')

mas_out dw 0ah dup ('#')

razrad dw 0ah

des_t dw 2710h

tis dw 1000

sot dw 100

des dw 10

fmas_in db 80 dup ('#')

fmas_out db 80 dup ('#')

file_in db "C:\files\in.dat",0

file_out db "C:\files\out.dat",0

seg_data ends

seg_stack segment stack

db 256 dup ('?')

seg_stack ends

seg_code segment para public 'code'

main proc

assume ds:seg_data, cs:seg_code, ss:seg_stack

mov ax,seg_data

mov ds,ax

; Обнуляем регистры

mov ax,0

mov bx,0

mov cx,0

mov dx,0

mov si,0

mov di,0

; Открываем файл с первым массивом

mov ax,3d00h

lea dx,file_in

int 21h

; Читаем данные из файла

read: mov bx,ax

mov ah,3fh

mov cx,80

lea dx,fmas_in

int 21h

; Закрываем файл с первым массивом

mov ah,3eh

int 21h

; Ввод элементов массива

ent: xor bx,bx

mov al,fmas_in[si]

add si,1

cmp al,2dh

jne ddd

push 1

jmp dd4

ddd: push 0

dd4: mov al,fmas_in[si]

add si,1

sub al,30h

xor ah,ah

add bx,ax

mov cx,4

cikl:

mov al,fmas_in[si]

add si,1

push ax

mov ax,bx

mul razrad

mov bx,ax

pop ax

sub al,30h

xor ah,ah

add bx,ax

loop cikl

add si,2

jmp zap

; Запись

zap: pop ax

cmp ax,1

jne dd2

neg bx

dd2: mov mas_in[di],bx

xor bx,bx

add di,2

cmp di,20

jb ent

xor si,si

xor di,di

jmp srav

; Сравнение

srav: mov ax,mas_in[si]

add si,2

cmp si,20

ja print

cmp ax,0

jge srav

mov mas_out[di],ax

add di,2

jmp srav

print: xor dx,dx

xor ax,ax

push di

xor si,si

xor di,di

dd3: xor bx,bx

mov ax,mas_out[si]

neg ax

mov bx,ax

mov fmas_out[di],2dh

add di,1

xor ax,ax

xor dx,dx

mov ax,bx

div des_t

mov cx,dx

add al,30h

mov fmas_out[di],al

add di,1

xor dx,dx

mov ax,cx

div tis

mov cx,dx

add al,30h

mov fmas_out[di],al

add di,1

xor ax,ax

xor dx,dx

mov ax,cx

div sot

mov cx,dx

add al,30h

mov fmas_out[di],al

add di,1

xor ax,ax

xor dx,dx

mov ax,cx

div des

mov cx,dx

add al,30h

mov fmas_out[di],al

add di,1

xor ax,ax

xor dx,dx

mov ax,cx

add al,30h

mov fmas_out[di],al

add di,1

xor dx,dx

xor ax,ax

mov fmas_out[di],0dh

add di,1

add si,2

pop bx

cmp si,bx

je open

push bx

jmp dd3

; Открытие файла для записи второго массива

open: sub di,1

mov cx,di

mov ax,3d01h

lea dx,file_out

int 21h

; Сохранение

save: mov bx,ax

mov ah,40h

lea dx,fmas_out

int 21h

; Закрытие файла с выходным массивом

mov ah,3eh

int 21h

; Выход из программы

exit: mov ah,4ch

int 21h

main endp

seg_code ends

end main

Задание № 2 (вариант № 9):

Сформировать массив и 10 двухбайтных чисел. Найти минимальное значение.

Текст программы:

data segment para public 'data' ;сегмент данных

message db 'Введите две шестнадцатеричные цифры: $'

message_1 db ' $'

message_2 db 0ah,0dh,'Минимальное число: $',0ah,0dh

data ends

stk segment stack

db 256 dup ('?') ;сегмент стека

stk ends

code segment para public 'code' ;начало сегмента кода

minim dw ? ;выделение памяти под переменную minim

r dw ?

rr dw ?

main proc ;начало процедуры main

assume ds:data,cs:code,ss:stk

mov ax,data ;адрес сегмента данных в регистр ax

mov ds,ax ;ax в ds

mov ah,9

mov dx,offset message

int 21h

mov ax,11 ;общий цикл

mov r,ax

mov cx,10 ;формирование счётчиа

mov bx,0FFh ;чтобы переменная minim не обнулилось занесем в bx макс. число

mov minim,0FFh ;в переменную minim заносим максимальное число из возможных

M_1:

mov ax,bx ;в ах заносим введеное число

cmp ax,minim ;сравнение вида ax<=minim

jbe min ;если ax меньше или равно minim, то переходим на метку min

jcxz M_2 ;если сх=0, переходим в M_2, если нет, то продолжаем

dec cx

jmp M3

min:

mov minim,ax ;в minim заносим минимальное число

jcxz M_2 ;если сх=0, переходим в M_2, если нет, то продолжаем

dec cx

M3:

xor ax,ax ;очистить регистр ax

mov ah,1h ;1h в регистр ah

int 21h ;генерация прерывания с номером 21h

mov dl,al ;содержимое регистра al в регистр dl

sub dl,30h ;вычитание: (dl)=(dl)-30h

cmp dl,9h ;сравнить (dl) с 9h

jle M1 ;перейти на метку M1 если dl<9h или dl=9h

sub dl,7h ;вычитание: (dl)=(dl)-7h

M1:

shl dl,1 ;сдвиг содержимого dl на 1 разряда влево

shl dl,1

int 21h ;вызов прерывания с номером 21h

sub al,30h ;вычитание: (dl)=(dl)-30h

cmp al,9h ;сравнить (al) с 9h

jle M2 ;перейти на метку M2 если al<9h или al=9h

sub al,7h ;вычитание: (al)=(al)-7h

1 2

Информация о работе

ВУЗ:

Красноярский государственный технический университет (Сибирский федеральный университет) (КГТУ (СФУ))

Предмет:

Цифровые устройства и микропроцессоры

Тип:

Задания на лабораторные работы

Категория:

Информатика и выч. техника (Технические предметы)

Размер файла:

72 Kb

Скачали:

Скачать файл

Формирование массива и 10 двухбайтных чисел, переписать во второй массив все положительные числа

Страницы работы

Содержание работы

Похожие материалы

Информация о работе