|
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 - metrics - download
Length: 3507 (0xdb3)
Types: EM, TextFile
Names: »ECC_LOG.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »ECC_LOG.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »ECC_LOG.EM«
[set ECC_COUNT [xeq typ prep_read_reg; xeq typ read_a_reg 3aa 0]]
[#ne [xeq val prep_read_reg; xeq val read_a_reg 3ac 0],000FFFF00000BF80]
[set ECC_COUNT 0]
[end]
[#eq [var ECC_COUNT],0]
[write NO ECC ERRORS HAVE BEEN DETECTED SINCE THE LAST BOOT]
[else]
[#lt [var ECC_COUNT],0]
[write Machine stopped while handling an ECC error]
[set ECC_COUNT [not [var ECC_COUNT]]]
[end]
[#eq [var ECC_COUNT],1]
[write ONE ECC ERROR WAS CORRECTED SINCE THE LAST BOOT]
[else]
[write [convert [var ECC_COUNT],10,a],
ECC ERRORS WERE CORRECTED SINCE THE LAST BOOT]
[end]
[write The following rams had errors since the last boot]
[eq [QUAD_DENSITY] true] ! 8MB board
[set ecc_chk [xeq typ prep_read_reg; xeq typ read_a_reg 27 0]]
[set ecc_plane MEM0 (M),,Plane 0,,Bit,,];
[ecc_display_plane 28 [#extract [var ecc_chk] 00 10]];
[set ecc_plane MEM0 (M),,Plane 1,,Bit,,];
[ecc_display_plane 29 [#extract [var ecc_chk] 10 10]];
[set ecc_plane MEM1 (L),,Plane 0,,Bit,,];
[ecc_display_plane 2a [#extract [var ecc_chk] 20 10]];
[set ecc_plane MEM1 (L),,Plane 1,,Bit,,];
[ecc_display_plane 2b [#extract [var ecc_chk] 30 10]];
[set ecc_chk [xeq val prep_read_reg; xeq val read_a_reg 27 0]]
[set ecc_plane MEM2 (K),,Plane 0,,Bit,,];
[ecc_display_plane 2c [#extract [var ecc_chk] 00 10]];
[set ecc_plane MEM2 (K),,Plane 1,,Bit,,];
[ecc_display_plane 2d [#extract [var ecc_chk] 10 10]];
[set ecc_plane MEM3 (J),,Plane 0,,Bit,,];
[ecc_display_plane 2e [#extract [var ecc_chk] 20 10]];
[set ecc_plane MEM3 (J),,Plane 1,,Bit,,];
[ecc_display_plane 2f [#extract [var ecc_chk] 30 10]];
[else] ! 32MB board
[set ecc_chk [xeq typ prep_read_reg; xeq typ read_a_reg 27 0]]
[set ecc_plane MEM0,,Plane A,,Bit,,];
[ecc_display_plane 28 [#extract [var ecc_chk] 00 10]];
[set ecc_plane MEM0,,Plane B,,Bit,,];
[ecc_display_plane 29 [#extract [var ecc_chk] 10 10]];
[set ecc_plane MEM2,,Plane A,,Bit,,];
[ecc_display_plane 2a [#extract [var ecc_chk] 20 10]];
[set ecc_plane MEM2,,Plane B,,Bit,,];
[ecc_display_plane 2b [#extract [var ecc_chk] 30 10]];
[end]
[write
,,,,,Log Entry,,,,,,,,Time,,,Uaddr,Board,Plane,Set,Line,Word,Bit,O->N,L/P];
[ecc_log_entry 30];
[#ge [var ecc_count],2]
[ecc_log_entry 31];
[#ge [var ecc_count],3]
[ecc_log_entry 32];
[#ge [var ecc_count],4]
[ecc_log_entry 33];
[#ge [var ecc_count],5]
[ecc_log_entry 34];
[#ge [var ecc_count],6]
[ecc_log_entry 35];
[#ge [var ecc_count],7]
[ecc_log_entry 36];
[#ge [var ecc_count],8]
[ecc_log_entry 37];
[#ge [var ecc_count],9]
[ecc_log_entry 38];
[#ge [var ecc_count],a]
[ecc_log_entry 39];
[#ge [var ecc_count],b]
[ecc_log_entry 3a];
[#ge [var ecc_count],c]
[ecc_log_entry 3b];
[#ge [var ecc_count],d]
[ecc_log_entry 3c];
[#ge [var ecc_count],e]
[ecc_log_entry 3d];
[#ge [var ecc_count],f]
[ecc_log_entry 3e];
[#ge [var ecc_count],10]
[ecc_log_entry 3f];
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[end]
[write Please relay this information to the nearest hardware person.];
[end]
[kill ecc_chk]
[kill ecc_log_info]
[kill ecc_time_uaddr]
[kill ecc_plane]
[kill ecc_bits]
[kill ecc_msg]
[kill ecc_count]