Click above to get retro games delivered to your door ever month!

 PTR                     Assign a Value to a Pointer                  pp 207

 Syntax:  Ptr (Cseg,$80) ;

 Type:    Pointer

 Form:    Function

 Purpose: Assigns a 32 bit segment:offset to a pointer variable.


 ----------------------------------------------------------------------------


 Usage:
       VAR
          Pointer : ^Integer           ;
          NumVar  : Integer            ;

       BEGIN
          Pointer := Ptr (Cseg,$0080)  ;  { Set pointer to hex Seg:Ofs   }
          Pointer := Ptr ($0000,$0080) ;  { Set pointer to hex Seg:Ofs   }
          Pointer := Ptr (NumVar,0)    ;  { Set NumVar Seg:Ofs in Pointer}
       END.