Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!think.com!mintaka!ai-lab!rice-chex!bson
From: bson@rice-chex.ai.mit.edu (Jan Brittenson)
Newsgroups: comp.sys.handhelds
Subject: Re: HP48 improved ten-line stack display
Message-ID: <14466@life.ai.mit.edu>
Date: 30 Mar 91 20:53:13 GMT
References: <STEVEV.91Mar26200805@greylady.uoregon.edu> <8872@mentor.cc.purdue.edu> <STEVEV.91Mar29201515@greylady.uoregon.edu>
Sender: news@ai.mit.edu
Distribution: comp
Organization: nil
Lines: 37

In a posting of [30 Mar 91 01:15:15 GMT]
   stevev@greylady.uoregon.edu (Steve VanDevender) writes:

 > Anyone know a SYSEVAL that converts an object to its compact stack
 > display?

You may find the following addresses useful:

	#1596e	Converts object and index to stack display string

	Expects:
		3: index.sysbin		(stack level index)
		2: object		(any object)
		1: maxlen.sysbin	(maximum string size - 1)


	#15955	Same, but uses maxlen = 19 decimal (i.e. 20 chars)

	Expects:
		2: index.sysbin
		1: object.any


For example:

	:&:5 EVAL			@ Index <5>
	<< 1 2 3 << 4 5 6 >> 7 8 >>	@ Object
	
	#15955h SYSEVAL

	--> "5: << 1 2 3 << 4 5 6 >> 7 "

	The program delimiters and the ellipsis are of course only
	one character each.

						-- Jan Brittenson
						   bson@ai.mit.edu