Ну уже лучше)) а теперь замените f2 и f3 на массив f2:ARRAY [0..9] OF REAL; и сможете записать сразу 10 переменных REAL. Регистров будет уже 20.
Упаковку можно сделать компактней, каждая строка 1 REAL, например
Код:
ptr_f2:=ADR(f2); buffer[1] := ptr_f2^; ptr_f2:=ptr_f2+1; buffer[0] := ptr_f2^; ptr_f2:=ptr_f2+1; buffer[3] := ptr_f2^; ptr_f2:=ptr_f2+1; buffer[2] := ptr_f2^;
ptr_f2:=ptr_f2+1; buffer[5] := ptr_f2^; ptr_f2:=ptr_f2+1; buffer[4] := ptr_f2^; ptr_f2:=ptr_f2+1; buffer[7] := ptr_f2^; ptr_f2:=ptr_f2+1; buffer[6] := ptr_f2^;
Аналогично можно прочитать Массив любых переменных, если они идут подряд.