Initial commit

SOURCES/BALANCE.ASM

@@ -0,0 +1,72 @@
+
+		.386p
+		jumps
+
+		.model SMALL, SYSCALL
+
+		.data
+
+		extrn	NoLanguage P_SinTab:WORD
+
+		.code
+
+		public	NoLanguage	Balance
+		public	NoLanguage	BalanceWord
+
+
+Balance		PROC uses ebx,\
+		bal:DWORD, vol:DWORD, volleft:DWORD, volright:DWORD
+
+		mov	eax, bal
+		shl	eax, 1
+		mov	edx, vol
+
+		xor	ecx, ecx
+		mov	cx, word ptr[P_SinTab + eax]
+		imul	ecx, edx
+		shr	ecx, 14
+
+		mov	ebx, volright
+		mov	dword ptr[ebx], ecx
+
+		xor	ecx, ecx
+		mov	cx, word ptr[P_SinTab + 512 + eax]
+		imul	ecx, edx
+		shr	ecx, 14
+
+		mov	ebx, volleft
+		mov	dword ptr[ebx], ecx
+
+		ret
+
+Balance		ENDP
+
+
+BalanceWord	PROC uses ebx,\
+		bal:DWORD, vol:DWORD, volleft:DWORD, volright:DWORD
+
+		mov	eax, bal
+		shl	eax, 1
+		mov	edx, vol
+
+		xor	ecx, ecx
+		mov	cx, word ptr[P_SinTab + eax]
+		imul	ecx, edx
+		shr	ecx, 14
+
+		mov	ebx, volright
+		mov	word ptr[ebx], cx
+
+		xor	ecx, ecx
+		mov	cx, word ptr[P_SinTab + 512 + eax]
+		imul	ecx, edx
+		shr	ecx, 14
+
+		mov	ebx, volleft
+		mov	word ptr[ebx], cx
+
+		ret
+
+BalanceWord	ENDP
+
+		END