stack segment stack'stack'
stack ends
data segment
W DW ?
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 BX,5E76H
      MOV W,BX
      MOV AL,BH
      MOV CL,4
      SHR AL,CL
      MOV BL,BH
      AND BL,0FH
      MOV AH,BL
      MOV BX,W
      SHR BL,CL
      MOV CL,BL
      MOV BX,W
      AND BL,0FH
      MOV DL,BL
      MOV BL,AH
      ret
begin endp
code ends
end begin