A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Address-of-a-variable/Modula-2/address-of-a-variable-1.mod2
+++ b/Task/Address-of-a-variable/Modula-2/address-of-a-variable-1.mod2
@ -0,0 +1,12 @@
+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.
--- a/Task/Address-of-a-variable/Modula-2/address-of-a-variable-2.mod2
+++ b/Task/Address-of-a-variable/Modula-2/address-of-a-variable-2.mod2
@ -0,0 +1,9 @@
+MODULE  SetAddress;
+
+CONST   adress  = 134664460;
+
+VAR     var [adress] : INTEGER;
+
+BEGIN
+    (*do nothing*)
+END SetAddress.