; ************************* 
; Math/Utilities Library 20
; *************************
; Calculator Status
; (Original TI-59)

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

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

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


lbl e'                      ;000
1 0 prd 0 

lbl d'                      ;006
rcl 0 int inv sum 0 rtn

lbl b                       ;015
9 sto 1 ( ( 0 inv iff ind 1 37 * 1 0 + rcl 1 )
( dsz 1 23 ) ) iff 0 50 fix 9 rtn

fix 1 rtn                   ;050

lbl c                       ;056
op 16 ( inv int * 1 0 + . 9 ) int rtn

lbl d                       ;069
9 0 cos op 10 rtn

lbl b'                      ;077
cp ( 1 0 - 1 + +/- inv log ee inv ee
eq 83 0 ) rtn

lbl c'                      ;098
hir 8 7 op 4 hir 18 cp inv eq 113
inv stf 0 0 rtn

lbl e                       ;118
x%t 1 0 sto 0 0 sto 1 ( inv stf 7 op 30
op 21 op 18 iff 7 127 ce dsz 1 149 rcl 0
rtn

) gto 142                   ;149

lbl a                       ;153
0 sto 0 1 0 sto 1 inv iff ind 1 170 op 20
inv prd 0 dsz 1 162 b' sum 0 . 1 prd 0 d
eq 192 op 20 prd 0 . 1 prd 0 c x%t 1 0 
eq 206 inv prd 0 ( 1/x * 0 x%t * rcl 0
op 10 inv eq 221 1 ) sum 0 0 rtn

lbl a'                       ;226
cp rcl 0 int eq 243 inv sum 0 1 0 gto 245

e' abs op 17                 ;243
e' eq 266 ge 262 1 +/- prd 0 rad gto 267

grad gto 267                  ;262

deg 1 0 prd 0                ;266
fix ind 0 d' 1 0 sto 1 inv log prd 0
cp . 1 prd 0 rcl 0 inv int inv sum 0
eq 301 stf ind 1 dsz 1 284 0 rtn








#end