cw.inc

开放源码的编译器open watcom 1.6.0版的源代码

;-------------------------------------------------------------------------------
;
;Call a CauseWay system function. Operand supplied is the function number. Use
;of this macro is not obligatory, use your own version if you want. These are
;the low level functions. Other API emulations come later.
;
Sys     macro p1
        mov     ax,p1
        int     31h
        endm


;-------------------------------------------------------------------------------
;
;Get system selectors/flags.
;
;On Exit:
;
;AX     - Selector for real mode segment address of 00000h, 4G limit.
;BX     - Selector for current PSP segment. 100h limit.
;[E]CX  - Dos transfer buffer size. Always <64k.
;DX     - Dos transfer buffer real mode segment address.
;ES:[E]SI       - Dos transfer buffer protected mode address. ESI+ECX ALWAYS <64k.
;EDI    - System flags. Bits significant if set.
;
;       0 - 32 bit code default.
;
;       1 - Virtual memory manager functional.
;
;       2 \ Mode, 0 - raw, 1 - VCPI, 2 - DPMI.
;       3 /
;
;       4 - DPMI available.
;       5 - VCPI available.
;       6 - No memory managers.
;
;       7 - Descriptor table type. 0 - GDT, 1 - LDT.
;
;NOTES:
;
;Bits 1-2 of DI indicate the interface type being used by CauseWay. Bits 4-5
;indicate the interface types that are available.
;
;Bit 7 indicates the descriptor table being used to allocate selectors to the
;application when on a raw/vcpi system.
;
;The Dos transfer buffer is the area CauseWay uses to transfer data between
;conventional and extended memory during DOS interupts. This memory can be used
;as temporary work space for your own access to real mode code as long as you
;remember it may be over written the next time you issue an INT in protected
;mode that requires segment&|offset pointers.
;
Info    equ     0ff00h          ;Get general purpose segment selectors.


;-------------------------------------------------------------------------------
;
;Simulate real mode interupt.
;
;On Entry:
;
;BL     - Interupt number.
;ES:[E]DI       - Parameter block.
;
;On Exit:
;
;Parameter block updated.
;
;NOTES:
;
;The parameter block referanced by ES:[E]DI should contain the register values
;you want passing to the real mode interupt handler. The SS:SP & Flags entries
;are currently filled in by CauseWay to ensure legal values are used and the
;CS:IP entries are ignored. This function bypasses protected mode interupt
;handlers and provides access to INT API's that would not otherwise be available
;using CauseWay.
;
IntXX   equ     0ff01h


;-------------------------------------------------------------------------------
;
;Simulate real mode far call.
;
;On Entry:
;
;ES:[E]DI       - Parameter block.
;
;On Exit:
;
;Parameter block updated.
;
;NOTES:
;
;This function works much the same as IntXX but provides a 16 bit FAR stack
;frame and the CS:IP values used to pass control to the real mode code.
;
FarCallReal     equ     0ff02h


;-------------------------------------------------------------------------------
;
;Allocate real mode call back address.
;
;On Entry:
;
;DS:[E]SI       - Call address.
;ES:[E]DI       - Real mode register structure.
;
;On Exit:
;
;Carry set on error, else,
;
;CX:DX  - Real mode address to trigger mode switch.
;
;NOTES:
;
;Real mode CallBack's provide a means of switching from real mode to protected
;mode. The address returned by this function is a unique real mode address that
;when given control in real mode will switch to protected mode and pass control
;to the protected mode routine supplied at entry to this function.
;
GetCallBack     equ     0303h


;-------------------------------------------------------------------------------
;
;Release a real mode call back entry.
;
;On Entry:
;
;CX:DX  - Real mode address returned by GetCallBack
;
RelCallBack     equ     0304h


;-------------------------------------------------------------------------------
;
;Get Protected mode interupt handler address.
;
;On Entry:
;
;BL     - Interupt vector number.
;
;On Exit:
;
;CF set on error else:-
;
;CX:[E]DX       - selector:offset of handler.
;
GetVect equ     0204h


;-------------------------------------------------------------------------------
;
;Set Protected mode interupt handler address.
;
;On Entry:
;
;BL     - Interupt vector number.
;CX:[E]DX       - selector:offset of new handler.
;
;On Exit:
;
;CF set on error.
;
SetVect equ     0205h


;-------------------------------------------------------------------------------
;
;Get real mode interupt handler address.
;
;On Entry:
;
;BL     - Interupt vector number.
;
;On Exit:
;
;CF set on error else:-
;
;CX:DX  - selector:offset of handler.
;
GetRVect        equ     0200h


