home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / hp48 / 5585 < prev    next >
Encoding:
Text File  |  1992-11-06  |  1.8 KB  |  48 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!tcsi.com!iat.holonet.net!brianw
  3. From: brianw@iat.holonet.net (Brian Walsh)
  4. Subject: Re: sys_RPL??? and DEBUGer ???
  5. Message-ID: <Bx9wMC.8Iw@iat.holonet.net>
  6. Organization: HoloNet
  7. Date: Fri, 6 Nov 1992 02:37:22 GMT
  8. Lines: 38
  9.  
  10. In article <1992Nov6.091825.11984@waikato.ac.nz> fee@waikato.ac.nz writes:
  11.  
  12. > Does anybody know how to tell from within a programme (preferably sys_RPL
  13. > but user_RPL will suffice for a start) what menu is currently being
  14. > displayed?
  15. User RPL to the rescue!  RCLMENU does the trick, returning the menu 
  16. number and page.
  17.  
  18. > Second question: Are the built-in menu grobs held anywhere as one-line
  19. > grobs and are they accessible? ie: is page 2 of the MTH menu for instance
  20. > a 131 X 9 GROB held somewhere that can be recalled to the stack?
  21. Nope, that would waste lots of memory.  The menu labels are built as 
  22. needed from strings using entries such as MakeStdLabel (#3A328h), 
  23. MakeDirLabel (#3A3ECh), and MakeBoxLabel (#3A38Ah).  There's a way to 
  24. recall the 131x8 menu grob to the stack but I don't remember it.  But 
  25. here's a routine to recall the name displayed on a menu label as a 
  26. global name (or string if not a name):
  27. GETLBL
  28. :: CK1&Dispatch #1h           Input a real number on the stack, 1 to 6
  29.    :: COERCE GETDF            Return the menu label object for that key
  30.       CK1&Dispatch
  31.       #8h                     Is it a secondary? (menu label such as SOLVR)
  32.       :: CDRCOMP CARCOMP ;    Yes, get the second object (string)
  33.       #0h NOP                 No, we're done
  34.     ;
  35. ;
  36.  
  37. ASC version of GETLBL:
  38. %%HP: T(1)A(R)F(.);
  39. "D9D20ECE819FF30D9D20AEC8114A40ECE81F3040D9D203515098050B2130FEF3
  40. 0E8E60B2130B21303D99"
  41. @ BYTES: #99D3h 40
  42.  
  43. Caution: numbers other than 1 to 6 may give unpredictable results.
  44.  
  45. -- Brian Walsh
  46.    brianw@holonet.net           -Just say no to taglines-
  47.  
  48.