; *********************************** 
; Master Library 03
; ***********************************
; Matrix Addition and Multiplication


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

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

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

lbl a                               ;000
exc 4 exc 3 rcl 4 adv prt rtn

lbl b                               ;011
- x%t 1 = * rcl 3 + 8 = sto 7
x%t adv rtn

lbl abs                             ;028
st* 7 x%t 1 sum 7 x%t prt rtn

gto abs                             ;039

lbl c                               ;041
+ x%t rcl 4 - 1 = * rcl 3 + 8
= sto 7 x%t adv rtn

gto abs                             ;061

lbl d                               ;063
exc 6 exc 5 rcl 6 adv prt rtn

lbl e                               ;074
7 sto 1 + ( rcl 3 * rcl 4 ) sto 7
= sto 2

lbl x2                              ;092
1 sum 1 sum 2 rcl 5 * rc* 1 +
rcl 6 * rc* 2 = st* 1 dsz 7 x2
1 rtn

lbl a'                              ;118
b rtn

lbl yx                              ;122
rc* 7 prt rtn

1 sum 7 gto yx                      ;128

lbl b'                              ;133
+ x%t rcl 3 * ( rcl 4 + 1 ) + 8
= sto 7 x%t adv rtn

lbl deg                             ;154
st* 7 x%t 1 sum 7 x%t prt rtn

gto deg                             ;165

lbl c'                              ;167
rcl 3 - x%t 8 = +/- sto 1

lbl ee                              ;178
rcl 3 * ( rcl 4 sto 7 + 1 ) + 8
= sto 2 0

lbl int                             ;197
+ rcl 3 sum 1 1 sum 2 rc* 1 *
rc* 2 dsz 7 int = exc 3 sum 1
exc 3 st* 1 x%t - 1 = sto 1 cp
eq clr +/- + 8 = exc 1 x%t gto ee

lbl clr                             ;242
1 rtn

lbl d'                              ;246
+ x%t 7 + rcl 3 * rcl 4 = sto 7 
x%t adv rtn

lbl eng                             ;263
rc* 7 prt rtn 

1 sum 7 gto eng                     ;269


#end