Topspeed_JPI/TS/EXAMPLES/TSRLOW.A

(*    TSRLow - TSR low level stuff *)

(*    Copyright (C) 1990 Jensen and Partners. All Rights Reserved*)
(*    Written by Simon Knight.*)

include "corelib.inc"

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