From helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw Mon May 14 16:31:35 PDT 1990
Status: RO

Article 1624 of comp.sys.handhelds:
Path: helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw
>From: billw@hpcvra.CV.HP.COM (William C Wickes)
Newsgroups: comp.sys.handhelds
Subject: Re: syseval
Message-ID: <21580094@hpcvra.CV.HP.COM>
Date: 14 May 90 18:00:24 GMT
References: <12587137858010@osu-20.ircc.ohio-state.edu>
Organization: Hewlett-Packard Co., Corvallis, OR, USA
Lines: 22

You can't use HP-28 SYSEVAL addresses on an HP-48!

Here's the PCOEF program in HP-48 terms:

<<
   3   DUPN   TYPE   SWAP   TYPE   ROT
   TYPE   3   ->LIST   { 0   6   9 }
   IF   ==
   THEN   DUP   1   +   ->   n
      <<   #18CEAh   SYSEVAL  COERCE
      SWAP
         #53438h   SYSEVAL
         #74D0h   SYSEVAL
         #38104h   SYSEVAL
         DROP   #7497h   SYSEVAL
         1   n
         FOR   m   m   ROLL   COLCT
         NEXT
         n   ->LIST
      >>
   END
>>


From helens!relgyro!ucbvax!ucsd!swrinde!zaphod.mps.ohio-state.edu!sdd.hp.com!hp-pcd!hpcvra!billw Mon May 14 16:31:55 PDT 1990
Status: RO

Article 1625 of comp.sys.handhelds:
Path: helens!relgyro!ucbvax!ucsd!swrinde!zaphod.mps.ohio-state.edu!sdd.hp.com!hp-pcd!hpcvra!billw
>From: billw@hpcvra.CV.HP.COM (William C Wickes)
Newsgroups: comp.sys.handhelds
Subject: Re: syseval
Message-ID: <21580095@hpcvra.CV.HP.COM>
Date: 14 May 90 18:15:23 GMT
References: <12587137858010@osu-20.ircc.ohio-state.edu>
Organization: Hewlett-Packard Co., Corvallis, OR, USA
Lines: 22

Whoops!  Wrong version. Here's one that might even work on an HP-48:

<<
   3   DUPN   TYPE   SWAP   TYPE   ROT
   TYPE   3   ->LIST   { 0   6   9 }
   IF   ==
   THEN   DUP   1   +   ->   n
      <<   #18CEAh   SYSEVAL  COERCE
      SWAP
         #549CCh   SYSEVAL
         #74D0h   SYSEVAL
         #59373h   SYSEVAL
         DROP   #7497h   SYSEVAL
         1   n
         FOR   m   m   ROLL   COLCT
         NEXT
         n   ->LIST
      >>
   END
>>

The above should work on any production HP-48SX.  Sorry for the confusion.


From helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw Thu May 17 14:11:17 PDT 1990
Status: RO

Article 1649 of comp.sys.handhelds:
Path: helens!relgyro!ucbvax!ucsd!usc!samsung!uakari.primate.wisc.edu!sdd.hp.com!hp-pcd!hpcvra!billw
>From: billw@hpcvra.CV.HP.COM (William C Wickes)
Newsgroups: comp.sys.handhelds
Subject: Polynomial Coefficients PCOEF
Message-ID: <21580097@hpcvra.CV.HP.COM>
Date: 16 May 90 16:12:39 GMT
Organization: Hewlett-Packard Co., Corvallis, OR, USA
Lines: 34

In a response to a previous note, I listed the HP 48SX version of the PCOEF
program from the HP 28S Mathematical Applications Book.  Unfortunately,
both tries to list the program were incorrect, the first because
the SYSEVAL's were wrong, and the second because I left in a comment
word "COERCE" that should have been deleted.  Anyway, here is the
correct version:

<<
   3   DUPN   TYPE   SWAP   TYPE   ROT
   TYPE   3   ->LIST   { 0   6   9 }
   IF   ==
   THEN   DUP   1   +   ->   n
      <<   #18CEAh   SYSEVAL
      SWAP
         #549CCh   SYSEVAL
         #74D0h   SYSEVAL
         #59373h   SYSEVAL
         DROP   #7497h   SYSEVAL
         1   n
         FOR   m   m   ROLL   COLCT
         NEXT
         n   ->LIST
      >>
   END
>>

195 bytes, checksum #6548h (for the program object).

This program expects to find an algebraic expression in level 3, a name
in level 2, and a number in level 1, where the expression is taken
as a polynomial of order "number" in the variable "name".  It returns
a list of the polynomial coefficients in order of decreasing power.

I apologize for the mixups.