📄 irbit2.txt
字号:
Static Function IRBIT2(ISEED)
IB1 = 1: IB3 = 4: IB5 = 16: IB14 = 8192: MASK = 21
If (ISEED And IB14) <> 0 Then
ISEED = ISEED Xor MASK
If ISEED > 2 ^ 14 Then ISEED = ISEED - 2 ^ 14
ISEED = 2 * ISEED Or IB1
IRBIT2 = 1
Else
If ISEED > 2 ^ 14 Then ISEED = ISEED - 2 ^ 14
ISEED = 2 * ISEED And (Not IB1)
IRBIT2 = 0
End If
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -