DataMuseum.dk

top - download

    Length: 4096 (0x1000)
    Types: EM, TextFile
    Names: »ECC_LOG.EM«

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »ECC_LOG.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »ECC_LOG.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »ECC_LOG.EM« 

TextFile

[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]«nul»