以子程序调用的形式，实现从键盘输入一个四位的十六进制数(其中字母为大写)，将其转化为十进制数输出显示。

以下是使用子程序调用的示例代码：

.DATA
    inputMsg BYTE "请输入一个四位的十六进制数(大写字母)：$"
    outputMsg BYTE "转换后的十进制数为：%d$"
    hexStr BYTE 5 DUP(?)
    decNum DWORD ?
.CODE
    main PROC
        ; 显示提示信息
        mov edx, OFFSET inputMsg
        call WriteString

        ; 获取输入的十六进制数字符串
        mov edx, OFFSET hexStr
        call ReadString

        ; 将十六进制字符串转换为十进制数
        mov edx, OFFSET hexStr
        call HexToDec

        ; 显示转换后的十进制数
        mov eax, decNum
        mov edx, OFFSET outputMsg
        call WriteDec

        ; 程序结束
        call Crlf
        ret
    main ENDP

    ; 子程序：将十六进制字符串转换为十进制数
    ; 输入参数：edx - 十六进制字符串地址
    ; 输出参数：decNum - 对应的十进制数
    HexToDec PROC
        xor eax, eax        ; 清零eax寄存器
        xor ecx, ecx        ; 清零ecx寄存器
        mov cl, 4           ; ecx = 4，即从高位到低位依次处理

    HexToDec_Loop:
        mov al, BYTE PTR [edx + ecx - 1] ; 取出当前位的字符
        cmp al, '0'
        jb HexToDec_EndLoop
        cmp al, '9'
        ja HexToDec_CheckAlpha
        sub al, '0'         ; 处理0~9的数字字符
        jmp HexToDec_Process

    HexToDec_CheckAlpha:
        cmp al, 'A'
        jb HexToDec_EndLoop
        cmp al, 'F'
        ja HexToDec_EndLoop
        sub al, 'A' - 10h    ; 处理A~F的大写字母

    HexToDec_Process:
        mov ebx, 10
        mul ebx             ; eax *= 10
        add eax, ebx        ; eax += 10
        add eax, ebx        ; eax += 10，相当于eax *= 12
        add eax, ebx        ; eax += 10，相当于eax *= 16
        add eax, eax        ; eax *= 2
        add eax, edx        ; eax += 当前位的值
        dec ecx
        jnz HexToDec_Loop

    HexToDec_EndLoop:
        mov decNum, eax     ; 返回结果
        ret
    HexToDec ENDP

注意：此代码为汇编语言代码，需在合适的开发环境中进行编译和运行。