汇编问题复制位到指定单元的

[神杀中龙]

具体问题是：
设内存OPCD单元存放一个16位代码，编制程序将其中15~13 12~8 7~3 2~0位的代码分别存入WCD开始的
单元，每段代码的最低位与单元的第0位对齐。

以下是我做的，我希望高手再给个精简的

MEM db 09h
OPCD DW 4A24H

WCD db 00h,00h,00h,00h
ENDD db 00h ;末地址

msk db 0E0h,1Fh,0F8h,07h; 掩码
dseg ends

sseg segment stack
sktop db 20 dup(0)
sseg ends

code segment
assume cs:code,ds:dseg,ss:sseg
start:mov ax,dseg
mov ds,ax
mov ax,sseg
mov ss,ax
mov sp,size sktop

lea si,WCD ;
lea di,msk
mov bl,0
again3: cmp si,offset ENDD
ja exit
mov ax,OPCD
mov cl,[di]
cmp bl,2
jae logicn
and ah,cl
jmp caseZ
logicn: and al,cl

caseZ: cmp bl,0 ;=0时
jz right4
cmp bl,2 ;=2时
jz right3
jmp perform
right4: mov cl,4
shr ah,cl
jmp perform
right3: mov cl,3
shr al,cl
perform:cmp bl,2
jae jbcase1
mov [si],ah
jmp subcase
jbcase1:mov [si],al
subcase:inc si ;地址增1
inc di
inc bl
jmp again3

[神杀中龙]

原始数据没变，以下是我精简后的代码。
但是掩码仍然是自己算的，我希望能自动算出掩码，肯定大侠指点。并再精简。
lea si,WCD
mov ax,OPCD
mov bx,ax; 取数据
and bl,07h
mov [si],bl
inc si
mov bl,al
and bl,0F1h
mov [si],bl
inc si
and bh,0E0h
mov [si],bl
inc si
mov bh,ah
and bh,1Fh
mov [si],bl