greed/CODE/BLITBUF.ASM

178 lines
5.4 KiB
NASM
Raw Normal View History

2014-12-12 00:00:00 +00:00
;***************************************************************************/
;* */
;* */
;* Raven 3D Engine */
;* Copyright (C) 1995 by Softdisk Publishing */
;* */
;* Original Design: */
;* John Carmack of id Software */
;* */
;* Enhancements by: */
;* Robert Morgan of Channel 7............................Main Engine Code */
;* Todd Lewis of Softdisk Publishing......Tools,Utilities,Special Effects */
;* John Bianca of Softdisk Publishing..............Low-level Optimization */
;* Carlos Hasan..........................................Music/Sound Code */
;* */
;* */
;***************************************************************************/
.386
.MODEL small
SKIPPRIMITIVES = 0 ; set to 1 to skip unwound drawing
INCLUDE viewsize.inc
INCLUDE macros.inc
PEL_WRITE_ADR = 03c8h
PEL_DATA = 03c9h
.DATA
EXTRN viewbuffer:WORD
EXTRN windowWidth:DWORD
EXTRN windowHeight:DWORD
.CODE
;=========================================================================
;= VI_DrawMaskedPicToBuffer =
;= =
;= C prototype: =
;= void VI_DrawMaskedPicToBuffer (int x, int y, pic_t *pic) =
;=========================================================================
@Proc VI_DrawMaskedPicToBuffer, <ebx,esi,edi>, <<x,DWORD>,<y,DWORD>,<pic,DWORD>>
; mov ax, ds
; mov es, ax
mov edi,OFFSET viewbuffer
mov esi,[pic] ; si -> pic
;----- Set up y and height
xor ecx,ecx
mov cx,[esi+2] ; get height (row count) of image
mov eax,[y] ; get row location
sub ax,[esi+6] ; subtract orgy
;----- Adjust for y < 0
or eax,eax ; is y < 0 ?
jnl short @@findheight ; if not, go to height adjust
add ecx,eax ; if so, add y to height (h -= (-y))
xor eax,eax ; y = 0
;----- Check for bitmap going off the bottom edge
@@findheight:
push eax ; save y
add eax,ecx ; bottom row of image
cmp eax,windowHeight
pop eax ; restore y
jle short @@heightok ; if not, get on with it
mov ecx,windowHeight
sub ecx,eax ; h = bottom - y
@@heightok:
mov ebx,windowWidth
mul ebx ; oh no, not a mul!
add edi,eax ; move down Viewbuffer to proper row
;----- Set up x and width
mov edx,[x] ; get column location
sub dx,[esi+4] ; subtract orgx
mov bx,[esi] ; get width (col count) of image
;----- Set up esi to pic->data
add esi,8
;----- Adjust for x < 0
or edx,edx ; is x < 0:
jnl short @@findwidth ; if not, go to width adjust
add ebx,edx ; if so, add x to width (w -= (-x))
;----- Check for bitmap going off the right edge
@@findwidth:
push edx ; save x
add edx,ebx ; rightmost col of image
cmp edx,windowWidth ; is (w+x) > right ?
pop edx ; restore x
jle short @@widthok ; if not, get on with it
mov ebx,windowWidth ; if so,
sub ebx,edx ; w = right - x
@@widthok:
;----- Set up edi to point to Veiwbuffer[x,y]
add edi,edx
mov edx,windowWidth ; set eax to pixels in viewbuffer
sub edx,ebx ; to right of our image
@@rowloop:
push ecx ; save height (row count)
;------ Copy this row (masked) to Viewbuffer
mov ecx,ebx ; get width (col count) of image
shr ecx,2
ALIGN 4
@@colloop: ; for each pixel in row
lodsd
test eax,eax
jnz short @@try1
add edi,4
loop @@colloop
jmp short @@rowdone
ALIGN 4
@@try1:
test al,al
jz short @@try2
mov [edi],al
@@try2:
inc edi
shr eax,8
test al,al
jz short @@try3
mov [edi],al
@@try3:
inc edi
shr eax,8
test al,al
jz short @@try4
mov [edi],al
@@try4:
inc edi
shr eax,8
test al,al
jz short @@next4
mov [edi],al
@@next4:
inc edi
loop @@colloop ; and go to next pixel
ALIGN 4
@@rowdone: ; this row is finished
pop ecx ; restore height (row count)
add edi,edx ; increment Viewbuffer to next row
loop @@rowloop ; go to the next row
@exitp <ebx,esi,edi>
ENDP
END