*..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
C*
C* In the following example, the initial field values are:
C*
D A s 3p 0 inz(1)
D B s 3p 1 inz(10.0)
D C s 2p 0 inz(32)
D D s 2p 0 inz(-10)
D E s 3p 0 inz(6)
D F s 3p 0 inz(10)
D G s 3p 2 inz(2.77)
D H s 3p 0 inz(70)
D J s 3p 1 inz(0.6)
D K s 2p 0 inz(25)
D L s 2p 1 dim(3)
D V s 5p 2
D W s 5p 1
D X s 8p 4
D Y s 6p 2
D Z s 5p 3
/FREE
L(1) = 1.0;
L(2) = 1.7;
L(3) = -1.1;
A = A + 1; // A = 002
V = B + C; // V = 042.00
V = B + D; // V = 0
V = C; // V = 032.00
E = E - 1; // E = 005
W = C - B; // W = 0022.0
W = C - D; // W = 0042.0
W = - C; // W = -0032.0
F = F * E; // F = 060
X = B * G; // X = 0027.7000
X = B * D; // X = -0100.0000
H = H / B; // H = 007
Y = C / J; // Y = 0053.33
eval(r) Z = %sqrt(K); // Z = 05.000
Z = %xfoot(L); // Z = 01.600
dump(a);
*inlr = *on;
/END-FREE
*...1....+....2....+....3....+....4....+....5....+....6....+....7...
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....Comments
C*
C* In the following example, the initial field values are:
C*
C* A = 1
C* B = 10.0
C* C = 32
C* D = -20
C* E = 6
C* F = 10.0
C* G = 2.77
C* H = 70
C* J = .6
C* K = 25
C* L = 1.0, 1.7, -1.1 Result:
C*
C ADD 1 A 3 0 A = 002
C B ADD C V 5 2 V = 042.00
C B ADD D V V = -10.00
C Z-ADD C V V = 032.00
C SUB 1 E 3 0 E = 005
C C SUB B W 5 1 W = 0022.0
C C SUB D W W = 0052.0
C Z-SUB C W W = -0032.0
C MULT E F 3 0 F = 060
C B MULT G X 8 4 X = 0027.7000
C B MULT D X X = -0200.0000
C DIV B H 3 0 H = 007
C C DIV J Y 6 2 Y = 0053.33
C MVR Z 5 3 Z = 00.002
C SQRT K Z Z = 05.000
C XFOOT L Z Z = 01.600