code1	segment 'code'
assume CS:code1,DS:code1;
org	100h
main	proc
	jmp	init
disk	db	0
int1c:	push	ax
	push	bx
	cmp	disk,1
	je	diskB
diskA:	mov	ax,1001h
	mov	bh,4
	int	10h
	mov	disk,1
	jmp	fin
diskB:	mov	ax,1001h
	mov	bh,0
	int	10h
	mov	disk,0
fin:	pop	bx
	pop	ax
	iret
main	endp
init	proc
	mov	ax,251ch
	mov	dx,offset int1c
	int	21h
	mov	dx,(init-main+10fh)/16
	mov	ax,3100h
	int	21h
init	endp
ends	code1
end	main