ADDR - find machine address of a variable.

Usage:

var k : integer;
    ptr : ^real;
...
k := addr(ptr^);

Description:

ADDR is an integer valued function used to find the word address of its argument. It is mainly intended as a debugging aid, as it is the only way to print the value of a pointer. The argument to ADDR is a "var" type parameter (so that it has an address). The result is an integer.