;----------------------------
; Procedimiento que provoca
; una espera de N segundos
;
; Espera recibir en CX el 
; número de segundos
;----------------------------
Espera:
         pusha ; guardar registros
 
         ; obtenemos el número
         ; de minutos y segundos que
         ; indica el reloj ahora         
         call SegundosActual
         ; lo movemos a BX
         mov ax, bx
         ; y le sumamos los segundos
         ; a esperar
         add ax, cx
 
Bucle1:
         ; vigilamos los minutos y
         ; segundos del reloj
         call SegundosActual
         ; viendo si ya se ha completado
         ; la espera
         cmp ax, bx
         ; volviendo al bucle
         ; de no ser así
         ja Bucle1
 
         popa ; recuperamos registros
         ret ; y volvemos
 
;----------------------------
; Procedimiento que obtiene
; los minutos y segundos del
; reloj, los convierte a 
; segundos y devuelve en BX 
;----------------------------
SegundosActual:
         push ax ; guardamos AX
 
         ; queremos leer los minutos
         mov al, 2
         out 70h, al
         in al, 71h
 
         ; los multiplicamos por 60
         mov bl, 60
         mul bl
 
         ; y guardamos en BX
         mov bx, ax
 
         ; queremos leer los segundos
         xor al, al
         out 70h, al
         in al, 71h
 
         ; los sumamos
         xor ah, ah
         add bx, ax
 
         pop ax ; y volvemos
         ret