stack   segment stack 'stack'
        dw 32 dup(0)
stack   ends
data    segment

data    ends

code    segment
begin   proc far
        assume ss:stack,cs:code,ds:data
        push ds
        sub ax,ax
        push ax
        mov ax,data
        mov ds,ax

        mov al,12H
        mov dx,0000H
        mov dl,al
        mov cl,2
        shl dx,cl
        mov ax,dx
        shl dx,cl
        add ax,dx

        

        ret

begin   endp
code    ends
        end begin