ходы по странице видео-памяти

[Sparky]

Добрый вечер! Пробую писать змейку, реализовала перемещение точки по экрану, но как только добавила процедуру clear для того чтобы очищать экран от прерыдущего шага и начались глюки вот код:

.model tiny
.code
org 100h
main:
;======================================================================================
;	инициализация окна
;======================================================================================
	mov ah,05h	;переключение страницы видео памяти с 0 на 1
	mov al,1
	int 10h
	
	mov ah,06h	;функция инициализации окна
	mov al,0	;окно без прокрутки
	mov bh,31h	;бирюзовый фон, синие симоволы
	mov ch,0	;y левый верхний
	mov cl,0	;x левый верхний
	mov dh,10 	;y правый нижний
	mov dl,60	;y правый нижний
	int 10h
	
;======================================================================================
;	первичная настройка курсора
;======================================================================================
	push es
    	mov ax, 0B900h
     	mov es, ax
	push cs
	pop ds
	
	mov ah,02h	;функцифя позиционирования курсора
	mov bh,1	;страница 1
	mov dl,x	;сторка
	mov dh,y	;столбец
	int 10h 
	
	
	mov ah,0ah	;инициализация змейки
	mov bh,1	;страница 1
	mov al,04h	;аскикод
	
	mov cx,1	;количество повторений
	int 10h
	
;======================================================================================
;	основной цикл
;======================================================================================
main_loop:
;======================================================================================
;	слежение за назатой клавишей
;======================================================================================
	xor ah,ah
	mov ah,08h	;считатьсимвол без эха
	int 21h
	
	test al,al
	jz key_cheak	;проверка нажатия стелок
	
	cmp al,1bh	;проверка нажатия esc
	je key_esc
	jmp main_loop

key_cheak:		
	int 21h
	cmp al,48h
	je key_up
	cmp al,50h
	je key_down
	cmp al,4bh
	je key_left
	cmp al,4dh
	je key_right
	
	jmp  main_loop
	
;======================================================================================
;	обработка нажатой клавиши
;======================================================================================
key_esc:
	ret
	
key_up:
	jmp clear	
	mov ah,02h	;функцифя позиционирования курсора
	mov bh,1	;страница 1
	mov dl,x	;сторка
	dec y
	mov dh,y	;столбец
	int 10h 
	
	
	mov ah,0ah	;инициализация змейки
	mov bh,1	;страница 1
	mov al,04h	;аскикод
	
	mov cx,1	;количество повторений
	int 10h
	jmp main_loop
	
key_down:
	call clear
	mov ah,02h	;функцифя позиционирования курсора
	mov bh,1	;страница 1
	mov dl,x	;сторка
	inc y
	mov dh,y	;столбец
	int 10h 
	
	
	mov ah,0ah	;инициализация змейки
	mov bh,1	;страница 1
	mov al,04h	;аскикод
	
	mov cx,1	;количество повторений
	int 10h
	jmp main_loop	

key_left:
	call clear
	mov ah,02h	;функцифя позиционирования курсора
	mov bh,1	;страница 1
	mov dh,y	;сторка
	dec x
	mov dl,x	;столбец
	int 10h 
	
	
	mov ah,0ah	;инициализация змейки
	mov bh,1	;страница 1
	mov al,04h	;аскикод
	
	mov cx,1	;количество повторений
	int 10h
	jmp main_loop


key_right:
	call clear
	mov ah,02h	;функцифя позиционирования курсора
	mov bh,1	;страница 1
	mov dh,y	;сторка
	inc x
	mov dl,x	;столбец
	int 10h 
	
	
	mov ah,0ah	;инициализация змейки
	mov bh,1	;страница 1
	mov al,04h	;аскикод
	
	mov cx,1	;количество повторений
	int 10h
	jmp main_loop

;======================================================================================
;	вспомогательные процедуры
;======================================================================================
clear proc near
	mov ah,02h	;функцифя позиционирования курсора
	mov bh,1	;страница 1
	mov dh,y	;сторка
	mov dl,x	;столбец
	int 10h 
	
	
	mov ah,0ah	;инициализация змейки
	mov bh,1	;страница 1
	mov al,00h	;аскикод
	
	mov cx,1	;количество повторений
	int 10h
endp clear
	
;======================================================================================
;	описание данных
;======================================================================================
	x db 2
	y db 2
     	     	
end main

[Ulex]

1. Забыли возврат из процедуры

clear proc near
	mov ah,02h	;функцифя позиционирования курсора
	mov bh,1	;страница 1
	mov dh,y	;сторка
	mov dl,x	;столбец
	int 10h 
	
	
	mov ah,0ah	;инициализация змейки
	mov bh,1	;страница 1
	mov al,00h	;аскикод
	
	mov cx,1	;количество повторений
	int 10h
	ret
endp clear

2. Раз уж это процедура, то лучше вызывать её ч.з. call, а не ч.з. jmp

key_up:
	call clear

[Sparky]

спасибо, реально ret забыла, а вызываю как раз через call =)