;53.asm

datasg  segment
  tab   db  4 dup(?)
datasg  ends
codesg  segment
main    proc   far
        assume  cs:codesg,ds:datasg
start:  push    ds
        sub     ax,ax
        push    ax
        mov     ax,datasg
        mov     ds,ax
        mov     ch,04
        lea     si,tab
rotate: mov     cl,04
        rol     ax,cl
        mov     bl,al
        and     bl,0fh
        mov     [si],bl
        inc     si
        dec     ch
        jnz     rotate
        mov     al,tab
        mov     bl,tab+1
        mov     cl,tab+2
        mov     dl,tab+3
        ret
main    endp
codesg  ends
        end   start