48: Moving average with DOSUBS

[Joe Horn]

(06-12-2015 06:23 PM)Dave Britten Wrote:  That sounds like what I was thinking of. Now, how do I do that on a 48, which doesn't have menu 256?

Gotta use System RPL, but that can be faked with SYSEVAL in a User RPL program. Delightfully, the SRPL command CHANGETYPE has remained stable at ROM address #05AB3h in every RPL model, from 48SX version A, through the 48GX version R, through the 50g version 2.15. So the following little routine will convert any program into a list or vice versa, and leave any other input unchanged. It's non-optimized for ease of human reading... if such a thing is possible in RPL. Be sure to get the hex numbers exactly right, or it'll do Bad Things.

'P~L' (Program/List Toggler) for HP 48/49/50, all versions
<< CASE
DUP TYPE 8 ==
THEN #2A74h #5A03h SYSEVAL #5AB3h SYSEVAL END
DUP TYPE 5 ==
THEN #2D9Dh #5A03h SYSEVAL #5AB3h SYSEVAL END
END >>