pgn     segment
        org     100h
        assume  cs:pgn,ds:pgn,es:pgn,ss:pgn
main    proc    far
        jmp     begin
table   db      "0","1","2","3","4","5","6","7"
        db      "8","9","A","B","C","D","E","F"
val     dw      31456
begin:  mov     bx,val
        mov     ch,4
rotate: mov     cl,4
        rol     bx,cl
        mov     al,bl
        and     al,0fh
        push    bx
        mov     bx,offset       table
        xlat
        pop     bx
        mov     dl,al
        mov     ah,2
        int     21h
        dec     ch
        jnz     rotate
        mov     ax,4c00h
        int     21h
main    endp
pgn     ends
        end     main