cr equ 13
lf equ 10

segment stack stack
	resb	64
stacktop:

segment data
S1	db	cr,lf,"$"

segment code

..start:
	mov	ax,data
	mov	ds,ax

	mov	ah,02h
	mov	dl,[T1]
	int	21h

End:
	mov	ax,4c00h
	int	21h