I don't think there is a way to retrieve that value with QB (Toshi will probably prove me wrong and I hope he does.)

In my mind, the best way to get the current segment is to store the value in a variable before you do a DEF SEG and then get it from the variable. Aside from that, as long as you haven't set a segment, you can assume the current segment is the default segment for QB.

That probably didn't help much. Under what conditions would your app forget the segment it has set with DEF SEG? Maybe we can work this out.

well, it's actually not for me, but someone who was asking me for help. He's apparently putting together a set of routines that he wants the programmer to be able to use without having to worry about the fact that many of his routines work in other segments. So he wanted to make a routine that stores the current segment when one of his routines is called and then resets it when the routine is done.

Mag

Hi,

The QB45 help states that if you omit the address whe using DEF SEG the BASIC segment is used.

Does this help?

Pappy

nope

"There are two internal variables BASIC maintains that you will find useful.
One is the current DEF SEG setting, and it is stored in the integer
variable named B$SEG."   (Ethan Winer, BASIC Techniques and Utilities, pp.448)
This will only work when compiled on the command line, as far as I know.

"The same holds true for a routine that changes the
current DEF SEG setting, perhaps before loading or saving a file using
BLOAD or BSAVE. If you cannot return that to its original value, extra
work is needed in the main program each time the routine is used.
Access to B$SEG requires a single assembler instruction, as shown in the
complete GetSeg function shown following. Declare and use GetSeg like
this:
DECLARE FUNCTION GetSeg%()
SavedSeg = GetSeg%
.
.
DEF SEG = SavedSeg
.Model Medium, Basic
.Data
Extrn B$Seg:Word
.Code
GetSeg Proc
Mov AX,B$Seg ;load the value from B$Seg
Ret ;return with the function output in AX
GetSeg Endp
End


..." (Ethan Winer pp.448-449)

You may also want to check out this thread:

Thread314-34793 a few pages back dealing with VarSegs, SADDs, etc.  It may prove useful to you in your quest.

--MiggyD

"It's mind over matter.  They don't mind so you don't matter to them."

ok thx. that really helps out.