mem.pas

Turbo Pascal 6.0编译器源码

unit Mem;

{$F+,S-}

interface

procedure InitMem;
procedure SaveEms;
procedure RestoreEms;
procedure SaveMem;
procedure RestoreMem;
function  AllocMem(Size: Word; UseEms: Boolean): Word;

const

  WindowHeapSize: Word = 32 * 1024 div 16;
  EditorHeapSize: Word = 28 * 1024 div 16;
  OverlayHeapSize: Word = 112 * 1024 div 16;

  EditorHeapOrg: Word = 0;

  MemPtr: Word = 0;
  MemTop: Word = 0;
  SaveMemPtr: Word = 0;

  EmsPtr: Word = 0;
  EmsTop: Word = 0;
  SaveEmsPtr: Word = 0;
  EmsInUse: Boolean = True;
  EmsVersion: Byte = 0;
  EmsHandle: Word = 0;

implementation

uses Objects;

var
  SaveExit: Pointer;

procedure DoneEms; assembler;
asm
        MOV     DX,EmsHandle
        MOV     AH,45H
        INT     67H
        LES     AX,SaveExit
        MOV     ExitProc.Word[0],AX
        MOV     ExitProc.Word[2],ES
end;

procedure InitEms; near; assembler;
const
  EmsDeviceLen = 8;
  EmsDeviceStr: array [1..EmsDeviceLen] of Char = 'EMMXXXX0';
asm
        CMP     EmsInUse,0
        JE      @@1
        MOV     AX,3567H
        INT     21H
        MOV     CX,EmsDeviceLen
        MOV     SI,OFFSET EmsDeviceStr
        MOV     DI,0AH
        CLD
        REPE    CMPSB
        JNE     @@1
        MOV     BX,3
        MOV     AH,43H
        INT     67H
        OR      AH,AH
        JNZ     @@1
        MOV     EmsHandle,DX
        MOV     AH,41H
        INT     67H
        ADD     BX,400H
        MOV     EmsPtr,BX
        ADD     BX,0C00H
        MOV     EmsTop,BX
        MOV     AH,46H
        INT     67H
        MOV     EmsVersion,AL
        LES     AX,ExitProc
        MOV     SaveExit.Word[0],AX
        MOV     SaveExit.Word[2],ES
        MOV     ExitProc.Word[0],OFFSET DoneEms
        MOV     ExitProc.Word[2],CS
@@1:
end;

procedure InitMem;
begin
  InitEms;
  MemPtr := OvrHeapOrg;
  MemTop := PtrRec(HeapEnd).Seg;
  PtrRec(HeapOrg).Seg := AllocMem(WindowHeapSize, False);
  PtrRec(HeapEnd).Seg := MemPtr;
  Release(HeapOrg);
  EditorHeapOrg := AllocMem(EditorHeapSize, True);
  OvrHeapOrg := AllocMem(OverlayHeapSize, False);
  OvrHeapPtr := OvrHeapOrg;
  OvrHeapEnd := MemPtr;
end;

procedure SaveEms; assembler;
asm
        MOV     DX,EmsHandle
        OR      DX,DX
        JZ      @@2
        MOV     AH,47H
        INT     67H
        XOR     BX,BX
@@1:    MOV     AH,44H
        MOV     AL,BL
        INC     AX
        INT     67H
        INC     BX
        CMP     BL,3
        JNE     @@1
        MOV     AX,-1
        MOV     EmsCurHandle,AX
        MOV     EmsCurPage,AX
@@2:
end;

procedure RestoreEms; assembler;
asm
        MOV     DX,EmsHandle
        OR      DX,DX
        JZ      @@1
        MOV     AH,48H
        INT     67H
@@1:
end;

procedure SaveMem; assembler;
asm
        CALL    SaveEms
        MOV     AX,MemPtr
        MOV     SaveMemPtr,AX
        MOV     AX,EmsPtr
        MOV     SaveEmsPtr,AX
end;

procedure RestoreMem; assembler;
asm
        MOV     AX,SaveMemPtr
        MOV     MemPtr,AX
        MOV     AX,SaveEmsPtr
        MOV     EmsPtr,AX
        CALL    RestoreEms
end;

function AllocMem(Size: Word; UseEms: Boolean): Word; assembler;
asm
        CMP     UseEms,0
        JE      @@1
        MOV     AX,EmsPtr
        MOV     DX,Size
        ADD     DX,AX
        JC      @@1
        CMP     DX,EmsTop
        JA      @@1
        MOV     EmsPtr,DX
        JMP     @@2
@@1:    MOV     AX,MemPtr
        MOV     DX,Size
        ADD     MemPtr,DX
@@2:
end;

end.