Asm: как оптимизировать алгоритм?

[bagfinder]

Собственно, задание - вычислить произведение 16-разрядного и 8-разрядного чисел. (знак не учитывать)
Не долго думая, получилось это:

0000 E8       MOV A,R0
0001 8AF0     MOV B,R2
0003 A4       MUL AB
0004 A8F0     MOV R0,B
0006 FB       MOV R3,A
0007 E9       MOV A,R1
0008 8AF0     MOV B,R2
000A A4       MUL AB
000B FA       MOV R2,A
000C E5F0     MOV A,B
000E 2B       ADD A,R3
000F F9       MOV R1,A
0010 E8       MOV A,R0
0011 3400     ADDC A,#00
0013 F8       MOV R0,A

Но он какой-то печальный и примитивный. Как можно оптимизировать код?
И еще вопрос: как сделать учет знака?

PS asm для мк mcs51
рез-тат mul ab хранится в BA

Хотелось бы вовсе обойтись без r3.