rebotes proc
push ax
push dx
mov ax,0A000h
mov es,ax
mov ax,158
mov dx,98
rebota: ; al final tendr‚ q acer popdx popax cuando salga de la funcion
jmp comprueba
jmp incrementapunto
sigue:
bola ax,dx
push cx
push bx ;nose xq ago esto pero ace q funcione
mov cx,50; 1 s
mov bx,596;--> esta instruccion lo casca to; 1/200 s
Bucle_1_segundo:
call Retardo
loop Bucle_1_segundo
pop bx ;es necesareo para q funcione
pop cx
borrar_bola ax,dx
jmp rebota
comprueba:
cmp ax,319
jz rebotaX
cmp ax,1
jz rebotaX
compruebay:
cmp dx,167
jz rebotaY
cmp dx,1
jz rebotaY
incrementapunto:
add ax,incrementox
add dx,incrementoy
jmp sigue
rebotaX:
neg incrementox
jmp compruebay
rebotaY:
neg incrementoy
jmp incrementapunto
rebotes endp