|
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: »TYPE_IOA_BUFFER.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TYPE_IOA_BUFFER.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TYPE_IOA_BUFFER.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦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]«nul»