(*-------------------------------------------------------------------------*
*                                                                          *
*  TSRLOW.A - TSR low level stuff                                          *
*                                                                          *
*  COPYRIGHT (C) 1990..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

module TSRLow

segment TSRLow_TEXT(CODE,28H)
segment _DATA(DATA, 28H)


select TSRLow_TEXT

freeSize    =  14
nextBlock   =  16

extrn __psp
extrn __fix_mem

public TSRLow$ShrinkHeap :

    push bx
    push cx
    push dx
    push di
    push ds
    push ax
    call far [__fix_mem]
    pop di
    mov  bx, _DATA
    mov  ds, bx
    mov  es, [__psp]
    mov  ax, es:[2]
    mov  cx, es
    sub  ax, cx
shrinkDone:
    pop  ds
    pop  di
    pop  dx
    pop  cx
    pop  bx
    ret  far 0

end