Добавить процедуры.

[Porsche]

Доброго времени суток.Имеется программа,в которой нужно добавить процедуры(Ввод и вывод)Программа простая,надеюсь на вашу помощь..

	.MODEL SMALL
	.STACK
	.DATA

instrc	db	'Введите строку:$'
l_instr	=	$-instrc-1
OutStrC	db	13,10,'Вы ввели строку:'
outStr	db	41 dup(?)
	.CODE

Start:	mov	ax,@DATA
	mov	ds,ax

	mov	cx,l_instr	
        mov 	bx,1            
	mov	ah,40h          
	mov	dx,OFFSET instrc	
	int	21h

	mov	bx,OFFSET outstr	
        mov	ah,1h
m1:	int	21h
	cmp	al,13
	je	endloop
	mov	[bx],al
	inc	bx
	jmp	m1

endloop:
	mov	cx,bx
	mov	bx,OFFSET outstrc
	mov	ah,02h
m2:	
	mov	dl,byte ptr [bx]
	cmp	bx,cx
	je	exit
	int	21h
	inc	bx
	jmp	m2
exit:
	mov	ax,4c00h
	int	21h
	END start

[Porsche]

аууууу..кто-нибудь