.model small
.stack 100h
.data
.code
main proc
    mov ax,@data
    mov ds,ax
    mov ah,1
    int 21h
    xor bx,bx
    mov bl,al
    mov cx,2
      mov ah,2
      mov dl,10
      int 21h
      mov ah,2
      mov dl,13
      int 21h
    start:
        rol bx,4

        cmp bh,9
        jle p1to9
        jmp pAtoF

        p1to9:
            add bh,48
            mov ah,2
            mov dl,bh
            int 21h
            xor bh,bh
            jmp x

        pAtoF:
            add bh,55
            mov ah,2
            mov dl,bh
            int 21h
            xor bh,bh

        x:
        loop start



    main endp
end main