|
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: 3840 (0xf00)
Types: TextFile
Names: »ebcd«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦162d2eb5b⟧ »talgprog«
└─⟦this⟧
procedure init_ebcd(t);
integer array t;
begin
integer i;
comment character table:
for each ebcd decimal value in the range 0 to 255, the
table below contains an iso 7 bit character value;
for i:=0 step 1 until 255 do t(i):=case i+1 of(
32, 49, 50, 51, 52,<* 0: sp 1 2 3 4 *>
53, 54, 55, 56, 26,<* 5: 5 6 7 8 sub *>
58, 123, 124, 39, 61,<* 10: : æ ø ' = *>
34, 48, 47, 115, 116,<* 15: " 0 / s t *>
117, 118, 119, 120, 121,<* 20: u v w x y *>
26, 26, 44, 37, 95,<* 25: sub sub , % _ *>
62, 63, 45, 106, 107,<* 30: > ? - j k *>
108, 109, 110, 111, 112,<* 35: l m n o p *>
113, 26, 33, 125, 42,<* 40: q sub ! å * *>
41, 59, 126, 26, 26,<* 45: ) ; 126 sub sub*>
115, 116, 117, 118, 119,<* 50: s t u v w *>
120, 121, 26, 36, 26,<* 55: x y sub dollar sub*>
26, 26, 26, 26, 38,<* 60: sub sub sub sub & *>
97, 98, 99, 100, 101,<* 65: a b c d c *>
102, 103, 104, 26, 64,<* 70: f g h sub cent*>
46, 60, 40, 43, 26,<* 75: . < ( + sub *>
26, 97, 98, 99, 100,<* 80: sub a b c d *>
101, 102, 103, 104, 26,<* 85: e f g h sub *>
26, 26, 26, 26, 26,<* 90: sub sub sub sub sub *>
26, 26, 106, 107, 108,<* 95: sub sub j k l *>
109, 110, 111, 112, 113,<* 100: m n o p q *>
26, 26, 26, 26, 26,<* 105: sub sub sub sub sub *>
26, 26, 26, 26, 26,<* 110: sub sub sub sub sub *>
26, 26, 26, 26, 26,<* 115: sub sub sub sub sub *>
26, 26, 26, 26, 26,<* 120: sub sub sub sub sub *>
26, 26, 26, 57, 26,<* 125: sub sub sub 9 sub *>
22, 26, 26, 20, 26,<* 130: syn sub sub dc4 sub *>
4, 26, 26, 26, 26,<* 135: eot sub sub sub sub *>
20, 21, 26, 26, 122,<* 140: dc4 nak sub sub z *>
26, 28, 26, 26, 26,<* 145: sub fs sub sub sub *>
23, 27, 26, 26, 26,<* 150: etb esc sub sub sub *>
26, 26, 5, 6, 7,<* 155: sub sub enq ack bel *>
114, 17, 18, 26, 26,<* 160: r dc1 dc2 sub sub *>
10, 8, 0, 24, 25,<* 165: nl bs nul can em *>
26, 26, 26, 26, 26,<* 170: sub sub sub sub sub *>
26, 122, 26, 26, 26,<* 175: sub z sub sub sub *>
26, 26, 26, 26, 26,<* 180: sub sub sub sub sub *>
26, 26, 26, 26, 26,<* 185: sub sub sub sub sub *>
26, 26, 105, 1, 2,<* 190: sub sub i soh stx *>
3, 26, 9, 26, 127,<* 195: etx sub ht sub del *>
26, 26, 26, 11, 12,<* 200: sub sub sub vt ff *>
13, 14, 15, 105, 26,<* 205: cr so si i sub *>
26, 26, 26, 26, 26,<* 210: sub sub sub sub sub *>
26, 26, 0, 26, 26,<* 215: sub sub nul sub sub *>
26, 26, 26, 26, 114,<* 220: sub sub sub sub r *>
26, 26, 26, 26, 26,<* 225: sub sub sub sub sub *>
26, 26, 26, 16, 26,<* 230: sub sub sub dle sub *>
26, 26, 26, 26, 26,<* 235: sub sub sub sub sub *>
26, 26, 26, 26, 26,<* 240: sub sub sub sub sub *>
26, 26, 26, 26, 26,<* 245: sub sub sub sub sub *>
26, 26, 26, 26, 26,<* 250: sub sub sub sub sub *>
26 )<* 255: sub *>
;
end initebcd;
▶EOF◀