20.07.2014
10 мин. чтения
Николай
0 Комментариев

Правый, левый сдвиг для чисел INT64

По просьбе наших посетителей, данный материал перенесен с сайта plc4good.org.ua, в связи с полной его потерей. Всё возражения принимаются через форму обратной связи.

plc4good.org.ua/view_post.php?id=232

Исходный код системных функций (PCS7) используемых для сдвига 64 разрядных чисел тип INT. Ничего особенного, но вдруг кому то будет интересно.

Так как функции используются только
внутри PIDConR – это вся доступная документация.

Name: FС370
Symbolic Name: ShLeIn64
Symbol Comment: Left shift of an Int64 variable
Family: System
Version: 2.0
Author: AdvLib80
Last modified: 07/04/2011
Use: UDT23
Size: 326 byte
Signature: compiled by SCL compiler version: SCLCOMP K05.03.07.00_01.02.00.01 release

FUNCTION FC1370 : VOID
TITLE =‘Left shift of an Int64 variable’
AUTHOR : AdvLib80
FAMILY : System
NAME : ShLeIn64
VERSION : ‘2.0’
//reversed

VAR_INPUT
IN : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,
Shift : INT ,
END_VAR

VAR_OUTPUT
OutInt64 : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,
END_VAR

VAR_TEMP
N : INT ,
TempInt64 : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,
TempInt64_dw AT TempInt64: STRUCT
UpperDInt : DWORD ,
LowerDInt : DWORD ,
END_STRUCT ,

retval : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,

retval_dw AT retval : STRUCT
UpperDInt : DWORD ,
LowerDInt : DWORD ,
END_STRUCT ,
Mask : DWORD ,
BitsFromLowerDWord : DWORD ,
END_VAR
BEGIN

retval.UpperDInt:=0,
retval.LowerDInt:=0,
N:=Shift,
IF N&gt,=0 AND N&lt,=63
THEN
TempInt64.UpperDInt:=IN.UpperDInt,
TempInt64.LowerDInt:=IN.LowerDInt,
IF N&gt,=32
THEN
TempInt64.UpperDInt:=TempInt64.LowerDInt,
TempInt64.LowerDInt:=0,
N:=N–32,
END_IF,

retval_dw.UpperDInt:=SHL(IN:=TempInt64_dw.UpperDInt,N:=N),
Mask:=SHL(IN:=DW#16#FFFFFFFF,N:=32-N),

BitsFromLowerDWord:=Mask AND TempInt64_dw.LowerDInt,
BitsFromLowerDWord:=SHR(IN:=BitsFromLowerDWord,N:=32-N),

retval_dw.UpperDInt:=BitsFromLowerDWord OR retval_dw.UpperDInt,
retval_dw.LowerDInt:=SHL(IN:=TempInt64_dw.LowerDInt,N:=N),
END_IF,

OutInt64.UpperDInt:=retval.UpperDInt,
OutInt64.LowerDInt:=retval.LowerDInt,

END_FUNCTION

Block checksum оригинального и восстановленного блока совпадает.

Name: FС371
Symbolic Name: ShRiInt64
Symbol Comment: Right shift of an Int64 variable
Family: System
Version: 2.0
Author: AdvLib80
Last modified: 07/04/2011
Use: UDT23
Size: 326 byte
Signature: compiled by SCL compiler version: SCLCOMP K05.03.07.00_01.02.00.01 release

FUNCTION FC1371 : VOID
TITLE =‘Right shift of an Int64 variable’
AUTHOR : AdvLib80
FAMILY : System
NAME : ShRiIn64
VERSION : ‘2.0’

VAR_INPUT
IN : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,
Shift : INT ,
END_VAR

VAR_OUTPUT
OutInt64 : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,
END_VAR

VAR_TEMP
N : INT ,
TempInt64 : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,
TempInt64_dw AT TempInt64: STRUCT
UpperDInt : DWORD ,
LowerDInt : DWORD ,
END_STRUCT ,

retval : STRUCT
UpperDInt : DINT ,
LowerDInt : DINT ,
END_STRUCT ,
retval_dw AT retval : STRUCT
UpperDInt : DWORD ,
LowerDInt : DWORD ,
END_STRUCT ,

Mask : DWORD ,
BitsFromUpperDWord : DWORD ,
END_VAR
BEGIN

retval.UpperDInt:=0,
retval.LowerDInt:=0,
N:=Shift,
IF N&gt,=0 AND N&lt,=63
THEN
TempInt64.UpperDInt:=IN.UpperDInt,
TempInt64.LowerDInt:=IN.LowerDInt,
IF N&gt,=32
THEN
TempInt64.LowerDInt:=TempInt64.UpperDInt,
TempInt64.UpperDInt:=0,
N:=N–32,
END_IF,

retval_dw.LowerDInt:=SHR(IN:=TempInt64_dw.LowerDInt,N:=N),
Mask:=SHR(IN:=DW#16#FFFFFFFF,N:=32-N),

BitsFromUpperDWord:=Mask AND TempInt64_dw.UpperDInt,
BitsFromUpperDWord:=SHL(IN:=BitsFromUpperDWord,N:=32-N),

retval_dw.LowerDInt:=BitsFromUpperDWord OR retval_dw.LowerDInt,
retval_dw.UpperDInt:=SHR(IN:=TempInt64_dw.UpperDInt,N:=N),
END_IF,

OutInt64.UpperDInt:=retval.UpperDInt,
OutInt64.LowerDInt:=retval.LowerDInt,

END_FUNCTION