Ассемблер и программирование (стр. 1 из 2)
Содержание
Задание............................................................................................................. 2
1. Блок-схема к заданию 1......................................................................... 3
2. ASM 1..................................................................................................... 4
3. Блок-схема к заданию 2......................................................................... 7
4. ASM 2..................................................................................................... 8
5. Блок-схема к заданию 3....................................................................... 11
6. ASM 3................................................................................................... 12
7. Блок-схема к заданию 4....................................................................... 16
8. ASM 4................................................................................................... 17
9. Блок-схема к заданию 5....................................................................... 19
10. ASM 5................................................................................................... 20
11. Блок-схема к заданию 6....................................................................... 23
12. ASM 6................................................................................................... 24
13. KOMP.CPP........................................................................................... 26
14. Руководство пользователя................................................................... 36
Список литературы....................................................................................... 39
Задание
Информатика - курсовое задание, вариант 1
Три байтовые переменные A, B, и C содержат целые значения. Упорядочить эти значения по возрастанию так, чтобы A содержала минимальное значение, а С - максимальное.
Задан байтовый массив из N элементов в неупакованном BCD формате. Написать процедуру преобразования исходного массива
Задан байтовый массив из N элементов. Написать процедуру, отыскивающую: номер максимального и минимального элементов, а также разность между максимальным и минимальным элементами.
Написать процедуру нормализации значения, содержащегося в AX. Нормализация заключается в сдвиге содержимого AX влево до тех пор, пока старший из битов, имеющих значение 1, не попадет в 15-й разряд. Если же сразу (AX)=0 или 15-й разряд содержит 1, то процедура не должна выполняться. При выходе из процедуры регистр BX должен содержать число, равное количеству выполненных сдвигов.
Считая содержимое регистров DX:AX 32-битной величиной, написать программу, загружающую в регистр DL номер самого младшего бита, содержащего 1.
Индивидуальное задание: определить размер файла из DTA.
1. Блок-схема к заданию 1
2. ASM 1
mes macro msg
mov ah,9
lea dx,msg
int 21h
endm
abc macro char
add char,'0'
mov dl,char
mov ah,2
int 21h
sub char,'0'
endm
d_seg segment
a db 5
b db 9
c db 3
str db 'Ishodnie dannie:',10,13,'$'
str2 db 'Resultat sortirovki po vozrastaniyu',10,13,'$'
str3 db 'Press any key.........$'
enter db 10,13,'$'
space db ' ','$'
strA db 'A=','$'
strB db 'B=','$'
strC db 'C=','$'
d_seg ends
c_seg segment
assume ds:d_seg,cs:c_seg
start:mov ax,d_seg
mov ds,ax
mes enter
mes str
mes enter
mes strA
abc a
mes space
mes strB
abc b
mes space
mes strC
abc c
mes enter
mov al,a
mov bl,b
mov cl,c
cmp al,bl
jl continue
xchg al,bl
continue:
cmp al,cl
jl continue2
xchg al,cl
continue2:
cmp bl,cl
jl continue3
xchg bl,cl
continue3:
mov a,al
mov b,bl
mov c,cl
mes enter
mes str2
mes enter
mes strA
abc a
mes space
mes strB
abc b
mes space
mes strC
abc c
mes enter
mes enter
mes str3
mov ah,1
int 21h
mov ah,4ch
int 21h
c_seg ends
end start
3. Блок-схема к заданию 2
4. ASM 2
mes macro msg
mov ah,9
lea dx,msg
int 21h
endm
dseg segment
k dw 10
mdb10
masdb1,3,6,8,9,1,4,7,2,3,7,9,4,5,8,9
str db 'Ishodnii massiv elementov v neupakovannom BCD formate:',10,13,'$'
str1 db 10,13,'Poluchenii massiv elementov v ypakovannom BCD formate:',10,13,'$'
str2 db 10,13,'Press any key.........',10,13,'$'
enter db 10,13,'$'
space db ' $'
dseg ends
cseg segment
assume cs:cseg, ds:dseg
vivod proc
xor cx,cx
k_del:
mov dx,0
div k
add dx,'0'
push dx
inc cx
cmp ax,0
jne k_del
k3:
pop dx
mov ah,2
int 21h
loop k3
ret
vivod endp
abcproc
xorsi,si
xordi,di
movbx,16
movcx,16
decbx
m2:
moval,mas[si]
mulm
incsi
addal,mas[si]
movmas[di],al
cmpsi,bx
jem1
incdi
incsi
loop m2
m1:
ret
abcendp
start:
movax,dseg
movds,ax
mes enter
mes str
mes enter
mov bx, 0
met2: mov al, mas[bx]
mov ah,0
call vivod
mes space
inc bx
cmp bx,15
jle met2
call abc
mes enter
mes str1
mes enter
mov bx, 0
met1: mov al, mas[bx]
mov ah,0
call vivod
mes space
inc bx
cmp bx,7
jle met1
mes enter
mes str2
mov ah,1
int 21h
movah, 4ch
int21h
cseg ends
end start
5. Блок-схема к заданию 3
6. ASM 3
char1 macro b
add b,'0'
mov dl,b
mov ah,2
int 21h
sub b, '0'
endm
char macro a
xor dx, dx
mov ax, a
mov bx, 10
div bx
add dl,'0'
mov ah, 2
int 21h
endm
mes macro str
mov ah,9
lea dx,str
int 21h
endm
d_seg segment
mindb0
maxdb0
n_mindw1
n_maxdw1
razdb0
adb2,6,4,1,7,9,3
n=$-a
enter db 10,13,'$'
str db 10,13,'Ishodnii massiv: $'
str1 db 10,13,'Resultat: $'
str2 db 10,13,'Number min chisla: $'
str3 db 10,13,'Number max chisla: $'
str4 db 10,13,'Raznost mezhdu max i min chislami: $'
str5 db 10,13,'Press any key........$'
space db ' $'
d_seg ends
c_seg segment
assume cs:c_seg, ds:d_seg
start:
movax,d_seg
movds,ax
xorsi,si
moval,a[si]
movmin,al
movmax,al
incsi
m3:
moval,a[si]
cmpal,max
jlem1
movmax,al
movbx,si
incbx
movn_max,bx
m1:
cmpal,min
jgem2
movmin,al
movbx,si
incbx
movn_min,bx
m2:
incsi
cmpsi,n
jlm3
moval,max
subal,min
movraz,al
mes str
mes enter
xor si,si
povtor:
char1 a[si]
mes space
inc si
cmp si,n
jne povtor
mes enter
mes str1
mes enter
mes str2
char n_min
mes enter
mes str3
char n_max
mes enter
mes str4
char1 raz
mes enter
mes enter
mes str5
mov ah, 1
int 21h
movah,4ch
int21h
c_seg ends
end start
7. Блок-схема к заданию 4
8. ASM 4
mes macro str
mov ah,9
lea dx,str
int 21h
endm
dseg segment
str db 10,13,'AX soderzhit znachenie 2345h$'
str1 db 10,13,'Posle normalizacii znacheniya AX, BX soderzhit chislo vipolnenih sdvigov$' $'
str2 db 10,13,'BX = $'
str3 db 10,13,'Press any key........$'
enter db 10,13,'$'
x dw 2345h
dseg ends
cseg segment
assume cs:cseg, ds:dseg
start: mov ax,dseg
mov ds,ax
mov ax,x
push ax
xor dx, dx
cmp ax, dx
je exit
xor si, si
cont: mov cx, 2
mov dx, 1000000000000000b
mov bx, ax
or bx, dx
cmp bx, ax
je exit
inc si
shl ax, 1
loop cont
exit: mes str
mes enter
mes str1
mes enter
mes str2
mov bx,si
xor dx,dx
push bx
mov ax,bx
mov bx,10
div bx
add dx,'0'
mov ah,2
int 21h
pop ax
pop bx
mes enter
mes str3
mov ah,1
int 21h
mov ah, 4ch
int 21h
cseg ends
end start
9. Блок-схема к заданию 5
10. ASM 5
mes macro msg
mov ah,9
lea dx,msg
int 21h
endm
d_seg segment
k dw 10
str1 db 'Registr AX soderzhit 0110000b, a registr DX soderzhit 1000100b',10,13,'$'
str2 db 'Nomer samogo mladshego bita, soderzhaschego 1',10,13,'$'
str3 db 10,13,'Press any key......',10,13,'$'
enter db 10,13,'$'
d_seg ends
c_seg segment
assume ds:d_seg, cs:c_seg
vivod proc
xor cx,cx
k_del:
sub dx,dx
div k
add dx,'0'
push dx
inc cx
cmp ax,0
jne k_del
k3:
pop dx
mov ah,2
int 21h
loop k3
ret
vivod endp
start:
mov ax, d_seg
mov ds, ax
mov ax, 0110000b
mov dx, 1000100b
nachalo:
clc
rcr ax, 1
inc bx
jc vivod1
cmp ax,0
jne nachalo
mov bx,7
m1:
clc
rcr dx, 1
inc bx
jc vivod1
cmp dx,0
jne m1
vivod1:
mes enter
mes str1
mes enter
mes str2
mes enter
mov dl, bl
mov ax, dx
call vivod
mes enter
mes str3
mov ah,1
int 21h
mov ah, 4ch
int 21h
c_seg ends
end start
11. Блок-схема к заданию 6
12. ASM 6
mes macro str
mov ah,9
lea dx,str
int 21h
endm
dseg segment
ten dw 10
filename db 8 dup(0)
dta db 2ch dup(' '),0,10,13,'$'
error db 10,13,'File not found',10,13,'$'
exit db 10,13,'Press any key........$'
inp db 'Input filename:',10,13,'$'
out1 db 10,13,10,13,'Size file in DTA:',10,13,10,13,'$'
out2 db 'FILE_NAME - $'
out3 db 'FILE_SIZE - $'
out4 db ' bytes',10,13,'$'
dseg ends
cseg segment
assume cs:cseg, ds:dseg
start: mov ax,dseg
mov ds,ax
mes inp
mov ah,1ah
lea dx,dta
int 21h
xor si,si
povtor: mov ah, 1
int 21h
cmp al, 13
je ok
mov filename[si], al
inc si
jmp povtor
ok:mov ah,4eh
lea dx,filename
mov cx,0
int 21h
jc err
mes out1
mes out2
mes dta[1eh]
mes out3
mov dx,word ptr dta[1ah]+2
mov ax,word ptr dta[1ah]
mov cx,0
jmp next
l1:mov dx,0
next:div ten
push dx
inc cx
cmp ax,0
jne l1
n: pop dx
add dx,'0'
mov ah,2
int 21h
loop n
mes out4
jmp quit
err:mes error
quit:mes exit
mov ah,1
int 21h
mov ah,4ch
int 21h
cseg ends
end start
13. KOMP.CPP
#include<graphics.h>
#include<iostream.h>
#include<stdio.h>
#include<stdlib.h>
#include<conio.h>
#include<dos.h>
#include<bios.h>
#include<process.h>
void pomehi(int x, int y, int i)
{
setcolor(i);
line(x-100,y-60,x-80,y-60);
line(x-60,y-50,x-40,y-50);
line(x-20,y-60,x,y-60);
line(x+20,y-50,x+40,y-50);
line(x+60,y-60,x+80,y-60);
line(x-100,y-20,x-80,y-20);
line(x-60,y-10,x-40,y-10);
line(x-20,y-20,x,y-20);
line(x+20,y-10,x+40,y-10);
line(x+60,y-20,x+80,y-20);
line(x-100,y+20,x-80,y+20);
line(x-60,y+30,x-40,y+30);
line(x-20,y+20,x,y+20);
line(x+20,y+30,x+40,y+30);
line(x+60,y+20,x+80,y+20);
line(x-100,y+60,x-80,y+60);
line(x-60,y+70,x-40,y+70);
line(x-20,y+60,x,y+60);
line(x+20,y+70,x+40,y+70);
line(x+60,y+60,x+80,y+60);
}
void komp(int x, int y)
{
int i;
///////////////monitor////////////////
i=8;
setcolor(i);
rectangle(x-120, y-100, x+120, y+100);
setfillstyle(SOLID_FILL,i);
floodfill(x-115,y-95,i);
i=0;
setcolor(i);
rectangle(x-110, y-90, x+110, y+90);
setfillstyle(SOLID_FILL,i);
floodfill(x,y,i);
i=0;
setcolor(i);
line(x-120, y-100, x-110, y-110);
line(x+120, y+100, x+130, y+90);
line(x+120, y-100, x+130, y-110);
line(x-110, y-110, x+130, y-110);
line(x+130, y-110, x+130, y+90);
line(x+20, y+110, x+20, y+100);
line(x-20, y+110, x-20, y+100);
rectangle(x+60, y+110, x-60, y+120);
line(x+60, y+110, x+70, y+100);