|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Types: TextFile
Names: »tinebcdic«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tinebcdic«
external procedure ebcdictable(table);
integer array table;
begin
integer i;
for i:= 0 step 1 until 255 do table(i):= (case i + 1 of (
0, 7, 7, 7, 7, 7, 7, 0, 7, 7, 7, 7, 8, 0, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 8, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 4, 7, 7, 3, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
3, 7, 7, 7, 7, 7, 7, 7, 7, 7, 6, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 5, 7, 7,
7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 6, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 6, 7, 7,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
6, 7, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 7, 7, 7, 7, 7, 7))
shift 12 + (case i + 1 of (
0, 1, 2, 3, 26, 9, 26,127, 26, 26, 26, 11, 12, 13, 14, 15,
16, 17, 18, 19, 26, 26, 8, 26, 24, 25, 26, 26, 28, 29, 30, 31,
26, 26, 26, 26, 26, 10, 23, 27, 26, 26, 26, 26, 26, 5, 6, 7,
26, 26, 22, 26, 26, 26, 26, 4, 26, 26, 26, 26, 20, 21, 26, 26,
32, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 46, 60, 40, 43, 33,
38, 26, 26, 26, 26, 26, 26, 26, 26, 26, 33, 36, 42, 41, 59, 94,
45, 47, 26, 26, 26, 26, 26, 26, 26, 26,124, 44, 37, 95, 62, 63,
26, 26, 26, 26, 26, 26, 26, 26, 26, 96, 58, 35, 64, 39, 61, 34,
26, 97, 98, 99,100,101,102,103,104,105, 26, 26, 26, 26, 26, 26,
26,106,107,108,109,110,111,112,113,114, 26, 26, 26, 26, 26, 26,
26,126,115,116,117,118,119,120,121,122, 26, 26, 26, 91, 26, 26,
26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 93, 26, 26,
123, 65, 66, 67, 68, 69, 70, 71, 72, 73, 26, 26, 26, 26, 26, 26,
125, 74, 75, 76, 77, 78, 79, 80, 81, 82, 26, 26, 26, 26, 26, 26,
92, 26, 83, 84, 85, 86, 87, 88, 89, 90, 26, 26, 26, 26, 26, 26,
48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 94, 26, 26, 26, 26, 26))
end;
end
▶EOF◀