将一个8位二进制数分成高4位和低4位分别转换为两个ASCII字符.设待转换的数据及转换好的ASCII字符均存放在数据段中.



NAME HEXTOASC
DATA SEGMENT
HEX  DB 5AH
ASC  DB 2 DUP(?)
DATA ENDS
STACK SEGMENT
      DB 256 DUP('S')
TOP   EQU $-STACK
STACK ENDS
CODE  SEGMENT
      ASSUME CS:CODE,DS:DATA,SS:STACK
START:MOV AX,DATA
      MOV DS,AX
      MOV AX,STACK
      MOV SS,AX
      MOV SP,TOP
      MOV BX,OFFSET ASC
      MOV AL,HEX
      MOV AH,AL
      MOV CL,4
      SHR AL,CL
      CALL NEAR PTR CONVERT
      MOV [BX],AL
      INC BX
      MOV AL,AH
      CALL NEAR PTR CONVERT
      MOV [BX],AL
      HLT
CONVERT PROC
        AND AL,0FH
        CMP AL,10
        JB  NUM
        ADD AL,7
NUM:    ADD AL,'0'
        RET
CONVERT ENDP
CODE ENDS
     END START