ГОСТ Р ИСО 28640 - 2012
ELSE1F хВ = MskF.O THEN
!&HfffffffO
LET And32 = INT(xA / 16) • 16
ELSEIF xA * MskP_0 THEN
!&HfffffffO
LET And32 = 1NT(
x
B / 16) * 16
ELSE
FOR AndisO TO 3 1
LET xA = xA / 2
LET xB = xB / 2
IF (INT(xA) <> xA) AND (!NT(xB> <> xB> THEN
LET AC = AC + 2 л Andi
END IF
LET xA = INT(xA)
LET xB = INT(xB)
IF (xA = 0) OR (xB = 0) THEN EXIT FOR
NEXT Andi
LET And32 = AC
END IF
END FUNCTION
REM /•+*»+•+****+*♦«*•»*•♦«»*•*•»•**+*•+«**+*•*«/
FUNCTION Xor32(xA.xB)
DECLARE NUMERIC Xori. XC
LET XC = 0
FOR Xori=0 TO 31
LET xA = xA / 2
LET xB = xB / 2
IF (IlNT(xA) = xA) AND (INT(xB) <> xB)) OR (INT(xA) <> xA) AND (INT(xB) = xB) THEN
LET XC = XC + 2 л Xori
END IF
LET xA = INT(xA)
LET xB = INT(xB)
IF (xA = 0) OR (xB = 0) THEN EXIT FOR
NEXT Xori
LET Xori = Xori + l
IF (xA =0) AND (xB = 0) THEN
clscIF xA = 0 THEN
FOR Xori=Xori TO 31
LET xB = xB / 2
IF INT(xB) <> xB THEN
43