; *****************************
; 13 Digit Printer
; *****************************
; TI PPC Notes V7N4/5P11

#EMULATOR c:\ti-59\prg2\13digprt\13digprt.t59
#LISTING c:\ti-59\prg2\13digprt\13digprt.lst
#POCKETPC c:\ti-59\prg2\13digprt\13digprt.ti

lbl d
( abs + 1 + ( ce * 8 1/x ) int * 2 ) rtn

lbl c
( rcl 0 * 1 0 + inv int sto 0 0 ) int rtn

lbl b
( ce * 1 0 0 + c d ) rtn

lbl ee
( ce / ee ( ee / ee 0 0 ) ( cp + x%t ) ) (
int x%t / 0 inv ee eq / 1 ) rtn

lbl /
1 0 ) rtn

lbl e
( x%t log ee inv ee / 1 0 ) ( cp + x%t ) ( 
int d * 1 0 0 + x%t ( cp + x%t ) ( inv int 
* 1 0 ) d ) ( ce + x%t ( cp + x%t ) e' * 
1 0 0 0 0 + 1 7 * 1 0 0 0 x2 ) rtn

lbl e'
( op 10 * ( ce - 1 ) * 1 0 ) rtn

lbl a
sto 25 cp eq a' ( ce / sbr ee ( cp + x%t )
/ 1 0 ) sto 0 e op 4 rcl 0 e' b ( ce * 
1 0 0 + 4 0 ) b b op 1 0 b b b b b op 2 0
b b b b b op 3 op 5 rcl 25 rtn

lbl a'
op 0 3 inv log x2 op 1 rtn


#end

