cr equ 13
lf equ 10

segment stack stack
	resb	64
stacktop:

segment data
T1	db	'a'
S1	db	cr,lf,"$"

segment code

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

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

End:
	mov	ax,4c00h
	int	21h

Newline:
	mov	dx,S1
	mov	ax,09h
	int	21h
	ret