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;
{ 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;