Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!princeton!orsvax1!pyrnj!caip!lll-crg!lll-lcc!ucdavis!ucbvax!info-atari8
From: ramsay@KCL-CS.UUCP (ZNAC440)
Newsgroups: net.micro.atari8
Subject: (none)
Message-ID: <8603041426.AA21897@mcvax.uucp>
Date: Tue, 4-Mar-86 08:51:54 EST
Article-I.D.: mcvax.8603041426.AA21897
Posted: Tue Mar  4 08:51:54 1986
Date-Received: Wed, 5-Mar-86 06:27:48 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 47

To: ukc!mcvax!seismo!lll-crg!lll-lcc!ucdavis!ucbvax!info-atari8
Subject: Re: --- Routine Request ---
Newsgroups: net.micro.atari8
In-Reply-To: <8602260250.AA09331@ucbvax.berkeley.edu>
Organization: Department of Computing, Kings College, University of London.
Cc: 

In article <8602260250.AA09331@ucbvax.berkeley.edu> you write:
>I am looking for a routine that will translate Action! format arguments
>onto the stack (ala Basic USR call) so that all the nifty routines
>written to use with basic could be directly ported to Action! with
>just the addition of the USR interface?
> 
>PROC Grebnitz=*()
>[ numbers numbers numbers ]
> 
>USR(Grebnitz, arg1, arg2, arg3);
> 
>			-Richard Hartman
>			max.hartman2ames-vmsb

Piece of piss, this one. Second arg must be number of arguments. Thusly:

INT FUNC USR(CARD addr, BYTE num, CARD c1,c2,c3,c4,c5,c6)
 ; ACTION! allows only 8 params
 BYTE i
 CARD j=0 ; Botch for zero page addr
 FOR i=0 TO num*2
 DO
  IF num=0 THEN EXIT
  j=Peek($A3-i+num*2)
  [LDY #0
   LDA j,Y
   PHA]
 OD
 [LDA num
  PHA]
  junk=addr ; junk is previously designed dummy PROC
  junk()
RETURN (PeekC(212))

Should work - write back & tell me if it doesn't.

			Call me in the morning,
				R. Ramsay
<And sneaking along last...>
STOP PRESS: WINDOW.ACT & MOUSE.ACT are coming soon!