@invert str; //ставит строку в обратном порядке
local int,'i',[len v0]; //v0 - входящая строка, в i записываем ее длину
local str,'s',''; //инициализируем пустую строку
mov v0, //записываем в v0 результат работы функции (копируем из буферной строки s)
[loop_down i,i,1, //нисходящий цикл
mov s,s+#[char v0,i] //получить символ исходной строки и записать его в буферную
];
@str_add str,str; //длинное сложение
local int,'i',[len v1]-[len v0]; //разница длин
//можно сделать swap v1,v0; но это не оптимально
ifmore i,
mov v0,[str i,$30]+v0; //str создает строку указанной длины и заполняет ее указанным байтом, по-умолчанию пробел
ifless i,
mov v1,[str -i,$30]+v1;
local int,'j',0; //переменная для хранения переполнения
loop_down i,[len v1],1, {
mov j,j+[char v0,i]+[char v1,i]-$60;
set_char v0,i,$30+[div j,10];
};
if j,
mov v0,#$30+j''v0; //дополнительная единица вначале
@str_sub str,str; //длинное вычитание с дополнением
local int,'i',[len v1]-[len v0];
ifmore i,
mov v0,[str i,$30]+v0;
ifless i,
mov v1,[str -i,$30]+v1;
local int,'j',0;
loop_down i,[len v1],1, {
mov j,[char v0,i]-j-[char v1,i]+10;
set_char v0,i,$30+[div j,10];
dec j;
}; //у вычитания не производится увеличения длины
@str_mul_ str,int; //умножение строки на малое число
local int,'i',0;
ifnot v1, {
mov v0,'0'; //если v1=0
break; //выход из функции
};
local int,'j',0;
loop_down i,[len v0],1, {
mov j,[char v0,i]-$30*v1+j;
set_char v0,i,$30+[div j,10];
};
ifmore j,
mov v0,j+v0; //допишем избыток
@str_mul str,str; //умножение двух строк
local int,'i';
local str,'s','0';
local int,'j',[len v0];
mov v0,[
loop_down i,j,1,
mov s,[str_add s,[str_mul_ v1,[char v0,i]-$30]+[str j-i,$30]]
];
@long_fac int; //длинный факториал
local str,'s','1';
msg v0+'! = '+[loop v0,1,v0, mov s,[str_mul_ s,v0]];
перекинул.. не хочет...
