Metropoli BBS
VIEWER: if.inc MODE: TEXT (ASCII)
; IF condition macro, as with A86

Macro       IFC cond,op,x,y,z
            LOCAL @@lbl

            ifidni     <cond>,<a>
              jna @@lbl
            elseifidni <cond>,<ae>
              jnae @@lbl
            elseifidni <cond>,<b>
              jnb @@lbl
            elseifidni <cond>,<be>
              jnbe @@lbl
            elseifidni <cond>,<c>
              jnc @@lbl
            elseifidni <cond>,<e>
              jne @@lbl
            elseifidni <cond>,<g>
              jng @@lbl
            elseifidni <cond>,<ge>
              jnge @@lbl
            elseifidni <cond>,<l>
              jnl @@lbl
            elseifidni <cond>,<le>
              jnle @@lbl
            elseifidni <cond>,<na>
              ja @@lbl
            elseifidni <cond>,<nae>
              jae @@lbl
            elseifidni <cond>,<nb>
              jb @@lbl
            elseifidni <cond>,<nbe>
              jbe @@lbl
            elseifidni <cond>,<nc>
              jc @@lbl
            elseifidni <cond>,<ne>
              je @@lbl
            elseifidni <cond>,<ng>
              jg @@lbl
            elseifidni <cond>,<nge>
              jge @@lbl
            elseifidni <cond>,<nl>
              jl @@lbl
            elseifidni <cond>,<nle>
              jle @@lbl
            elseifidni <cond>,<no>
              jo @@lbl
            elseifidni <cond>,<np>
              jp @@lbl
            elseifidni <cond>,<ns>
              js @@lbl
            elseifidni <cond>,<nz>
              jz @@lbl
            elseifidni <cond>,<o>
              jno @@lbl
            elseifidni <cond>,<p>
              jnp @@lbl
            elseifidni <cond>,<pe>
              jpo @@lbl
            elseifidni <cond>,<po>
              jpe @@lbl
            elseifidni <cond>,<s>
              jns @@lbl
            elseifidni <cond>,<z>
              jnz @@lbl
            endif

            ifnb <z>
              op x,y,z
            elseifnb <y>
              op x,y
            else
              op x
            endif

            @@lbl:
              
EndM
[ RETURN TO DIRECTORY ]