DETOHE   PROC  NEAR       ;用该子程序来把一个十进制数转换成十六进制表示
    REPEAT:LEA  DX,BUF4
           MOV  AH,9
           INT  21H
           PUSH DS
           SUB  AX,AX
           PUSH AX
           CALL  DECIBIN
           CMP  AL,1BH
           JZ  EXIT3
           CALL  CRLF
           CALL  BINIHEX
           CALL  CRLF
           JMP   REPEAT
    EXIT3:RET
    DETOHE  ENDP