dfas (optimized regexps for b4 assembler and object pascal)