Помощь - Поиск - Пользователи - Календарь
Полная версия: Портирование для TurboPascal
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
AVPro
Есть две функции из юнита для TMT. Надо переделать, чтоб компильнулось в Turbo Pascal.
А то инструкции 32-разрядного ассемблера не пролезают.
1.
function SafeShr(value:longint; cnt:word):longint;assembler;
asm
mov eax,value
mov bx,ax
shr eax,16
mov dx,ax
mov ax,bx
mov cx,cnt
shrd ax,dx,cl
shr dx,cl
mov bx,ax
mov ax,dx
shl eax,16
mov ax,bx
end;
2.
function SafeShl(value:longint; cnt:word):longint;assembler;
asm
mov eax,value
mov bx,ax
shr eax,16
mov dx,ax
mov ax,bx
mov cx,cnt
shld dx,ax,cl
shl ax,cl
mov bx,ax
mov ax,dx
shl eax,16
mov ax,bx
end;
Вроде всё.
О_Джей_Симпсон
что они делать должны.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.