.model	small
.stack	100h
.code
main:	cli
	push	cs
	pop	ds
	sti
	mov	dx,37ah
	mov	al,0d1h
	out	dx,al
	jmp	$+2
	mov	al,11h
	out	20h,al
	jmp	$+2
	mov	al,8
	out	21h,al
	jmp	$+2
	mov	al,4
	out	21h,al
	jmp	$+2
	mov	al,1
	out	21h,al
	jmp	$+2
	mov	al,11h
	out	0a0h,al
	jmp	$+2
	mov	al,70h
	out	0a1h,al
	jmp	$+2
	mov	al,2
	out	0a1h,al
	jmp	$+2
	mov	al,1
	out	0a1h,al
	jmp	$+2

	mov	dx,OFFSET int0f
	mov	ax,250fh
	int	21h
	mov	ax,3100h
	mov	dx,400h
	int	21h

int0f:	
       	mov	al, 0feh
	out	64h, al
	jmp	$+2
	iret
end	main
