Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!apple!bionet!hayes.ims.alaska.edu!acad2.alaska.edu.!asslk
From: asslk@acad2.alaska.edu. (Kingry Shane L)
Newsgroups: comp.sys.handhelds
Subject: Re: Viewing stack
Message-ID: <1991Mar26.065048.25095@ims.alaska.edu>
Date: 26 Mar 91 06:50:48 GMT
References: <1991Mar25.234257.15408@cs.utk.edu> <1991Mar26.033937.18677@ims.alaska.edu>
Sender: usenet@ims.alaska.edu (J Random USENET)
Reply-To: asslk@acad2.alaska.edu.
Distribution: usa
Organization: University of Alaska Anchorage
Lines: 63
Nntp-Posting-Host: acad2.alaska.edu

Keywords:  
News-Software: VAX/VMS VNEWS 1.3-4   

In article <1991Mar26.033937.18677@ims.alaska.edu>, asslk@acad2.alaska.edu. (Kingry Shane L) writes...v
>In article <1991Mar25.234257.15408@cs.utk.edu>, hartsell@cs.utk.edu (Duke of Earl) writes...
>>Hello, 
>>I was wondering if someone out there could tell me where to locate 
>>a program that was posted he a few months ago. It allowed the viewing
>>of the first 10 items of the stack in in a small font. 
>>I had it working on my hp when but an accidental memory purge and purge of
>>hardcopy( I threw it away ).  Prevented me from putting it back on my hp.
>> 
>> 
>>Thanks  in  advance
>>-- 


-------------------------------------

Stack View Program: From "The HP Handbook", by James Donnelly, page 23

The following stack-view program STKV diplays up to 10 levels of
the stack simultaneously.  The display mode, plot parameters, stack
values, and graphics picture are preserved.  The system remains
halted until ATTN is pressed, after which the program resumes to
restore the origional PPAR and PICT.

---------------------------cut here-------------------------------
%%HP: T(3)A(D)F(.);
\<<
  IF DEPTH
  THEN PICT RCL
PPAR \-> pict ppar
    \<< PICT PURGE 1
32 XRNG 1 64 YRNG 1
DEPTH 1 - 10 MIN
DUP
      IF 8 >
      THEN 6 1
      ELSE 8 2
      END \-> rowht
tsize
      \<<
        FOR i PICT
1 i rowht * R\->C
RCLF STD i ": " +
SWAP STOF i 3 +
PICK \->STR + tsize
\->GROB GOR
        NEXT { }
PVIEW 'PPAR' PURGE
ppar
        IF 'PPAR'
SAME NOT
        THEN ppar
'PPAR' STO
        END pict
PICT STO
      \>>
    \>>
  END
\>>
--------------------------cut here----------------------------