; Подключение {$L chbits} { подключение файла chbits.obj }
; Описание function ChBits(:integer):integer;external;
; Вызов i:=ChBits(i);
; Функция меняет местами пять крайних бит :)
.model large,pascal
.code
.286
public ChBits
ChBits proc near n:word ;параметр - слово
mov ax, n ;читаем слово
mov cx, ax ;сохраняем в cx
and cx, 0000011111100000b ;оставляем неизменные биты
and ax, 1111100000011111b ;биты, которые меняются
xchg al, ah ;обмениваем al с ah
shl ah, 3 ;подвигаем биты на край
shr al, 3 ;и в этом байте тоже
or ax, cx ;объединяем с неизменными битами
ret ;результат в ax
endp
end
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.