DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »ebcdic«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »ebcdic« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »ebcdic« 

TextFile

procedure init_ebcdic(t);
integer array t;
begin
integer i,j,k;

comment  character table:
for each ebcdic decimal value in the range 0 to 255, the
table below contains an iso 7 bit character value;
cleararray(t);
t(64):=32;
for i:=74 step 1 until 127 do
  t(i):=case i-73 of
  (64,46,60,40,43,33,38,
   0,0,0,0,0,0,0,0,0,
   33,36,42,41,59,45 shift 8+44,45,47,
   0,0,0,0,0,0,0,0,0,
   44,37,95,62,63,
   0,0,0,0,0,0,0,0,0,0,
   58,35,64,39,61,34);
j:=96;
for i:=129,145,162 do
for k:=0 step 1 until 8 do
  begin
  j:=j+1;
  t(i+k):=j;
  t(i+k+64):=j-32;
  end;
t(170):=0;
for i:=176 step 1 until 185 do t(i):=t(i+64):=i-128;
;
end initebcdic;
▶EOF◀