; ***************** 
; Master Library 07
; *****************
; Polynomial Evaluation


#EMULATOR c:\ti-59\ml\07\ML-07.t59

#LISTING c:\ti-59\ml\07\ML-07.LST

#AZEMULATOR c:\ti-59\ml\07\ML-07.TI


lbl a                                 ;000
sto 4 prt rtn

lbl b                                 ;006
( ce + x%t 5 ) sto 1 x%t adv rtn

lbl abs                               ;019
st* 1 x%t 1 sum 1 x%t prt rtn

gto abs                               ;030

lbl c                                 ;032
adv prt sto 3 ( rcl 4 sto 2 + 5
) sto 1 1 sum 2 rc* 1 

lbl deg                               ;053
inv dsz 2 rad inv dsz 1 rad ( ce
* rcl 3 + rc* 1 ) gto deg

lbl rad                               ;074
prt rtn 


#end 
