-   
- 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 
-   
-