Лабораторная работа 1 (2)

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ КЫРГЫЗСКОЙ РЕСПУБЛИКИ

КЫРГЫЗСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ ИМ. И. РАЗЗАКОВА

Отчет

Бишкек 2020

Мой вариант: 7. Ромб с горизонтальной диагональю.

Код:

Stack1 segment

Db 256 dup(?)

Stack1 ends

Data segment

Data ends

code segment

Start: Assume ss:stack1, cs:code, ds:data

Mov ax,data

Mov ds,ax

Mov ah,00h ; установка видеорежима

Mov al,13h ; № режима

Int 10h ; BIOS

Mov ah,0ch

Mov al,0

xcoord macro x,y,l ;Горизонтальная

local M1

mov al,5

mov dx,y

mov cx,x

M1:add cx,1

int 10h

cmp cx,l

jne M1

endm

ycoord macro x,y,l ;Вертикальная

local M2

mov al,5

mov dx,y

mov cx,x

M2:add dx,1

int 10h

cmp dx,l

jne M2

endm

diagline macro x,y,l ;Горизонтальная

local M2

mov al,5

mov dx,y

mov cx,x

M2:sub cx,1

add dx,1

int 10h

cmp dx,l

jne M2

endm

diagline 100,50,100 ;Координаты для горизонтального ромба

diagline 200,50,100 ;Диаголналь

xcoord 100,50,200 ;Горизонтальная верхняя линия

xcoord 50,100,150 ;Горизонтальная нижняя линия

Mov ah,10h ;Вывод

Int 16h

Mov ah,4ch

Int 21h

code ends

end Start

Фото результата: