pgn     segment
        org     100h
        assume  cs:pgn,ds:pgn,es:pgn,ss:pgn
main    proc    far
        jmp     begin
val     dw      31756
begin:  mov     bx,val
        mov     ch,4
rotate: mov     cl,4
again:  rol     bx,1
        jc      one
        mov     dl,30h
        jmp     disp
one:    mov     dl,31h
disp:   mov     ah,2
        int     21h
        dec     cl
        jnz     again
        mov     dl,20h
        mov     ah,2
        int     21h
        dec     ch
        jnz     rotate
        int     20h
main    endp
pgn     ends
        end     main