ГОСТ Р ИСО 28640 - 2012
т-м /»+**+*■****•++***++*+•+*■**•+•+•***+•****+*•+*/
FUNCTION Ог32(хА,хВ)
DECLARE NUMERIC Ori. OrC
LET OrC = 0
FOR Ori=0 TO 3 I
LET xA = xA / 2
LET xB = xB / 2
IF (INT(xA) <> xA) OR (INT(xB) <> xB) THEN
LET OrC = OrC + 2 л Ori
END IF
LET xA = INT(xA)
LET xB = INT(xB)
IF (xA = 0) AND (xB = 0) THEN EXIT FOR
NEXT Ori
LET Or32 = OrC
END FUNCTION
REM /•**“**•*++• ++*+• +•
FUNCTION And32(xA.xB)
DECLARE NUMERIC Andi, AC
LET AC = 0
IF xA > MskF_f THEN
LET xA = xA - lNT(xA / 4294967206) ♦ 4294967296
END IF
IF xB > MskF.f THEN
LET xB = xB - INT(xB /4294967296) * 4294967296
END IF
!&HfIflffff
!&Hft’ft’ffff
!&Hfffffff8
!&Hfffffff8
IF (xA = 0) OR <xB = 0) THEN
LET And32 = 0
ELSElF xB = MskF_f THEN
LET And32 = xA
ELSE1F xA = MskP_f THEN
LET And32 = xB
ELSEIF xB = MskF_8 THEN
LET And32 = INT(xA / 8) * 8
ELSEIF xA = MskF_8 THEN
LET And32 = !NT(xB / 8) • 8
42