若在BCD单元中保存有一字节的压缩BCD码，使用命令CALL PROCI调用子程序PROCI，将此压缩BCD码转换为两个相应的ASCII码，并把高位存入ASCI单元低位存入ASCZ单元，写出PROCI
PROCI PROC
PUSH AX
PUSH CX
MOV AL，BCD
AND AL，0FH
ADD AL，30H
MOV ASCZ，AL
MOV AL，BCD
MOV CL，4
SHR AL，CL
ADD AL，30H
MOV ASCI，AL
POP CX
POP AX
RET
PROCI ENDP