Портирование для TurboPascal, две функции не компилируются в Turbo Pascale |
Начальные контакты ТОЛЬКО через личку!!
Портирование для TurboPascal, две функции не компилируются в Turbo Pascale |
AVPro |
18.05.2009 19:42
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: 0 |
Есть две функции из юнита для 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; Вроде всё. |
О_Джей_Симпсон |
18.05.2009 22:28
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Реальное имя: Денис Репутация: 0 |
что они делать должны.
|
Текстовая версия | 19.10.2024 18:04 |