extrn   voir:far
extrn   stopvoir:far
extrn   crlf:far
prog    segment 'code'
        assume  cs:prog,ds:prog
deb:    mov     ax,cs     
        mov     ds,ax
;------------------------------------------------------------------------

debut :	    	mov 	ah,6
		mov	dl,0ffh
		int 	21h
		je	debut
		cmp	al,1bh
		je	fin
		mov	dl,al
		mov	ah,2
		int	21h
		jmp	debut
fin :
;------------------------------------------------------------------------
        mov     ah,4ch
        int     21h
prog    ends
        end