home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N4.ZIP / GETSEG.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-03-27  |  435 b   |  22 lines
  1. ;********** GETSEG.ASM - retrieves the current DEF SEG setting in QuickBASIC
  2.  
  3. ;Copyright (c) 1990 Ethan Winer
  4.  
  5. ;Declare: DECLARE FUNCTION GetSeg%()
  6. ;Usage:   CurrentSeg = GetSeg%
  7.  
  8.  
  9. .Model Medium, Basic
  10. .Data
  11.     Extrn B$Seg:Word
  12.  
  13. .Code
  14.  
  15. GetSeg Proc
  16.  
  17.     Mov  AX,B$Seg           ;load the value currently stored in B$Seg
  18.     Ret                     ;return to BASIC with the function output in AX
  19.  
  20. GetSeg Endp
  21. End
  22.