|
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: 1024 (0x400)
Types: EM, TextFile
Names: »ECC_INFO.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »ECC_INFO.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »ECC_INFO.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦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;«nul»