; ************************* 
; Math/Utilities Library 11
; *************************
; Gamma/Factorial 
; (Original TI-59)


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

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

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

lbl b'                                    ;000
( ce + 1 ) 

Lbl a'                                    ;007
inv stf 0 gto a51

lbl a                                     ;010

a12:
stf 0 gto a51

lbl b                                     ;017
( ce + 1 ) gto a12

lbl c                                     ;027
cp eq a49 sto 9 1 sto 10 

a38:
rcl 9 prd 10
dsz 9 a38 rcl 10 rtn

a49:
1 rtn                                     ;049

a51:
( ( sto 10 - . 5 ) * rcl 10 lnx -         ;051
rcl 10 + ( 2 * pi ) lnx / 2 + ( 1
2 * rcl 10 ) 1/x - ( 3 6 0 * rcl 10
yx 3 ) 1/x + ( 1 2 6 0 * rcl 10 yx 5 )
1/x - ( 1 6 8 0 * rcl 10 yx 7 ) 1/x
+ ( 1 1 8 8 * rcl 10 yx 9 ) 1/x ) 
iff 0 a141 rtn

a141:
inv lnx inv stf 0 rtn                     ;141

#end