"https://gitlab.com/budden/jaos/-/blob/яос/source/UCS32.Mod#L570" - этот код не мой, он уже был в A2, я его только перенёс в другое место.

## Код:
```
(* 0000 0000-0000 007F  0xxxxxxx *)
   FOR init := 0 TO 7FH DO CodeLength[init] := 1X END;
      (* ???? ????-???? ????  10xxxxxx *)
   FOR init := 80H TO 0BFH DO CodeLength[init] := CodeLengthBad END;   (* non-starting byte - never change this w/o grepping for 7X *)
      (* 0000 0080-0000 07FF  110xxxxx 10xxxxxx *)
   FOR init := 0C0H TO 0DFH DO CodeLength[init] := 2X END;
      (* 0000 0800-0000 FFFF  1110xxxx 10xxxxxx 10xxxxxx *)
   FOR init := 0E0H TO 0EFH DO CodeLength[init] := 3X END;
      (* 0001 0000-001F FFFF  11110xxx 10xxxxxx 10xxxxxx 10xxxxxx *)
   FOR init := 0F0H TO 0F7H DO CodeLength[init] := 4X END;
      (* 0020 0000-03FF FFFF  111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx *)
   FOR init := 0F8H TO 0FBH DO CodeLength[init] := 5X END;
      (* 0400 0000-7FFF FFFF  1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx *)
   FOR init := 0FCH TO 0FDH DO CodeLength[init] := 6X END
```