;-------------------------------------------------------------------------------
;
;Set real mode interupt handler address.
;
;On Entry:
;
;BL     - Interupt vector number.
;CX:DX  - selector:offset of new handler.
;
;On Exit:
;
;CF set on error.
;
SetRVect        equ     0201h


;-------------------------------------------------------------------------------
;
;Get Protected mode exception handler address.
;
;On Entry:
;
;BL     - Exception vector number.
;
;On Exit:
;
;CF set on error else:-
;
;CX:[E]DX       - selector:offset of handler.
;
GetEVect        equ     0202h


;-------------------------------------------------------------------------------
;
;Set Protected mode exception handler address.
;
;On Entry:
;
;BL     - Exception vector number.
;CX:[E]DX       - selector:offset of new handler.
;
;On Exit:
;
;CF set on error.
;
SetEVect        equ     0203h


;-------------------------------------------------------------------------------
;
;Allocate a new selector.
;
;On Exit:
;
;BX     - Selector.
;
;NOTES:
;
;A selector is allocated and initialised with a base of 0, a limit of 0 and as
;read/write expand up data. Use SetSelDet to make the selector useful.
;
GetSel  equ     0ff03h


;-------------------------------------------------------------------------------
;
;Allocate multiple selectors.
;
;On Entry:
;
;CX     - Number of selectors.
;
;On Exit:
;
;BX     - Base selector.
;
;NOTES:
;
;The selectors are allocated and initialised with a base of 0, a limit of 0 and
;as read/write expand up data. Use SetSelDet to make the selectors useful.
;
GetSels equ     0ff29h


;-------------------------------------------------------------------------------
;
;Release a selector.
;
;On Entry:
;
;BX     - Selector.
;
RelSel  equ     0ff04h


;-------------------------------------------------------------------------------
;
;Make a selector execute/read type.
;
;On Entry:
;
;BX     - Selector.
;CL     - Default operation size. (0=16 bit,1=32 bit)
;
;NOTES:
;
;Allows a selector to be converted to a type suitable for execution.
;
CodeSel equ     0ff05h


;-------------------------------------------------------------------------------
;
;Create a read/write data selector with same base and limit as selector
;supplied.
;
;On Entry:
;
;BX     - Source selector
;
;On Exit:
;
;If function was successful:
;Carry flag is clear.
;AX     - New data selector
;
;If function was not successful:
;Carry flag is set.
;
;NOTES:
;
;This function always creates a read/write data selector regardless of the
;source selectors type. Can be used to provide access to variables in a code
;segment etc.
;
AliasSel        equ     0ff06h


;-------------------------------------------------------------------------------
;
;Get selector linear base and limit.
;
;On Entry:
;
;BX     - Selector
;
;On Exit:
;
;CX:DX  - Linear base.
;SI:DI  - Byte granular limit.
;
GetSelDet       equ     0ff07h


;-------------------------------------------------------------------------------
;
;Get selector linear base and limit.
;
;On Entry:
;
;BX     - Selector
;
;On Exit:
;
;EDX    - Linear base.
;ECX    - Byte granular limit.
;
GetSelDet32     equ     0ff08h


;-------------------------------------------------------------------------------
;
;Set selector linear base and limit.
;
;On Entry:
;
;BX     - Selector.
;CX:DX  - Linear base.
;SI:DI  - Byte granular limit.
;
SetSelDet       equ     0ff09h


;-------------------------------------------------------------------------------
;
;Set selector linear base and limit.
;
;On Entry:
;
;BX     - Selector.
;EDX    - Linear base.
;ECX    - Byte granular limit.
;
SetSelDet32     equ     0ff0ah


;-------------------------------------------------------------------------------
;
;Allocate a block of memory.
;
;On Entry:
;
;CX:DX  - Size of block required in bytes. (-1:-1 to get maximum memory size)
;
;On Exit:
;
;Carry clear if OK &
;
;BX     - Selector to access the block with.
;
;Else if CX:DX was -1, CX:DX is size of largest block available.
;
;NOTES:
;
;This function allocates a block of extended (application) memory, and also a
;selector with a suitable base & limit.
;
GetMem  equ     0ff0bh


;-------------------------------------------------------------------------------
;
;Allocate some memory and return selector:offset (16-bit).
;
;On Entry:
;
;CX:DX  - Size of block required in bytes.
;
;On Exit:
;
;Carry set on error else,
;