; ************************* 
; Math/Utilities Library 04
; *************************
; Printer Formatting 
; (Original TI-59)


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

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

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

lbl a                                   ;000
inv 

lbl a'                                  ;003
stf 4 stf 1 sto 4 ( int / 1 0 0 ) ( inv int
* 1 0 0 ) sto 5 inv log dms sto 1 x%t ge 62
( x%t / 1 0 +/- ) int x%t sto 6 inv ge 62
0 eq 61 rcl 6 eq 62 inv stf 3 rcl 1 inv prd 6
( rcl 4 * 1 0 0 ) ( inv int * 4 0 0 ) sto 3
( rcl 4 / 1 0 0 ) int ( sto 7 / 5 ) sto 0
int inv sum 0 sum 3 5 +/- prd 0 5 sum 0 rcl 0
inv log x2 ( 1/x * rc* 3 ) int sto 1 ( 2 0 -
rcl 7 ) sto 2 rcl 4 ( inv int * 1 0 0 ) ( int
+ cp eq 159 1 + rcl 5 ) sto 7 ( ce - rcl 0 )
ge 203 ( +/- inv log x2 1/x * x%t rc* 3 ) (
inv int / x%t / rcl 0 sto 7 inv log x2 ) sum 1 gto 220

x%t 5 x%t gto 214                        ;203

( ce - 5 )                               ; 209
ge 209 inv sum 7 op 33 inv stf 2 op 25 rcl 6
cp ge 253 ( ce * 1 0 ) inv int abs sto 6 pgm 3
sbr - op 35 gto 305

inv dsz 5 370 inv iff 3 272              ;253
5 1 pgm 3 sbr sbr gto 305

( rcl 6 * 1 0 ) sto 6 int inv sum 6 cp inv      ;272 
eq 300 iff 4 300 pgm 3 e gto 305 stf 4 pgm 3
d dsz 7 253 2 0 sto 7 op 23 ( 6 - rcl 5 
iff 2 342 - rcl 4 ( inv int * 1 0 0 ) int
cp eq 342 - 1 ) inv log x2 sto 1 ( 1/x *
rc* 3 ) inv int prd 1 1 0 inv log inv prd 1
op 33 gto 253

iff 2 404                                       ;370
rcl 4 ( inv int * 1 0 0 ) int cp eq 404 sto 5
stf 4 stf 2 pgm 3 sbr . op 25 gto 305

5 x%t                                           ;404
rcl 0 eq 422 inv log x2 op 23 prd 1 rcl 1
st* 3 0 rtn

lbl b                                           ;424
pgm 3 b' rtn








#end