Update of /server/cvs/freexp
In directory m6s15:/tmp/cvs-serv28767
Modified Files:
xpx.pas
Added Files:
ovrumb.pas
Log Message:
MW: - Overlay-Buffer im UMB
--- /server/cvs/freexp/xpx.pas 2009/05/17 07:30:44 1.45
+++ /server/cvs/freexp/xpx.pas 2009/05/17 10:25:41 1.46
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xpx.pas,v 1.45 2009/05/17 07:30:44 mw Exp $ }
+{ $Id: xpx.pas,v 1.46 2009/05/17 10:25:41 mw Exp $ }
{ CrossPoint - First Unit }
@@ -19,7 +19,7 @@
interface
uses
- ems, xms, overxms, crt,
dos,dosx,typeform,fileio,mouse,inout,xp0,crc,xpglobal, mcb,compdate,timemark;
+ ems, xms, overxms,ovrumb, crt,
dos,dosx,typeform,fileio,mouse,inout,xp0,crc,xpglobal, mcb,compdate,timemark;
implementation
@@ -362,6 +362,7 @@
emsovrbuf:=false;
end;
OvrSetBuf(OvrGetBuf+50000); { > CodeSize(MASKE.TPU) }
+ OvrMovBufToUMB;
{$ENDIF}
logo;
InitWinVersion;
@@ -387,7 +388,10 @@
{
$Log: xpx.pas,v $
- Revision 1.45 2009/05/17 07:30:44 mw
+ Revision 1.46 2009/05/17 10:25:41 mw
+ MW: - Overlay-Buffer im UMB
+
+ Revision 1.45 2009-05-17 07:30:44 mw
MW: - Uebernahme von Fehlerkorrekturen aus Overxms 1.2
Revision 1.44 2009-05-16 11:28:30 mw
--- /server/cvs/freexp/ovrumb.pas 2009/05/17 10:25:41 NONE
+++ /server/cvs/freexp/ovrumb.pas 2009/05/17 10:25:41 1.1
unit OvrUMB;
{ Unit OvrUMB : Uses an upper memory block as overlay buffer }
{ }
{ Version 1.2 (15/09/94) }
{ }
{ Author : Jean-Marc Lasgouttes }
{ }
{ e-mail : jean-marc.lasgout...@inria.fr }
{$A+,F-,O-,S-}
interface
uses Overlay;
Procedure OvrSetBufUMB(Size:longint);
{Frees the current overlay buffer (which must be before the heap),
allocates a new buffer of Size bytes in upper memory and sets the
overlay manager to use this buffer. This is only possible if the
heap is empty and no overlays are currently loaded. This procedure
must not be used if the buffer has been already reallocated
somewhere
#OvrMovBufToUMB# is an automatic version of this procedure that generate
more efficient code.}
Procedure OvrMovBufToUMB;
{Same procedure as #OvrSetBufUMB#, except that the size of the UMB buffer
is the biggest available upper memory block. No rellocation occurs if
the biggest block is smaller than the current overlay buffer. This is the
most convenient procedure to use.}
Function UMB_MaxAvail:longint;
{Returns the size of the biggest available upper memory block}
implementation
const OvrUMBSeg:word=0; {The Segment of the overlay buffer}
var OldExitProc:Pointer; {The old ExitProc (surprise!)}
SaveMemStrat, {Temporary variables to save system state}
SaveUMBLink:word;
Function ChangeMemStrat:boolean; assembler;
{Save the current memory allocation strategy and change it in order
to allocate upper memory}
asm
MOV AX, 5800h {Save memory allocation strategy}
INT 21h
MOV SaveMemStrat, AX
MOV AX, 5802h {Save UMB Link state}
INT 21h
MOV SaveUMBLink, AX
JC @@1 {If this function is not recognized}
{ then DOS version <5 : Error}
MOV AX, 5801h {Set memory allocation strategy to}
MOV BX, 40h { use only upper memory}
INT 21h
MOV AX, 5803h {Add UMB to DOS memory chain}
MOV BX, 1
INT 21h
JNC @@2 {Error: no UMB provider}
@@1:MOV AX, false {Return an error}
JMP @@3
@@2:MOV AX, true {Return success}
@@3:
end;
Procedure ResetMemStrat; assembler;
{Restore the memory allocation strategy as it was before the call to
ChangeMemStrat}
asm
MOV AX, 5801h {Reset the memory allocation strategy}
MOV BX, SaveMemStrat
INT 21h
MOV AX, 5803h {Reset the UMB link state}
MOV BX, SaveUMBLink
INT 21h
end;
Procedure ReleaseUMB(UMBSeg:word); assembler;
{Releases the block corresponding to UMBSeg if UMBSeg<>0}
asm
MOV AX, UMBSeg {If the segment is zero, do nothing}
CMP AX, 0
JZ @@1
MOV AX, 5802h {Save UMB Link state}
INT 21h
MOV SaveUMBLink, AX
MOV AX, 5803h
MOV BX, 0 {Remove UMB from DOS memory chain}
INT 21h
MOV AH, 49h {Free block used by UMBSeg}
MOV ES, UMBSeg
INT 21h
MOV AX, 5803h {Reset UMB link state}
MOV BX, SaveUMBLink
INT 21h
@@1:
end;
Procedure PrimSetBufUMB(Size:word); assembler;
{The basic procedure called by OvrSetBufUMB and OvrMovBufToUMB. Size
is given in paragraphs.}
asm
XOR AX, AX {Check for errors: }
CMP AX, OvrDOSHandle { Is the Overlay file opened?}
JZ @@3
CMP AX, OvrLoadList { Are there some Overlays loaded?}
JNZ @@3
MOV AX, OvrHeapEnd { Is the buffer already rellocated?}
CMP AX, WORD PTR HeapOrg+2
JNZ @@3
CMP AX, WORD PTR HeapPtr+2 { Is there something in the heap?}
JNZ @@3
MOV AH, 48h {Allocate UMBSize segments of memory}
MOV BX, Size
INT 21h
JNC @@1
MOV AX, ovrNoMemory {Not enough UMB}
JMP @@2
@@1:MOV OvrUMBSeg, AX {Keep the segment in OvrUMBSeg}
MOV AX, OvrHeapOrg
MOV WORD PTR HeapOrg+2, AX {Seg(HeapOrg):=OvrHeapOrg}
MOV WORD PTR HeapPtr+2, AX {Seg(HeapPtr):=OvrHeapOrg}
MOV WORD PTR FreeList+2, AX {Seg(FreeList):=OvrHeapOrg}
XOR AX, AX
MOV WORD PTR HeapOrg, AX {Ofs(HeapOrg):=0}
MOV WORD PTR HeapPtr, AX {Ofs(HeapPtr):=0}
MOV WORD PTR FreeList, AX {Ofs(FreeList):=0}
MOV AX, OvrUMBSeg
MOV OvrHeapOrg, AX {OvrHeapOrg:=OvrUMBSeg }
MOV OvrHeapPtr, AX {OvrHeapPtr:=OvrUMBSeg }
ADD AX, Size
MOV OvrHeapEnd, AX {OvrHeapEnd:=OvrUMBSeg+Size}
MOV AX, ovrOK {Success}
JMP @@2
@@3:MOV AX, ovrError
@@2:MOV OvrResult, AX {Put the result in OvrResult}
end;
Function UMB_MaxAvail:longint; assembler;
asm
CALL ChangeMemStrat {Allow the use of upper memory}
CMP AX, false
JZ @@1 {if it not possible, return 0}
MOV AH, 48h {Try to allocate too much memory}
MOV BX, 0FFFFh
INT 21h {BX contains the size of the biggest}
MOV AX, BX { available block}
XOR DX, DX
SHL AX, 1 {Multiply by 16 and put the result}
RCL DX, 1 { in DX:AX}
SHL AX, 1
RCL DX, 1
SHL AX, 1
RCL DX, 1
SHL AX, 1
RCL DX, 1
JMP @@2
@@1:XOR AX, AX
XOR DX, DX
@@2:PUSH AX
PUSH DX
CALL ResetMemStrat {Reset the memory allocation strategy}
POP DX
POP AX
end;
Procedure OvrSetBufUMB(Size:longint); assembler;
asm
CALL ChangeMemStrat {Allow the use of upper memory}
CMP AX, false
JZ @@1 {If it is impossible, abort}
MOV AX, WORD PTR Size {Transform Size}
MOV DX, WORD PTR Size+2 { into a number of paragraphs}
MOV CL, 04h
SHR AX, CL
ROR DX, CL
AND DX, 0F000h
OR AX, DX { the result is in AX}
CMP AX, OvrHeapSize {If AX < OvrHeapSize --> Error}
JB @@1
PUSH AX
CALL PrimSetBufUMB {Actually allocate and set the buffer}
JMP @@2
@@1:MOV AX, ovrError {Report an Error}
MOV OvrResult, AX
@@2:CALL ResetMemStrat
end;
Procedure OvrMovBufToUMB; assembler;
asm
CALL ChangeMemStrat {Allow the use of upper memory}
CMP AX, false
JZ @@1 {If it is impossible, abort}
MOV AH, 48h {Try to allocate too much memory}
MOV BX, 0FFFFh
INT 21h {BX contains the size of the biggest}
{ available upper memory block}
MOV AX, OvrHeapEnd {Compute the size of the}
SUB AX, OvrHeapOrg { current Overlay buffer}
CMP AX, BX {Is the UMB bigger than the current
buffer?}
JNB @@1 {If not, abort}
PUSH BX
CALL PrimSetBufUMB {Actually allocate and set the buffer}
JMP @@2
@@1:MOV OvrResult, OvrNoMemory
@@2:CALL ResetMemStrat
end;
Procedure OvrUMBExitProc; far;
begin
ExitProc:=OldExitProc; {Chain to the old exit handler}
ReleaseUMB(OvrUMBSeg); {Release the overlay buffer}
end;
begin
OldExitProc:=ExitProc;
ExitProc:=...@ovrumbexitproc; {Release the UMB on exit}
end.
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
