parimpar

.begin
.org 2048
dir .equ b200000ch

.macro  push arg
    sub %r14, 4, %r14
    st arg, %r14
.endmacro

.macro  pop arg
    ld %r14, arg
    add %r14, 4, %r14
.endmacro

sethi %hi(dir), %r1
or %r1, %lo(dir), %r1
ld %r1, %r2
push %r2
andcc %r2, 1, %r0 !Verifico si es par o impar
be par
bne impar
ret:    pop %r2
    add %r1, 4, %r1 !Guardo el resultado en la palabra siguiente a dir
    st %r2, %r1
    call end

par:    pop %r2
    add %r2, %r2, %r2 !Duplico %r2
    add %r2, %r2, %r2
    push %r2
    call ret

impar:  pop %r2
    orn %r2, %r0, %r2
    add %r2, 1, %r2
    push %r2
    call ret

end:    nop

.org dir
11
.end