;        显示十六进制数.


DATA SEGMENT
DISPROW DB 16 DUP('  '),13
HEXCTR DB 00
XLTAB DB 30H,31H,32H,33H,34H,35H,36H,37H
        DB 38H,39H,41H,42H,43H,44H,45H,46H
DATA ENDS
;===========
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA
START:MOV AX,DATA
        MOV DS,AX
        MOV ES ,AX
        CALL Q10CLR
        LEA SI,DISPROW
A20LOOP:
        CALL C10HEX
        CALL D10DISP
        CMP HEXCTR ,0FFH
        JE A50
        INC HEXCTR
        JMP A20LOOP
A50:
        MOV AH,4CH
        INT 21H
C10HEX  PROC
        MOV AH,00
        MOV AL,HEXCTR
        SHR AX,CL
        LEA BX,XLTAB
        MOV CL,04
        XLAT
        MOV [SI],AL
        MOV AL,HEXCTR
        SHL AX,CL
        SHR AL,CL
        XLAT
        MOV [SI]+1,AL
        RET
C10HEX ENDP
;===============
D10DISP PROC
        MOV AL,HEXCTR
        MOV [SI]+3,AL
        CMP AL,1AH
        JE D20
        CMP AL,07H
        JB D30
        CMP AL,10H
        JAE D30
D20:
        MOV BYTE PTR [SI]+3,20H
D30:
        ADD SI,05
        LEA DI,DISPROW+80
        CMP DI,SI
        JNE D40
        MOV AH,40H
        MOV BX,01
        MOV CX,81
        LEA DI,DISPROW
        INT 21H
        LEA SI,DISPROW
D40:
        RET
D10DISP ENDP
;--------------------
Q10CLR PROC
        MOV AX,0600H
        MOV BH,07
        MOV CX,0000
        MOV DX,184FH
        INT 10H
        RET
Q10CLR ENDP
CODE ENDS
        END START

兄弟你这个程序是干什么用的,好象不是我要的那几个程序,而且运行不了啊....帮帮忙`````我明天就要用了``急用...