|
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: 860 (0x35c)
Types: EM, TextFile
Names: »ECC_INFO.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »ECC_INFO.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »ECC_INFO.EM«
xeq val prep_read_reg;
set ECC_PHY_ADR [xeq val read_b_reg [xeq val reg_to_loop 1D 0A] 0];
xeq val prep_read_reg;
set ECC_BAD_BIT [xeq val read_b_reg [xeq val reg_to_loop 1D 0B] 0];
set BIT_ID,
[#lt [var ECC_BAD_BIT],40]
TYPE [dec [var ECC_BAD_BIT]]
[else]
[#lt [var ECC_BAD_BIT],80]
VAL [dec [sub [var ECC_BAD_BIT],40]]
[else]
[#lt [var ECC_BAD_BIT],89]
CHECKBIT [sub [var ECC_BAD_BIT],80]
[else]
OLD CHECKBIT CODE OR ILLEGAL BAD BIT CODE
[end]
[end]
[end];
write THE CORRECTED BIT WAS : [var BIT_ID];
write AT PHYSICAL ADDRESS =,,
SET [#extract [var ECC_PHY_ADR] 18 4],,
LINE [#extract [var ECC_PHY_ADR] 0F 9],,
WORD_OFFS [#extract [var ECC_PHY_ADR] 20 19];
kill ECC_PHY_ADR;
kill ECC_BAD_BIT;
kill BIT_ID;