Построение и управление квадратиками Опции

[18192123]

Имеется набор из 9-ти квадратиков. Выбор активного из них осуществляется нажатием соответствующей цифровой клавиши. Активный квадратик можно передвигать по полю, используя курсорные клавиши, а по нажатию "пробела" - менять его цвет. Написать программу построение различных фигур, испльзуя такой принцип управления.

Пока останавилась на построении набора квадратиков..Вот что получилось:

text	segment 'code' ; (1)  начало сегмента команд
              assume CS:text,DS:data; (2)
vertical	proc; (3)  объявление процедуры построения вертикальной линии
v:	; (4)    
	push	CX; (5)   сохраним в стек счетчик цикла
	mov	AH,0Ch; (6)  функция вывода пикселя
	mov	AL,6; (7)  установка цвета
	mov	BH,0; (8)  видеостраница
	mov	CX,SI; (9)  установка X-координаты
	int	10h; (10)  вызов BIOS
	inc	DX; (11)  счетчик Y-координаты 
	pop	CX; (12)  выгрузим из стека счетчик цикла
	loop	v; (13)  уменьшим его на единицу
ret; (14)  выход из подпрограммы
vertical	endp; (15)  конец текста подпрограммы
horizontal	proc; (16)  объявление процедуры построения горизонтальной линии
h:	; (17)
	push	CX; (18)  сохраним в стек счетчик цикла
	mov	AH,0Ch; (19)  функция вывода пикселя
	mov	AL,6; (20) установка цвета
	mov	BH,0; (21)  видеостраница
	mov	CX,SI; (22)  установка X-координаты
	int	10h; (23)  вызов BIOS
	inc	SI; (24)  счетчик Х-координаты
	pop	CX; (25)   выгрузим из стека счетчик цикла
	loop	h; (26)  уменьшим его на единицу
ret; (27)  выход из подпрограммы
horizontal	endp; (28)   конец текста подпрограммы

begin:	;(29)  начало основной программы
  mov	AX,00h; (30)  функция задания режима
	mov	AL,10h; (31)  графический режим EGA
	int	10h; (32)   вызов BIOS
mov cx,3
rect:	push cx
	mov	SI,100; (33)  Х-координата
	add si,i
	mov	DX,100; (34)  Y-координата
	add dx,i
	mov	CX,20; (35)  длина стороны
	call	vertical; (36)  вызов подпрограммы
	mov	SI,100; (37)  Х-координата
	add si,i
	mov	DX,100; (38) Y-координата
	add dx,i
	mov	CX,20; (39)  длина стороны
	call	horizontal; (40)  вызов подпрограммы
	
	mov	SI,120; (33)  Х-координата
	add si,i
	mov	DX,100; (34)  Y-координата
	add dx,i
	mov	CX,20; (35)  длина стороны
	call	vertical; (36)  вызов подпрограммы
	
	mov	SI,100; (37)  Х-координата
	add si,i
	mov	DX,120; (38) Y-координата
	add dx,i
	mov	CX,21; (39)  длина стороны
	call	horizontal; (40)  вызов подпрограммы
add i,22
pop cx
loop rect	
	
	mov AH,08h
	int 21h
	
	mov AH,00h
	mov AL,03h
	int 10h
	
	mov	AX,4C00h; (41)  завершение программы
	int	21h; (42)
text	ends; (43)   конец сегмента команд

data segment
i dw 0
data ends

stk segment stack
	dw 128 dup (0)
stk ends

end  	begin; (44)  конец текста программы

Хотела получить рядом расположенные квадратики..но как я предполагаю содержимое регистра СХ сбивается..
Как исправить - не пойму..

Сообщение отредактировано: 18192123 - 15.04.2008 17:19

[18192123]

И снова здраствуйте)

Я добавила переменные box3,..,box9. Осуществила их вывод. По нажатию соответствующей цифровой клавиши 1-й, 2-й или i-й квадрат должен свигаться со своей позиции и изменять положение...Вот только у меня всегда сдвигается 1-й квадрат..Объясните пожалуста, в чём дело?

BOX_SIZE	equ 15		;длина стороны квадрата
SCR_WIDTH	equ 320		;ширина экрана

locals

.model small

.stack 2048

.data

;----- структура-квадрат (описание типа) -----
x		equ word ptr [0]
y		equ word ptr [2]
color	equ byte ptr [4]

;----- список квадратов (переменные) -----
box1	dw 0
		dw 10
		db 1

box2	dw 20
		dw 10
		db 2
box3	dw 40
		dw 10
		db 2
box4	dw 60
		dw 10
		db 2
box5	dw 80
		dw 10
		db 2
box6	dw 100
		dw 10
		db 2

box7	dw 120
		dw 10
		db 2

box8	dw 140
		dw 10
		db 2

box9	dw 160
		dw 10
		db 2

.code

;----- вывод квадрата с заданными координатами и цветом -----
draw_box:
;вичисление смещения в видеобуфере по заданным координатам x и y
;bx = y * SCR_WIDTH + x
	mov ax,SCR_WIDTH
	mul [si].y
	add ax,[si].x
	mov bx,ax
	mov al,[si].color
;вывод верхней стороны
	mov cx,BOX_SIZE-1
@@1:
	xor es:[bx],al
	inc bx
	loop @@1
;вывод правой стороны
	mov cx,BOX_SIZE-1
@@2:
	xor es:[bx],al
	add bx,SCR_WIDTH
	loop @@2
;вывод нижней стороны
	mov cx,BOX_SIZE-1
@@3:
	xor es:[bx],al
	dec bx
	loop @@3
;вывод правой стороны
	mov cx,BOX_SIZE-1
@@4:
	xor es:[bx],al
	sub bx,SCR_WIDTH
	loop @@4
	ret

;----- основная программа -----
entry:
;инициализация ds
	mov ax,@data
	mov ds,ax

;запомнить в стеке номер текущего видеорежима
	mov ah,0Fh
	int 10h
	push ax
;установка видеорежима 320x200x256
	mov ax,13h
	int 10h

;es:0 -> видеобуфер
	mov ax,0A000h
	mov es,ax

;выбрать первый квадрат
	lea si,box1
;вывести его
	call draw_box

	lea si,box2
	call draw_box
	lea si,box3
	call draw_box
	lea si,box4
	call draw_box
	lea si,box5
	call draw_box
	lea si,box6
	call draw_box
	lea si,box7
	call draw_box
	lea si,box8
	call draw_box
	lea si,box9
	call draw_box
	
	cmp AL,31h
	je one
	cmp AL,32h
	je two
	cmp AL,33h
	je three
	cmp AL,34h
	je four
	cmp AL,35h
	je five
	cmp AL,36h
	je six
	cmp AL,37h
	je seven
	cmp AL,38h
	je eigth
	cmp AL,39h
	je nine

one: lea si,box1
	jmp redraw
two: lea si,box2
	jmp redraw
three: lea si,box3
	jmp redraw
four: lea si,box4
	jmp redraw
five: lea si,box5
	jmp redraw
six: lea si,box6
	jmp redraw
seven: lea si,box7
	jmp redraw
eigth: lea si,box8
	jmp redraw
nine: lea si,box9

redraw:
;вывести текущий квадрат
	;call draw_box

;ожидать нажатия клавиши
	xor ax,ax
	int 16h
;выход по ESC
	cmp al,27
	je exit

;стереть текущий квадрат
	call draw_box

;вычислить новые координаты текущего
	add [si].x,2
	inc [si].y

	jmp redraw

exit:
;восстановить видеорежим
	pop ax
	xor ah,ah
	int 10h

;выход
	mov ax,4C00h
	int 21h

end entry