MODULE Test;

TYPE
  INTEGER = LONGINT;
  REAL = LONGREAL;

PROCEDURE ["StdCall"] Sum*(n: INTEGER): REAL;
VAR a: POINTER TO ARRAY OF REAL; i: INTEGER; s: REAL;
BEGIN
  NEW(a, n);
  FOR i := 0 TO n-1 DO a[i] := i; END;
  s := 0;
  FOR i := 0 TO n-1 DO s := s + a[i]; END;
  RETURN s;
END Sum;

END Test.

-gendll+
-dllexport+
-o2extensions+
!module Test.ob2

MODULE XdsTest ["Test.dll"];
  PROCEDURE Sum* (n: INTEGER): REAL;
END XdsTest.

MODULE XdsUse;
  IMPORT Xds := XdsTest, Log;

  PROCEDURE Do*;
  BEGIN
    Log.Real(Xds.Sum(10));
  END Do;

END XdsUse.

PROCEDURE ["StdCall"] Sum*(n: INTEGER): REAL;
VAR a: ARRAY 50 OF REAL; i: INTEGER; s: REAL;
BEGIN
  FOR i := 0 TO n-1 DO a[i] := i; END;
  s := 0;
  FOR i := 0 TO n-1 DO s := s + a[i]; END;
  RETURN s;
END Sum;

BEGIN
   IF modList = NIL THEN   (* only once *)
      S.GETREG(ML, modList);   (* linker loads module list to BX *)
      S.GETREG(SP, baseStack);
      static := init IN modList.opts;
      inDll := dll IN modList.opts; dllMem := inDll;