hp 28s - creating nested lists

[Christoph Giesselink]

For those who don't know how the original NDUPN code looks like, this is the code of the HP28S (the HP28C source code, not byte code is equal):

Code:

3ACB5 =NDUPN
3ACB5 76C20  ::
3ACBA A4020    DUP
3ACBF 71E60    #0=
3ACC4 F5CD3    case
3ACC9 C16D3    SWAPDROP
3ACCE A4020    DUP
3ACD3 F7F60    #1-
3ACD8 A4020    DUP
3ACDD 71E60    #0=
3ACE2 F5CD3    case
3ACE7 60120    DROP
3ACEC 9A170    ZERO
3ACF1 8C850    DO
3ACF6 48120    OVER
3ACFB 5E020    SWAP
3AD00 50850    LOOP
3AD05 09F20  ;

A special feature is the valid 0 argument for N.

Christoph