Source code in the modula-2 programming language

MODULE  GetAddress;

FROM    SYSTEM IMPORT ADR;
FROM    InOut  IMPORT WriteInt, WriteLn;

VAR     var : INTEGER;
        adr : LONGINT;
BEGIN
    adr := ADR(var);    (*get the address*)
    WriteInt(adr, 0);
    WriteLn;
END GetAddress.


MODULE  SetAddress;

CONST   adress  = 134664460;

VAR     var [adress] : INTEGER;

BEGIN
    (*do nothing*)
END SetAddress.