extrn   voir:far
extrn   stopvoir:far
extrn   crlf:far
prog    segment 'code'
        assume  cs:prog,ds:prog
deb:    mov     ax,cs     
        mov     ds,ax
;-----------------------------------------
	call crlf
	call crlf
	call crlf
;------------------------lecture clavier--------------------------
	mov 	bl,0		;init res
Alice:	mov 	ah,8		;lecture clavier
	int 	21h		;al <-- ascii
	cmp 	al,0dh		;est-ce la fin ?
	je  	fini		;fin du prog
	
;-------------------------Analise du signe-----------------------------
	cmp	al,2dh
	je	Laura
	mov 	signe,0
	jmp	suite
Laura:	mov	signe,1
	mov	ah,2
	mov	dl,al
	int	21h

Lucie:	mov	ah,8
	int	21h
	cmp	al,0dh
	je	fini

suite:	cmp	al,30h
	jl	Lucie
	cmp	al,39h
	jg	Lucie
	mov 	dl,al
	mov	ah,2
	int	21h

	and	ax,000fh
	shl	bx,1
	mov	cx,bx
	shl	bx,1
	shl	bx,1
	add 	bx,cx
	add	bx,ax
	jmp	Lucie	
	
	
fini:	mov	ax,bx
	call	stopvoir
	call	crlf
	
	mov ah,4ch
        int 21h
prog    ends
        end