[an error occurred while processing this directive]
|
Я не работал с 219х, но для 218х это так:
i0=a0; i1=b0; i7=c0;
m0=1; m7=1;
mr = 0, mx0 = dm(i0,m0), my0 = pm(i7,m7);
cntr = length(a0);
do label until ce;
mf = mx0 * my0 (ss), mx1 = dm(i1,m0);
label: mr = mr + mx1 * mf (ss), mx0 = dm(i0,m0), my0 = pm(i7,m7);
E-mail: info@telesys.ru