TBAL:		MOV CX, [DI]
		JCXZ TBAL0
		XOR DX, DX
		XOR BH, BH
		INC DI
		INC DI
TBAL2:		INC DX
		MOV BL, [DI]
		ADD DI, BX
		INC DI
		CMP [DI], AX
		JZ TBAL1
		INC DI
		INC DI
		LOOP TBAL2
TBAL0:		STC
		RET
TBAL1:		SUB DI, BX
		DEC DI
		CLC
		RET
