|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1090 (0x442)
Types: EM, TextFile
Names: »ECC_OF_VERY_SLOW.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »ECC_OF_VERY_SLOW.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »ECC_OF_VERY_SLOW.EM«
! returns the ECC code of a word (%1% = TYPE, %2% = VAL) [xor 1C, [or [lshift [and 1 [add [count_ones [and %1% 00000000FFFFFFFF]], [count_ones [and %2% 00000000FFFFFFFF]]]] 8], [or [lshift [and 1 [add [count_ones [and %1% FFFFFFFF00000000]], [count_ones [and %2% 00000000FFFFFFFF]]]] 7], [or [lshift [and 1 [add [count_ones [and %1% FF063A72FF063A72]], [count_ones [and %2% FF01052A18A9E3D0]]]] 6], [or [lshift [and 1 [add [count_ones [and %1% FFFBC404FFFBC404]], [count_ones [and %2% 40FF01860F961131]]]] 5], [or [lshift [and 1 [add [count_ones [and %1% C1FF338BC1FF3383]], [count_ones [and %2% 110E3CF000FF1E06]]]] 4], [or [lshift [and 1 [add [count_ones [and %1% 0791FFE10791FFE9]], [count_ones [and %2% 2612FF046100FF09]]]] 3], [or [lshift [and 1 [add [count_ones [and %1% B2C8C2FFB2C8C2FF]], [count_ones [and %2% 0A6062FFB243286C]]]] 2], [or [lshift [and 1 [add [count_ones [and %1% 6C2DADBC6C2DADBC]], [count_ones [and %2% 8DA98A41C42444FF]]]] 1], [and 1 [add [count_ones [and %1% 18765D5F18765D5F]], [count_ones [and %2% F0D4D019FF588082]]]]]]]]]]]]]