733 lines
19 KiB
NASM
733 lines
19 KiB
NASM
.386P
|
|
.model FLAT
|
|
;
|
|
; r_edgea.s
|
|
; x86 assembly-language edge-processing code.
|
|
;
|
|
|
|
include qasm.inc
|
|
|
|
if id386
|
|
|
|
_DATA SEGMENT
|
|
Ltemp dd 0
|
|
float_1_div_0100000h dd 035800000h ; 1.0/(float)0x100000
|
|
float_point_999 dd 0.999
|
|
float_1_point_001 dd 1.001
|
|
|
|
_DATA ENDS
|
|
_TEXT SEGMENT
|
|
|
|
;--------------------------------------------------------------------
|
|
|
|
edgestoadd equ 4+8 ; note odd stack offsets because of interleaving
|
|
edgelist equ 8+12 ; with pushes
|
|
|
|
public _R_EdgeCodeStart
|
|
_R_EdgeCodeStart:
|
|
|
|
public _R_InsertNewEdges
|
|
_R_InsertNewEdges:
|
|
push edi
|
|
push esi ; preserve register variables
|
|
mov edx,ds:dword ptr[edgestoadd+esp]
|
|
push ebx
|
|
mov ecx,ds:dword ptr[edgelist+esp]
|
|
|
|
LDoNextEdge:
|
|
mov eax,ds:dword ptr[et_u+edx]
|
|
mov edi,edx
|
|
|
|
LContinueSearch:
|
|
mov ebx,ds:dword ptr[et_u+ecx]
|
|
mov esi,ds:dword ptr[et_next+ecx]
|
|
cmp eax,ebx
|
|
jle LAddedge
|
|
mov ebx,ds:dword ptr[et_u+esi]
|
|
mov ecx,ds:dword ptr[et_next+esi]
|
|
cmp eax,ebx
|
|
jle LAddedge2
|
|
mov ebx,ds:dword ptr[et_u+ecx]
|
|
mov esi,ds:dword ptr[et_next+ecx]
|
|
cmp eax,ebx
|
|
jle LAddedge
|
|
mov ebx,ds:dword ptr[et_u+esi]
|
|
mov ecx,ds:dword ptr[et_next+esi]
|
|
cmp eax,ebx
|
|
jg LContinueSearch
|
|
|
|
LAddedge2:
|
|
mov edx,ds:dword ptr[et_next+edx]
|
|
mov ebx,ds:dword ptr[et_prev+esi]
|
|
mov ds:dword ptr[et_next+edi],esi
|
|
mov ds:dword ptr[et_prev+edi],ebx
|
|
mov ds:dword ptr[et_next+ebx],edi
|
|
mov ds:dword ptr[et_prev+esi],edi
|
|
mov ecx,esi
|
|
|
|
cmp edx,0
|
|
jnz LDoNextEdge
|
|
jmp LDone
|
|
|
|
align 4
|
|
LAddedge:
|
|
mov edx,ds:dword ptr[et_next+edx]
|
|
mov ebx,ds:dword ptr[et_prev+ecx]
|
|
mov ds:dword ptr[et_next+edi],ecx
|
|
mov ds:dword ptr[et_prev+edi],ebx
|
|
mov ds:dword ptr[et_next+ebx],edi
|
|
mov ds:dword ptr[et_prev+ecx],edi
|
|
|
|
cmp edx,0
|
|
jnz LDoNextEdge
|
|
|
|
LDone:
|
|
pop ebx ; restore register variables
|
|
pop esi
|
|
pop edi
|
|
|
|
ret
|
|
|
|
;--------------------------------------------------------------------
|
|
|
|
predge equ 4+4
|
|
|
|
public _R_RemoveEdges
|
|
_R_RemoveEdges:
|
|
push ebx
|
|
mov eax,ds:dword ptr[predge+esp]
|
|
|
|
Lre_loop:
|
|
mov ecx,ds:dword ptr[et_next+eax]
|
|
mov ebx,ds:dword ptr[et_nextremove+eax]
|
|
mov edx,ds:dword ptr[et_prev+eax]
|
|
test ebx,ebx
|
|
mov ds:dword ptr[et_prev+ecx],edx
|
|
jz Lre_done
|
|
mov ds:dword ptr[et_next+edx],ecx
|
|
|
|
mov ecx,ds:dword ptr[et_next+ebx]
|
|
mov edx,ds:dword ptr[et_prev+ebx]
|
|
mov eax,ds:dword ptr[et_nextremove+ebx]
|
|
mov ds:dword ptr[et_prev+ecx],edx
|
|
test eax,eax
|
|
mov ds:dword ptr[et_next+edx],ecx
|
|
jnz Lre_loop
|
|
|
|
pop ebx
|
|
ret
|
|
|
|
Lre_done:
|
|
mov ds:dword ptr[et_next+edx],ecx
|
|
pop ebx
|
|
|
|
ret
|
|
|
|
;--------------------------------------------------------------------
|
|
|
|
pedgelist equ 4+4 ; note odd stack offset because of interleaving
|
|
; with pushes
|
|
|
|
public _R_StepActiveU
|
|
_R_StepActiveU:
|
|
push edi
|
|
mov edx,ds:dword ptr[pedgelist+esp]
|
|
push esi ; preserve register variables
|
|
push ebx
|
|
|
|
mov esi,ds:dword ptr[et_prev+edx]
|
|
|
|
LNewEdge:
|
|
mov edi,ds:dword ptr[et_u+esi]
|
|
|
|
LNextEdge:
|
|
mov eax,ds:dword ptr[et_u+edx]
|
|
mov ebx,ds:dword ptr[et_u_step+edx]
|
|
add eax,ebx
|
|
mov esi,ds:dword ptr[et_next+edx]
|
|
mov ds:dword ptr[et_u+edx],eax
|
|
cmp eax,edi
|
|
jl LPushBack
|
|
|
|
mov edi,ds:dword ptr[et_u+esi]
|
|
mov ebx,ds:dword ptr[et_u_step+esi]
|
|
add edi,ebx
|
|
mov edx,ds:dword ptr[et_next+esi]
|
|
mov ds:dword ptr[et_u+esi],edi
|
|
cmp edi,eax
|
|
jl LPushBack2
|
|
|
|
mov eax,ds:dword ptr[et_u+edx]
|
|
mov ebx,ds:dword ptr[et_u_step+edx]
|
|
add eax,ebx
|
|
mov esi,ds:dword ptr[et_next+edx]
|
|
mov ds:dword ptr[et_u+edx],eax
|
|
cmp eax,edi
|
|
jl LPushBack
|
|
|
|
mov edi,ds:dword ptr[et_u+esi]
|
|
mov ebx,ds:dword ptr[et_u_step+esi]
|
|
add edi,ebx
|
|
mov edx,ds:dword ptr[et_next+esi]
|
|
mov ds:dword ptr[et_u+esi],edi
|
|
cmp edi,eax
|
|
jnl LNextEdge
|
|
|
|
LPushBack2:
|
|
mov ebx,edx
|
|
mov eax,edi
|
|
mov edx,esi
|
|
mov esi,ebx
|
|
|
|
LPushBack:
|
|
; push it back to keep it sorted
|
|
mov ecx,ds:dword ptr[et_prev+edx]
|
|
mov ebx,ds:dword ptr[et_next+edx]
|
|
|
|
; done if the -1 in edge_aftertail triggered this
|
|
cmp edx,offset _edge_aftertail
|
|
jz LUDone
|
|
|
|
; pull the edge out of the edge list
|
|
mov edi,ds:dword ptr[et_prev+ecx]
|
|
mov ds:dword ptr[et_prev+esi],ecx
|
|
mov ds:dword ptr[et_next+ecx],ebx
|
|
|
|
; find out where the edge goes in the edge list
|
|
LPushBackLoop:
|
|
mov ecx,ds:dword ptr[et_prev+edi]
|
|
mov ebx,ds:dword ptr[et_u+edi]
|
|
cmp eax,ebx
|
|
jnl LPushBackFound
|
|
|
|
mov edi,ds:dword ptr[et_prev+ecx]
|
|
mov ebx,ds:dword ptr[et_u+ecx]
|
|
cmp eax,ebx
|
|
jl LPushBackLoop
|
|
|
|
mov edi,ecx
|
|
|
|
; put the edge back into the edge list
|
|
LPushBackFound:
|
|
mov ebx,ds:dword ptr[et_next+edi]
|
|
mov ds:dword ptr[et_prev+edx],edi
|
|
mov ds:dword ptr[et_next+edx],ebx
|
|
mov ds:dword ptr[et_next+edi],edx
|
|
mov ds:dword ptr[et_prev+ebx],edx
|
|
|
|
mov edx,esi
|
|
mov esi,ds:dword ptr[et_prev+esi]
|
|
|
|
cmp edx,offset _edge_tail
|
|
jnz LNewEdge
|
|
|
|
LUDone:
|
|
pop ebx ; restore register variables
|
|
pop esi
|
|
pop edi
|
|
|
|
ret
|
|
|
|
;--------------------------------------------------------------------
|
|
|
|
surf equ 4 ; note this is loaded before any pushes
|
|
|
|
align 4
|
|
TrailingEdge:
|
|
mov eax,ds:dword ptr[st_spanstate+esi] ; check for edge inversion
|
|
dec eax
|
|
jnz LInverted
|
|
|
|
mov ds:dword ptr[st_spanstate+esi],eax
|
|
mov ecx,ds:dword ptr[st_insubmodel+esi]
|
|
mov edx,ds:dword ptr[12345678h] ; surfaces[1].st_next
|
|
LPatch0:
|
|
mov eax,ds:dword ptr[_r_bmodelactive]
|
|
sub eax,ecx
|
|
cmp edx,esi
|
|
mov ds:dword ptr[_r_bmodelactive],eax
|
|
jnz LNoEmit ; surface isn't on top, just remove
|
|
|
|
; emit a span (current top going away)
|
|
mov eax,ds:dword ptr[et_u+ebx]
|
|
shr eax,20 ; iu = integral pixel u
|
|
mov edx,ds:dword ptr[st_last_u+esi]
|
|
mov ecx,ds:dword ptr[st_next+esi]
|
|
cmp eax,edx
|
|
jle LNoEmit2 ; iu <= surf->last_u, so nothing to emit
|
|
|
|
mov ds:dword ptr[st_last_u+ecx],eax ; surf->next->last_u = iu;
|
|
sub eax,edx
|
|
mov ds:dword ptr[espan_t_u+ebp],edx ; span->u = surf->last_u;
|
|
|
|
mov ds:dword ptr[espan_t_count+ebp],eax ; span->count = iu - span->u;
|
|
mov eax,ds:dword ptr[_current_iv]
|
|
mov ds:dword ptr[espan_t_v+ebp],eax ; span->v = current_iv;
|
|
mov eax,ds:dword ptr[st_spans+esi]
|
|
mov ds:dword ptr[espan_t_pnext+ebp],eax ; span->pnext = surf->spans;
|
|
mov ds:dword ptr[st_spans+esi],ebp ; surf->spans = span;
|
|
add ebp,offset espan_t_size
|
|
|
|
mov edx,ds:dword ptr[st_next+esi] ; remove the surface from the surface
|
|
mov esi,ds:dword ptr[st_prev+esi] ; stack
|
|
|
|
mov ds:dword ptr[st_next+esi],edx
|
|
mov ds:dword ptr[st_prev+edx],esi
|
|
ret
|
|
|
|
LNoEmit2:
|
|
mov ds:dword ptr[st_last_u+ecx],eax ; surf->next->last_u = iu;
|
|
mov edx,ds:dword ptr[st_next+esi] ; remove the surface from the surface
|
|
mov esi,ds:dword ptr[st_prev+esi] ; stack
|
|
|
|
mov ds:dword ptr[st_next+esi],edx
|
|
mov ds:dword ptr[st_prev+edx],esi
|
|
ret
|
|
|
|
LNoEmit:
|
|
mov edx,ds:dword ptr[st_next+esi] ; remove the surface from the surface
|
|
mov esi,ds:dword ptr[st_prev+esi] ; stack
|
|
|
|
mov ds:dword ptr[st_next+esi],edx
|
|
mov ds:dword ptr[st_prev+edx],esi
|
|
ret
|
|
|
|
LInverted:
|
|
mov ds:dword ptr[st_spanstate+esi],eax
|
|
ret
|
|
|
|
;--------------------------------------------------------------------
|
|
|
|
; trailing edge only
|
|
Lgs_trailing:
|
|
push offset Lgs_nextedge
|
|
jmp TrailingEdge
|
|
|
|
|
|
public _R_GenerateSpans
|
|
_R_GenerateSpans:
|
|
push ebp ; preserve caller's stack frame
|
|
push edi
|
|
push esi ; preserve register variables
|
|
push ebx
|
|
|
|
; clear active surfaces to just the background surface
|
|
mov eax,ds:dword ptr[_surfaces]
|
|
mov edx,ds:dword ptr[_edge_head_u_shift20]
|
|
add eax,offset st_size
|
|
; %ebp = span_p throughout
|
|
mov ebp,ds:dword ptr[_span_p]
|
|
|
|
mov ds:dword ptr[_r_bmodelactive],0
|
|
|
|
mov ds:dword ptr[st_next+eax],eax
|
|
mov ds:dword ptr[st_prev+eax],eax
|
|
mov ds:dword ptr[st_last_u+eax],edx
|
|
mov ebx,ds:dword ptr[_edge_head+et_next] ; edge=edge_head.next
|
|
|
|
; generate spans
|
|
cmp ebx,offset _edge_tail ; done if empty list
|
|
jz Lgs_lastspan
|
|
|
|
Lgs_edgeloop:
|
|
|
|
mov edi,ds:dword ptr[et_surfs+ebx]
|
|
mov eax,ds:dword ptr[_surfaces]
|
|
mov esi,edi
|
|
and edi,0FFFF0000h
|
|
and esi,0FFFFh
|
|
jz Lgs_leading ; not a trailing edge
|
|
|
|
; it has a left surface, so a surface is going away for this span
|
|
shl esi,offset SURF_T_SHIFT
|
|
add esi,eax
|
|
test edi,edi
|
|
jz Lgs_trailing
|
|
|
|
; both leading and trailing
|
|
call near ptr TrailingEdge
|
|
mov eax,ds:dword ptr[_surfaces]
|
|
|
|
; ---------------------------------------------------------------
|
|
; handle a leading edge
|
|
; ---------------------------------------------------------------
|
|
|
|
Lgs_leading:
|
|
shr edi,16-SURF_T_SHIFT
|
|
mov eax,ds:dword ptr[_surfaces]
|
|
add edi,eax
|
|
mov esi,ds:dword ptr[12345678h] ; surf2 = surfaces[1].next;
|
|
LPatch2:
|
|
mov edx,ds:dword ptr[st_spanstate+edi]
|
|
mov eax,ds:dword ptr[st_insubmodel+edi]
|
|
test eax,eax
|
|
jnz Lbmodel_leading
|
|
|
|
; handle a leading non-bmodel edge
|
|
|
|
; don't start a span if this is an inverted span, with the end edge preceding
|
|
; the start edge (that is, we've already seen the end edge)
|
|
test edx,edx
|
|
jnz Lxl_done
|
|
|
|
|
|
; if (surf->key < surf2->key)
|
|
; goto newtop;
|
|
inc edx
|
|
mov eax,ds:dword ptr[st_key+edi]
|
|
mov ds:dword ptr[st_spanstate+edi],edx
|
|
mov ecx,ds:dword ptr[st_key+esi]
|
|
cmp eax,ecx
|
|
jl Lnewtop
|
|
|
|
; main sorting loop to search through surface stack until insertion point
|
|
; found. Always terminates because background surface is sentinel
|
|
; do
|
|
; {
|
|
; surf2 = surf2->next;
|
|
; } while (surf->key >= surf2->key);
|
|
Lsortloopnb:
|
|
mov esi,ds:dword ptr[st_next+esi]
|
|
mov ecx,ds:dword ptr[st_key+esi]
|
|
cmp eax,ecx
|
|
jge Lsortloopnb
|
|
|
|
jmp LInsertAndExit
|
|
|
|
|
|
; handle a leading bmodel edge
|
|
align 4
|
|
Lbmodel_leading:
|
|
|
|
; don't start a span if this is an inverted span, with the end edge preceding
|
|
; the start edge (that is, we've already seen the end edge)
|
|
test edx,edx
|
|
jnz Lxl_done
|
|
|
|
mov ecx,ds:dword ptr[_r_bmodelactive]
|
|
inc edx
|
|
inc ecx
|
|
mov ds:dword ptr[st_spanstate+edi],edx
|
|
mov ds:dword ptr[_r_bmodelactive],ecx
|
|
|
|
; if (surf->key < surf2->key)
|
|
; goto newtop;
|
|
mov eax,ds:dword ptr[st_key+edi]
|
|
mov ecx,ds:dword ptr[st_key+esi]
|
|
cmp eax,ecx
|
|
jl Lnewtop
|
|
|
|
; if ((surf->key == surf2->key) && surf->insubmodel)
|
|
; {
|
|
jz Lzcheck_for_newtop
|
|
|
|
; main sorting loop to search through surface stack until insertion point
|
|
; found. Always terminates because background surface is sentinel
|
|
; do
|
|
; {
|
|
; surf2 = surf2->next;
|
|
; } while (surf->key > surf2->key);
|
|
Lsortloop:
|
|
mov esi,ds:dword ptr[st_next+esi]
|
|
mov ecx,ds:dword ptr[st_key+esi]
|
|
cmp eax,ecx
|
|
jg Lsortloop
|
|
|
|
jne LInsertAndExit
|
|
|
|
; Do 1/z sorting to see if we've arrived in the right position
|
|
mov eax,ds:dword ptr[et_u+ebx]
|
|
sub eax,0FFFFFh
|
|
mov ds:dword ptr[Ltemp],eax
|
|
fild ds:dword ptr[Ltemp]
|
|
|
|
fmul ds:dword ptr[float_1_div_0100000h] ; fu = (float)(edge->u - 0xFFFFF) *
|
|
; (1.0 / 0x100000);
|
|
|
|
fld st(0) ; fu | fu
|
|
fmul ds:dword ptr[st_d_zistepu+edi] ; fu*surf->d_zistepu | fu
|
|
fld ds:dword ptr[_fv] ; fv | fu*surf->d_zistepu | fu
|
|
fmul ds:dword ptr[st_d_zistepv+edi] ; fv*surf->d_zistepv | fu*surf->d_zistepu | fu
|
|
fxch st(1) ; fu*surf->d_zistepu | fv*surf->d_zistepv | fu
|
|
fadd ds:dword ptr[st_d_ziorigin+edi] ; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fv*surf->d_zistepv | fu
|
|
|
|
fld ds:dword ptr[st_d_zistepu+esi] ; surf2->d_zistepu |
|
|
; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fv*surf->d_zistepv | fu
|
|
fmul st(0),st(3) ; fu*surf2->d_zistepu |
|
|
; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fv*surf->d_zistepv | fu
|
|
fxch st(1) ; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fu*surf2->d_zistepu |
|
|
; fv*surf->d_zistepv | fu
|
|
faddp st(2),st(0) ; fu*surf2->d_zistepu | newzi | fu
|
|
|
|
fld ds:dword ptr[_fv] ; fv | fu*surf2->d_zistepu | newzi | fu
|
|
fmul ds:dword ptr[st_d_zistepv+esi] ; fv*surf2->d_zistepv |
|
|
; fu*surf2->d_zistepu | newzi | fu
|
|
fld st(2) ; newzi | fv*surf2->d_zistepv |
|
|
; fu*surf2->d_zistepu | newzi | fu
|
|
fmul ds:dword ptr[float_point_999] ; newzibottom | fv*surf2->d_zistepv |
|
|
; fu*surf2->d_zistepu | newzi | fu
|
|
|
|
fxch st(2) ; fu*surf2->d_zistepu | fv*surf2->d_zistepv |
|
|
; newzibottom | newzi | fu
|
|
fadd ds:dword ptr[st_d_ziorigin+esi] ; fu*surf2->d_zistepu + surf2->d_ziorigin |
|
|
; fv*surf2->d_zistepv | newzibottom | newzi |
|
|
; fu
|
|
faddp st(1),st(0) ; testzi | newzibottom | newzi | fu
|
|
fxch st(1) ; newzibottom | testzi | newzi | fu
|
|
|
|
; if (newzibottom >= testzi)
|
|
; goto Lgotposition;
|
|
|
|
fcomp st(1) ; testzi | newzi | fu
|
|
|
|
fxch st(1) ; newzi | testzi | fu
|
|
fmul ds:dword ptr[float_1_point_001] ; newzitop | testzi | fu
|
|
fxch st(1) ; testzi | newzitop | fu
|
|
|
|
fnstsw ax
|
|
test ah,001h
|
|
jz Lgotposition_fpop3
|
|
|
|
; if (newzitop >= testzi)
|
|
; {
|
|
|
|
fcomp st(1) ; newzitop | fu
|
|
fnstsw ax
|
|
test ah,045h
|
|
jz Lsortloop_fpop2
|
|
|
|
; if (surf->d_zistepu >= surf2->d_zistepu)
|
|
; goto newtop;
|
|
|
|
fld ds:dword ptr[st_d_zistepu+edi] ; surf->d_zistepu | newzitop| fu
|
|
fcomp ds:dword ptr[st_d_zistepu+esi] ; newzitop | fu
|
|
fnstsw ax
|
|
test ah,001h
|
|
jz Lgotposition_fpop2
|
|
|
|
fstp st(0) ; clear the FPstack
|
|
fstp st(0)
|
|
mov eax,ds:dword ptr[st_key+edi]
|
|
jmp Lsortloop
|
|
|
|
|
|
Lgotposition_fpop3:
|
|
fstp st(0)
|
|
Lgotposition_fpop2:
|
|
fstp st(0)
|
|
fstp st(0)
|
|
jmp LInsertAndExit
|
|
|
|
|
|
; emit a span (obscures current top)
|
|
|
|
Lnewtop_fpop3:
|
|
fstp st(0)
|
|
Lnewtop_fpop2:
|
|
fstp st(0)
|
|
fstp st(0)
|
|
mov eax,ds:dword ptr[st_key+edi] ; reload the sorting key
|
|
|
|
Lnewtop:
|
|
mov eax,ds:dword ptr[et_u+ebx]
|
|
mov edx,ds:dword ptr[st_last_u+esi]
|
|
shr eax,20 ; iu = integral pixel u
|
|
mov ds:dword ptr[st_last_u+edi],eax ; surf->last_u = iu;
|
|
cmp eax,edx
|
|
jle LInsertAndExit ; iu <= surf->last_u, so nothing to emit
|
|
|
|
sub eax,edx
|
|
mov ds:dword ptr[espan_t_u+ebp],edx ; span->u = surf->last_u;
|
|
|
|
mov ds:dword ptr[espan_t_count+ebp],eax ; span->count = iu - span->u;
|
|
mov eax,ds:dword ptr[_current_iv]
|
|
mov ds:dword ptr[espan_t_v+ebp],eax ; span->v = current_iv;
|
|
mov eax,ds:dword ptr[st_spans+esi]
|
|
mov ds:dword ptr[espan_t_pnext+ebp],eax ; span->pnext = surf->spans;
|
|
mov ds:dword ptr[st_spans+esi],ebp ; surf->spans = span;
|
|
add ebp,offset espan_t_size
|
|
|
|
LInsertAndExit:
|
|
; insert before surf2
|
|
mov ds:dword ptr[st_next+edi],esi ; surf->next = surf2;
|
|
mov eax,ds:dword ptr[st_prev+esi]
|
|
mov ds:dword ptr[st_prev+edi],eax ; surf->prev = surf2->prev;
|
|
mov ds:dword ptr[st_prev+esi],edi ; surf2->prev = surf;
|
|
mov ds:dword ptr[st_next+eax],edi ; surf2->prev->next = surf;
|
|
|
|
; ---------------------------------------------------------------
|
|
; leading edge done
|
|
; ---------------------------------------------------------------
|
|
|
|
; ---------------------------------------------------------------
|
|
; see if there are any more edges
|
|
; ---------------------------------------------------------------
|
|
|
|
Lgs_nextedge:
|
|
mov ebx,ds:dword ptr[et_next+ebx]
|
|
cmp ebx,offset _edge_tail
|
|
jnz Lgs_edgeloop
|
|
|
|
; clean up at the right edge
|
|
Lgs_lastspan:
|
|
|
|
; now that we've reached the right edge of the screen, we're done with any
|
|
; unfinished surfaces, so emit a span for whatever's on top
|
|
mov esi,ds:dword ptr[12345678h] ; surfaces[1].st_next
|
|
LPatch3:
|
|
mov eax,ds:dword ptr[_edge_tail_u_shift20]
|
|
xor ecx,ecx
|
|
mov edx,ds:dword ptr[st_last_u+esi]
|
|
sub eax,edx
|
|
jle Lgs_resetspanstate
|
|
|
|
mov ds:dword ptr[espan_t_u+ebp],edx
|
|
mov ds:dword ptr[espan_t_count+ebp],eax
|
|
mov eax,ds:dword ptr[_current_iv]
|
|
mov ds:dword ptr[espan_t_v+ebp],eax
|
|
mov eax,ds:dword ptr[st_spans+esi]
|
|
mov ds:dword ptr[espan_t_pnext+ebp],eax
|
|
mov ds:dword ptr[st_spans+esi],ebp
|
|
add ebp,offset espan_t_size
|
|
|
|
; reset spanstate for all surfaces in the surface stack
|
|
Lgs_resetspanstate:
|
|
mov ds:dword ptr[st_spanstate+esi],ecx
|
|
mov esi,ds:dword ptr[st_next+esi]
|
|
cmp esi,012345678h ; &surfaces[1]
|
|
LPatch4:
|
|
jnz Lgs_resetspanstate
|
|
|
|
; store the final span_p
|
|
mov ds:dword ptr[_span_p],ebp
|
|
|
|
pop ebx ; restore register variables
|
|
pop esi
|
|
pop edi
|
|
pop ebp ; restore the caller's stack frame
|
|
ret
|
|
|
|
|
|
; ---------------------------------------------------------------
|
|
; 1/z sorting for bmodels in the same leaf
|
|
; ---------------------------------------------------------------
|
|
align 4
|
|
Lxl_done:
|
|
inc edx
|
|
mov ds:dword ptr[st_spanstate+edi],edx
|
|
|
|
jmp Lgs_nextedge
|
|
|
|
|
|
align 4
|
|
Lzcheck_for_newtop:
|
|
mov eax,ds:dword ptr[et_u+ebx]
|
|
sub eax,0FFFFFh
|
|
mov ds:dword ptr[Ltemp],eax
|
|
fild ds:dword ptr[Ltemp]
|
|
|
|
fmul ds:dword ptr[float_1_div_0100000h] ; fu = (float)(edge->u - 0xFFFFF) *
|
|
; (1.0 / 0x100000);
|
|
|
|
fld st(0) ; fu | fu
|
|
fmul ds:dword ptr[st_d_zistepu+edi] ; fu*surf->d_zistepu | fu
|
|
fld ds:dword ptr[_fv] ; fv | fu*surf->d_zistepu | fu
|
|
fmul ds:dword ptr[st_d_zistepv+edi] ; fv*surf->d_zistepv | fu*surf->d_zistepu | fu
|
|
fxch st(1) ; fu*surf->d_zistepu | fv*surf->d_zistepv | fu
|
|
fadd ds:dword ptr[st_d_ziorigin+edi] ; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fv*surf->d_zistepv | fu
|
|
|
|
fld ds:dword ptr[st_d_zistepu+esi] ; surf2->d_zistepu |
|
|
; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fv*surf->d_zistepv | fu
|
|
fmul st(0),st(3) ; fu*surf2->d_zistepu |
|
|
; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fv*surf->d_zistepv | fu
|
|
fxch st(1) ; fu*surf->d_zistepu + surf->d_ziorigin |
|
|
; fu*surf2->d_zistepu |
|
|
; fv*surf->d_zistepv | fu
|
|
faddp st(2),st(0) ; fu*surf2->d_zistepu | newzi | fu
|
|
|
|
fld ds:dword ptr[_fv] ; fv | fu*surf2->d_zistepu | newzi | fu
|
|
fmul ds:dword ptr[st_d_zistepv+esi] ; fv*surf2->d_zistepv |
|
|
; fu*surf2->d_zistepu | newzi | fu
|
|
fld st(2) ; newzi | fv*surf2->d_zistepv |
|
|
; fu*surf2->d_zistepu | newzi | fu
|
|
fmul ds:dword ptr[float_point_999] ; newzibottom | fv*surf2->d_zistepv |
|
|
; fu*surf2->d_zistepu | newzi | fu
|
|
|
|
fxch st(2) ; fu*surf2->d_zistepu | fv*surf2->d_zistepv |
|
|
; newzibottom | newzi | fu
|
|
fadd ds:dword ptr[st_d_ziorigin+esi] ; fu*surf2->d_zistepu + surf2->d_ziorigin |
|
|
; fv*surf2->d_zistepv | newzibottom | newzi |
|
|
; fu
|
|
faddp st(1),st(0) ; testzi | newzibottom | newzi | fu
|
|
fxch st(1) ; newzibottom | testzi | newzi | fu
|
|
|
|
; if (newzibottom >= testzi)
|
|
; goto newtop;
|
|
|
|
fcomp st(1) ; testzi | newzi | fu
|
|
|
|
fxch st(1) ; newzi | testzi | fu
|
|
fmul ds:dword ptr[float_1_point_001] ; newzitop | testzi | fu
|
|
fxch st(1) ; testzi | newzitop | fu
|
|
|
|
fnstsw ax
|
|
test ah,001h
|
|
jz Lnewtop_fpop3
|
|
|
|
; if (newzitop >= testzi)
|
|
; {
|
|
|
|
fcomp st(1) ; newzitop | fu
|
|
fnstsw ax
|
|
test ah,045h
|
|
jz Lsortloop_fpop2
|
|
|
|
; if (surf->d_zistepu >= surf2->d_zistepu)
|
|
; goto newtop;
|
|
|
|
fld ds:dword ptr[st_d_zistepu+edi] ; surf->d_zistepu | newzitop | fu
|
|
fcomp ds:dword ptr[st_d_zistepu+esi] ; newzitop | fu
|
|
fnstsw ax
|
|
test ah,001h
|
|
jz Lnewtop_fpop2
|
|
|
|
Lsortloop_fpop2:
|
|
fstp st(0) ; clear the FP stack
|
|
fstp st(0)
|
|
mov eax,ds:dword ptr[st_key+edi]
|
|
jmp Lsortloop
|
|
|
|
|
|
public _R_EdgeCodeEnd
|
|
_R_EdgeCodeEnd:
|
|
|
|
|
|
;----------------------------------------------------------------------
|
|
; Surface array address code patching routine
|
|
;----------------------------------------------------------------------
|
|
|
|
align 4
|
|
public _R_SurfacePatch
|
|
_R_SurfacePatch:
|
|
|
|
mov eax,ds:dword ptr[_surfaces]
|
|
add eax,offset st_size
|
|
mov ds:dword ptr[LPatch4-4],eax
|
|
|
|
add eax,offset st_next
|
|
mov ds:dword ptr[LPatch0-4],eax
|
|
mov ds:dword ptr[LPatch2-4],eax
|
|
mov ds:dword ptr[LPatch3-4],eax
|
|
|
|
ret
|
|
|
|
_TEXT ENDS
|
|
endif ;id386
|
|
END
|