Бегущая точка, графика в тасме Опции

[Гость_Андрей]

Привет спецам...
Вот пытаюсь разобраться с этим "зверем" - Assemblerом.
Нужно написать лабораторную по графике - бегущая по горизонтали точка.
Вот чегой то накарякал, точка пробегает справа на лево 1 раз, только очень быстро, глазу не заметно...
А как вставить в Assemblerе регулируемую паузу? Есть ли какая ф-ция для етого?
А может это все можно написать по другому, более толково?
Буду рад любой помощи и советам.

	.model	tiny
	.code
	org 100h
start:
	mov	ax, 0013h
	int	10h
	mov	cx, 319
	mov	dx, 100;рисую точку в 100 строке
ekran:
	int 10h
	mov	al, 00110011b;зеленая точка
	mov	ah, 0Ch
	int	10h	
	dec	cx	
	inc	cx
	inc	cx
	mov	al, 000b   ; черным затушевываю хвост линии
	mov	ah, 0Ch
	int	10h	
	dec	cx
	dec	cx
	int 10h
	jns	ekran
	ret
	end	start

Заранее благодарен.

[BlackShadow]

1). Метку ekran надо сместить на строку ниже.
2).

DEC CX
INC CX
INC CX

Вполне модно заменить на один INC CX.
3).
Подытожим:

.model tiny
.code
org 100h
start:
mov ax, 0013h         ;режим
int 10h                     ;установим
mov cx, 319             ;справа налево... по-еврейски как-то
mov dx, 100             ;строка

ekran:
mov ax,0C00h          ;чёрным закрасим предыдущую точку (неважно, что её
                               ;может и не было
int 10h                     ;зарисуем
dec cx                     ;переходим к следующей точке
mov ax,0C33h          ;зелёным
int 10h                     ;рисуем
inc cx                       ;вернёмся к предыдущей
mov ah,1                  ;проверка на нажатие кловиши
int 16h                     ;нажата/ненажата возвращает в ZF
jz done                    ;тут возможно jnz - не помню
loop ekran               ;само изменит CX
mov cx,319              ;заново!
jmp ekran
done:
xor ah,ah                 ;очистка буфера клавы
int 16h
ret
end start

Вот... А паузу можно всунуть по-разному... Можно хоть int 8h перехватывать, а можно просто - через int 21h получать время и работать с миллисекундами.