mirror of
https://github.com/electronicarts/CnC_Red_Alert.git
synced 2025-12-15 15:11:39 -05:00
Initial commit of Command & Conquer Red Alert source code.
This commit is contained in:
LFeenanEA
289
WWFLAT32/PLAYCD/PLAYCD.ASM
Normal file
289
WWFLAT32/PLAYCD/PLAYCD.ASM
Normal file
@@ -0,0 +1,289 @@
|
||||
;
|
||||
; 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/>.
|
||||
;
|
||||
|
||||
|
||||
IDEAL
|
||||
P386
|
||||
MODEL USE32 FLAT
|
||||
|
||||
LOCALS ??
|
||||
|
||||
|
||||
DPMI_INTR equ 031h
|
||||
|
||||
GLOBAL DPMI_real_alloc : near
|
||||
GLOBAL DPMI_real_free : near
|
||||
GLOBAL DPMI_real_intr : near
|
||||
GLOBAL DPMI_real_call : near
|
||||
|
||||
|
||||
STRUC SEGSEL
|
||||
segmen dw ?
|
||||
select dw ?
|
||||
ENDS
|
||||
|
||||
STRUC REGS
|
||||
_eax dd ?
|
||||
_ebx dd ?
|
||||
_ecx dd ?
|
||||
_edx dd ?
|
||||
_esi dd ?
|
||||
_edi dd ?
|
||||
_cflag dd ?
|
||||
ENDS
|
||||
|
||||
STRUC SREGS
|
||||
_es dw ?
|
||||
_cs dw ?
|
||||
_ss dw ?
|
||||
_ds dw ?
|
||||
_fs dw ?
|
||||
_gs dw ?
|
||||
ENDS
|
||||
|
||||
STRUC DPMI_REGS
|
||||
_edi dd ?
|
||||
_esi dd ?
|
||||
_ebp dd ?
|
||||
dd ?
|
||||
_ebx dd ?
|
||||
_edx dd ?
|
||||
_ecx dd ?
|
||||
_eax dd ?
|
||||
Flags dw ?
|
||||
_es dw ?
|
||||
_ds dw ?
|
||||
_fs dw ?
|
||||
_gs dw ?
|
||||
_ip dw ?
|
||||
_cs dw ?
|
||||
_sp dw ?
|
||||
_ss dw ?
|
||||
dd ?
|
||||
dd ?
|
||||
size_ref db ?
|
||||
ENDS
|
||||
|
||||
|
||||
CODESEG
|
||||
|
||||
; int DPMI_real_alloc ( UINT , SEGREG * , USHORT * ) ;
|
||||
|
||||
PROC DPMI_real_alloc C near
|
||||
USES ebx , edx
|
||||
ARG paragra : DWORD
|
||||
ARG blk_segptr : DWORD
|
||||
ARG largest_blkptr : DWORD
|
||||
|
||||
mov eax, 0100h
|
||||
mov ebx, [paragra]
|
||||
int DPMI_INTR
|
||||
|
||||
jnc ??dpmi_succed
|
||||
mov ebx, [largest_blkptr]
|
||||
mov [ word ptr ebx ] , bx
|
||||
movzx eax , al
|
||||
ret
|
||||
|
||||
??dpmi_succed:
|
||||
mov ebx, [blk_segptr]
|
||||
mov [(type SEGSEL ptr ebx). segmen ] , ax
|
||||
mov [(type SEGSEL ptr ebx). select ] , dx
|
||||
xor eax , eax
|
||||
ret
|
||||
|
||||
ENDP DPMI_real_alloc
|
||||
|
||||
|
||||
;**************************************************************************
|
||||
; int DPMI_real_free ( UINT ) ;
|
||||
|
||||
PROC DPMI_real_free C near
|
||||
USES eax , edx
|
||||
ARG blk_selec : DWORD
|
||||
|
||||
mov eax, 0101h
|
||||
mov edx, [blk_selec]
|
||||
shr edx , 16
|
||||
int DPMI_INTR
|
||||
ret
|
||||
ENDP DPMI_real_free
|
||||
|
||||
|
||||
PROC DPMI_real_intr C near
|
||||
USES eax , ebx , ecx , edx , edi , esi
|
||||
ARG vector : dword
|
||||
ARG regs_ptr: dword
|
||||
ARG sreg_ptr: dword
|
||||
|
||||
LOCAL regblk : DPMI_REGS
|
||||
|
||||
lea edi , [ regblk ]
|
||||
xor eax , eax
|
||||
lea ecx , [ regblk . size_ref ]
|
||||
sub ecx , edi
|
||||
shr ecx , 2
|
||||
rep stosd
|
||||
|
||||
mov ebx , [ regs_ptr ]
|
||||
mov eax , [ (type REGS ptr ebx) . _eax ]
|
||||
mov [ regblk . _eax ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _ebx ]
|
||||
mov [ regblk . _ebx ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _ecx ]
|
||||
mov [ regblk . _ecx ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _edx ]
|
||||
mov [ regblk . _edx ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _esi ]
|
||||
mov [ regblk . _esi ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _edi ]
|
||||
mov [ regblk . _edi ] , eax
|
||||
|
||||
|
||||
mov ebx , [ sreg_ptr ]
|
||||
mov ax , [ (type SREGS ptr ebx) . _es ]
|
||||
mov [ regblk . _es ] , ax
|
||||
|
||||
mov ax , [ (type SREGS ptr ebx) . _ds ]
|
||||
mov [ regblk . _ds ] , ax
|
||||
|
||||
mov eax , 0300h
|
||||
mov ebx , [ vector ]
|
||||
xor bh , bh
|
||||
xor ecx , ecx
|
||||
lea edi , [ regblk ]
|
||||
|
||||
int DPMI_INTR
|
||||
|
||||
mov ebx , [ regs_ptr ]
|
||||
mov eax , [ regblk . _eax ]
|
||||
mov [ (type REGS ptr ebx) . _eax ] , eax
|
||||
|
||||
mov eax , [ regblk . _ebx ]
|
||||
mov [ (type REGS ptr ebx) . _ebx ] , eax
|
||||
|
||||
mov eax , [ regblk . _ecx ]
|
||||
mov [ (type REGS ptr ebx) . _ecx ] , eax
|
||||
|
||||
mov eax , [ regblk . _edx ]
|
||||
mov [ (type REGS ptr ebx) . _edx ] , eax
|
||||
|
||||
mov eax , [ regblk . _esi ]
|
||||
mov [ (type REGS ptr ebx) . _esi ] , eax
|
||||
|
||||
mov eax , [ regblk . _edi ]
|
||||
mov [ (type REGS ptr ebx) . _edi ] , eax
|
||||
|
||||
|
||||
mov ebx , [ sreg_ptr ]
|
||||
mov ax , [ regblk . _es ]
|
||||
mov [ (type SREGS ptr ebx) . _es ] , ax
|
||||
|
||||
mov ax , [ regblk . _ds ]
|
||||
mov [ (type SREGS ptr ebx) . _ds ] , ax
|
||||
|
||||
ret
|
||||
ENDP DPMI_real_intr
|
||||
|
||||
|
||||
PROC DPMI_real_call C near
|
||||
USES eax , ebx , ecx , edx , edi , esi
|
||||
ARG vector : dword
|
||||
ARG regs_ptr: dword
|
||||
ARG sreg_ptr: dword
|
||||
|
||||
LOCAL regblk : DPMI_REGS
|
||||
|
||||
|
||||
lea edi , [ regblk ]
|
||||
xor al , al
|
||||
lea ecx , [ regblk . size_ref ]
|
||||
sub ecx , edi
|
||||
rep movsb
|
||||
|
||||
|
||||
mov ebx , [ regs_ptr ]
|
||||
mov eax , [ (type REGS ptr ebx) . _eax ]
|
||||
mov [ regblk . _eax ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _ebx ]
|
||||
mov [ regblk . _ebx ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _ecx ]
|
||||
mov [ regblk . _ecx ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _edx ]
|
||||
mov [ regblk . _edx ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _esi ]
|
||||
mov [ regblk . _esi ] , eax
|
||||
|
||||
mov eax , [ (type REGS ptr ebx) . _edi ]
|
||||
mov [ regblk . _edi ] , eax
|
||||
|
||||
|
||||
mov ebx , [ sreg_ptr ]
|
||||
mov ax , [ (type SREGS ptr ebx) . _es ]
|
||||
mov [ regblk . _es ] , ax
|
||||
|
||||
mov ax , [ (type SREGS ptr ebx) . _ds ]
|
||||
mov [ regblk . _ds ] , ax
|
||||
|
||||
; mov eax , 0300h
|
||||
; mov ebx , [ vector ]
|
||||
; xor bh , bh
|
||||
; xor ecx , ecx
|
||||
; lea edi , [ regblk ]
|
||||
|
||||
; int DPMI_INTR
|
||||
|
||||
mov ebx , [ regs_ptr ]
|
||||
mov eax , [ regblk . _eax ]
|
||||
mov [ (type REGS ptr ebx) . _eax ] , eax
|
||||
mov eax , [ regblk . _ebx ]
|
||||
mov [ (type REGS ptr ebx) . _ebx ] , eax
|
||||
mov eax , [ regblk . _ecx ]
|
||||
mov [ (type REGS ptr ebx) . _ecx ] , eax
|
||||
mov eax , [ regblk . _edx ]
|
||||
mov [ (type REGS ptr ebx) . _edx ] , eax
|
||||
|
||||
mov eax , [ regblk . _esi ]
|
||||
mov [ (type REGS ptr ebx) . _esi ] , eax
|
||||
mov eax , [ regblk . _edi ]
|
||||
mov [ (type REGS ptr ebx) . _edi ] , eax
|
||||
|
||||
|
||||
mov ebx , [ sreg_ptr ]
|
||||
mov ax , [ regblk . _es ]
|
||||
mov [ (type SREGS ptr ebx) . _es ] , ax
|
||||
|
||||
mov ax , [ regblk . _ds ]
|
||||
mov [ (type SREGS ptr ebx) . _ds ] , ax
|
||||
|
||||
ret
|
||||
ENDP DPMI_real_call
|
||||
|
||||
END
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user