mirror of
https://github.com/nzp-team/fteqw.git
synced 2024-11-23 20:32:43 +00:00
ce3c561cfe
Particle system functions renamed a bit, a few other cleanups in that area. Console handling tweeked. Better rules for subconsoles and plugins. Commands are coloured if it'll be execed, which should help reduce occurences of chat being commands. tab compleation tweeked, partial compleation no longer changes the suggestion. git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@895 fc73d0e0-1445-4013-8a0c-d673dee63da5
370 lines
9.1 KiB
ArmAsm
370 lines
9.1 KiB
ArmAsm
/*
|
|
Copyright (C) 1996-1997 Id Software, Inc.
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License
|
|
as published by the Free Software Foundation; either version 2
|
|
of the License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
See the GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
*/
|
|
//
|
|
// math.s
|
|
// x86 assembly-language math routines.
|
|
|
|
#include "asm_i386.h"
|
|
#include "quakeasm.h"
|
|
|
|
|
|
#if id386
|
|
|
|
.data
|
|
|
|
.align 4
|
|
Ljmptab: .long Lcase0, Lcase1, Lcase2, Lcase3
|
|
.long Lcase4, Lcase5, Lcase6, Lcase7
|
|
|
|
.text
|
|
|
|
// TODO: rounding needed?
|
|
// stack parameter offset
|
|
#define val 4
|
|
|
|
.globl C(Invert24To16)
|
|
C(Invert24To16):
|
|
|
|
movl val(%esp),%ecx
|
|
movl $0x100,%edx // 0x10000000000 as dividend
|
|
cmpl %edx,%ecx
|
|
jle LOutOfRange
|
|
|
|
subl %eax,%eax
|
|
divl %ecx
|
|
|
|
ret
|
|
|
|
LOutOfRange:
|
|
movl $0xFFFFFFFF,%eax
|
|
ret
|
|
|
|
#define EMINS 4+4
|
|
#define EMAXS 4+8
|
|
#define P 4+12
|
|
|
|
.align 2
|
|
.globl C(BoxOnPlaneSide)
|
|
C(BoxOnPlaneSide):
|
|
pushl %ebx
|
|
|
|
movl P(%esp),%edx
|
|
movl EMINS(%esp),%ecx
|
|
xorl %eax,%eax
|
|
movl EMAXS(%esp),%ebx
|
|
movb pl_signbits(%edx),%al
|
|
cmpb $8,%al
|
|
jge Lerror
|
|
flds pl_normal(%edx) // p->normal[0]
|
|
fld %st(0) // p->normal[0] | p->normal[0]
|
|
jmp Ljmptab(,%eax,4)
|
|
|
|
|
|
//dist1= p->normal[0]*emaxs[0] + p->normal[1]*emaxs[1] + p->normal[2]*emaxs[2];
|
|
//dist2= p->normal[0]*emins[0] + p->normal[1]*emins[1] + p->normal[2]*emins[2];
|
|
Lcase0:
|
|
fmuls (%ebx) // p->normal[0]*emaxs[0] | p->normal[0]
|
|
flds pl_normal+4(%edx) // p->normal[1] | p->normal[0]*emaxs[0] |
|
|
// p->normal[0]
|
|
fxch %st(2) // p->normal[0] | p->normal[0]*emaxs[0] |
|
|
// p->normal[1]
|
|
fmuls (%ecx) // p->normal[0]*emins[0] |
|
|
// p->normal[0]*emaxs[0] | p->normal[1]
|
|
fxch %st(2) // p->normal[1] | p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fld %st(0) // p->normal[1] | p->normal[1] |
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fmuls 4(%ebx) // p->normal[1]*emaxs[1] | p->normal[1] |
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
flds pl_normal+8(%edx) // p->normal[2] | p->normal[1]*emaxs[1] |
|
|
// p->normal[1] | p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fxch %st(2) // p->normal[1] | p->normal[1]*emaxs[1] |
|
|
// p->normal[2] | p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fmuls 4(%ecx) // p->normal[1]*emins[1] |
|
|
// p->normal[1]*emaxs[1] |
|
|
// p->normal[2] | p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fxch %st(2) // p->normal[2] | p->normal[1]*emaxs[1] |
|
|
// p->normal[1]*emins[1] |
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fld %st(0) // p->normal[2] | p->normal[2] |
|
|
// p->normal[1]*emaxs[1] |
|
|
// p->normal[1]*emins[1] |
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fmuls 8(%ebx) // p->normal[2]*emaxs[2] |
|
|
// p->normal[2] |
|
|
// p->normal[1]*emaxs[1] |
|
|
// p->normal[1]*emins[1] |
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[0]*emins[0]
|
|
fxch %st(5) // p->normal[0]*emins[0] |
|
|
// p->normal[2] |
|
|
// p->normal[1]*emaxs[1] |
|
|
// p->normal[1]*emins[1] |
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[2]*emaxs[2]
|
|
faddp %st(0),%st(3) //p->normal[2] |
|
|
// p->normal[1]*emaxs[1] |
|
|
// p->normal[1]*emins[1]+p->normal[0]*emins[0]|
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[2]*emaxs[2]
|
|
fmuls 8(%ecx) //p->normal[2]*emins[2] |
|
|
// p->normal[1]*emaxs[1] |
|
|
// p->normal[1]*emins[1]+p->normal[0]*emins[0]|
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[2]*emaxs[2]
|
|
fxch %st(1) //p->normal[1]*emaxs[1] |
|
|
// p->normal[2]*emins[2] |
|
|
// p->normal[1]*emins[1]+p->normal[0]*emins[0]|
|
|
// p->normal[0]*emaxs[0] |
|
|
// p->normal[2]*emaxs[2]
|
|
faddp %st(0),%st(3) //p->normal[2]*emins[2] |
|
|
// p->normal[1]*emins[1]+p->normal[0]*emins[0]|
|
|
// p->normal[0]*emaxs[0]+p->normal[1]*emaxs[1]|
|
|
// p->normal[2]*emaxs[2]
|
|
fxch %st(3) //p->normal[2]*emaxs[2] +
|
|
// p->normal[1]*emins[1]+p->normal[0]*emins[0]|
|
|
// p->normal[0]*emaxs[0]+p->normal[1]*emaxs[1]|
|
|
// p->normal[2]*emins[2]
|
|
faddp %st(0),%st(2) //p->normal[1]*emins[1]+p->normal[0]*emins[0]|
|
|
// dist1 | p->normal[2]*emins[2]
|
|
|
|
jmp LSetSides
|
|
|
|
//dist1= p->normal[0]*emins[0] + p->normal[1]*emaxs[1] + p->normal[2]*emaxs[2];
|
|
//dist2= p->normal[0]*emaxs[0] + p->normal[1]*emins[1] + p->normal[2]*emins[2];
|
|
Lcase1:
|
|
fmuls (%ecx) // emins[0]
|
|
flds pl_normal+4(%edx)
|
|
fxch %st(2)
|
|
fmuls (%ebx) // emaxs[0]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 4(%ebx) // emaxs[1]
|
|
flds pl_normal+8(%edx)
|
|
fxch %st(2)
|
|
fmuls 4(%ecx) // emins[1]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 8(%ebx) // emaxs[2]
|
|
fxch %st(5)
|
|
faddp %st(0),%st(3)
|
|
fmuls 8(%ecx) // emins[2]
|
|
fxch %st(1)
|
|
faddp %st(0),%st(3)
|
|
fxch %st(3)
|
|
faddp %st(0),%st(2)
|
|
|
|
jmp LSetSides
|
|
|
|
//dist1= p->normal[0]*emaxs[0] + p->normal[1]*emins[1] + p->normal[2]*emaxs[2];
|
|
//dist2= p->normal[0]*emins[0] + p->normal[1]*emaxs[1] + p->normal[2]*emins[2];
|
|
Lcase2:
|
|
fmuls (%ebx) // emaxs[0]
|
|
flds pl_normal+4(%edx)
|
|
fxch %st(2)
|
|
fmuls (%ecx) // emins[0]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 4(%ecx) // emins[1]
|
|
flds pl_normal+8(%edx)
|
|
fxch %st(2)
|
|
fmuls 4(%ebx) // emaxs[1]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 8(%ebx) // emaxs[2]
|
|
fxch %st(5)
|
|
faddp %st(0),%st(3)
|
|
fmuls 8(%ecx) // emins[2]
|
|
fxch %st(1)
|
|
faddp %st(0),%st(3)
|
|
fxch %st(3)
|
|
faddp %st(0),%st(2)
|
|
|
|
jmp LSetSides
|
|
|
|
//dist1= p->normal[0]*emins[0] + p->normal[1]*emins[1] + p->normal[2]*emaxs[2];
|
|
//dist2= p->normal[0]*emaxs[0] + p->normal[1]*emaxs[1] + p->normal[2]*emins[2];
|
|
Lcase3:
|
|
fmuls (%ecx) // emins[0]
|
|
flds pl_normal+4(%edx)
|
|
fxch %st(2)
|
|
fmuls (%ebx) // emaxs[0]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 4(%ecx) // emins[1]
|
|
flds pl_normal+8(%edx)
|
|
fxch %st(2)
|
|
fmuls 4(%ebx) // emaxs[1]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 8(%ebx) // emaxs[2]
|
|
fxch %st(5)
|
|
faddp %st(0),%st(3)
|
|
fmuls 8(%ecx) // emins[2]
|
|
fxch %st(1)
|
|
faddp %st(0),%st(3)
|
|
fxch %st(3)
|
|
faddp %st(0),%st(2)
|
|
|
|
jmp LSetSides
|
|
|
|
//dist1= p->normal[0]*emaxs[0] + p->normal[1]*emaxs[1] + p->normal[2]*emins[2];
|
|
//dist2= p->normal[0]*emins[0] + p->normal[1]*emins[1] + p->normal[2]*emaxs[2];
|
|
Lcase4:
|
|
fmuls (%ebx) // emaxs[0]
|
|
flds pl_normal+4(%edx)
|
|
fxch %st(2)
|
|
fmuls (%ecx) // emins[0]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 4(%ebx) // emaxs[1]
|
|
flds pl_normal+8(%edx)
|
|
fxch %st(2)
|
|
fmuls 4(%ecx) // emins[1]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 8(%ecx) // emins[2]
|
|
fxch %st(5)
|
|
faddp %st(0),%st(3)
|
|
fmuls 8(%ebx) // emaxs[2]
|
|
fxch %st(1)
|
|
faddp %st(0),%st(3)
|
|
fxch %st(3)
|
|
faddp %st(0),%st(2)
|
|
|
|
jmp LSetSides
|
|
|
|
//dist1= p->normal[0]*emins[0] + p->normal[1]*emaxs[1] + p->normal[2]*emins[2];
|
|
//dist2= p->normal[0]*emaxs[0] + p->normal[1]*emins[1] + p->normal[2]*emaxs[2];
|
|
Lcase5:
|
|
fmuls (%ecx) // emins[0]
|
|
flds pl_normal+4(%edx)
|
|
fxch %st(2)
|
|
fmuls (%ebx) // emaxs[0]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 4(%ebx) // emaxs[1]
|
|
flds pl_normal+8(%edx)
|
|
fxch %st(2)
|
|
fmuls 4(%ecx) // emins[1]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 8(%ecx) // emins[2]
|
|
fxch %st(5)
|
|
faddp %st(0),%st(3)
|
|
fmuls 8(%ebx) // emaxs[2]
|
|
fxch %st(1)
|
|
faddp %st(0),%st(3)
|
|
fxch %st(3)
|
|
faddp %st(0),%st(2)
|
|
|
|
jmp LSetSides
|
|
|
|
//dist1= p->normal[0]*emaxs[0] + p->normal[1]*emins[1] + p->normal[2]*emins[2];
|
|
//dist2= p->normal[0]*emins[0] + p->normal[1]*emaxs[1] + p->normal[2]*emaxs[2];
|
|
Lcase6:
|
|
fmuls (%ebx) // emaxs[0]
|
|
flds pl_normal+4(%edx)
|
|
fxch %st(2)
|
|
fmuls (%ecx) // emins[0]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 4(%ecx) // emins[1]
|
|
flds pl_normal+8(%edx)
|
|
fxch %st(2)
|
|
fmuls 4(%ebx) // emaxs[1]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 8(%ecx) // emins[2]
|
|
fxch %st(5)
|
|
faddp %st(0),%st(3)
|
|
fmuls 8(%ebx) // emaxs[2]
|
|
fxch %st(1)
|
|
faddp %st(0),%st(3)
|
|
fxch %st(3)
|
|
faddp %st(0),%st(2)
|
|
|
|
jmp LSetSides
|
|
|
|
//dist1= p->normal[0]*emins[0] + p->normal[1]*emins[1] + p->normal[2]*emins[2];
|
|
//dist2= p->normal[0]*emaxs[0] + p->normal[1]*emaxs[1] + p->normal[2]*emaxs[2];
|
|
Lcase7:
|
|
fmuls (%ecx) // emins[0]
|
|
flds pl_normal+4(%edx)
|
|
fxch %st(2)
|
|
fmuls (%ebx) // emaxs[0]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 4(%ecx) // emins[1]
|
|
flds pl_normal+8(%edx)
|
|
fxch %st(2)
|
|
fmuls 4(%ebx) // emaxs[1]
|
|
fxch %st(2)
|
|
fld %st(0)
|
|
fmuls 8(%ecx) // emins[2]
|
|
fxch %st(5)
|
|
faddp %st(0),%st(3)
|
|
fmuls 8(%ebx) // emaxs[2]
|
|
fxch %st(1)
|
|
faddp %st(0),%st(3)
|
|
fxch %st(3)
|
|
faddp %st(0),%st(2)
|
|
|
|
LSetSides:
|
|
|
|
// sides = 0;
|
|
// if (dist1 >= p->dist)
|
|
// sides = 1;
|
|
// if (dist2 < p->dist)
|
|
// sides |= 2;
|
|
|
|
faddp %st(0),%st(2) // dist1 | dist2
|
|
fcomps pl_dist(%edx)
|
|
xorl %ecx,%ecx
|
|
fnstsw %ax
|
|
fcomps pl_dist(%edx)
|
|
andb $1,%ah
|
|
xorb $1,%ah
|
|
addb %ah,%cl
|
|
|
|
fnstsw %ax
|
|
andb $1,%ah
|
|
addb %ah,%ah
|
|
addb %ah,%cl
|
|
|
|
// return sides;
|
|
|
|
popl %ebx
|
|
movl %ecx,%eax // return status
|
|
|
|
ret
|
|
|
|
|
|
Lerror:
|
|
call C(BOPS_Error)
|
|
|
|
#endif // id386
|