; ******************* 
; Master Library 04
; *******************
; Complex Arithmetic


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

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

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

lbl e'                                ;000
rcl 1 exc 3 sto 1 rcl 2 exc 4 sto 2
0 rtn

lbl a                                 ;016
cp rad exc 2 exc 1 rcl 2 ce rtn

lbl a'                                ;128
exc 4 exc 3 rcl 4 ce rtn

lbl b                                 ;038
rcl 4 sum 2 rcl 2 x%t rcl 3 sum 1
rcl 1 rtn

lbl b'                                ;054
1 +/- prd 3 prd 4 b rtn

lbl c                                 ;064
( rcl  1 * rcl 3 - rcl 2 * rcl 4
) x%t ( rcl 1 * rcl 4 + rcl 2 *
rcl 3 ) sto 2 x%t sto 1 rtn

lbl c'                                ;099
1 +/- prd 4 ( rcl 3 x2 + rcl 4 x2 )
1/x prd 1 prd 2 c rtn

lbl d                                 ;121
e' pgm 5 b cp eq e' pgm 5 a' c
pgm 5 b' rtn

lbl d'                                ;138
pgm 5 a' e' pgm 5 a' e' c' rtn

lbl e                                 ;150
e' pgm 5 b cp eq e' pgm 5 a' c' 
pgm 5 b' rtn        


#end