[Ñuño Martínez]

Todos los microprocesadores tienen un indicador de paridad. Entonces podría utilizarse código máquina:

Código Delphi [-]
{ Como no sepo 8x86, utilizo Z-80 :-P }
FUNCTION Par (aValue: INTEGER): BOOLEAN;
ASM
  POP BC
  POP HL
  LD IX, 0
  LD IY, 1
  LD A, L
  OR A
  JP P, SI
  PUSH IX
  JR FIN
SI:
  PUSH IY
FIN:
  PUSH BC
END;

Bueno, más o menos...