Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Started work on DHCP.

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@926 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2020-07-10 14:51:48 +00:00
parent 861f65abe0
commit 29f986a8e4
6 changed files with 229 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/include/rand.pas
View File

@ -12,10 +12,15 @@ implementation
var
next : uint32 = 1;
function rand32 : uint32;
function rand : uint32;
begin
next:= next * 1103515245 + 12345;
rand32:= (next div 65536) mod 32768;
rand:= (next div 65536) mod 32768;
end;
function rand32 : uint32;
begin
rand32:= (rand SHL 16) AND rand;
end;
function rand16 : uint16;