> -- Comdiv писал(а):
> Как боретесь?  или  ?
Ну вот жеж умные люди посоветовали:
> -- Comdiv писал(а):
> 

А еще можно вот так:
## Код:
```
PROCEDURE [ code ] Shortchar (b: BYTE): SHORTCHAR;   (* пустая процедура - бестелесная ) *)
   PROCEDURE P;
      VAR ch: SHORTCHAR; b: BYTE;
   BEGIN b := -1; ch := Shortchar(b); ch := SHORT(CHR(b MOD 100H))
   END P;

ch := Shortchar(b); 
0000077FH:   8A 45 FE    mov  al, -2[ebp]
00000782H:   88 45 FF    mov  -1[ebp], al

ch := SHORT(CHR(b MOD 100H))
00000785H:   0F BE 45 FE    movsx  eax, byte ptr -2[ebp]
00000789H:   25 FF 00 00 00    and  eax, 000000FFH
0000078EH:   88 45 FF      mov  -1[ebp], al
```


А с включенными проверками:
## Код:
```
ch := SHORT(CHR(b MOD 100H))
000007A2H:   0F BE 45 FE    movsx  eax, byte ptr -2[ebp]
000007A6H:   25 FF 00 00 00    and  eax, 000000FFH
000007ABH:   3D FF 00 00 00    cmp  eax, 255
000007B0H:   76 02      jbe  2  (000007B4H)
000007B2H:   8D E6       illegal  (TRAP -6)
000007B4H:   88 45 FF       mov  -1[ebp], al
```
