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 cx,1234H
        mov ax,cx
        mov CL,4
        ROR ax,CL
        NOT AL
        ROL ax,CL
        mov cx,ax 

        ret

begin   endp
code    ends
        end begin