Лабораторная работа 1

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

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

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

Отчет

Бишкек 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 cx,10

Mov dx,10

Mov bx,0

Mov al,2

Int 10h

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

local M1

mov dx,y

mov cx,x

M1:add cx,1

int 10h

cmp cx,l

jne M1

endm

leftdiag macro x,y,l ;Левая диагональ

local M2

mov al,5

mov dx,y

mov cx,x

M2:add dx,1

sub cx,1

int 10h

cmp dx,l

jne M2

endm

rightdiag macro x,y,l ;Правая диагональ

local M2

mov al,5

mov dx,y

mov cx,x

M2:add dx,1

add cx,1

int 10h

cmp dx,l

jne M2

endm

leftdiag 150,10,70

rightdiag 150,10,70

leftdiag 210,70,130

rightdiag 90,70,130

Mov ah,10h

Int 16h

Mov ah,4ch

Int 21h

code ends

end Start

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