; ************************* 
; Math/Utilities Library 09
; *************************
; Prime Factors 
; (Original TI-59)


#EMULATOR c:\ti-59\mu\09\MU-09.t59

#LISTING c:\ti-59\mu\09\MU-09.LST

#AZEMULATOR c:\ti-59\mu\09\MU-09.TI

lbl a                                    ;000
sto 10 adv adv prt adv stf 1 inv stf 2 1 
sto 11 2

a13:
sto 12

lbl b                                    ;015
iff 2 a75 rcl 12 x%t rcl 10 sqr
ge a35 rcl 10 stf 2 prt adv rtn

a35:
( rcl 10 / rcl 12 - int ) cp eq a79       ;035
inv iff 1 a65 6 x%t rcl 12 inv ge a65
2 sum 11 inv 

a65:
stf 1 2 sum 11 rcl 11 gto a13

a75:
adv adv 0 1/x 1 rtn                              ;075

a79:
rcl 12 inv prd 10 prt rtn                    ;079

#end