2629 lines
67 KiB
C
Executable File
2629 lines
67 KiB
C
Executable File
/*
|
|
* "Build Engine & Tools" Copyright (c) 1993-1997 Ken Silverman
|
|
* Ken Silverman's official web site: "http://www.advsys.net/ken"
|
|
* See the included license file "BUILDLIC.TXT" for license info.
|
|
* This file has been modified from Ken Silverman's original release
|
|
*/
|
|
|
|
#ifndef __PRAGMAS_H__
|
|
#define __PRAGMAS_H__
|
|
|
|
#if (defined __WATCOMC__)
|
|
|
|
static long dmval = 0;
|
|
|
|
long is_vmware_running(void);
|
|
#pragma aux is_vmware_running modify exact [eax ebx ecx edx];
|
|
|
|
unsigned long getkensmessagecrc(long param);
|
|
#pragma aux getkensmessagecrc =\
|
|
"xor eax, eax",\
|
|
"mov ecx, 32",\
|
|
"beg: mov edx, dword ptr [ebx+ecx*4-4]",\
|
|
"ror edx, cl",\
|
|
"adc eax, edx",\
|
|
"bswap eax",\
|
|
"loop short beg",\
|
|
parm [ebx]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long msqrtasm(int param);
|
|
#pragma aux msqrtasm =\
|
|
"mov eax, 0x40000000",\
|
|
"mov ebx, 0x20000000",\
|
|
"begit: cmp ecx, eax",\
|
|
"jl skip",\
|
|
"sub ecx, eax",\
|
|
"lea eax, [eax+ebx*4]",\
|
|
"skip: sub eax, ebx",\
|
|
"shr eax, 1",\
|
|
"shr ebx, 2",\
|
|
"jnz begit",\
|
|
"cmp ecx, eax",\
|
|
"sbb eax, -1",\
|
|
"shr eax, 1",\
|
|
parm nomemory [ecx]\
|
|
modify exact [eax ebx ecx]\
|
|
|
|
int sqr(int i1);
|
|
#pragma aux sqr =\
|
|
"imul eax, eax",\
|
|
parm nomemory [eax]\
|
|
modify exact [eax]\
|
|
value [eax]
|
|
|
|
long scale(long i1, long i2, long i3);
|
|
#pragma aux scale =\
|
|
"imul edx",\
|
|
"idiv ecx",\
|
|
parm nomemory [eax][edx][ecx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale(long i1, long i2, long i3);
|
|
#pragma aux mulscale =\
|
|
"imul edx",\
|
|
"shrd eax, edx, cl",\
|
|
parm nomemory [eax][edx][ecx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale1(long i1, long i2);
|
|
#pragma aux mulscale1 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 1",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale2(long i1, long i2);
|
|
#pragma aux mulscale2 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 2",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale3(long i1, long i2);
|
|
#pragma aux mulscale3 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 3",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale4(long i1, long i2);
|
|
#pragma aux mulscale4 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 4",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale5(long i1, long i2);
|
|
#pragma aux mulscale5 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 5",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale6(long i1, long i2);
|
|
#pragma aux mulscale6 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 6",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale7(long i1, long i2);
|
|
#pragma aux mulscale7 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 7",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale8(long i1, long i2);
|
|
#pragma aux mulscale8 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 8",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale9(long i1, long i2);
|
|
#pragma aux mulscale9 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 9",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale10(long i1, long i2);
|
|
#pragma aux mulscale10 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 10",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale11(long i1, long i2);
|
|
#pragma aux mulscale11 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 11",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale12(long i1, long i2);
|
|
#pragma aux mulscale12 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 12",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale13(long i1, long i2);
|
|
#pragma aux mulscale13 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 13",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale14(long i1, long i2);
|
|
#pragma aux mulscale14 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 14",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale15(long i1, long i2);
|
|
#pragma aux mulscale15 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 15",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale16(long i1, long i2);
|
|
#pragma aux mulscale16 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 16",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale17(long i1, long i2);
|
|
#pragma aux mulscale17 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 17",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale18(long i1, long i2);
|
|
#pragma aux mulscale18 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 18",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale19(long i1, long i2);
|
|
#pragma aux mulscale19 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 19",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale20(long i1, long i2);
|
|
#pragma aux mulscale20 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 20",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale21(long i1, long i2);
|
|
#pragma aux mulscale21 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 21",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale22(long i1, long i2);
|
|
#pragma aux mulscale22 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 22",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale23(long i1, long i2);
|
|
#pragma aux mulscale23 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 23",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale24(long i1, long i2);
|
|
#pragma aux mulscale24 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 24",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale25(long i1, long i2);
|
|
#pragma aux mulscale25 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 25",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale26(long i1, long i2);
|
|
#pragma aux mulscale26 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 26",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale27(long i1, long i2);
|
|
#pragma aux mulscale27 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 27",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale28(long i1, long i2);
|
|
#pragma aux mulscale28 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 28",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale29(long i1, long i2);
|
|
#pragma aux mulscale29 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 29",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale30(long i1, long i2);
|
|
#pragma aux mulscale30 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 30",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale31(long i1, long i2);
|
|
#pragma aux mulscale31 =\
|
|
"imul edx",\
|
|
"shrd eax, edx, 31",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
|
|
long mulscale32(long i1, long i2);
|
|
#pragma aux mulscale32 =\
|
|
"imul edx",\
|
|
parm nomemory [eax][edx]\
|
|
modify exact [eax edx]\
|
|
value [edx]\
|
|
|
|
long dmulscale(long i1, long i2, long i3, long i4, long i5);
|
|
#pragma aux dmulscale =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, cl",\
|
|
parm nomemory [eax][edx][esi][edi][ecx]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale1(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale1 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 1",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale2(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale2 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 2",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale3(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale3 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 3",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale4(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale4 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 4",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale5(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale5 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 5",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale6(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale6 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 6",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale7(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale7 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 7",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale8(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale8 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 8",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale9(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale9 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 9",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale10(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale10 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 10",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale11(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale11 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 11",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale12(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale12 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 12",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale13(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale13 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 13",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale14(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale14 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 14",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale15(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale15 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 15",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale16(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale16 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 16",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale17(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale17 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 17",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale18(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale18 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 18",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale19(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale19 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 19",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale20(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale20 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 20",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale21(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale21 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 21",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale22(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale22 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 22",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale23(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale23 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 23",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale24(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale24 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 24",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale25(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale25 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 25",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale26(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale26 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 26",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale27(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale27 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 27",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale28(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale28 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 28",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale29(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale29 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 29",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale30(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale30 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 30",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale31(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale31 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
"shrd eax, edx, 31",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
|
|
long dmulscale32(long i1, long i2, long i3, long i4);
|
|
#pragma aux dmulscale32 =\
|
|
"imul edx",\
|
|
"mov ebx, eax",\
|
|
"mov eax, esi",\
|
|
"mov esi, edx",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, esi",\
|
|
parm nomemory [eax][edx][esi][edi]\
|
|
modify exact [eax ebx edx esi]\
|
|
value [edx]\
|
|
|
|
long tmulscale1(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale1 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 1",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale2(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale2 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 2",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale3(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale3 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 3",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale4(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale4 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 4",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale5(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale5 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 5",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale6(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale6 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 6",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale7(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale7 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 7",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale8(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale8 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 8",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale9(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale9 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 9",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale10(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale10 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 10",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale11(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale11 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 11",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale12(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale12 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 12",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale13(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale13 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 13",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale14(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale14 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 14",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale15(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale15 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 15",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale16(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale16 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 16",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale17(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale17 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 17",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale18(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale18 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 18",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale19(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale19 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 19",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale20(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale20 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 20",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale21(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale21 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 21",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale22(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale22 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 22",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale23(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale23 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 23",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale24(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale24 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 24",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale25(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale25 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 25",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale26(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale26 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 26",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale27(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale27 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 27",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale28(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale28 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 28",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale29(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale29 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 29",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale30(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale30 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 30",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale31(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale31 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
"shrd eax, edx, 31",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
long tmulscale32(long i1, long i2, long i3, long i4, long i5, long i6);
|
|
#pragma aux tmulscale32 =\
|
|
"imul edx",\
|
|
"xchg eax, ebx",\
|
|
"xchg edx, ecx",\
|
|
"imul edx",\
|
|
"add ebx, eax",\
|
|
"adc ecx, edx",\
|
|
"mov eax, esi",\
|
|
"imul edi",\
|
|
"add eax, ebx",\
|
|
"adc edx, ecx",\
|
|
parm nomemory [eax][edx][ebx][ecx][esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
value [edx]\
|
|
|
|
long boundmulscale(long i1, long i2, long i3);
|
|
#pragma aux boundmulscale =\
|
|
"imul ebx",\
|
|
"mov ebx, edx",\
|
|
"shrd eax, edx, cl",\
|
|
"sar edx, cl",\
|
|
"xor edx, eax",\
|
|
"js checkit",\
|
|
"xor edx, eax",\
|
|
"jz skipboundit",\
|
|
"cmp edx, 0xffffffff",\
|
|
"je skipboundit",\
|
|
"checkit:",\
|
|
"mov eax, ebx",\
|
|
"sar eax, 31",\
|
|
"xor eax, 0x7fffffff",\
|
|
"skipboundit:",\
|
|
parm nomemory [eax][ebx][ecx]\
|
|
modify exact [eax ebx edx]\
|
|
|
|
long divscale(long i1, long i2, long i3);
|
|
#pragma aux divscale =\
|
|
"mov edx, eax",\
|
|
"shl eax, cl",\
|
|
"neg cl",\
|
|
"sar edx, cl",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx][ecx]\
|
|
modify exact [eax ecx edx]\
|
|
|
|
long divscale1(long i1, long i2);
|
|
#pragma aux divscale1 =\
|
|
"add eax, eax",\
|
|
"sbb edx, edx",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale2(long i1, long i2);
|
|
#pragma aux divscale2 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 30",\
|
|
"lea eax, [eax*4]",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale3(long i1, long i2);
|
|
#pragma aux divscale3 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 29",\
|
|
"lea eax, [eax*8]",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale4(long i1, long i2);
|
|
#pragma aux divscale4 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 28",\
|
|
"shl eax, 4",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale5(long i1, long i2);
|
|
#pragma aux divscale5 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 27",\
|
|
"shl eax, 5",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale6(long i1, long i2);
|
|
#pragma aux divscale6 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 26",\
|
|
"shl eax, 6",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale7(long i1, long i2);
|
|
#pragma aux divscale7 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 25",\
|
|
"shl eax, 7",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale8(long i1, long i2);
|
|
#pragma aux divscale8 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 24",\
|
|
"shl eax, 8",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale9(long i1, long i2);
|
|
#pragma aux divscale9 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 23",\
|
|
"shl eax, 9",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale10(long i1, long i2);
|
|
#pragma aux divscale10 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 22",\
|
|
"shl eax, 10",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale11(long i1, long i2);
|
|
#pragma aux divscale11 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 21",\
|
|
"shl eax, 11",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale12(long i1, long i2);
|
|
#pragma aux divscale12 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 20",\
|
|
"shl eax, 12",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale13(long i1, long i2);
|
|
#pragma aux divscale13 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 19",\
|
|
"shl eax, 13",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale14(long i1, long i2);
|
|
#pragma aux divscale14 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 18",\
|
|
"shl eax, 14",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale15(long i1, long i2);
|
|
#pragma aux divscale15 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 17",\
|
|
"shl eax, 15",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale16(long i1, long i2);
|
|
#pragma aux divscale16 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 16",\
|
|
"shl eax, 16",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale17(long i1, long i2);
|
|
#pragma aux divscale17 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 15",\
|
|
"shl eax, 17",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale18(long i1, long i2);
|
|
#pragma aux divscale18 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 14",\
|
|
"shl eax, 18",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale19(long i1, long i2);
|
|
#pragma aux divscale19 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 13",\
|
|
"shl eax, 19",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale20(long i1, long i2);
|
|
#pragma aux divscale20 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 12",\
|
|
"shl eax, 20",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale21(long i1, long i2);
|
|
#pragma aux divscale21 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 11",\
|
|
"shl eax, 21",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale22(long i1, long i2);
|
|
#pragma aux divscale22 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 10",\
|
|
"shl eax, 22",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale23(long i1, long i2);
|
|
#pragma aux divscale23 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 9",\
|
|
"shl eax, 23",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale24(long i1, long i2);
|
|
#pragma aux divscale24 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 8",\
|
|
"shl eax, 24",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale25(long i1, long i2);
|
|
#pragma aux divscale25 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 7",\
|
|
"shl eax, 25",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale26(long i1, long i2);
|
|
#pragma aux divscale26 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 6",\
|
|
"shl eax, 26",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale27(long i1, long i2);
|
|
#pragma aux divscale27 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 5",\
|
|
"shl eax, 27",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale28(long i1, long i2);
|
|
#pragma aux divscale28 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 4",\
|
|
"shl eax, 28",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale29(long i1, long i2);
|
|
#pragma aux divscale29 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 3",\
|
|
"shl eax, 29",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale30(long i1, long i2);
|
|
#pragma aux divscale30 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 2",\
|
|
"shl eax, 30",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale31(long i1, long i2);
|
|
#pragma aux divscale31 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 1",\
|
|
"shl eax, 31",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale32(long i1, long i2);
|
|
#pragma aux divscale32 =\
|
|
"xor eax, eax",\
|
|
"idiv ebx",\
|
|
parm nomemory [edx][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
/* !!! move these into ves.h? --ryan. */
|
|
#ifdef PLATFORM_DOS
|
|
|
|
void int5(void);
|
|
#pragma aux int5 =\
|
|
"int 0x5",\
|
|
|
|
int setupmouse(void);
|
|
#pragma aux setupmouse =\
|
|
"mov ax, 0",\
|
|
"int 33h",\
|
|
"and eax, 0x0000ffff",\
|
|
modify exact [eax]\
|
|
|
|
void readmousexy(short *x, short *y);
|
|
#pragma aux readmousexy =\
|
|
"mov ax, 11d",\
|
|
"int 33h",\
|
|
"mov [esi], cx",\
|
|
"mov [edi], dx",\
|
|
parm [esi][edi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
void readmousebstatus(short *buttons);
|
|
#pragma aux readmousebstatus =\
|
|
"mov ax, 5d",\
|
|
"int 33h",\
|
|
"mov [esi], ax",\
|
|
parm [esi]\
|
|
modify exact [eax ebx ecx edx]\
|
|
|
|
unsigned char readpixel(long offset);
|
|
#pragma aux readpixel =\
|
|
"mov al, byte ptr [edi]",\
|
|
parm nomemory [edi]\
|
|
modify exact [eax]\
|
|
|
|
void drawpixel(long offset, unsigned char p);
|
|
#pragma aux drawpixel =\
|
|
"mov byte ptr [edi], al",\
|
|
parm [edi][eax]\
|
|
modify exact \
|
|
|
|
void drawpixels(long offset, unsigned short p);
|
|
#pragma aux drawpixels =\
|
|
"mov word ptr [edi], ax",\
|
|
parm [edi][eax]\
|
|
modify exact \
|
|
|
|
void drawpixelses(long offset, unsigned long p);
|
|
#pragma aux drawpixelses =\
|
|
"mov dword ptr [edi], eax",\
|
|
parm [edi][eax]\
|
|
modify exact \
|
|
|
|
#endif
|
|
|
|
|
|
void clearbuf(void *buf, long i2, long i3);
|
|
#pragma aux clearbuf =\
|
|
"rep stosd",\
|
|
parm [edi][ecx][eax]\
|
|
modify exact [edi ecx]\
|
|
|
|
void clearbufbyte(void *buf, long i2, long i3);
|
|
#pragma aux clearbufbyte =\
|
|
"cmp ecx, 4",\
|
|
"jae longcopy",\
|
|
"test cl, 1",\
|
|
"jz preskip",\
|
|
"stosb",\
|
|
"preskip: shr ecx, 1",\
|
|
"rep stosw",\
|
|
"jmp endit",\
|
|
"longcopy: test edi, 1",\
|
|
"jz skip1",\
|
|
"stosb",\
|
|
"dec ecx",\
|
|
"skip1: test edi, 2",\
|
|
"jz skip2",\
|
|
"stosw",\
|
|
"sub ecx, 2",\
|
|
"skip2: mov ebx, ecx",\
|
|
"shr ecx, 2",\
|
|
"rep stosd",\
|
|
"test bl, 2",\
|
|
"jz skip3",\
|
|
"stosw",\
|
|
"skip3: test bl, 1",\
|
|
"jz endit",\
|
|
"stosb",\
|
|
"endit:",\
|
|
parm [edi][ecx][eax]\
|
|
modify [ebx]\
|
|
|
|
void copybuf(void *src, void *dst, long len);
|
|
#pragma aux copybuf =\
|
|
"rep movsd",\
|
|
parm [esi][edi][ecx]\
|
|
modify exact [ecx esi edi]\
|
|
|
|
void copybufbyte(void *src, void *dst, long len);
|
|
#pragma aux copybufbyte =\
|
|
"cmp ecx, 4",\
|
|
"jae longcopy",\
|
|
"test cl, 1",\
|
|
"jz preskip",\
|
|
"movsb",\
|
|
"preskip: shr ecx, 1",\
|
|
"rep movsw",\
|
|
"jmp endit",\
|
|
"longcopy: test edi, 1",\
|
|
"jz skip1",\
|
|
"movsb",\
|
|
"dec ecx",\
|
|
"skip1: test edi, 2",\
|
|
"jz skip2",\
|
|
"movsw",\
|
|
"sub ecx, 2",\
|
|
"skip2: mov ebx, ecx",\
|
|
"shr ecx, 2",\
|
|
"rep movsd",\
|
|
"test bl, 2",\
|
|
"jz skip3",\
|
|
"movsw",\
|
|
"skip3: test bl, 1",\
|
|
"jz endit",\
|
|
"movsb",\
|
|
"endit:",\
|
|
parm [esi][edi][ecx]\
|
|
modify [ebx]\
|
|
|
|
void copybufreverse(void *src, void *dst, long len);
|
|
#pragma aux copybufreverse =\
|
|
"shr ecx, 1",\
|
|
"jnc skipit1",\
|
|
"mov al, byte ptr [esi]",\
|
|
"dec esi",\
|
|
"mov byte ptr [edi], al",\
|
|
"inc edi",\
|
|
"skipit1: shr ecx, 1",\
|
|
"jnc skipit2",\
|
|
"mov ax, word ptr [esi-1]",\
|
|
"sub esi, 2",\
|
|
"ror ax, 8",\
|
|
"mov word ptr [edi], ax",\
|
|
"add edi, 2",\
|
|
"skipit2: test ecx, ecx",\
|
|
"jz endloop",\
|
|
"begloop: mov eax, dword ptr [esi-3]",\
|
|
"sub esi, 4",\
|
|
"bswap eax",\
|
|
"mov dword ptr [edi], eax",\
|
|
"add edi, 4",\
|
|
"dec ecx",\
|
|
"jnz begloop",\
|
|
"endloop:",\
|
|
parm [esi][edi][ecx]\
|
|
|
|
void qinterpolatedown16(long *i1, long i2, long i3, long i4);
|
|
#pragma aux qinterpolatedown16 =\
|
|
"mov ebx, ecx",\
|
|
"shr ecx, 1",\
|
|
"jz skipbegcalc",\
|
|
"begqcalc: lea edi, [edx+esi]",\
|
|
"sar edx, 16",\
|
|
"mov dword ptr [eax], edx",\
|
|
"lea edx, [edi+esi]",\
|
|
"sar edi, 16",\
|
|
"mov dword ptr [eax+4], edi",\
|
|
"add eax, 8",\
|
|
"dec ecx",\
|
|
"jnz begqcalc",\
|
|
"test ebx, 1",\
|
|
"jz skipbegqcalc2",\
|
|
"skipbegcalc: sar edx, 16",\
|
|
"mov dword ptr [eax], edx",\
|
|
"skipbegqcalc2:",\
|
|
parm [eax][ecx][edx][esi]\
|
|
modify exact [eax ebx ecx edx edi]\
|
|
|
|
void qinterpolatedown16short(long *i1, long i2, long i3, long i4);
|
|
#pragma aux qinterpolatedown16short =\
|
|
"test ecx, ecx",\
|
|
"jz endit",\
|
|
"test al, 2",\
|
|
"jz skipalignit",\
|
|
"mov ebx, edx",\
|
|
"sar ebx, 16",\
|
|
"mov word ptr [eax], bx",\
|
|
"add edx, esi",\
|
|
"add eax, 2",\
|
|
"dec ecx",\
|
|
"jz endit",\
|
|
"skipalignit: sub ecx, 2",\
|
|
"jc finishit",\
|
|
"begqcalc: mov ebx, edx",\
|
|
"add edx, esi",\
|
|
"sar ebx, 16",\
|
|
"mov edi, edx",\
|
|
"and edi, 0ffff0000h",\
|
|
"add edx, esi",\
|
|
"add ebx, edi",\
|
|
"mov dword ptr [eax], ebx",\
|
|
"add eax, 4",\
|
|
"sub ecx, 2",\
|
|
"jnc begqcalc",\
|
|
"test cl, 1",\
|
|
"jz endit",\
|
|
"finishit: mov ebx, edx",\
|
|
"sar ebx, 16",\
|
|
"mov word ptr [eax], bx",\
|
|
"endit:",\
|
|
parm [eax][ecx][edx][esi]\
|
|
modify exact [eax ebx ecx edx edi]\
|
|
|
|
|
|
#if (defined PLATFORM_DOS) /* !!! move this to dos_driver.c? */
|
|
|
|
void setcolor16(int i1);
|
|
#pragma aux setcolor16 =\
|
|
"mov dx, 0x3ce",\
|
|
"shl ax, 8",\
|
|
"out dx, ax",\
|
|
parm [eax]\
|
|
modify exact [eax edx]\
|
|
|
|
#endif /* defined PLATFORM_DOS */
|
|
|
|
|
|
void vlin16first(long i1, long i2);
|
|
#pragma aux vlin16first =\
|
|
"mov al, byte ptr [edi]",\
|
|
"mov eax, ecx",\
|
|
"shr ecx, 2",\
|
|
"begvlin16firsta: mov byte ptr [edi], al",\
|
|
"mov byte ptr [edi+80], al",\
|
|
"mov byte ptr [edi+160], al",\
|
|
"mov byte ptr [edi+240], al",\
|
|
"add edi, 320",\
|
|
"dec ecx",\
|
|
"jnz begvlin16firsta",\
|
|
"mov ecx, eax",\
|
|
"and ecx, 3",\
|
|
"jz skipfirst",\
|
|
"begvlin16firstb: mov byte ptr [edi], al",\
|
|
"add edi, 80",\
|
|
"dec ecx",\
|
|
"jnz begvlin16firstb",\
|
|
"skipfirst:",\
|
|
parm [edi][ecx]\
|
|
modify exact [eax ecx edi]\
|
|
|
|
void vlin16(long i1, long i2);
|
|
#pragma aux vlin16 =\
|
|
"mov esi, edi",\
|
|
"begvlin16: movsb",\
|
|
"add edi, 79",\
|
|
"add esi, 79",\
|
|
"dec ecx",\
|
|
"jnz begvlin16",\
|
|
parm [edi][ecx]\
|
|
modify exact [ecx esi edi]\
|
|
|
|
#if (defined PLATFORM_DOS) /* !!! move this to dos_driver.c? */
|
|
|
|
void drawpixel16(long offset);
|
|
#pragma aux drawpixel16 =\
|
|
"mov ecx, edi",\
|
|
"mov eax, 0x00008008",\
|
|
"mov dx, 0x3ce",\
|
|
"ror ah, cl",\
|
|
"shr edi, 3",\
|
|
"out dx, ax",\
|
|
"mov cl, byte ptr [edi+0xa0000]",\
|
|
"mov byte ptr [edi+0xa0000], al",\
|
|
parm [edi]\
|
|
modify exact [eax ecx edx edi]\
|
|
|
|
void fillscreen16(long i1, long i2, long i3);
|
|
#pragma aux fillscreen16 =\
|
|
"mov dx, 0x3ce",\
|
|
"shl ax, 8",\
|
|
"out dx, ax",\
|
|
"mov ax, 0xff08",\
|
|
"out dx, ax",\
|
|
"shr ecx, 5",\
|
|
"add edi, 0xa0000",\
|
|
"rep stosd",\
|
|
parm [edi][eax][ecx]\
|
|
modify exact [eax ecx edx edi]\
|
|
|
|
void koutp(long i1, long i);
|
|
#pragma aux koutp =\
|
|
"out dx, al",\
|
|
parm [edx][eax]\
|
|
modify exact \
|
|
|
|
void koutpw(long i1, long i);
|
|
#pragma aux koutpw =\
|
|
"out dx, ax",\
|
|
parm [edx][eax]\
|
|
modify exact \
|
|
|
|
int kinp(long i);
|
|
#pragma aux kinp =\
|
|
"in al, dx",\
|
|
parm nomemory [edx]\
|
|
modify exact [eax]\
|
|
|
|
#endif /* defined PLATFORM_DOS */
|
|
|
|
|
|
long mul3(long i1);
|
|
#pragma aux mul3 =\
|
|
"lea eax, [eax+eax*2]",\
|
|
parm nomemory [eax]\
|
|
|
|
long mul5(long i1);
|
|
#pragma aux mul5 =\
|
|
"lea eax, [eax+eax*4]",\
|
|
parm nomemory [eax]\
|
|
|
|
long mul9(long i1);
|
|
#pragma aux mul9 =\
|
|
"lea eax, [eax+eax*8]",\
|
|
parm nomemory [eax]\
|
|
|
|
/* returns eax/ebx, dmval = eax%edx; */
|
|
long divmod(long i1, long i2);
|
|
#pragma aux divmod =\
|
|
"xor edx, edx",\
|
|
"div ebx",\
|
|
"mov dmval, edx",\
|
|
parm [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
value [eax]
|
|
|
|
/* returns eax%ebx, dmval = eax/edx; */
|
|
long moddiv(long i1, long i2);
|
|
#pragma aux moddiv =\
|
|
"xor edx, edx",\
|
|
"div ebx",\
|
|
"mov dmval, eax",\
|
|
parm [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
value [edx]
|
|
|
|
long klabs(long i1);
|
|
#pragma aux klabs =\
|
|
"test eax, eax",\
|
|
"jns skipnegate",\
|
|
"neg eax",\
|
|
"skipnegate:",\
|
|
parm nomemory [eax]\
|
|
|
|
long ksgn(long i1);
|
|
#pragma aux ksgn =\
|
|
"add ebx, ebx",\
|
|
"sbb eax, eax",\
|
|
"cmp eax, ebx",\
|
|
"adc al, 0",\
|
|
parm nomemory [ebx]\
|
|
modify exact [eax ebx]\
|
|
|
|
/* eax = (unsigned min)umin(eax,ebx) */
|
|
long umin(long i1, long i2);
|
|
#pragma aux umin =\
|
|
"sub eax, ebx",\
|
|
"sbb ecx, ecx",\
|
|
"and eax, ecx",\
|
|
"add eax, ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax ecx]\
|
|
|
|
/* eax = (unsigned max)umax(eax,ebx) */
|
|
long umax(long i1, long i2);
|
|
#pragma aux umax =\
|
|
"sub eax, ebx",\
|
|
"sbb ecx, ecx",\
|
|
"xor ecx, 0xffffffff",\
|
|
"and eax, ecx",\
|
|
"add eax, ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax ecx]\
|
|
|
|
long kmin(long i1, long i2);
|
|
#pragma aux kmin =\
|
|
"cmp eax, ebx",\
|
|
"jl skipit",\
|
|
"mov eax, ebx",\
|
|
"skipit:",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax]\
|
|
|
|
long kmax(long i1, long i2);
|
|
#pragma aux kmax =\
|
|
"cmp eax, ebx",\
|
|
"jg skipit",\
|
|
"mov eax, ebx",\
|
|
"skipit:",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax]\
|
|
|
|
#if (defined PLATFORM_DOS) /* !!! move to dos_driver.c? */
|
|
void limitrate(void);
|
|
#pragma aux limitrate =\
|
|
"mov dx, 0x3da",\
|
|
"wait1: in al, dx",\
|
|
"test al, 8",\
|
|
"jnz wait1",\
|
|
"wait2: in al, dx",\
|
|
"test al, 8",\
|
|
"jz wait2",\
|
|
modify exact [eax edx]\
|
|
|
|
long readtimer(void);
|
|
#pragma aux readtimer =\
|
|
"mov al, 0xd2",\
|
|
"out 0x43, al",\
|
|
"in al, 0x40",\
|
|
"shl eax, 24",\
|
|
"in al, 0x40",\
|
|
"rol eax, 8",\
|
|
modify [eax]\
|
|
|
|
void redblueblit(void *i1, void *i2, long i3);
|
|
#pragma aux redblueblit = \
|
|
"xor ecx, ecx",\
|
|
"begblit: mov eax, dword ptr [edx+ecx]",\
|
|
"shl eax, 4",\
|
|
"add eax, dword ptr [ebx+ecx]",\
|
|
"mov dword ptr [ecx+0xa0000], eax",\
|
|
"add ecx, 4",\
|
|
"cmp ecx, esi",\
|
|
"jb begblit",\
|
|
parm [ebx][edx][esi]\
|
|
modify exact [eax ecx]\
|
|
|
|
#pragma aux chainblit =\
|
|
"shr ecx, 1",\
|
|
"jnc prebeg",\
|
|
"mov al, byte ptr [esi+8]",\
|
|
"mov ah, byte ptr [esi+12]",\
|
|
"shl eax, 16",\
|
|
"mov al, byte ptr [esi]",\
|
|
"mov ah, byte ptr [esi+4]",\
|
|
"mov dword ptr [edi], eax",\
|
|
"add esi, 16",\
|
|
"add edi, 4",\
|
|
"test ecx, ecx",\
|
|
"prebeg: jz endit",\
|
|
"beg: mov al, byte ptr [esi+8]",\
|
|
"mov bl, byte ptr [esi+24]",\
|
|
"mov ah, byte ptr [esi+12]",\
|
|
"mov bh, byte ptr [esi+28]",\
|
|
"shl eax, 16",\
|
|
"add edi, 8",\
|
|
"shl ebx, 16",\
|
|
"mov al, byte ptr [esi]",\
|
|
"mov bl, byte ptr [esi+16]",\
|
|
"mov ah, byte ptr [esi+4]",\
|
|
"mov bh, byte ptr [esi+20]",\
|
|
"add esi, 32",\
|
|
"mov dword ptr [edi-8], eax",\
|
|
"dec ecx",\
|
|
"mov dword ptr [edi-4], ebx",\
|
|
"jnz beg",\
|
|
"endit:",\
|
|
parm [esi][edi][ecx]\
|
|
modify exact [eax ebx ecx esi edi]\
|
|
|
|
#endif
|
|
|
|
|
|
void swapchar(char *i1, char *i2);
|
|
#pragma aux swapchar =\
|
|
"mov cl, [eax]",\
|
|
"mov ch, [ebx]",\
|
|
"mov [ebx], cl",\
|
|
"mov [eax], ch",\
|
|
parm [eax][ebx]\
|
|
modify exact [ecx]\
|
|
|
|
void swapshort(short *i1, short *i2);
|
|
#pragma aux swapshort =\
|
|
"mov cx, [eax]",\
|
|
"mov dx, [ebx]",\
|
|
"mov [ebx], cx",\
|
|
"mov [eax], dx",\
|
|
parm [eax][ebx]\
|
|
modify exact [ecx edx]\
|
|
|
|
void swaplong(long *i1, long *i2);
|
|
#pragma aux swaplong =\
|
|
"mov ecx, [eax]",\
|
|
"mov edx, [ebx]",\
|
|
"mov [ebx], ecx",\
|
|
"mov [eax], edx",\
|
|
parm [eax][ebx]\
|
|
modify exact [ecx edx]\
|
|
|
|
#pragma aux swapbuf4 =\
|
|
"begswap:",\
|
|
"mov esi, [eax]",\
|
|
"mov edi, [ebx]",\
|
|
"mov [ebx], esi",\
|
|
"mov [eax], edi",\
|
|
"add eax, 4",\
|
|
"add ebx, 4",\
|
|
"dec ecx",\
|
|
"jnz short begswap",\
|
|
parm [eax][ebx][ecx]\
|
|
modify exact [eax ebx ecx esi edi]\
|
|
|
|
#pragma aux swap64bit =\
|
|
"mov ecx, [eax]",\
|
|
"mov edx, [ebx]",\
|
|
"mov [ebx], ecx",\
|
|
"mov ecx, [eax+4]",\
|
|
"mov [eax], edx",\
|
|
"mov edx, [ebx+4]",\
|
|
"mov [ebx+4], ecx",\
|
|
"mov [eax+4], edx",\
|
|
parm [eax][ebx]\
|
|
modify exact [ecx edx]\
|
|
|
|
|
|
/*
|
|
* swapchar2(ptr1,ptr2,xsiz); is the same as:
|
|
* swapchar(ptr1,ptr2); swapchar(ptr1+1,ptr2+xsiz);
|
|
*/
|
|
void swapchar2(char *ptr1, char *ptr2, long xsiz);
|
|
#pragma aux swapchar2 =\
|
|
"add esi, ebx",\
|
|
"mov cx, [eax]",\
|
|
"mov dl, [ebx]",\
|
|
"mov [ebx], cl",\
|
|
"mov dh, [esi]",\
|
|
"mov [esi], ch",\
|
|
"mov [eax], dx",\
|
|
parm [eax][ebx][esi]\
|
|
modify exact [ecx edx esi]\
|
|
|
|
static long timeroffs1mhz;
|
|
/* accutimeroffs = -8-(t1-t0); */
|
|
#pragma aux inittimer1mhz =\
|
|
"xor ebx, ebx",\
|
|
"xor ecx, ecx",\
|
|
"in al, 0x61",\
|
|
"or al, 1",\
|
|
"out 0x61, al",\
|
|
"mov al, 0x34",\
|
|
"out 0x43, al",\
|
|
"xor al, al",\
|
|
"out 0x40, al",\
|
|
"mov al, 0xb4",\
|
|
"out 0x43, al",\
|
|
"mov al, 240",\
|
|
"out 0x42, al",\
|
|
"xor al, al",\
|
|
"cli",\
|
|
"out 0x40, al",\
|
|
"dec al",\
|
|
"out 0x42, al",\
|
|
"mov al, 0x04",\
|
|
"out 0x43, al",\
|
|
"in al, 0x40",\
|
|
"mov bl, al",\
|
|
"in al, 0x40",\
|
|
"mov bh, al",\
|
|
"mov al, 0x84",\
|
|
"out 0x43, al",\
|
|
"in al, 0x42",\
|
|
"mov cl, al",\
|
|
"in al, 0x42",\
|
|
"sti",\
|
|
"mov ch, al",\
|
|
"sub ebx, ecx",\
|
|
"sub ebx, 8",\
|
|
"mov timeroffs1mhz, ebx",\
|
|
modify exact [eax ebx ecx]\
|
|
|
|
#pragma aux uninittimer1mhz =\
|
|
"in al, 0x61",\
|
|
"and al, 252",\
|
|
"out 0x61, al",\
|
|
modify exact [eax]\
|
|
|
|
/* t = ((ecx-ebx+timeroffs1mhz)&0xfff0)*4095 + ecx; */
|
|
#pragma aux gettime1mhz =\
|
|
"mov ebx, timeroffs1mhz",\
|
|
"xor ecx, ecx",\
|
|
"mov al, 0x04",\
|
|
"cli",\
|
|
"out 0x43, al",\
|
|
"in al, 0x40",\
|
|
"sub bl, al",\
|
|
"in al, 0x40",\
|
|
"sbb bh, al",\
|
|
"mov al, 0x84",\
|
|
"out 0x43, al",\
|
|
"in al, 0x42",\
|
|
"mov cl, al",\
|
|
"in al, 0x42",\
|
|
"sti",\
|
|
"mov ch, al",\
|
|
"add ebx, ecx",\
|
|
"and ebx, 0x0000fff0",\
|
|
"sub ecx, ebx",\
|
|
"shl ebx, 12",\
|
|
"add ebx, ecx",\
|
|
modify exact [eax ebx ecx]\
|
|
value [ebx]\
|
|
|
|
/* eax = eax-ebx; if (eax < 0) eax += (1<<28) - (1<<16); */
|
|
#pragma aux deltatime1mhz =\
|
|
"sub eax, ebx",\
|
|
"jnc skipit",\
|
|
"add eax, 0x0fff0000",\
|
|
"skipit:",\
|
|
parm [ebx][eax]
|
|
|
|
#pragma aux boundmulscale =\
|
|
"imul ebx",\
|
|
"mov ebx, edx",\
|
|
"shrd eax, edx, cl",\
|
|
"sar edx, cl",\
|
|
"xor edx, eax",\
|
|
"js checkit",\
|
|
"xor edx, eax",\
|
|
"jz skipboundit",\
|
|
"cmp edx, 0xffffffff",\
|
|
"je skipboundit",\
|
|
"checkit:",\
|
|
"mov eax, ebx",\
|
|
"sar eax, 31",\
|
|
"xor eax, 0x7fffffff",\
|
|
"skipboundit:",\
|
|
parm nomemory [eax][ebx][ecx]\
|
|
modify exact [eax ebx edx]\
|
|
|
|
|
|
/* FIXME: Why are all these divscale functions in here a second time? */
|
|
long divscale(long i1, long i2, long i3);
|
|
#pragma aux divscale =\
|
|
"mov edx, eax",\
|
|
"shl eax, cl",\
|
|
"neg cl",\
|
|
"sar edx, cl",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx][ecx]\
|
|
modify exact [eax ecx edx]
|
|
|
|
long divscale1(long i1, long i2);
|
|
#pragma aux divscale1 =\
|
|
"add eax, eax",\
|
|
"sbb edx, edx",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]
|
|
|
|
long divscale2(long i1, long i2);
|
|
#pragma aux divscale2 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 30",\
|
|
"lea eax, [eax*4]",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale3(long i1, long i2);
|
|
#pragma aux divscale3 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 29",\
|
|
"lea eax, [eax*8]",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale4(long i1, long i2);
|
|
#pragma aux divscale4 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 28",\
|
|
"shl eax, 4",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale5(long i1, long i2);
|
|
#pragma aux divscale5 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 27",\
|
|
"shl eax, 5",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale6(long i1, long i2);
|
|
#pragma aux divscale6 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 26",\
|
|
"shl eax, 6",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale7(long i1, long i2);
|
|
#pragma aux divscale7 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 25",\
|
|
"shl eax, 7",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale8(long i1, long i2);
|
|
#pragma aux divscale8 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 24",\
|
|
"shl eax, 8",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale9(long i1, long i2);
|
|
#pragma aux divscale9 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 23",\
|
|
"shl eax, 9",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale10(long i1, long i2);
|
|
#pragma aux divscale10 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 22",\
|
|
"shl eax, 10",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale11(long i1, long i2);
|
|
#pragma aux divscale11 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 21",\
|
|
"shl eax, 11",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale12(long i1, long i2);
|
|
#pragma aux divscale12 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 20",\
|
|
"shl eax, 12",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale13(long i1, long i2);
|
|
#pragma aux divscale13 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 19",\
|
|
"shl eax, 13",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale14(long i1, long i2);
|
|
#pragma aux divscale14 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 18",\
|
|
"shl eax, 14",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale15(long i1, long i2);
|
|
#pragma aux divscale15 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 17",\
|
|
"shl eax, 15",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale16(long i1, long i2);
|
|
#pragma aux divscale16 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 16",\
|
|
"shl eax, 16",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale17(long i1, long i2);
|
|
#pragma aux divscale17 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 15",\
|
|
"shl eax, 17",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale18(long i1, long i2);
|
|
#pragma aux divscale18 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 14",\
|
|
"shl eax, 18",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale19(long i1, long i2);
|
|
#pragma aux divscale19 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 13",\
|
|
"shl eax, 19",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale20(long i1, long i2);
|
|
#pragma aux divscale20 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 12",\
|
|
"shl eax, 20",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale21(long i1, long i2);
|
|
#pragma aux divscale21 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 11",\
|
|
"shl eax, 21",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale22(long i1, long i2);
|
|
#pragma aux divscale22 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 10",\
|
|
"shl eax, 22",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale23(long i1, long i2);
|
|
#pragma aux divscale23 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 9",\
|
|
"shl eax, 23",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale24(long i1, long i2);
|
|
#pragma aux divscale24 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 8",\
|
|
"shl eax, 24",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale25(long i1, long i2);
|
|
#pragma aux divscale25 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 7",\
|
|
"shl eax, 25",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale26(long i1, long i2);
|
|
#pragma aux divscale26 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 6",\
|
|
"shl eax, 26",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale27(long i1, long i2);
|
|
#pragma aux divscale27 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 5",\
|
|
"shl eax, 27",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale28(long i1, long i2);
|
|
#pragma aux divscale28 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 4",\
|
|
"shl eax, 28",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale29(long i1, long i2);
|
|
#pragma aux divscale29 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 3",\
|
|
"shl eax, 29",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale30(long i1, long i2);
|
|
#pragma aux divscale30 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 2",\
|
|
"shl eax, 30",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale31(long i1, long i2);
|
|
#pragma aux divscale31 =\
|
|
"mov edx, eax",\
|
|
"sar edx, 1",\
|
|
"shl eax, 31",\
|
|
"idiv ebx",\
|
|
parm nomemory [eax][ebx]\
|
|
modify exact [eax edx]\
|
|
|
|
long divscale32(long i1, long i2);
|
|
#pragma aux divscale32 =\
|
|
"xor eax, eax",\
|
|
"idiv ebx",\
|
|
parm nomemory [edx][ebx]\
|
|
modify exact [eax edx]
|
|
|
|
#else /* non-Watcom platforms land here: */
|
|
|
|
#include "platform.h" //for __int64
|
|
|
|
static __inline void swapchar(unsigned char *p1, unsigned char *p2)
|
|
{ unsigned char tmp = *p1; *p1 = *p2; *p2 = tmp; }
|
|
static __inline void swapshort(short *p1, short *p2)
|
|
{ short tmp = *p1; *p1 = *p2; *p2 = tmp; }
|
|
static __inline void swaplong(long *p1, long *p2)
|
|
{ long tmp = *p1; *p1 = *p2; *p2 = tmp; }
|
|
static __inline void swapchar2(unsigned char *p1, unsigned char *p2, int xsiz)
|
|
{
|
|
swapchar(p1, p2);
|
|
swapchar(p1 + 1, p2 + xsiz);
|
|
}
|
|
|
|
|
|
unsigned long getkensmessagecrc(long param);
|
|
long msqrtasm(int i1);
|
|
|
|
void vlin16first (long i1, long i2);
|
|
|
|
static __inline int sqr (int input1) { return input1*input1; }
|
|
|
|
/* internal use:32x32 = 64bit */
|
|
static __inline __int64 mul32_64(int i1,int i2)
|
|
{
|
|
return (__int64)i1*i2;
|
|
}
|
|
static __inline int scale (int input1, int input2, int input3)
|
|
{
|
|
return mul32_64(input1,input2)/input3;
|
|
}
|
|
static __inline int mulscale (int input1, int input2, int input3)
|
|
{
|
|
return mul32_64(input1,input2)>>input3;
|
|
}
|
|
static __inline int dmulscale (int input1, int input2, int input3,int input4,int input5)
|
|
{
|
|
return (mul32_64(input1,input2) + mul32_64(input3,input4))>>input5;
|
|
}
|
|
static __inline int tmulscale(int i1, int i2, int i3, int i4, int i5, int i6,int shift)
|
|
{
|
|
return (mul32_64(i1,i2) + mul32_64(i3,i4) + mul32_64(i5,i6))>>shift;
|
|
}
|
|
static __inline int divscale(int i1, int i2, int i3)
|
|
{
|
|
return ((__int64)i1<<i3)/i2;
|
|
}
|
|
|
|
#define DEFFUNCS \
|
|
DEFFUN(1)\
|
|
DEFFUN(2)\
|
|
DEFFUN(3)\
|
|
DEFFUN(4)\
|
|
DEFFUN(5)\
|
|
DEFFUN(6)\
|
|
DEFFUN(7)\
|
|
DEFFUN(8)\
|
|
DEFFUN(9)\
|
|
DEFFUN(10)\
|
|
DEFFUN(11)\
|
|
DEFFUN(12)\
|
|
DEFFUN(13)\
|
|
DEFFUN(14)\
|
|
DEFFUN(15)\
|
|
DEFFUN(16)\
|
|
DEFFUN(17)\
|
|
DEFFUN(18)\
|
|
DEFFUN(19)\
|
|
DEFFUN(20)\
|
|
DEFFUN(21)\
|
|
DEFFUN(22)\
|
|
DEFFUN(23)\
|
|
DEFFUN(24)\
|
|
DEFFUN(25)\
|
|
DEFFUN(26)\
|
|
DEFFUN(27)\
|
|
DEFFUN(28)\
|
|
DEFFUN(29)\
|
|
DEFFUN(30)\
|
|
DEFFUN(31)\
|
|
DEFFUN(32)
|
|
|
|
#define DEFFUN(N) \
|
|
static __inline int mulscale##N(int input1, int input2) \
|
|
{ return mulscale(input1,input2,N); }
|
|
DEFFUNCS
|
|
#undef DEFFUN
|
|
|
|
#define DEFFUN(N) \
|
|
static __inline int dmulscale##N(int input1, int input2,int input3,int input4) \
|
|
{ return dmulscale(input1,input2,input3,input4,N); }
|
|
DEFFUNCS
|
|
#undef DEFFUN
|
|
|
|
#define DEFFUN(N) \
|
|
static __inline int tmulscale##N(int i1, int i2,int i3,int i4,int i5,int i6) \
|
|
{ return tmulscale(i1,i2,i3,i4,i5,i6,N); }
|
|
DEFFUNCS
|
|
#undef DEFFUN
|
|
|
|
#define DEFFUN(N) \
|
|
static __inline int divscale##N(int input1, int input2) \
|
|
{ return divscale(input1,input2,N); }
|
|
DEFFUNCS
|
|
#undef DEFFUN
|
|
|
|
static __inline int ksgn(int i1)
|
|
{
|
|
if (i1 < 0) return -1;
|
|
else if (i1 > 0) return 1;
|
|
else return 0;
|
|
}
|
|
|
|
static __inline int sgn(int i1) { return ksgn(i1); }
|
|
static __inline int klabs (int i1)
|
|
{
|
|
if (i1 < 0) i1 = -i1;
|
|
return i1;
|
|
}
|
|
static __inline int mul3 (int i1) { return i1*3; }
|
|
static __inline int mul5 (int i1) { return i1*5; }
|
|
static __inline int mul9 (int i1) { return i1*9; }
|
|
|
|
void copybufreverse(void *source, void *dest, int size);
|
|
void copybuf(void *source, void *dest, int size);
|
|
void clearbuf(void *buffer, int size, long fill_value);
|
|
void clearbufbyte(void *buffer, int size, long fill_value);
|
|
void copybufbyte(void *source, void *dest, int size);
|
|
|
|
void qinterpolatedown16 (long *source, int size, int linum, int linum_inc);
|
|
void qinterpolatedown16short (long *source, int size, int linum, int linum_inc);
|
|
|
|
#endif /* defined __WATCOMC__ */
|
|
|
|
#endif /* !defined _INCLUDE_PRAGMAS_H_ */
|
|
|
|
/* end of pragmas.h ... */
|
|
|
|
|