Type /help on RAWMODE, this is one of the reasons this event exists. I'm not sure if you will be able to use $mode(N) for +a modes (although I *think* that $mode(N) supports mode letters, so maybe $mode(1).a would work), but even if this isn't possible, you can still parse $1- yourself.
