pgn     segment
        org     100h
        assume  cs:pgn,ds:pgn,es:pgn,ss:pgn
main    proc    far
        jmp     begin
val     dw      31456
begin:  mov     bx,val
        mov     ch,4
rotate: mov     cl,4
again:  rol     dx,1
        rcl     al,1
        dec     cl
        jnz     again
        and     al,0fh
        add     al,30h
        cmp     al,3ah
        jb      printit
        add     al,7
printit:
        mov     dl,al
        mov     ah,2
        int     21h
        dec     ch
        jnz     rotate
        mov     ax,4c00h
        int     21h
main    endp
pgn     ends
        end     main