Code:
HSEROUT [$AA,str BCMDATA\11]
will be slightly faster.