ГОСТ Р ИСО 28640 - 2012
LET ХС = ХС + 2 л Xori
END IF
LET xB = INT(xB)
IF xB = 0 THEN EXIT FOR
NEXT Xori
ELSE
FOR XorisXori TO 31
LET xA = xA / 2
IF INT(xA) <> xA THEN
LET XC = XC + 2 л Xori
END IF
LET xA = INT(xA)
IF xA = 0 THEN EXIT FOR
NEXT Xori
END IF
LET Xor32 = XC
END FUNCTION
REM/************************,,******4*****4’**4‘**/
FUNCTION SL32U(xA.xL)
REM 2006-05-31
DECLARE NUMERIC slAH.slAL
IF (xA = 0) OR <xL = 0) THEN
LET SL32U = xA
ELSEIF xL >= 16 THEN-
LET siAL = xA - !NT(xA / 65536) • 65536
LET slAL = slAL 4 2 л (xL - 16)
LET slAL = slAL - INTfsIAL / 65536) 4 65536
LET SL32U = slAL • 65536
ELSE
LET slAL = xA - INT(xA / 65536) * 65536
LET slAH = !NT(xA I 65536)
LET slAL = slAL 4 2 л xL
LET slAH = slAH * 2 A xL
LET slAH = slAH - INT(sIAH / 65536) 4 65536
LET SL32U = slAL + slAH ♦ 65536
END IF
END FUNCTION
44