Where is the error?

Solo quiero que muestre si es par o impar// I just want to show if it is even or odd
include 'win32ax.inc'
Macro unidad3 dato
{
mov ax, dato
test ax, 01
je rpar
;test ax, 00
;jne rimpar
}

.data
ej dw 30H
; mens db 'escribe un dato', 0
; capt db 10,0, 10 dup (0)
rpar db ' result par ',0
rimpar db ' es impar ',0
titulo db 'Compilador Ensamblador FASM Programa unidad3',0

.code

start:

unidad3 [ej]
push 0
push titulo
push rimpar
push 0

push 0
push titulo
push rpar
push 0

call [MessageBoxA]
push 0
call [ExitProcess]
.end start


Lo corro pero no marca error, solo dice que provoco un error y cierra la aplicacion.// The brand run but not error, just says that caused an error and closes the application.


thanks

With "je rpar" you are telling the processor to execute the string rpar which will obviously crash (or at least it won't do what you might expect).

Do it like this instead:

Thank you very much, I had done differently but according to 16-bit era, so you can imagine, and the same procedures but would look like?

Or

include 'win32ax.inc'
;Macro unidad3 dato
;{
;local ..odd, ..exit

;mov ax, dato
;test ax, 1
;jnz ..odd
;push rpar
;jmp ..exit
;..odd:
;push rimpar
;..exit:
;}
.data
ej dw 30H
rpar db ' result par ',0
rimpar db ' es impar ',0
titulo db 'Compilador Ensamblador FASM Programa unidad3',0

.code

start:
call IsEven,ej
push 0
push titulo
;unidad3 [ej]
push 0
call [MessageBoxA]

push 0
call [ExitProcess]
.end start
proc IsEven, num
push ebp
mov ebp,esp
xor eax,eax
bt dword[num],00
jc _even
inc eax
_even:
mov esp,ebp
pop ebp
ret
endp

Read this: http://flatassembler.net/docs.php?article=win32#1.3

typedef's code is both unoptimal and incorrect (the instructions dealing with EBP shouldn't be there since proc itself do that already and doing it again screws up parameter referencing). Maybe he realized you wanted homework to be solved effortlessly, MAYBE.

I'll move this thread to Windows forum as I think it has little to do with macros so far.