?C0001:
	SETB 	C
	MOV  	A,count?041+01H
	SUBB 	A,#00H
	MOV  	A,count?041
	SUBB 	A,#00H
	JC   	?C0004
?C0003:
	MOV  	A,count?041+01H
	DEC  	count?041+01H
	JNZ  	?C0001
	DEC  	count?041
?C0005:
	SJMP 	?C0001