|
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: 2048 (0x800)
Types: EM, TextFile
Names: »OLD_ECC_LOG.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »OLD_ECC_LOG.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »OLD_ECC_LOG.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »OLD_ECC_LOG.EM«
[xeq typ prep_read_reg]
[set ECC_COUNT [xeq typ read_b_reg [xeq typ reg_to_loop 1D 0A] 0]]
[#eq [var ECC_COUNT],0]
[write NO ECC ERRORS HAVE BEEN DETECTED SINCE THE LAST BOOT]
[else]
[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]]
[#eq [var ECC_COUNT],1]
[write ONE ECC ERROR WAS CORRECTED SINCE THE LAST BOOT]
[write THE CORRECTED BIT WAS : [var BIT_ID]]
[else]
[write [dec [var ECC_COUNT]],
ECC ERRORS WERE CORRECTED SINCE THE LAST BOOT]
[write THE LAST CORRECTED BIT WAS : [var BIT_ID]]
[end]
[write AT PHYSICAL ADDRESS =,,
SET [#extract [var ECC_PHY_ADR] 18 4],,
LINE,[eq [QUAD_DENSITY] true][#extract [var ECC_PHY_ADR] D B],
[else][#extract [var ECC_PHY_ADR] F 9][end],,
WORD [#extract [var ECC_PHY_ADR] 33 6]]
[write Please relay this information to the nearest hardware person.]
[end]
[kill ECC_COUNT]
[kill ECC_PHY_ADR]
[kill ECC_BAD_BIT]
[kill BIT_ID]«nul»