ben/CnC_Red_Alert
1
0
Fork 0
mirror of https://github.com/electronicarts/CnC_Red_Alert.git synced 2025-12-16 07:31:39 -05:00
Code Issues Packages Projects Releases Wiki Activity

Initial commit of Command & Conquer Red Alert source code.

Browse Source
This commit is contained in:
LFeenanEA
2025-02-27 16:15:05 +00:00
parent b685cea758
commit 5e733d5dcc
2082 changed files with 797727 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

162
WINVQ/VQAVIEW/INTERPAL.ASM Normal file
View File

@@ -0,0 +1,162 @@
;
; Command & Conquer Red Alert(tm)
; Copyright 2025 Electronic Arts 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 3 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, see <http://www.gnu.org/licenses/>.
;
;**********************************************************************************************
;** C O N F I D E N T I A L --- W E S T W O O D S T U D I O S I N C **
;**********************************************************************************************
;* *
;* Project Name : VQA Viewer *
;* *
;* File Name : INTERPAL.ASM *
;* *
;* Programmer : Steve Tall *
;* *
;* Start Date : December 15th, 1995 *
;* *
;* Last Update : December 22nd, 1995 [ST] *
;* *
;*--------------------------------------------------------------------------------------------*
;* Functions: *
;* *
;* Asm_Interpolate -- interpolate a 320x200 buffer to a 640x400 screen *
;* *
;* *
;* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
IDEAL
P386
MODEL USE32 FLAT
segment mycode page public use32 'code' ; Need stricter segment alignment
global C Asm_Interpolate:near
global C Palette_Interpolation_Table:byte
;*********************************************************************************************
;* Asm_Interpolate -- interpolate a 320x200 buffer to a 640x400 screen *
;* *
;* INPUT: ptr to source buffer (320x200 image) *
;* ptr to dest buffer (640x400) *
;* height of source buffer *
;* width f source buffer *
;* width of dest buffer *
;* *
;* *
;* OUTPUT: none *
;* *
;* Warnings: *
;* *
;* HISTORY: *
;* 12/15/95 ST : Created. *
;*===========================================================================================*
PROC Asm_Interpolate C near
ARG src_ptr:dword
ARG dest_ptr:dword
ARG source_height:dword
ARG source_width:dword
ARG dest_width:dword
LOCAL old_dest:dword
LOCAL width_counter:dword
pushad
mov eax,[dest_ptr]
mov [old_dest],eax
mov esi,[src_ptr]
??each_line_loop:
mov [width_counter],0
mov ecx,[source_width]
sub ecx,2
shr ecx,1
mov edi,[old_dest]
jmp ??interpolate_loop
align 32
;
; convert 2 pixels of source into 4 pixels of destination
; so we can write to video memory with dwords
;
??interpolate_loop:
mov eax,[esi]
lea esi,[esi+2]
mov edx,eax
mov ebx,eax
and edx,65535
ror ebx,8
mov bl,[edx+Palette_Interpolation_Table]
mov bh,ah
and eax,000ffff00h
ror ebx,8
;1st 3 pixels now in ebx
shr eax,8
mov bh,[eax+Palette_Interpolation_Table]
ror ebx,16
mov [edi],ebx
add edi,4
dec ecx
jnz ??interpolate_loop
; do the last three pixels and a blank on the end of a row
xor eax,eax
mov ax,[esi]
mov [edi],al
inc edi
lea esi,[esi+2]
mov al,[eax+Palette_Interpolation_Table]
mov [edi],al
inc edi
mov [edi],ah
inc edi
mov [byte edi],0
mov edi,[dest_width]
add [old_dest],edi
dec [source_height]
jnz ??each_line_loop
popad
ret
endp Asm_Interpolate
ends mycode
end