module monasm;

segment C_monasm (FCODE , 28H);
group   G_monasm (C_monasm);
select C_monasm;

adresse : dw 0,0

public monasm$and:

        pop     [adresse]
        pop     [adresse][2]
        pop     bx
        pop     ax
        and     ax,bx
        push    [adresse][2]
        push    [adresse]
        ret far 0

end