|
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: 1571 (0x623)
Types: EM, TextFile
Names: »TYPE_IOA_BUFFER.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TYPE_IOA_BUFFER.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TYPE_IOA_BUFFER.EM«
!Accepts a boolean, 16 string(8)s, 4 string(4)s, and a base byte address
!It displays the string(8)s and uses the string(4)s to indicate bad byte parity
[eq,%1%,true]
write %22%%23%0:,%2%,%3%,,%22%[or,%23%,01]0:,%4%,%5%;
[ne,%18%,00000000]
write,,,,,,[CASE_PARITY [extract,%18%,1,2]],
[CASE_PARITY [extract,%18%,3,2]],,
,,,,,[CASE_PARITY [extract,%18%,5,2]],
[CASE_PARITY [extract,%18%,7,2]];
[end]
write %22%[or,%23%,02]0:,%6%,%7%,,%22%[or,%23%,03]0:,%8%,%9%;
[ne,%19%,00000000]
write,,,,,,[CASE_PARITY [extract,%19%,1,2]],
[CASE_PARITY [extract,%19%,3,2]],,
,,,,,[CASE_PARITY [extract,%19%,5,2]],
[CASE_PARITY [extract,%19%,7,2]];
[end]
write %22%[or,%23%,04]0:,%10%,%11%,,%22%[or,%23%,05]0:,%12%,%13%;
[ne,%20%,00000000]
write,,,,,,[CASE_PARITY [extract,%20%,1,2]],
[CASE_PARITY [extract,%20%,3,2]],,
,,,,,[CASE_PARITY [extract,%20%,5,2]],
[CASE_PARITY [extract,%20%,7,2]];
[end]
write %22%[or,%23%,06]0:,%14%,%15%,,%22%[or,%23%,07]0:,%16%,%17%;
[ne,%21%,00000000]
write,,,,,,[CASE_PARITY [extract,%21%,1,2]],
[CASE_PARITY [extract,%21%,3,2]],,
,,,,,[CASE_PARITY [extract,%21%,5,2]],
[CASE_PARITY [extract,%21%,7,2]];
[end]
[else]
write %22%%23%0:,%2%,%3%,,%22%[or,%23%,01]0:,%4%,%5%;
write %22%[or,%23%,02]0:,%6%,%7%,,%22%[or,%23%,03]0:,%8%,%9%;
write %22%[or,%23%,04]0:,%10%,%11%,,%22%[or,%23%,05]0:,%12%,%13%;
write %22%[or,%23%,06]0:,%14%,%15%,,%22%[or,%23%,07]0:,%16%,%17%;
[end]