20 lines
739 B
Smalltalk
20 lines
739 B
Smalltalk
(*
|
|
===============================================================================
|
|
Project : PLC_Library
|
|
Device : -
|
|
Path : Преобразование значений
|
|
Name : WORD_OF_DWORD
|
|
Type : FUNCTION
|
|
===============================================================================
|
|
*)
|
|
|
|
FUNCTION WORD_OF_DWORD : WORD
|
|
(* Извлечение одного из двух 16-битных слов DWORD *)
|
|
VAR_INPUT
|
|
in : DWORD; (* Исходное значение *)
|
|
N : BYTE; (* Номер извлекаемого слова: 0 - младшее (биты 0..15), 1 - старшее (биты 16..31) *)
|
|
END_VAR
|
|
(*----- IMPLEMENTATION -----*)
|
|
WORD_OF_DWORD := DWORD_TO_WORD(SHR(in,SHL(n,4)));
|
|
END_FUNCTION
|