238 lines
6.9 KiB
NASM
238 lines
6.9 KiB
NASM
|
;
|
|||
|
|
; 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
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|