TKAP:		PUSH CX
		MOV CL, [DI]
		XOR CH, CH
		PUSH DI
		INC DI
		CLD
		JCXZ TKAP0
		PUSH AX
		XOR AH, AH
TKAP1:		MOV AL, [DI]
		ADD DI, AX
		INC DI
		LOOP TKAP1
		POP AX
TKAP0:		MOV CL, [SI]
		INC CX
	REPZ	MOVSB
		POP DI
		INC BYTE PTR [DI]
		POP CX
		RET
