STCP:		PUSH CX
		PUSH SI
		PUSH DI
		MOV AX, SI
		XOR CH, CH
		MOV CL, [SI]
		INC CX
		CLD
	REPZ	CMPSB
		POP DI
		POP SI
		POP CX
		JNZ STCP1
		NEG AX
		ADD AX, SI
		DEC AX
		CLC
		RET
STCP1:		XOR AX, AX
		STC
		RET
