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
845
WIN32LIB/SRCDEBUG/MONO.ASM
Normal file
845
WIN32LIB/SRCDEBUG/MONO.ASM
Normal file
@@ -0,0 +1,845 @@
|
||||
;
|
||||
; 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 : Mono Screen system *
|
||||
;* *
|
||||
;* File Name : MONO.ASM *
|
||||
;* *
|
||||
;* Programmer : Jeff Wilson *
|
||||
;* *
|
||||
;* Start Date : March 28, 1994 *
|
||||
;* *
|
||||
;* Last Update : September 8, 1994 [IML] *
|
||||
;* *
|
||||
;*-------------------------------------------------------------------------*
|
||||
;* Functions: *
|
||||
;GLOBAL MonoScreen :DWORD
|
||||
;GLOBAL MonoEnabled :DWORD
|
||||
;
|
||||
;GLOBAL C Mono_Set_Cursor :NEAR
|
||||
;GLOBAL C Mono_Clear_Screen :NEAR
|
||||
;GLOBAL C Mono_Scroll :NEAR
|
||||
;GLOBAL C Mono_Put_Char :NEAR
|
||||
;GLOBAL C Mono_Draw_Rect :NEAR
|
||||
;
|
||||
;GLOBAL C _Mono_Text_Print :NEAR
|
||||
;GLOBAL C Mono_Text_Print :NEAR
|
||||
;
|
||||
;GLOBAL C Mono_Print :NEAR
|
||||
;
|
||||
;GLOBAL C Mono_View_Page :NEAR
|
||||
;* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
|
||||
|
||||
|
||||
IDEAL
|
||||
P386
|
||||
MODEL USE32 FLAT
|
||||
|
||||
LOCALS ??
|
||||
|
||||
|
||||
;
|
||||
; External declares so these functions can be called
|
||||
;
|
||||
GLOBAL MonoScreen :DWORD
|
||||
GLOBAL MonoEnabled :DWORD
|
||||
|
||||
GLOBAL Mono_Set_Cursor :NEAR ; done
|
||||
GLOBAL Mono_Clear_Screen :NEAR ; done
|
||||
GLOBAL Mono_Scroll :NEAR ; done
|
||||
GLOBAL Mono_Put_Char :NEAR ; done
|
||||
GLOBAL Mono_Draw_Rect :NEAR ; done
|
||||
GLOBAL _Mono_Text_Print :NEAR ; done
|
||||
GLOBAL Mono_Text_Print :NEAR ; done
|
||||
GLOBAL Mono_Print :NEAR ; done
|
||||
GLOBAL Mono_View_Page :NEAR ; done
|
||||
|
||||
;
|
||||
; Equates used in this file
|
||||
;
|
||||
NULL = 0 ; null code
|
||||
CR = 13 ; carriage return code
|
||||
CPL = 80 ; characters per line
|
||||
LPS = 25 ; lines per screen
|
||||
|
||||
|
||||
DATASEG
|
||||
|
||||
MonoX DD 0
|
||||
MonoY DD 0
|
||||
MonoOff DD 0
|
||||
MonoScreen DD 0b0000h ;Deffault to Real mode!
|
||||
MonoEnabled DD 0 ; Is mono printing enabled?
|
||||
|
||||
;====================================================================
|
||||
|
||||
CharData DB 0DAh,0C4h,0BFh,0B3h,0D9h,0C4h,0C0h,0B3h ; Single line
|
||||
DB 0D5h,0CDh,0B8h,0B3h,0BEh,0CDh,0D4h,0B3h ; Double horz.
|
||||
DB 0D6h,0C4h,0B7h,0BAh,0BDh,0C4h,0D3h,0BAh ; Double vert.
|
||||
DB 0C9h,0CDh,0BBh,0BAh,0BCh,0CDh,0C8h,0BAh ; Double line.
|
||||
|
||||
|
||||
; x,y,dist
|
||||
BoxData DB 1,0,0 ; Upper left corner.
|
||||
DB 1,0,1 ; Top edge.
|
||||
DB 0,1,0 ; Upper right corner.
|
||||
DB 0,1,2 ; Right edge.
|
||||
DB -1,0,0 ; Bottom right corner.
|
||||
DB -1,0,1 ; Bottom edge.
|
||||
DB 0,-1,0 ; Bottom left corner.
|
||||
DB 0,-1,2 ; Left edge.
|
||||
DB 0,0,-1 ; End of list.
|
||||
|
||||
; Mono page segment layout array.
|
||||
PageMap DD 0,1,2,3,4,5,6,7
|
||||
|
||||
;===================================================================
|
||||
|
||||
CODESEG
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* Map_Segment_To_Address_ -- Translate a 16bit Seg:Offset address to a *
|
||||
;* Linear address. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; int Map_Segment_To_Address ( unsigned seg , unsigned offset );
|
||||
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* MONO_SET_CURSOR -- Sets the mono cursor to specified coordinates. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; void Mono_Set_Cursor(int x, int y);
|
||||
|
||||
|
||||
PROC Mono_Set_Cursor C near
|
||||
|
||||
USES eax , ebx , edx
|
||||
|
||||
ARG xpos : DWORD
|
||||
ARG ypos : DWORD
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
; mov es,ax
|
||||
|
||||
; sub eax,eax
|
||||
|
||||
mov eax,[ypos]
|
||||
; mov ah,CPL
|
||||
; imul ah
|
||||
lea eax , [ eax + 4 * eax ] ; multiply by CPL
|
||||
shl eax , 4
|
||||
|
||||
; sub ebx,ebx
|
||||
mov ebx,[xpos]
|
||||
add ebx,eax
|
||||
|
||||
; Update cursor position.
|
||||
mov edx,03B4h
|
||||
|
||||
mov al,0Eh ; High byte register set.
|
||||
out dx,al
|
||||
inc edx
|
||||
mov al,bh
|
||||
out dx,al ; Set high byte.
|
||||
|
||||
dec edx
|
||||
mov al,0Fh ; Low byte register set.
|
||||
out dx,al
|
||||
inc edx
|
||||
mov al,bl
|
||||
out dx,al ; Set low byte.
|
||||
|
||||
; Update the globals.
|
||||
add ebx,ebx
|
||||
mov [MonoOff],ebx
|
||||
mov eax,[xpos]
|
||||
mov [MonoX],eax
|
||||
mov eax,[ypos]
|
||||
mov [MonoY],eax
|
||||
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Mono_Set_Cursor
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* MONO_CLEAR_SCREEN -- Clears the mono screen and homes cursor. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; void Mono_Clear_Screen(void);
|
||||
|
||||
PROC Mono_Clear_Screen C near
|
||||
|
||||
USES eax , ecx , edi
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
; mov es,ax
|
||||
|
||||
; mov eax,[MonoScreen] ; ES:DI = Mono RAM address.
|
||||
; mov es,ax
|
||||
; sub edi,edi
|
||||
mov edi , [ MonoScreen ]
|
||||
mov eax,02000200h ; Clear leave attrib bit normal.
|
||||
mov ecx,8000h/4 ; Number of longs to clear.
|
||||
rep stosd ; Clear the mono screen.
|
||||
|
||||
push 0
|
||||
push 0
|
||||
|
||||
call Mono_Set_Cursor
|
||||
add esp , 8
|
||||
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Mono_Clear_Screen
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* MONO_SCROLL -- Scroll the mono screen up specified lines. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; void Mono_Scroll(DWORD lines);
|
||||
PROC Mono_Scroll C near
|
||||
|
||||
USES eax , ebx , ecx , edx , edi , esi
|
||||
ARG lines : DWORD
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
; mov es,ax
|
||||
|
||||
; xor eax,eax ; clear eax so no need for sign extend
|
||||
mov eax, [lines] ; get lines available
|
||||
or eax,eax ; any lines to scroll?
|
||||
je short ??fini ; =>NO
|
||||
|
||||
mov ebx,eax ; set line counter
|
||||
|
||||
mov edx,[MonoY] ; get row count
|
||||
ror edx,16 ; store it in high half of register
|
||||
mov dx,[WORD PTR MonoOff] ; get column offset
|
||||
ror edx,16
|
||||
|
||||
; mov eax,[MonoScreen] ; get selector for mono screen
|
||||
; push ds ; save off data seg for later
|
||||
; mov ds,ax ; set data source register
|
||||
; mov es,ax ; and extra source register
|
||||
|
||||
sub eax,eax ; set to clear clear line
|
||||
|
||||
??looper:
|
||||
mov ecx,(80*24) ; Number of words to move.
|
||||
|
||||
; xor edi,edi ; dst start at top of screen area
|
||||
; mov esi,80*2 ; src start at next line down
|
||||
mov edi , [ MonoScreen ]
|
||||
lea esi , [ 80 * 2 + edi ]
|
||||
rep movsw ; Scroll the screen upward.
|
||||
|
||||
dec dx ; decrement Y counter
|
||||
ror edx,16 ; switch to mono offset
|
||||
sub dx,80*2 ; fix MonoOffset
|
||||
ror edx,16 ; switch to y counter
|
||||
|
||||
mov ecx,40 ; Clear out the last line.
|
||||
rep stosd ; by storing words across it
|
||||
dec ebx ; last line?
|
||||
|
||||
jne ??looper ; =>NO
|
||||
|
||||
; reset data values
|
||||
; pop ds ; restore the ds segment
|
||||
mov [WORD PTR MonoY],dx ; store of the mono y position
|
||||
ror edx,16 ; switch to screen offset
|
||||
mov [WORD PTR MonoOff],dx ; store of the mono offset
|
||||
|
||||
??fini:
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Mono_Scroll
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* MONO_PUT_CHAR -- Output a character to the mono screen. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; void Mono_Put_Char(char character, int attrib=2);
|
||||
|
||||
PROC Mono_Put_Char C near
|
||||
|
||||
USES eax , edi
|
||||
|
||||
ARG character : BYTE
|
||||
ARG attrib : DWORD
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
|
||||
mov edi,[MonoOff]
|
||||
; mov eax,[MonoScreen]
|
||||
; mov es,ax ; ES:DI = First character output pointer.
|
||||
add edi , [ MonoScreen ]
|
||||
|
||||
; Output character to monochrome monitor.
|
||||
mov al,[character]
|
||||
mov ah,[BYTE PTR attrib]
|
||||
; stosw
|
||||
mov [ edi ] , ax
|
||||
|
||||
; Update cursor position.
|
||||
inc [MonoX] ; X position moves.
|
||||
|
||||
mov eax,[MonoY]
|
||||
push eax
|
||||
mov eax,[MonoX]
|
||||
push eax
|
||||
|
||||
call Mono_Set_Cursor
|
||||
add esp,8
|
||||
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Mono_Put_Char
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* MONO_DRAW_RECT -- Draw a rectangle using mono characters. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; void Mono_Draw_Rect(int x, int y, int w, int h, int attrib=2, int thick=0);
|
||||
|
||||
PROC Mono_Draw_Rect C near
|
||||
|
||||
USES eax , ebx , ecx , esi , edi
|
||||
|
||||
ARG xpos:DWORD
|
||||
ARG ypos:DWORD
|
||||
ARG width:DWORD
|
||||
ARG height:DWORD
|
||||
ARG attrib:DWORD
|
||||
ARG thick:DWORD
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
; mov es,ax
|
||||
|
||||
mov esi,OFFSET BoxData
|
||||
mov edi,OFFSET CharData
|
||||
|
||||
; mov cl,3
|
||||
; sub eax,eax
|
||||
mov eax,[thick]
|
||||
and eax,011b
|
||||
shl eax,3
|
||||
add edi,eax
|
||||
|
||||
; Prep width and height.
|
||||
cmp [width],2
|
||||
jb ??fini
|
||||
|
||||
cmp [height],2
|
||||
jb ??fini
|
||||
|
||||
sub [width],2
|
||||
sub [height],2
|
||||
|
||||
; Preserve cursor position for later restore.
|
||||
mov ecx,[MonoX]
|
||||
push ecx
|
||||
mov ecx,[MonoY]
|
||||
push ecx
|
||||
|
||||
; Cursor starts at upper left corner.
|
||||
mov ecx,[ypos]
|
||||
push ecx
|
||||
mov ecx,[xpos]
|
||||
push ecx
|
||||
call Mono_Set_Cursor
|
||||
add esp,8
|
||||
|
||||
??drawloop:
|
||||
; Determine the number of characters to output.
|
||||
mov ecx,[width]
|
||||
cmp [BYTE PTR esi+2],1
|
||||
je short ??gotlen
|
||||
|
||||
mov ecx,[height]
|
||||
cmp [BYTE PTR esi+2],2
|
||||
je short ??gotlen
|
||||
|
||||
mov ecx,1
|
||||
??gotlen:
|
||||
|
||||
jecxz ??donerun
|
||||
|
||||
??runloop:
|
||||
sub ebx,ebx
|
||||
mov bl,[BYTE PTR edi]
|
||||
|
||||
; mov ebx,eax
|
||||
sub eax,eax
|
||||
mov al,[BYTE PTR attrib]
|
||||
push eax
|
||||
push ebx
|
||||
|
||||
call Mono_Put_Char
|
||||
add esp,8
|
||||
|
||||
movsx eax,[BYTE PTR esi+1]
|
||||
; cbw
|
||||
add eax,[MonoY]
|
||||
push eax
|
||||
movsx eax,[BYTE PTR esi]
|
||||
; cbw
|
||||
add eax,[MonoX]
|
||||
dec eax ; Undo cursor advance.
|
||||
push eax
|
||||
|
||||
call Mono_Set_Cursor ; Properly advance cursor.
|
||||
add esp,8
|
||||
|
||||
loop ??runloop
|
||||
|
||||
??donerun:
|
||||
|
||||
; Advance to next control entry.
|
||||
add esi,3
|
||||
inc edi
|
||||
cmp [BYTE PTR esi+2],-1
|
||||
jne ??drawloop
|
||||
|
||||
; Restore cursor to original position.
|
||||
call Mono_Set_Cursor
|
||||
add esp,8
|
||||
|
||||
??fini:
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Mono_Draw_Rect
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* MONO_TEXT_PRINT -- Prints text to the mono screen at coordinates. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; void Mono_Text_Print(void *text, int x, int y, int attrib, int update);
|
||||
|
||||
PROC _Mono_Text_Print C near
|
||||
|
||||
USES eax,ebx,ecx,edx,edi,esi
|
||||
|
||||
ARG text:DWORD
|
||||
ARG xpos:DWORD
|
||||
ARG ypos:DWORD
|
||||
ARG attrib:DWORD
|
||||
ARG update:DWORD
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
; mov es,ax
|
||||
|
||||
; Preserve cursor coordinates for later restoration.
|
||||
mov eax,[MonoY]
|
||||
push eax
|
||||
mov eax,[MonoX]
|
||||
push eax
|
||||
|
||||
cmp [text],NULL
|
||||
je ??fini
|
||||
|
||||
mov eax,[ypos]
|
||||
push eax
|
||||
mov eax,[xpos]
|
||||
push eax
|
||||
call Mono_Set_Cursor
|
||||
add esp,8
|
||||
|
||||
mov esi,[text]
|
||||
|
||||
??charloop:
|
||||
xor eax,eax
|
||||
mov al,[BYTE PTR esi] ; Fetch character to output.
|
||||
inc esi
|
||||
|
||||
; Stop processing on a NULL character.
|
||||
or eax,eax
|
||||
je short ??fini
|
||||
|
||||
; Special processing for a '\r' characters.
|
||||
cmp eax,CR
|
||||
je short ??cr
|
||||
|
||||
; Output character to monochrome monitor.
|
||||
??normal:
|
||||
; xor ah,ah
|
||||
|
||||
mov ebx,eax
|
||||
mov eax,[attrib]
|
||||
push eax
|
||||
push ebx
|
||||
call Mono_Put_Char
|
||||
add esp,8
|
||||
|
||||
; Perform adjustments if wrapping past right margin.
|
||||
cmp [WORD PTR MonoX],CPL
|
||||
jb short ??nowrap
|
||||
|
||||
inc [ypos]
|
||||
|
||||
mov eax,[ypos]
|
||||
push eax
|
||||
; sub eax,eax
|
||||
push 0
|
||||
call Mono_Set_Cursor
|
||||
add esp,8
|
||||
|
||||
jmp short ??nowrap
|
||||
|
||||
; Move to start of next line.
|
||||
??cr:
|
||||
inc [ypos]
|
||||
|
||||
mov eax,[ypos]
|
||||
push eax
|
||||
mov eax,[xpos]
|
||||
push eax
|
||||
call Mono_Set_Cursor
|
||||
add esp,8
|
||||
|
||||
; Scroll the monochrome screen if necessary.
|
||||
??nowrap:
|
||||
cmp [MonoY],LPS
|
||||
jb short ??noscroll
|
||||
|
||||
push 1
|
||||
call Mono_Scroll
|
||||
add esp,4
|
||||
|
||||
dec [ypos]
|
||||
|
||||
??noscroll:
|
||||
jmp short ??charloop
|
||||
|
||||
??fini:
|
||||
cmp [update],0
|
||||
jne short ??noupdate
|
||||
|
||||
call Mono_Set_Cursor
|
||||
??noupdate:
|
||||
add esp,8
|
||||
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP _Mono_Text_Print
|
||||
|
||||
;=====================================================================
|
||||
|
||||
PROC Mono_Text_Print C near
|
||||
USES eax
|
||||
ARG text:DWORD
|
||||
ARG xpos:DWORD
|
||||
ARG ypos:DWORD
|
||||
ARG attrib:DWORD
|
||||
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; sub eax,eax
|
||||
push 0
|
||||
mov eax,[attrib]
|
||||
push eax
|
||||
mov eax,[ypos]
|
||||
push eax
|
||||
mov eax,[xpos]
|
||||
push eax
|
||||
mov eax,[text]
|
||||
push eax
|
||||
|
||||
call _Mono_Text_Print
|
||||
add esp,20
|
||||
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Mono_Text_Print
|
||||
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;* MONO_PRINT -- Prints text to the mono screen at current pos. *
|
||||
;* *
|
||||
;* *
|
||||
;* *
|
||||
;* INPUT: *
|
||||
;* *
|
||||
;* OUTPUT: *
|
||||
;* *
|
||||
;* WARNINGS: *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; void Mono_Print(void *text);
|
||||
|
||||
PROC Mono_Print C near
|
||||
|
||||
USES eax
|
||||
|
||||
ARG text:DWORD
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
; mov es,ax
|
||||
|
||||
; mov eax,1
|
||||
push 1
|
||||
; mov eax,2
|
||||
push 2
|
||||
mov eax,[MonoY]
|
||||
push eax
|
||||
mov eax,[MonoX]
|
||||
push eax
|
||||
mov eax,[text]
|
||||
push eax
|
||||
|
||||
call _Mono_Text_Print
|
||||
add esp,20
|
||||
|
||||
??exit:
|
||||
ret
|
||||
|
||||
ENDP Mono_Print
|
||||
|
||||
;***************************************************************************
|
||||
;* Mono_View_Page -- page in a mono screen *
|
||||
;* *
|
||||
;* Displays the specified page in displayable mono memory area. *
|
||||
;* *
|
||||
;* INPUT: WORD page = which page of memory we will use for storage *
|
||||
;* *
|
||||
;* OUTPUT: old_page *
|
||||
;* *
|
||||
;* WARNINGS: none. *
|
||||
;* *
|
||||
;* HISTORY: *
|
||||
;*=========================================================================*
|
||||
; int cdecl Mono_View_Page(int page);
|
||||
|
||||
|
||||
PROC Mono_View_Page C near
|
||||
|
||||
USES eax,ebx,ecx,edx,edi,esi
|
||||
|
||||
ARG page:DWORD
|
||||
|
||||
LOCAL oldpage:DWORD
|
||||
|
||||
cmp [MonoEnabled],0
|
||||
je ??exit
|
||||
|
||||
cld
|
||||
|
||||
; mov ax,cs
|
||||
; and ax,7
|
||||
; or ax,SS_DATA
|
||||
|
||||
; mov ds,ax
|
||||
; mov es,ax
|
||||
|
||||
; Prepare the original page number for return to caller.
|
||||
mov ebx,[PageMap]
|
||||
mov [oldpage],ebx
|
||||
|
||||
; If the desired page is already displayed, then don't do anything.
|
||||
mov eax,[page]
|
||||
cmp eax,ebx
|
||||
je short ??fini
|
||||
|
||||
; Verify that page specified is legal.
|
||||
cmp eax,7
|
||||
ja short ??fini
|
||||
|
||||
; Find where the logical page to display is actually located.
|
||||
mov ecx,8
|
||||
|
||||
mov edi,OFFSET PageMap
|
||||
repne scasd
|
||||
neg ecx
|
||||
add ecx,7 ; ECX = where desired page is located.
|
||||
|
||||
; Swap the page ID bytes in the PageMap array.
|
||||
sub edi,4
|
||||
mov ebx,[PageMap]
|
||||
mov eax,[edi]
|
||||
mov [edi],ebx
|
||||
mov [PageMap],eax
|
||||
|
||||
; Set DS and ES to point to each page.
|
||||
; mov eax,[MonoScreen]
|
||||
; mov ds,ax
|
||||
mov esi , [ MonoScreen ]
|
||||
; shl ecx,8
|
||||
shl ecx , 12
|
||||
; add ecx,edi ; NO Addition to selectors!
|
||||
lea edi , [ esi + ecx ]
|
||||
|
||||
; mov edi,ecx
|
||||
; xor esi,esi
|
||||
|
||||
; Exchange the two pages.
|
||||
mov ecx,1000H/4
|
||||
|
||||
??looper:
|
||||
mov edx,[edi]
|
||||
mov ebx,[esi]
|
||||
mov [edi],ebx
|
||||
mov [esi],edx
|
||||
add esi,4
|
||||
add edi,4
|
||||
loop ??looper
|
||||
|
||||
; Return with the original page number.
|
||||
??fini:
|
||||
??exit:
|
||||
mov eax,[oldpage]
|
||||
ret
|
||||
|
||||
ENDP Mono_View_Page
|
||||
|
||||
END
|
||||
|
||||
Reference in New Issue
Block a user