$INCLUDE(8096.INC)
CSEG AT 2640H
START:	DI
	LD 18H,#00E0H
	LCALL DELAY
	LD 1AH,#HSOINT
	LD 1EH,#200AH
        LDB IOC1,#00H
	ST 1AH,[1EH]
        LDB 1EH,#00H
	LDB IOPORT2,1EH
	CLRB INT_PENDING
	LDB INT_MASK,#20H
	LDB HSO_COMMAND,#38H
	ADD HSO_TIME,TIMER1,#0FFDCH
	EI
WAITE:	SJMP WAITE
HSOINT: DI
	ORB 1EH,#20H
	LDB IOPORT2,1EH
	LDB 1CH,#05H
LOOP1:	LCALL DELAY
	DJNZ 1CH,LOOP1
	ANDB 1EH,#0DFH
	LDB IOPORT2,1EH
	LDB 1CH,#05H
LOOP2:	LCALL DELAY
	DJNZ 1CH,LOOP2
	LDB HSO_COMMAND,#38H
	ADD HSO_TIME,TIMER1,#0FFDCH
	EI
	RET
DELAY:	PUSH 1AH
	LD 1AH,#0F000H
DELAY1: DEC 1AH
	JNE DELAY1
	POP 1AH
	RET
	END