mirror of
https://github.com/electronicarts/CnC_Red_Alert.git
synced 2025-12-16 07:31:39 -05:00
Initial commit of Command & Conquer Red Alert source code.
This commit is contained in:
LFeenanEA
238
WWFLAT32/FILE/FFIRST.ASM
Normal file
238
WWFLAT32/FILE/FFIRST.ASM
Normal file
@@ -0,0 +1,238 @@
|
||||
;
|
||||
; 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 **
|
||||
;***************************************************************************
|
||||
;* *
|
||||
;* Project Name : First First *
|
||||
;* *
|
||||
;* File Name : FFIRST.ASM *
|
||||
;* *
|
||||
;* Programmer : Jeff Wilson *
|
||||
;* *
|
||||
;* Start Date : March 28, 1994 *
|
||||
;* *
|
||||
;* Last Update : April 15, 1994 [] *
|
||||
;* *
|
||||
;*-------------------------------------------------------------------------*
|
||||
;* Functions: *
|
||||
;* Find_First -- Find a file spec *
|
||||
;* Find_Next -- Find next file in sreach params *
|
||||
;* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
|
||||
|
||||
|
||||
|
||||
IDEAL
|
||||
P386
|
||||
MODEL USE32 FLAT
|
||||
|
||||
LOCALS ??
|
||||
|
||||
GLOBAL Find_First :NEAR
|
||||
GLOBAL Find_Next :NEAR
|
||||
|
||||
;============================================================================
|
||||
CODESEG
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* FIND_FIRST -- Find a file spec *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* file_name File spec to find. Maybe a wildcard name *
|
||||
;* mode File type *
|
||||
;* ffblk file data block ptr to write info into *
|
||||
;* *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;* 04/15/1994 jaw: Created. *
|
||||
;*=========================================================================*
|
||||
|
||||
PROC Find_First C near
|
||||
USES ebx,ecx,edx,esi,edi,es,ds
|
||||
ARG file_name:DWORD,mode:WORD,ffblk:DWORD
|
||||
|
||||
mov edx,[file_name]
|
||||
mov cx,[mode]
|
||||
|
||||
mov eax,4e00h ;first firstg function
|
||||
|
||||
int 21h
|
||||
;Find it?
|
||||
jnc ??found_it ;=>yes
|
||||
|
||||
; ax holds the error code
|
||||
;insure high word of eax is clear
|
||||
or eax,0ffffffffh
|
||||
jmp ??exit
|
||||
|
||||
??found_it:
|
||||
; found something
|
||||
;copy the DTA into the user block
|
||||
mov eax,2f00h ;get DTA address
|
||||
int 21h
|
||||
|
||||
mov ax,es ;switch selectors
|
||||
mov dx,ds
|
||||
mov ds,ax
|
||||
mov es,dx
|
||||
|
||||
mov esi,ebx
|
||||
mov edi,[ffblk]
|
||||
|
||||
add esi,21 ;SKIP RESERVED
|
||||
add edi,4 ;SKIP RESERVED
|
||||
|
||||
sub eax,eax
|
||||
mov al,[esi] ;get attrib byte
|
||||
mov [es:edi+4],eax
|
||||
inc esi
|
||||
|
||||
;get time
|
||||
mov ax,[esi]
|
||||
add esi,2
|
||||
mov [es:edi+8],ax
|
||||
|
||||
;get date
|
||||
mov ax,[esi]
|
||||
add esi,2
|
||||
mov [es:edi+10],ax
|
||||
|
||||
;get file size
|
||||
mov eax,[esi]
|
||||
add esi,4
|
||||
mov [es:edi],eax
|
||||
|
||||
add edi,12
|
||||
|
||||
mov ecx,13
|
||||
|
||||
rep movsb ;copy the DTA name
|
||||
|
||||
mov ax,es
|
||||
mov ds,ax
|
||||
|
||||
xor eax,eax
|
||||
??exit:
|
||||
ret
|
||||
;====================
|
||||
ENDP Find_First
|
||||
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* FIND_NEXT -- Find next file in sreach params *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* NONE *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;* 04/15/1994 jaw: Created. *
|
||||
;*=========================================================================*
|
||||
|
||||
PROC Find_Next C near
|
||||
USES ebx,ecx,edx,esi,edi,ds,es
|
||||
|
||||
ARG ffblk:DWORD
|
||||
|
||||
mov eax,04f00h ;Find Next function
|
||||
|
||||
int 21h
|
||||
;Find anything?
|
||||
jnc ??found_it ;=>no
|
||||
|
||||
; ax holds the error code
|
||||
;insure high word of eax is clear
|
||||
or eax,0ffffffffh
|
||||
jmp ??exit
|
||||
|
||||
??found_it:
|
||||
; found something
|
||||
;copy the DTA into the user block
|
||||
mov eax,2f00h ;get DTA address
|
||||
int 21h
|
||||
|
||||
mov ax,es ;switch selectors
|
||||
mov dx,ds
|
||||
mov ds,ax
|
||||
mov es,dx
|
||||
|
||||
mov esi,ebx
|
||||
mov edi,[ffblk]
|
||||
|
||||
add esi,21 ;SKIP RESERVED
|
||||
add edi,4 ;SKIP RESERVED
|
||||
|
||||
sub eax,eax
|
||||
mov al,[esi] ;get attrib byte
|
||||
mov [es:edi+4],eax
|
||||
inc esi
|
||||
|
||||
;get time
|
||||
mov ax,[esi]
|
||||
add esi,2
|
||||
mov [es:edi+8],ax
|
||||
|
||||
;get date
|
||||
mov ax,[esi]
|
||||
add esi,2
|
||||
mov [es:edi+10],ax
|
||||
|
||||
;get file size
|
||||
mov eax,[esi]
|
||||
add esi,4
|
||||
mov [es:edi],eax
|
||||
|
||||
add edi,12
|
||||
|
||||
mov ecx,13
|
||||
|
||||
rep movsb ;copy the DTA name
|
||||
|
||||
mov ax,es
|
||||
mov ds,ax
|
||||
|
||||
xor eax,eax
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Find_Next
|
||||
|
||||
|
||||
END
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user