; ************************* 
; Math/Utilities Library 08
; *************************
; Data Packing 
; (Original TI-59)
; 


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

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

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

lbl a                                     ;000
sto 1 rtn

( ( ce - 1 ) / rcl 1 sto 0 int inv        ;005
sum 0 ) sto 2 ( inv int * rcl 1 int
) sto 3 op 23 4 sum 2 rc* 2 inv int 
st* 2 ( inv dsz 3 67 ( rcl 0 * 1 0
) sto 0 int inv sum 0 + gto 45

0 ) inv log dms sto 3 pd* 2 rtn           ;067

lbl b                                     ;077
sbr 5 rc* 2 int inv sm* 2 ( exc 0
* 1 0 ) int inv log dms prd 0 pd* 2
prd 3 ( ( 1/x * x%t ) ( inv int /
x%t ) int + exc 0 + rc* 2 inv int )
st* 2 rcl 3 inv pd* 2 rcl 0 rtn 

lbl c                                     ;137
sbr 5 ( rc* 2 inv int * rcl 3 inv pd*
2 ( rcl 0 * 1 0 ) int inv log dms ) 
int rtn

lbl d                                     ;167
sbr 5 rc* 2 int inv sm* 2 ( exc 0
* 1 0 ) int inv log dms prd 0 prd 3
pd* 2 ( 1/x * x%t ) ( inv int / x%t
) ( ( int + rc* 2 inv int + rcl 0 )
/ rcl 3 ) ex* 2 int rtn

 




#end