Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.BERKELEY.EDU
Path: utzoo!decvax!ittatc!dcdwest!sdcsvax!ucbvax!YALE.ARPA!LEICHTER-JERRY
From: LEICHTER-JERRY@YALE.ARPA
Newsgroups: mod.computers.vax
Subject: Re: vaxtpu programming
Message-ID: <8607031107.AA06786@ucbvax.Berkeley.EDU>
Date: Thu, 3-Jul-86 07:08:53 EDT
Article-I.D.: ucbvax.8607031107.AA06786
Posted: Thu Jul  3 07:08:53 1986
Date-Received: Thu, 3-Jul-86 23:41:36 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: <LEICHTER-JERRY@YALE.ARPA>
Organization: The ARPA Internet
Lines: 22
Approved: info-vax@sri-kl.arpa


    ...
      I was wondering if anyone knew of a way to access a globally defined
    symbol while in VAXTPU?....
There is no direct way to do this; i.e., there is neither a TPU primitive
to access the values of DCL symbols, nor any general call-out interface that
would let you call LIB$GET_SYMBOL (or whatever it's called).

HOWEVER, there IS a primitive named CALL_USER that allows you to call out to
a user-provided program written in some other language (such as BASIC).  The
user program has to be built into a shareable image, which TPU will find
using LIB$FIND_IMAGE_SYMBOL.

CALL_USER takes one integer and one string argument, which are passed on the
the user program, and returns a single string value, passed back from the user
program.  This should be sufficient for the purpose you have in mind.

Another approach is to use the callable TPU interface.  You can use it to
build a single image with your CALL_USER routine already in it, and do various
fancy things.
							-- Jerry
-------