🚀 go-pugleaf

We have been unable to contact machine 'sarin' since you queued your job.

        sarin!mail eric   (Date 08/23)
The job will be deleted in several days if the problem is not corrected.
If you care to kill the job, execute the following command:

        uustat -ksarinN0f1e

        Sincerely,
        wb3ffv!uucp

#############################################
##### Data File: ############################
>From aplcen!mimsy!rutgers!ucf1vm.bitnet!INFO-M2  Tue Aug 23 07:16:11 1988 remot
   e from wb3ffv
Received: by wb3ffv.UUCP (Smail-2.5)
        id AA02588; 23 Aug 88 07:16:11 EDT (Tue)
Received: by mimsy.UMD.EDU (smail2.5)
        id AA17533; 23 Aug 88 05:02:48 EDT (Tue)
Received: from AJPO.SEI.CMU.EDU by rutgers.edu (5.59/1.15)
        id AA07738; Tue, 23 Aug 88 05:02:12 EDT
Received: from cunyvm.cuny.edu by decwrl.dec.com (5.54.5/4.7.34)
        id AA23270; Tue, 23 Aug 88 01:43:24 PDT
Received: from BITNIC.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP R1.1) with BSMTP id
    7837; Sun, 21 Aug 88 13:36:52 EDT
Received: by BITNIC (Mailer X1.25) id 9708; Sun, 21 Aug 88 13:34:28 EDT
Received: from UOGUELPH(MAILER) by UCF1VM (Mailer X1.25) id 6912; Sun,
          21 Aug 88 13:25:30 EST
Received: by UOGUELPH (Mailer X1.25) id 0265; Sun, 21 Aug 88 13:26:35 EDT
Message-Id: <INFO-M2%88082113345518@UCF1VM>
Date:         Sun, 21 Aug 88 13:20:49 EDT
Reply-To: Info-Modula2 Distribution List <rutgers!ucf1vm.bitnet!INFO-M2>
Sender: Info-Modula2 Distribution List <rutgers!ucf1vm.bitnet!INFO-M2>
From: Alex Bewley <rutgers!vm.uoguelph.ca!BOTCHAIR>
Subject:      Re: Interlanguage access
To: "(no name)" <decwrl.dec.com!info-modula-2>
In-Reply-To:  Message of Sun,
              7 Aug 88 03:27:15 GMT from
              <hpda!hpcupt1!hpisoa1!vandys@UCBVAX.BERKELEY.EDU>


> This is about accessing C routines from Logitech Modula-2

    You need version 3.0.  There is a SYSTEM routine called EXTCALL, and you
can use that to access other language routines.  But all parameter passing must
be done using CODE statements before the call.  For example:

    (* call a 'C' routine *)
    SETREG(AX,10);
    CODE(PushAX);
    SETREG(BX,20);
    CODE(PushBX);
    EXTCALL("_larger"); (* let's say returns -1 if a<b,0 if a=b, 1 if a>b *)
    GETREG(AX,Result);
    IF (Result # 0) THEN
      ...

    The routine is linked in with all the other modules at link-time.

        Alex