SSeg                     Returns the Address of the Stack Segment

 SSeg : Integer;

    Returns the address of the current stack segment--that is, the
    contents of the SS register. This is a 16-bit value that gives the
    paragraph address upon which the stack segment starts.

          Notes:    If the value returned is less than 0, the actual value
                    of the SS register is equal to 65536.0 + SSeg.

                    To get the actual starting byte address, multiply by
                    16.0 and assign the result to a real variable (to
                    avoid overflow).

  -------------------------------- Example ---------------------------------

           var
             SSByteAddr : Real;

           { Compute the SS starting byte address }
           if SSeg < 0 then
             SSByteAddr := 16.0 * (65536.0 + SSeg)
           else
             SSByteAddr := 16.0 * SSeg;