两个16位有符号二进制原码数分别存放于30H、31H单元和40H、41H单元调用子程序方式实现这两个有符号二进制原码数相乘的程序。

为了通过子程序方式实现两个16位有符号二进制原码数30H和31H以及40H和41H的相乘，首先需要编写一个子程序，它会接收两个16位数据作为输入，处理它们的乘法，并返回结果。这里是一个简单的伪代码示例，假设我们有一个名为`MultiplySigned16Bits`的子程序：

; 子程序声明（假设在汇编语言中）
MultiplySigned16Bits PROC near
    ; 定义局部变量存储中间结果
    LOCAL Product: WORD
    LOCAL HighBit: BIT

    ; 读取输入的16位数据
    MOV AX, [30H]   ; 第一个乘数
    MOV BX, [31H]   ; 第二个乘数

    ; 真值乘法，处理负数
    CMP AL, 80H     ; 高位是否为负（1即负）
    JNS PositiveCase
    NOT AL          ; 取反高位表示负数
    SUB AL, 80H     ; 转换为正数的真值
    XOR BL, BL      ; 清零第二个乘数
PositiveCase:
    MUL BL         ; 乘法运算
    ADD AX, Product ; 将结果添加到Product

    ; 检查高4位是否有进位
    MOV AH, AL
    AND AL, 0FH
    CMP AL, 0Fh     ; 高位是否等于15（表示进位）
    JNZ NoCarry     ; 如果不等于，说明不需要借位
    INC AX          ; 否则，加1
NoCarry:

    ; 结果保存在AX寄存器中
    MOV [40H], AX   ; 存放乘积至结果位置

    RET             ; 返回主程序
MultiplySigned16Bits ENDP

; 主程序调用子程序
CALL MultiplySigned16Bits

这只是一个基本的框架，实际操作可能会因使用的特定汇编语言及其指令集而有所不同。