ref: 02611e064eceed8d8cda8cc4d6e60f8f1833ea72
dir: /u/surf8.s/
// // surf8.s // x86 assembly-language 8 bpp surface block drawing code. // #include "asm_i386.h" #include "quakeasm.h" #include "asm_draw.h" #ifdef id386 .data sb_v: .long 0 .text .align 4 .globl C(R_Surf8Start) C(R_Surf8Start): //---------------------------------------------------------------------- // Surface block drawer for mip level 0 //---------------------------------------------------------------------- .align 4 .globl C(R_DrawSurfaceBlock8_mip0) C(R_DrawSurfaceBlock8_mip0): pushl %ebp // preserve caller's stack frame pushl %edi pushl %esi // preserve register variables pushl %ebx // for (v=0 ; v<numvblocks ; v++) // { movl C(r_lightptr),%ebx movl C(r_numvblocks),%eax movl %eax,sb_v movl C(prowdestbase),%edi movl C(pbasesource),%esi Lv_loop_mip0: // lightleft = lightptr[0]; // lightright = lightptr[1]; // lightdelta = (lightleft - lightright) & 0xFFFFF; movl (%ebx),%eax // lightleft movl 4(%ebx),%edx // lightright movl %eax,%ebp movl C(r_lightwidth),%ecx movl %edx,C(lightright) subl %edx,%ebp andl $0xFFFFF,%ebp leal (%ebx,%ecx,4),%ebx // lightptr += lightwidth; movl %ebx,C(r_lightptr) // lightleftstep = (lightptr[0] - lightleft) >> blockdivshift; // lightrightstep = (lightptr[1] - lightright) >> blockdivshift; // lightdeltastep = ((lightleftstep - lightrightstep) & 0xFFFFF) | // 0xF0000000; movl 4(%ebx),%ecx // lightptr[1] movl (%ebx),%ebx // lightptr[0] subl %eax,%ebx subl %edx,%ecx sarl $4,%ecx orl $0xF0000000,%ebp sarl $4,%ebx movl %ecx,C(lightrightstep) subl %ecx,%ebx andl $0xFFFFF,%ebx orl $0xF0000000,%ebx subl %ecx,%ecx // high word must be 0 in loop for addressing movl %ebx,C(lightdeltastep) subl %ebx,%ebx // high word must be 0 in loop for addressing Lblockloop8_mip0: movl %ebp,C(lightdelta) movb 14(%esi),%cl sarl $4,%ebp movb %dh,%bh movb 15(%esi),%bl addl %ebp,%edx movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch0: movb 13(%esi),%bl movb 0x12345678(%ecx),%al LBPatch1: movb 12(%esi),%cl movb %dh,%bh addl %ebp,%edx rorl $16,%eax movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch2: movb 11(%esi),%bl movb 0x12345678(%ecx),%al LBPatch3: movb 10(%esi),%cl movl %eax,12(%edi) movb %dh,%bh addl %ebp,%edx movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch4: movb 9(%esi),%bl movb 0x12345678(%ecx),%al LBPatch5: movb 8(%esi),%cl movb %dh,%bh addl %ebp,%edx rorl $16,%eax movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch6: movb 7(%esi),%bl movb 0x12345678(%ecx),%al LBPatch7: movb 6(%esi),%cl movl %eax,8(%edi) movb %dh,%bh addl %ebp,%edx movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch8: movb 5(%esi),%bl movb 0x12345678(%ecx),%al LBPatch9: movb 4(%esi),%cl movb %dh,%bh addl %ebp,%edx rorl $16,%eax movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch10: movb 3(%esi),%bl movb 0x12345678(%ecx),%al LBPatch11: movb 2(%esi),%cl movl %eax,4(%edi) movb %dh,%bh addl %ebp,%edx movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch12: movb 1(%esi),%bl movb 0x12345678(%ecx),%al LBPatch13: movb (%esi),%cl movb %dh,%bh addl %ebp,%edx rorl $16,%eax movb %dh,%ch movb 0x12345678(%ebx),%ah LBPatch14: movl C(lightright),%edx movb 0x12345678(%ecx),%al LBPatch15: movl C(lightdelta),%ebp movl %eax,(%edi) addl C(sourcetstep),%esi addl C(surfrowbytes),%edi addl C(lightrightstep),%edx addl C(lightdeltastep),%ebp movl %edx,C(lightright) jc Lblockloop8_mip0 // if (pbasesource >= r_sourcemax) // pbasesource -= stepback; cmpl C(r_sourcemax),%esi jb LSkip_mip0 subl C(r_stepback),%esi LSkip_mip0: movl C(r_lightptr),%ebx decl sb_v jnz Lv_loop_mip0 popl %ebx // restore register variables popl %esi popl %edi popl %ebp // restore the caller's stack frame ret //---------------------------------------------------------------------- // Surface block drawer for mip level 1 //---------------------------------------------------------------------- .align 4 .globl C(R_DrawSurfaceBlock8_mip1) C(R_DrawSurfaceBlock8_mip1): pushl %ebp // preserve caller's stack frame pushl %edi pushl %esi // preserve register variables pushl %ebx // for (v=0 ; v<numvblocks ; v++) // { movl C(r_lightptr),%ebx movl C(r_numvblocks),%eax movl %eax,sb_v movl C(prowdestbase),%edi movl C(pbasesource),%esi Lv_loop_mip1: // lightleft = lightptr[0]; // lightright = lightptr[1]; // lightdelta = (lightleft - lightright) & 0xFFFFF; movl (%ebx),%eax // lightleft movl 4(%ebx),%edx // lightright movl %eax,%ebp movl C(r_lightwidth),%ecx movl %edx,C(lightright) subl %edx,%ebp andl $0xFFFFF,%ebp leal (%ebx,%ecx,4),%ebx // lightptr += lightwidth; movl %ebx,C(r_lightptr) // lightleftstep = (lightptr[0] - lightleft) >> blockdivshift; // lightrightstep = (lightptr[1] - lightright) >> blockdivshift; // lightdeltastep = ((lightleftstep - lightrightstep) & 0xFFFFF) | // 0xF0000000; movl 4(%ebx),%ecx // lightptr[1] movl (%ebx),%ebx // lightptr[0] subl %eax,%ebx subl %edx,%ecx sarl $3,%ecx orl $0x70000000,%ebp sarl $3,%ebx movl %ecx,C(lightrightstep) subl %ecx,%ebx andl $0xFFFFF,%ebx orl $0xF0000000,%ebx subl %ecx,%ecx // high word must be 0 in loop for addressing movl %ebx,C(lightdeltastep) subl %ebx,%ebx // high word must be 0 in loop for addressing Lblockloop8_mip1: movl %ebp,C(lightdelta) movb 6(%esi),%cl sarl $3,%ebp movb %dh,%bh movb 7(%esi),%bl addl %ebp,%edx movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch22: movb 5(%esi),%bl movb 0x12345678(%ecx),%al LBPatch23: movb 4(%esi),%cl movb %dh,%bh addl %ebp,%edx rorl $16,%eax movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch24: movb 3(%esi),%bl movb 0x12345678(%ecx),%al LBPatch25: movb 2(%esi),%cl movl %eax,4(%edi) movb %dh,%bh addl %ebp,%edx movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch26: movb 1(%esi),%bl movb 0x12345678(%ecx),%al LBPatch27: movb (%esi),%cl movb %dh,%bh addl %ebp,%edx rorl $16,%eax movb %dh,%ch movb 0x12345678(%ebx),%ah LBPatch28: movl C(lightright),%edx movb 0x12345678(%ecx),%al LBPatch29: movl C(lightdelta),%ebp movl %eax,(%edi) movl C(sourcetstep),%eax addl %eax,%esi movl C(surfrowbytes),%eax addl %eax,%edi movl C(lightrightstep),%eax addl %eax,%edx movl C(lightdeltastep),%eax addl %eax,%ebp movl %edx,C(lightright) jc Lblockloop8_mip1 // if (pbasesource >= r_sourcemax) // pbasesource -= stepback; cmpl C(r_sourcemax),%esi jb LSkip_mip1 subl C(r_stepback),%esi LSkip_mip1: movl C(r_lightptr),%ebx decl sb_v jnz Lv_loop_mip1 popl %ebx // restore register variables popl %esi popl %edi popl %ebp // restore the caller's stack frame ret //---------------------------------------------------------------------- // Surface block drawer for mip level 2 //---------------------------------------------------------------------- .align 4 .globl C(R_DrawSurfaceBlock8_mip2) C(R_DrawSurfaceBlock8_mip2): pushl %ebp // preserve caller's stack frame pushl %edi pushl %esi // preserve register variables pushl %ebx // for (v=0 ; v<numvblocks ; v++) // { movl C(r_lightptr),%ebx movl C(r_numvblocks),%eax movl %eax,sb_v movl C(prowdestbase),%edi movl C(pbasesource),%esi Lv_loop_mip2: // lightleft = lightptr[0]; // lightright = lightptr[1]; // lightdelta = (lightleft - lightright) & 0xFFFFF; movl (%ebx),%eax // lightleft movl 4(%ebx),%edx // lightright movl %eax,%ebp movl C(r_lightwidth),%ecx movl %edx,C(lightright) subl %edx,%ebp andl $0xFFFFF,%ebp leal (%ebx,%ecx,4),%ebx // lightptr += lightwidth; movl %ebx,C(r_lightptr) // lightleftstep = (lightptr[0] - lightleft) >> blockdivshift; // lightrightstep = (lightptr[1] - lightright) >> blockdivshift; // lightdeltastep = ((lightleftstep - lightrightstep) & 0xFFFFF) | // 0xF0000000; movl 4(%ebx),%ecx // lightptr[1] movl (%ebx),%ebx // lightptr[0] subl %eax,%ebx subl %edx,%ecx sarl $2,%ecx orl $0x30000000,%ebp sarl $2,%ebx movl %ecx,C(lightrightstep) subl %ecx,%ebx andl $0xFFFFF,%ebx orl $0xF0000000,%ebx subl %ecx,%ecx // high word must be 0 in loop for addressing movl %ebx,C(lightdeltastep) subl %ebx,%ebx // high word must be 0 in loop for addressing Lblockloop8_mip2: movl %ebp,C(lightdelta) movb 2(%esi),%cl sarl $2,%ebp movb %dh,%bh movb 3(%esi),%bl addl %ebp,%edx movb %dh,%ch addl %ebp,%edx movb 0x12345678(%ebx),%ah LBPatch18: movb 1(%esi),%bl movb 0x12345678(%ecx),%al LBPatch19: movb (%esi),%cl movb %dh,%bh addl %ebp,%edx rorl $16,%eax movb %dh,%ch movb 0x12345678(%ebx),%ah LBPatch20: movl C(lightright),%edx movb 0x12345678(%ecx),%al LBPatch21: movl C(lightdelta),%ebp movl %eax,(%edi) movl C(sourcetstep),%eax addl %eax,%esi movl C(surfrowbytes),%eax addl %eax,%edi movl C(lightrightstep),%eax addl %eax,%edx movl C(lightdeltastep),%eax addl %eax,%ebp movl %edx,C(lightright) jc Lblockloop8_mip2 // if (pbasesource >= r_sourcemax) // pbasesource -= stepback; cmpl C(r_sourcemax),%esi jb LSkip_mip2 subl C(r_stepback),%esi LSkip_mip2: movl C(r_lightptr),%ebx decl sb_v jnz Lv_loop_mip2 popl %ebx // restore register variables popl %esi popl %edi popl %ebp // restore the caller's stack frame ret //---------------------------------------------------------------------- // Surface block drawer for mip level 3 //---------------------------------------------------------------------- .align 4 .globl C(R_DrawSurfaceBlock8_mip3) C(R_DrawSurfaceBlock8_mip3): pushl %ebp // preserve caller's stack frame pushl %edi pushl %esi // preserve register variables pushl %ebx // for (v=0 ; v<numvblocks ; v++) // { movl C(r_lightptr),%ebx movl C(r_numvblocks),%eax movl %eax,sb_v movl C(prowdestbase),%edi movl C(pbasesource),%esi Lv_loop_mip3: // lightleft = lightptr[0]; // lightright = lightptr[1]; // lightdelta = (lightleft - lightright) & 0xFFFFF; movl (%ebx),%eax // lightleft movl 4(%ebx),%edx // lightright movl %eax,%ebp movl C(r_lightwidth),%ecx movl %edx,C(lightright) subl %edx,%ebp andl $0xFFFFF,%ebp leal (%ebx,%ecx,4),%ebx movl %ebp,C(lightdelta) // lightptr += lightwidth; movl %ebx,C(r_lightptr) // lightleftstep = (lightptr[0] - lightleft) >> blockdivshift; // lightrightstep = (lightptr[1] - lightright) >> blockdivshift; // lightdeltastep = ((lightleftstep - lightrightstep) & 0xFFFFF) | // 0xF0000000; movl 4(%ebx),%ecx // lightptr[1] movl (%ebx),%ebx // lightptr[0] subl %eax,%ebx subl %edx,%ecx sarl $1,%ecx sarl $1,%ebx movl %ecx,C(lightrightstep) subl %ecx,%ebx andl $0xFFFFF,%ebx sarl $1,%ebp orl $0xF0000000,%ebx movl %ebx,C(lightdeltastep) subl %ebx,%ebx // high word must be 0 in loop for addressing movb 1(%esi),%bl subl %ecx,%ecx // high word must be 0 in loop for addressing movb %dh,%bh movb (%esi),%cl addl %ebp,%edx movb %dh,%ch movb 0x12345678(%ebx),%al LBPatch16: movl C(lightright),%edx movb %al,1(%edi) movb 0x12345678(%ecx),%al LBPatch17: movb %al,(%edi) movl C(sourcetstep),%eax addl %eax,%esi movl C(surfrowbytes),%eax addl %eax,%edi movl C(lightdeltastep),%eax movl C(lightdelta),%ebp movb (%esi),%cl addl %eax,%ebp movl C(lightrightstep),%eax sarl $1,%ebp addl %eax,%edx movb %dh,%bh movb 1(%esi),%bl addl %ebp,%edx movb %dh,%ch movb 0x12345678(%ebx),%al LBPatch30: movl C(sourcetstep),%edx movb %al,1(%edi) movb 0x12345678(%ecx),%al LBPatch31: movb %al,(%edi) movl C(surfrowbytes),%ebp addl %edx,%esi addl %ebp,%edi // if (pbasesource >= r_sourcemax) // pbasesource -= stepback; cmpl C(r_sourcemax),%esi jb LSkip_mip3 subl C(r_stepback),%esi LSkip_mip3: movl C(r_lightptr),%ebx decl sb_v jnz Lv_loop_mip3 popl %ebx // restore register variables popl %esi popl %edi popl %ebp // restore the caller's stack frame ret .globl C(R_Surf8End) C(R_Surf8End): //---------------------------------------------------------------------- // Code patching routines //---------------------------------------------------------------------- .data .align 4 LPatchTable8: .long LBPatch0-4 .long LBPatch1-4 .long LBPatch2-4 .long LBPatch3-4 .long LBPatch4-4 .long LBPatch5-4 .long LBPatch6-4 .long LBPatch7-4 .long LBPatch8-4 .long LBPatch9-4 .long LBPatch10-4 .long LBPatch11-4 .long LBPatch12-4 .long LBPatch13-4 .long LBPatch14-4 .long LBPatch15-4 .long LBPatch16-4 .long LBPatch17-4 .long LBPatch18-4 .long LBPatch19-4 .long LBPatch20-4 .long LBPatch21-4 .long LBPatch22-4 .long LBPatch23-4 .long LBPatch24-4 .long LBPatch25-4 .long LBPatch26-4 .long LBPatch27-4 .long LBPatch28-4 .long LBPatch29-4 .long LBPatch30-4 .long LBPatch31-4 .text .align 4 .globl C(R_Surf8Patch) C(R_Surf8Patch): pushl %ebx movl C(colormap),%eax movl $LPatchTable8,%ebx movl $32,%ecx LPatchLoop8: movl (%ebx),%edx addl $4,%ebx movl %eax,(%edx) decl %ecx jnz LPatchLoop8 popl %ebx ret #endif // id386