Macro: IF$HELP

Module location: FMAC line 2122 (view source)

  !A [~LASTIF] $41 |CI0   // If LASTIF is false jump to end of IF command.
  #XPUSH 1 !a     // Save line number of jump at static nesting level.
  #XPUSH 0 !n     // Save nesting level in stack 0.
  !1 !2 !3 !4 !5 !6 !7 !8 !9
  #XPOP 0 Q$      // Restore nesting level into Q.
  #XPOP  1 S$     // Restore IF JUMP line number
  #XPUSH !q !s        // Push it back for the ELSE.
  #IF (!n>!q)     // after a begin
    #FREF END$!r !s    // Make IF JUMP goto end of begin block.
  #ELSE       // same or lower nesting level
    #FREF (!a+1) !s    // Make IF JUMP goto end of the IF.
  #ENDIF