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     cx,16
rotate: rol     bx,1
        jc      one
        mov     dl,30h
        jmp     disp
one:    mov     dl,31h
disp:   mov     ah,2
        int     21h
        loop    rotate
        int     20h
main    endp
pgn     ends
        end     main