1 program add_rax;
2 uses mtx09;
3 var
4 r0, m1: mtx;
5 x:double=2.0;
6 begin
7 tra;
8 equ(m1,'1,2,3;4,5,6');
9 add(r0,m1,x); // r0 = m1 + x
10 add(r0,x,m1); // r0 = X + m1 (idem)
11 end.
12 {
13 # equ [2,3]
14 1 2 3
15 4 5 6
16
17 # add [2,3] [2,3] [1,1]
18 3 4 5
19 6 7 8
20
21 # add [2,3] [1,1] [2,3]
22 3 4 5
23 6 7 8
24
25 }