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
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|