$INCLUDE(8096.INC)
CSEG AT 2300H
START:	LD 18H,#00E0H
	DI
	LCALL DELAY
	LDB HSI_MODE,#03H
	LDB IOC0,#01H
	LDB 30H,#39H
        LDB 1CH,#06H
LOOP1:	STB R0,[30H]+
	DJNZ 1CH,LOOP1
	LCALL DISP
TEST1:	JBC IOS1,7,TEST1
	JBC HSI_STATUS,1,TEST2
	LD 56H,HSI_TIME
	SJMP TEST3
TEST2:	LD 22H,HSI_TIME
	SJMP TEST1
	LCALL DISP
TEST3:	JBC IOS1,7,TEST3
	LD 58H,HSI_TIME
	SUB 52H,58H,56H
TEST4:	JBC IOS1,7,TEST4
	LD 56H,HSI_TIME
	SUB 50H,56H,58H
	ADD 54H,52H,50H
DIST:	LD 20H,52H
	LCALL CONT
	LDB 60H,#40H
DIST1:	LCALL DISP
	DJNZ 60H,DIST1
CLRHSI: LDB 20H,#10H
CLRHSI1:JBC IOS1,7,CLRHSI1
 	LD 22H,HSI_TIME
	DECB 20H
	JNE CLRHSI1
	LJMP TEST1

CONT:	LD 60H,20H
	LDB 30H,#3BH
	ANDB 20H,#0F0H
	SHRB 20H,#04H
	STB 20H,[30H]+
	LD 20H,60H
	ANDB 20H,#0FH
	STB 20H,[30H]+
	LD 20H,60H
	ANDB 21H,#0F0H
	SHRB 21H,#04H
	STB 21H,[30H]+
	LD 20H,60H
	ANDB 21H,#0FH
	STB 21H,[30H]
	RET
DISP:	LD 30H,#39H
	LDB 1EH,#20H
	LDB 1FH,#00H
DISP1:	LD 1AH,#0FF21H
	STB 1EH,[1AH]
	LDB 1BH,[30H]
	LD 1CH,#DATA0
	ADDB 1CH,1BH
	LDB 1AH,[1CH]
	LD 1CH,#0FF22H
	STB 1AH,[1CH]
DISP2:	DJNZ 1FH,DISP2
	INCB 30H
	SHRB 1EH,#01H
        CMPB 1EH,#00H
	JNE DISP1
	RET
DELAY:	PUSH 1AH
	LD 1AH,#0F000H
DELAY1: DEC 1AH
	JNE DELAY1
	POP 1AH
	RET
DATA0:	DCB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
	DCB 88H,83H,0C6H,0A1H,86H,8EH,0FFH,0CH,89H,0DEH
	END