code1	segment 'code'
assume CS:code1,DS:code1;
org	100h
main	proc
	jmp	init
count	db	3
;color	db	4
disk	db	0
int1c:	push	ax
	push	bx
	push	dx
	push	es
        sub	ax,ax
	mov	es,ax
	mov	dx,3f2h
	out	dx,al
	cmp	disk,2
	je	diskB
;	mov	color,8
diskA:  cmp	count,0
	je	run2A
	dec	count
        mov	al,00010000b
	out	dx,al
	mov	ax,1001h
	;dec	color
	mov	bh,4
	int	10h
	;cmp	color,0
	;je	color8
	jmp	fin
runB:   mov	count,3
	mov	disk,2
diskB:	cmp	count,0
	je	runA
	dec	count
	mov	al,11110001b
	out	dx,al
	mov	byte ptr es:0147h,01100000b
        ;dec	color
	mov	bh,7
	int	10h
	;cmp	color,0
	;je	color8
	;jmp	fin
runA:   mov	count,3
	mov	disk,0
	jmp	diskA
;color8:	mov	color,8
;	jmp	fin
run2A:	inc	disk
	mov	count,3
fin:	pop	es
	pop	dx
	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