1 program sub_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 sub(r0,m1,x); // r0 = m1 + x
10 sub(r0,x,m1); // r0 = X + m1 (idem)
11 end.
12 {
13 # equ [2,3]
14 1 2 3
15 4 5 6
16
17 # sub [2,3] [2,3] [1,1]
18 -1 0 1
19 2 3 4
20
21 # sub [2,3] [1,1] [2,3]
22 1 0 -1
23 -2 -3 -4
24
25 }