|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »tnamekey«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tnamekey«
Namekey is a hashed value of the entry name, and may be
computed as follows:
begin
long doublesum, part_1_of_name, part_2_of_name;
integer wordsum, namekey, catalogsize;
part_1_of_name := bit ( 0:47) of entry name
part_2_of_name := bit (48:95) of entry name
catalogsize := size of catalog
doublesum:= part_1_of_name + part_2_of_name;
wordsum:= doublesum + doublesum shift (-24);
wordsum:= wordsum + extend wordsum shift (-12);
doublesum:= extend 0 add wordsum;
namekey:= doublesum mod catalogsize;
end;
▶EOF◀