code1	segment	'code'
assume	cs:code1,ds:code1
org	100h
main	proc
        mov	cx,10
cycle2:	push	cx
	sub	cx,cx
delay2:	loop	delay2
	pop	cx
	loop	cycle2
	mov	ax,0
	mov	es,ax
	mov	byte ptr es:0417h,01110000b
	mov	al,0edh
	out	64h,al
	mov	cx,2000
delay3:	loop	delay3
	mov	al,00000111b
	out	64h,al
	mov	cx,10
cycle:	push	cx
	sub	cx,cx
delay:	loop	delay
	pop	cx
	loop	cycle
	mov	byte ptr es:0417h,0
	mov	ax,4c00h
	int	21h
main	endp
code1	ends
end	main