; ***************** 
; Master Library 01
; *****************
; Diagnostic

#EMULATOR c:\ti-59\ml\01\ML-01.t59

#LISTING c:\ti-59\ml\01\ML-01.LST

#AZEMULATOR c:\ti-59\ml\01\ML-01.TI

lbl ce                         ;000
0 sto 9 deg fix 9

lbl clr                        ;009
cp 6 sto 01 0 st* 1
dsz 1 15 rtn

lbl =                          ;022
sbr ce 5 x%t 3 0 p/r
s+ inv p/r s+ op 12
dms s+ op 11 inv dms
inv s+ op 14 ( ce -
sbr dms ) ee
inv ee x%t 3 7 7 .
2 5 8 0 9 5 1 eq write 
0 1/x 

lbl write                         ;074
op 00 1 3 3 6 3 7 1 7 3 5
op 04 3 0 op 03 op 05 1 prt rtn

lbl a                           ;099
adv prt pg* 0 a prt rtn

lbl b                           ;108
adv prt pg* 0 b prt rtn

lbl c                           ;117
adv prt pg* 0 c prt rtn

lbl d                           ;126
adv prt pg* 0 d prt rtn

lbl e                           ;135
adv prt pg* 0 e prt rtn

lbl a'                          ;144
adv prt pg* 0 a' prt rtn

lbl b'                          ;153
adv prt pg* 0 b' prt rtn

lbl c'                          ;162
adv prt pg* 0 c' prt rtn

lbl d'                          ;171
adv prt pg* 0 d' prt rtn

lbl e'                          ;180
adv prt pg* 0 e' prt rtn

lbl dms                              
( ( 2 4 2 9 8 * rcl 9 + 9 9 9 9 1 
) / 1 9 9 0 1 7 sto 7 ) ( ( ( inv
int * rcl 7 ) sto 9 / rcl 7 * 5 inv
log ) int / 5 inv log ) rtn

#end