Главная arrow Исходники arrow ASSEMBLER (Ассемблер) arrow Assembler: рисуем прямоугольник
 
 

Assembler: рисуем прямоугольник

Печать E-mail
(14 голосов)
Автор Administrator   
01:08:2008 г.
Задача: Составить программу, выводящую на экран запрос на цвет, рисующую затем прямоугольник (не квадрат) этого цвета произвольного размера.

Листинг программы:


masm
.model small
.model tiny
.code
org 100h
.286
start:
mov ah,9
lea dx,mes1
int 21h
mov ah,0
int 16h
push ax
mov ah,00h
mov al,12h
int 10h
pop ax
mov dx,50
mov cx,50
sub al,30
cicl1:
mov ah, 0ch
int 10h
add cx,1
;add dx,1
cmp cx,200
jnz cicl1
cicl2:
mov ah, 0ch
int 10h
;add cx,1
add dx,1
cmp dx,100
jnz cicl2
cicl3:
mov ah, 0ch
int 10h
dec cx
;add dx,1
cmp cx,50
jnz cicl3
cicl4:
mov ah, 0ch
int 10h
;dec cx
dec dx
cmp dx,50
jnz cicl4
;задержка
mov cx,0f000h
q1:
push cx
MOV CX, 0f000h
HERE: LOOP HERE
pop cx
loop q1
mov ax,0003h
int 10h
ret
mes1 db 'Vvedite cvet ','$'
end start

 
« Assembler: обработка прерываний клавиатуры   Assembler: работа в текстовом режиме »