Who are my parents? 2/2

 BBS: Inland Empire Archive
Date: 09-05-92 (18:26)             Number: 323
From: LOGAN ASHBY                  Refer#: NONE
  To: FRANCOIS ROY                  Recvd: NO  
Subj: Who are my parents? 2/2        Conf: (2) Quik_Bas

 '___ continued from previous message ___

 ' ----------------------- GetPSP% ------------------------------
 '|  Returns the segment address of the Program Segment Prefix   |
 '|  of the current program.                                     |
 ' --------------------------------------------------------------
 FUNCTION GetPSP%

 DIM RegXs AS RegTypeX

 RegXs.ax = &H6200
 CALL InterruptX(&H21, RegXs, RegXs)
 GetPSP% = RegXs.bx

 END FUNCTION


Logan

--- GoldED 2.40
 * Origin: Big Nerd's Nest  (1:398/1.2)