48769 (608779), страница 2
Текст из файла (страница 2)
mov dx,cx
mov ah,9
int 21h
ret
endp vivstr
priglash proc
mov dx,0b1ch
lea cx,mes1
call vivstr
mov dx,0c21h
mov cx,1
call probeli
lea cx,mes3
call vivstr
mov dx,0d21h
mov cx,1
call probeli
lea cx,mes4
call vivstr
ret
endp priglash
ramka proc
mov cx,0914h; установка атрибутов области
mov dx,0f3ch
mov ax,0600h
mov bh,01fh
int 10h
mov cx,0a15h; изм. атрибутов внутри области
mov dx,0e3bh
mov ax,0600h
mov bh,01bh
int 10h
; вывод рамки
lea ax,r1; загрузка смещения
mov sdvig,ax; в пер. sdvig
mov cx,7; кол-во рядков рамки
next1:
push cx
mov cx,sdvig
mov dh,stroka
mov dl,14h
call vivstr
inc stroka; переход на след. строку
add sdvig,42; переход на адрес след. строки
pop cx
loop next1
mov stroka,9
ret
endp ramka
begin:
mov ax,dseg
mov ds,ax
mov es,ax
opyat:
mov ax,03h ; очистка экрана
int 10h
mov ax,1003h; выкл. бита мерцания
mov bl,0
int 10h
mov cx, 2000h; выкл. курсор
mov ah,01h
int 10h
call ramka; вывод рамки
call priglash; вывод приглашения
mov dx,0b35h; поз. курсора
mov cx,1
call probeli; вывод синего пробела
mov ah,3fh; ввод номера действия
mov bx,0
mov cx,3
lea dx,buf
int 21h
mov al,buf; определение номера действия
cmp al,'1'
je text
jmp kon
text:
call vvodvsego; ввод координат и цвета
call ramka
mov dx,0b1fh
lea cx,mes11
call vivstr ; вывод приглашения о вводе строки
mov dx,0d1fh
mov cx, 20
call probeli; вывод синих пробелов
mov ah,3fh
mov bx,0
mov cx,22
lea dx,buftxt
int 21h; ввод строки символов
dec ax
dec ax
push ax
mov dx,koord+8
mov ax,hor
mul dx
mov hor,ax
mov dx,koord+8
mov ax,ver
mul dx
mov ver,ax
mov ax,13h
int 10h
mov ax,1130h; \
mov bh,byte ptr koord+4; - получение адреса матрицы символов; /
int 10h; /
mov di,0
pop cx
vivodvs: ; цикл вывода символов
push cx; сохранение параметра цикла
mov al,buftxt+di; загрузка символа
push di; сохранение номера символа в; введённом массиве
mov cl,razm; \
mul cl; - получение величины сдвига в массиве матриц
mov si,ax; /
mov ah,0
mov bx,koord
mov x,bx
mov bx,koord+2
mov y,bx
mov cl,razm
glavn: ; цикл вывода линии образа символа
push cx; параметра цикла
mov cx,koord+8
cikl:
push cx
push es; сохранение регистра
mov bx,x; загрузка координаты Х
mov ax,y; загрузка координаты Y
mov dx,320
mul dx
add ax,bx
mov di,ax; загрузка абс. адреса
dec di
mov dx,koord+4; загрузка цвета
mov al,es: [bp+si] ; загрузка байта образа символа
mov cx,0a000h; - загрузка адреса видеобуфера
mov es,cx; /
mov cx,8; загрузка параметра цикла
zdvig:
rol al,1; сдвиг влево на 1 бит
jnc n4; если CF=0, то прыжок
push cx
mov cx,koord+8
n7: ; цикл вывода точки
add bx,1; - определение признака выхода за экран
cmp bx,317; /
ja n8; если есть, то прыжок
inc di; приращение координаты
mov es: [di],dl; вывод точки
loop n7
n8:
pop cx
jmp n6
n4:
add di,koord+8
n6:
loop zdvig
pop es; восстановление сегмента образов символов
pop cx
inc word ptr y; увеличение коорд. Y
loop cikl
inc si; переход на след. байт образа символа
pop cx
loop glavn
pop di; восстановление номера символа в массиве
inc di; переход на след. символ
mov ax,koord
add ax,hor
mov koord,ax
mov ax,koord+2
add ax,ver
mov koord+2,ax
cmp koord,319; определение признака выхода за экран
ja zaderg; если есть, то прыжок
cmp koord+2, 199; определение признака выхода за экран
ja zaderg; если есть, то прыжок
pop cx; восстановление параметра цикла
loop vivodvseh
jmp zaderg
vivodvseh:
jmp vivodvs
zaderg:
mov ah,00
int 16h
mov indeks,0
jmp opyat
kon:
mov ax,4c00h
int 21h
cseg ends
end begin
б). Блок – схема алгоритму.
зі стор. до стор.
28. 28
зі стор. до стор.
28 28
зі стор. до стор.
28 28
до стор. 27
з
і стор.26
ні
так
до стор.
28
ні
так
зі стор. зі стор.
27 26
до стор.
26
зі стор.
26
до стор.
26
зі стор.
26
так
так
до стор. 26
так
ні
ні
так
з
і стор. до стор. 32
31
до стор. 33
зі стор.
32
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
