*****************************************************************************
* Modulname:	Up
* Modultype:	Secondary
* Dest.Comp.:	HP48
* Language:	System RPL
* Author:	Detlef Mueller,Nibelungenweg 6,2000 Hamburg 56,W-Germany
* Interface:	UP	( --> )
* Description:	Derivat for build-in command UPDIR.
* Edition History :
*	0.000	08-11-1991	DM	Alpha version
*	1.000	09-04-1991	DM	release
*	  001	09-05-1991	DM	fix TMENU bug, bin. download header
*         002   01-02-1992      BW      fix units menu bug (40.02 -> 42.02)
*****************************************************************************

    TITLE	Up

*****************************************************************************
*		OBJECT
*****************************************************************************

ASSEMBLE
=%18	EQU	#1CDF2		Not 'supported' (Why ??? It is the object
*				followed by %19)
	NIBASC	/HPHP48-E/	Binary download header
RPL

::
    CK0NOLASTWD
    GetMenu% %IP>#			( *Get menu nr, convert IP to #* )
    TWO
    #=casedrop
	UPDIR				( *In VAR menu, do simple UPDIR* )
    DUP SIXTY
    #<ITE
    ::	{   %0      %0      %0      %3      %3
	    %3      %3      %3      %3      %0
	   %10     %10     %10     %10     %10
	   %10      %0      %0     %18      %0
	    %0      %0      %0      %0     %24
	   %24     %24      %0      %0    % 29
	    %0    % 31    % 32      %0      %0
	  % 35    % 35    % 37    % 35      %0
	  % 40.04   %0    % 42    % 42    % 42
	  % 42    % 42    % 42    % 42.02 % 42.02
          % 42.02 % 42.02 % 42.02 % 42.02 % 42.03
	  % 42.03 % 42.03 % 42.03 % 42.0
	}
	SWAP NTHELCOMP			( *determine menu parent* )
	NOTcase				( *Not in list, must be TMENU* )
	    %0				( *so do LASTMENU* )
    ;
    ::  DROP %24			( *From a library submenu do LIBRARY* )
    ;
    InitMenu%
;