73 lines
1.4 KiB
PHP
73 lines
1.4 KiB
PHP
|
subttl emstack.asm - Emulator Stack Management Macros
|
||
|
|
page
|
||
|
|
;***
|
||
|
|
;emstack.asm - Emulator Stack Management Area
|
||
|
|
;
|
||
|
|
; Microsoft Confidential
|
||
|
|
; Copyright (c) Microsoft Corporation 1991
|
||
|
|
; All Rights Reserved
|
||
|
|
;
|
||
|
|
;Purpose:
|
||
|
|
; Handles emulator stack.
|
||
|
|
;
|
||
|
|
;Revision History:
|
||
|
|
;
|
||
|
|
; [] 09/05/91 TP Initial 32-bit version.
|
||
|
|
;
|
||
|
|
;*******************************************************************************
|
||
|
|
|
||
|
|
|
||
|
|
;POPSTret: pops the stack and returns. Uses esi.
|
||
|
|
|
||
|
|
POPSTret macro reg
|
||
|
|
local stackwrap
|
||
|
|
IFB <reg>
|
||
|
|
mov esi,EMSEG:[CURstk]
|
||
|
|
_popreg equ esi
|
||
|
|
ELSE
|
||
|
|
_popreg equ reg
|
||
|
|
ENDIF
|
||
|
|
mov EMSEG:[_popreg].bTag,bTAG_EMPTY
|
||
|
|
NextStackElem _popreg,stackwrap
|
||
|
|
mov EMSEG:[CURstk],_popreg
|
||
|
|
ret
|
||
|
|
|
||
|
|
Wrap&stackwrap:
|
||
|
|
mov EMSEG:[CURstk],BEGstk
|
||
|
|
ret
|
||
|
|
endm
|
||
|
|
|
||
|
|
;NextStackElem: Given pST(0) = [CURstk] in reg, returns pST(1)
|
||
|
|
;Requires NextStackWrap macro with same arguments
|
||
|
|
|
||
|
|
NextStackElem macro reg,stackwrap
|
||
|
|
cmp reg,INITstk ;JWM
|
||
|
|
jae Wrap&stackwrap
|
||
|
|
add reg,Reg87Len
|
||
|
|
Cont&stackwrap:
|
||
|
|
endm
|
||
|
|
|
||
|
|
NextStackWrap macro reg,stackwrap
|
||
|
|
Wrap&stackwrap:
|
||
|
|
mov reg,BEGstk ;JWM
|
||
|
|
jmp Cont&stackwrap
|
||
|
|
endm
|
||
|
|
|
||
|
|
|
||
|
|
;PrevStackElem: Given pST(0) = [CURstk] in reg, returns new pST(0)
|
||
|
|
;after a push onto on the stack.
|
||
|
|
;Requires PrevStackWrap macro with same arguments
|
||
|
|
|
||
|
|
PrevStackElem macro reg,stackwrap
|
||
|
|
cmp reg,BEGstk ;JWM
|
||
|
|
jbe Wrap&stackwrap
|
||
|
|
sub reg,Reg87Len
|
||
|
|
Cont&stackwrap:
|
||
|
|
endm
|
||
|
|
|
||
|
|
PrevStackWrap macro reg,stackwrap
|
||
|
|
Wrap&stackwrap:
|
||
|
|
mov reg,INITstk ;JWM
|
||
|
|
jmp Cont&stackwrap
|
||
|
|
endm
|