🚀 go-pugleaf

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!