Test 1:

1: r2:=r1
2: s2:=r2
3: R[0-9]:=s2
   TD:=s2
   r1:+1
   core[r2]:=L
4: IN:=TD
5: R[10-19]:=TD
   TA:=IN
6: TK:=TA
7: s1:=TK
8: H[0-9]:=s1

Test 2:

1: r2:=r1
2: L:=R
3: H:=R
   r1:+1
   L:=core[r2]
4: TI:=H; sub;
5: F[0-9]:=TI[0-9];
   TD:=TI[10-19];
   F[20-39]:=TI[20-39];
6: O:=L; add;
7: M[0-9]:=F[0-9];
   M[10-19]:=TD;
   M[20-39]:=F[20-39];
8: R:=O+H