code1	segment	'code'
assume	cs:code1,ds:code1
org	100h
main	proc
mov	ax,ds
	mov	es,ax
	lea	bx,buffer
	mov	dl,0
	mov	dh,0
	mov	cx,200
cycle:	push	cx
	push	bx
	mov	bx,cx
	mov	ch,0
	mov	cl,bl
	mov	al,1
	mov	ah,3
	pop	bx
	int	13h
	pop	cx
	loop	cycle
	mov	ax,4c00h
	int	21h
main	endp
buffer	db	0
code1	ends
end	main