想弄一个能讲所有进制转换都整合到一块的？？？ - 编程论坛

#2

ansic2011-06-02 16:13

知道原理就成啦。

#3

obstratiker2011-06-02 16:31

用高级语言编写这个不难，你去 c 语言那吼一声，大把的代码就有了

#4

zdoublehang2011-06-02 18:23

回复 3楼 obstratiker

这个吧，，高级语言就不讨论此类问题了，就是因为汇编书里面这类多，才在这讨论嘛~~~

#5

zdoublehang2011-06-02 19:56

看来未能引起广泛的大讨论呀~~~~~

#6

zdoublehang2011-06-02 20:21

#7

zaixuexi2011-06-02 21:56

没时间弄这个,你可以先写成C,然后反汇编,再把win32 asm的改成8086 asm就可以了,这也是一种锻炼

#8

obstratiker2011-06-02 22:54

回复 4楼 zdoublehang

抱歉了，我有时间，试试吧

#9

zdoublehang2011-06-02 23:03

回复 7楼 zaixuexi

如此？？？好神奇的思想！~~~让我想象一下！

#10

zdoublehang2011-06-02 23:03

回复 8楼 obstratiker

呵呵~~~应该有一点点意思的

#11

zklhp2011-06-03 18:46

windows的计算器是一个神奇的工具。。

#12

zdoublehang2011-06-03 20:09

回复 11楼 zklhp

此话是何意？？？不是很懂耶~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#13

obstratiker2011-06-03 23:21

assume cs:code                                         这个是把2~35进制的数转换为十进制，然后在控制台输出十进制数的程序，用16位写的，本来想用win32写，
data segment                                           不过不能访问显存，需要调用函数，这个程序也能改成32位的……应该可以的
                                                       但是要调用函数的话，就和 c 差不多了，还不如用 c 写呢
    sum dd 0
    w db '0a'                 这里写的是要转换的数字
    len = ($ - w)
    q dw 17                   这里是该数字的进制
    cc dw 1
    h dw ?
data ends
code segment
start:
    mov bx,data
    mov ds,bx
    mov si,offset w
    mov cx,len
s:
    push cx
    mov ax,0
    cmp byte ptr [si],59
    ja j1
    mov al,[si]
    sub ax,48
    jmp short k
j1:
    mov al,[si]
    sub ax,87
k:
    mov cx,len
    sub cx,cc
    call mi
    add word ptr ds:[sum],ax
    adc word ptr ds:[sum+2],dx
    inc si
    inc cc
    pop cx
    loop s                                                    以上内容是把一开始的字符串以 16 进制格式写进 sum 内存中，接下来就是把 sum 中的内容改写成
                                                              1~9的 ascii 码，写入显存中

    mov bx,0b800h
    mov es,bx
    mov si,0
    mov ax,word ptr ds:[sum]
    mov dx,word ptr ds:[sum+2]
g0:
    call change
    add cx,30h
    mov byte ptr es:[si +160*24 + 40*2],cl
    sub si,2
    cmp ax,0
    je g
    jmp short g0

g:
    cmp dx,0
    je fi
    jmp short g0
fi:
    mov ax,4c00h
    int 21h

mi:
    cmp cx,0
    je s1
s2:
    mul q
    loop s2

s1:    ret

change:
    mov cx,10        ;interface,div_number

    call divdw
    ret

divdw:
    mov h,ax
    mov ax,dx
    mov dx,0
    div cx

    push ax

    mov ax,h
    div cx

    mov cx,dx
    pop dx
    ret            ;结果，dx放高16位，ax放低16位
                   ;cx放余数


code ends

END start

#14

obstratiker2011-06-04 08:17

好了，修改了一下，这样可以从任意指定2~36（前面打错了，是36不是35）进制转换到任意指定的2~36进制
代码基本没变

assume cs:code
data segment
    sum dd 0
    w db '11'                    放的是要转换的数值，这里有个小bug,我也不清楚，就是如果打单个字母的话，前面要加0，比如把十六进制的 a 转换成某进制时，得
    len = ($ - w)                写，'0a'

    q dw 10                      放的是该数值的进制
    d dw 11                      放的是要转换的进制，现在写的情况就是，把十进制的 11 转换成十一进制的数（10）
    cc dw 1
    h dw ?
data ends

code segment
start:
    mov bx,data
    mov ds,bx
    mov si,offset w
    mov cx,len
s:    push cx
    mov ax,0
    cmp byte ptr [si],59
    ja j1
    mov al,[si]
    sub ax,48
    jmp short k
j1:    mov al,[si]
    sub ax,87

k:    mov cx,len
    sub cx,cc
    call mi
    add word ptr ds:[sum],ax
    adc word ptr ds:[sum+2],dx
    inc si
    inc cc
    pop cx
    loop s


    mov bx,0b800h
    mov es,bx
    mov si,0
    mov ax,word ptr ds:[sum]
    mov dx,word ptr ds:[sum+2]
g0:    call change
    cmp cx,10
    jnb g1
    add cx,30h
p:    mov byte ptr es:[si +160*24 + 40*2],cl
    sub si,2
    cmp ax,0
    je g
    jmp short g0

g1:    add cx,87
    jmp short p

g:    cmp dx,0
    je fi
    jmp short g0
fi:    mov ax,4c00h
    int 21h

mi:    cmp cx,0
    je s1
s2:    mul q
    loop s2

s1:    ret

change:
    mov cx,d        ;interface,div_number

    call divdw
    ret

divdw:    mov h,ax
    mov ax,dx
    mov dx,0
    div cx

    push ax

    mov ax,h
    div cx

    mov cx,dx
    pop dx
    ret            ;结果，dx放高16位，ax放低16位
                ;cx放余数


code ends

END start

#15

zdoublehang2011-06-04 14:23

[ 本帖最后由 zdoublehang 于 2011-6-7 13:02 编辑 ]

#16

zdoublehang2011-06-04 14:24

回复 14楼 obstratiker

看看我上面贴的这个？？？

#17

zdoublehang2011-06-04 16:19

像这个代码它的问题又在何处呢？？？

程序代码：

GAIXIE       MACRO   P1,P2,P3,P4,P5,P6
P2:    CMP    BYTE PTR  [SI],P3
    JB    P5
    CMP    BYTE PTR [SI],P4
    JNB    P5
    CMP    BYTE PTR [SI],'$'
    JZ    P6
    P1    BYTE PTR [SI],20H
P5:    INC    SI
    LOOP    P2
P6:    LEA    DX,BUF1+2
    MOV    AH,9
    INT    21H
    LEA    DX,BF
    MOV    AH,9
    INT     21H
    JMP    START
      ENDM
DATA    SEGMENT
BUF    DB  '**********choose the operation**********',0DH,0AH
       DB  '1:big to small',0DH,0AH
       DB  '2:small to big',0DH,0AH
       DB  '3:hexadecimal to binary',0DH,0AH
       DB  '4:binary to hexadecimal',0DH,0AH
       DB  '5:hexadecimal to decimal',0DH,0AH
       DB  '6:decimal to hexadecimal',0DH,0AH
       DB  '7:EXIT',0DH,0AH,'$'
BF     DB  0DH,0AH,'$'
BUF1   DB  21,?,20 DUP(?)          ；用来存放输入的字符串
BUF2   DB  'enter a hex data:$'
BUF3   DB  'The input is wrong,choose again please:$'
BUF4   DB  'enter a deci data:$'
BUF5   DB  'enter a bin data:$'
DATA  ENDS
CODE SEGMENT
  ASSUME  CS:CODE,DS:DATA
START：MOV  AX,DATA
      MOV  DS,AX
      MOV  DX,OFFSET BUF  ；出选择界面
      MOV  AH,9             ；调用9号中断功能
      INT  21H
      MOV  AH,1            ；入要选择的操作

      INT  21H
      PUSH AX              ；NT 会改变AL的值,应压栈保护
      LEA  DX,BF           ；行
      MOV  AH,9            ；调用9号中断功能
      INT  21H
      POP  AX               ；把AX压栈保护
      CMP  AL,'1'             ；把AL中内容跟1比较
      JZ   BTOS              ；相等则跳转到
      CMP  AL,'2'
      JZ   STOB
      CMP  AL,'3'
      JZ   HTOB
      CMP  AL,'4'
      JZ   BTOH
      CMP  AL,'5'
      JZ   HTOD
      CMP  AL,'6'
      JZ   DTOH
      CMP  AL,'7'
      JZ   EXIT
      LEA  DX,BUF3       ；把BUF3的首地址给DX
      MOV  AH,9
      INT  21H
      CALL CRLF          ；调用子程序CALL
      JMP  START         ；返回，重新选择
EXIT：MOV AH,4CH          ；退出
      INT 21H
BTOH：CALL BETOHE        ；调用二进制转十六进制子程序
HTOB：CALL BINARY        ；调用十六进制转二进制子程序
HTOD：CALL HEXIDEC       ；调用十六进制转十进制子程序
DTOH：CALL DETOHE        ；调用十进制转十六进制子程序
BTOS：CALL  INPUT       ；大写字母改为小写
      MOV  CX,20         ；作为循环条件
    GAIXIE  ADD，NEXT1，'A'，'Z'，N1，N2  ；宏GAIXIE展开
STOB：CALL  INPUT       ；小写字母改为大写
      MOV  CX,20
    GAIXIE  SUB，NEXT2，'a'，'z'，N3，N4
INPUT  PROC  NEAR         ;输入字符串
      MOV  DX,0             ；DX清零
      MOV  DX,OFFSET BUF1  ；把BUF1的首地址给DX
      MOV  AH,10             ；调用10号中断功能，输出字符串
      INT  21H
      LEA  DX,BF              ；把BF首地址给DX
      MOV  AH,9
      INT  21H
      LEA  SI,BUF1+2
      MOV  BL,[SI-1]           ；把输入的字符个数给BL
      MOV  BH,0               ；BH清零
      MOV  BYTE PTR [BX+SI+1],'$'  ；把$作为字符串结束字符
      LEA  DX,BUF1+2
      MOV  AH,9
      INT  21H
      RET                           ；返回
INPUT  ENDP
HEXIDEC PROC NEAR   ；用该子程序把一个十六进制数转换成十进制数表示
      PUSH  DS                 ；保护初始数据段
      SUB   AX,AX              ；AX清零
      PUSH  AX                 ；把AX压栈保护
START1： LEA  DX,BUF2
      MOV   AH,9
      INT   21H
      CALL  HEXIBIN            ；调用输入一个十六进制数子程序
      CMP   AL,1BH             ；遇Esc则退出
      JZ    EXIT1
      CALL  CRLF               ；换行
      CALL  BINIDEC
      CALL  CRLF
      JMP   START1             ；返回
EXIT1：RET
HEXIDEC  ENDP
HEXIBIN  PROC  NEAR          ；输入一个十六进制数,并存放在BX中
         MOV   BX,0          ；把BX清零
         MOV   DX,0          ；作为输入四位的记数器
INHEX：CMP   DX,4             ；把DX跟4比较
      JNB   HEXEND          ；大于则跳转
      MOV   AH,1             ；输入数据
      INT   21H
      CMP   AL,1BH           ；遇到Esc则退出
      JZ    HEXEND
      SUB   AL,30H           ；判断是否数字或字母?否则跳出
      JL    HEXEND
      CMP   AL,10            ；判断是否数字
      JL    ADD_TO           ；是则存放BX中
      SUB   AL,7              ；把AL内容减7转为字母
      CMP   AL,10            ；判断是否小写字母(a~f)
      JL    HEXEND
      CMP   AL,16
      JL    ADD_TO          ；小于则跳转
      SUB   AL,20H           ；判断是否大写字母(A~F)
      CMP   AL,10
      JL    HEXEND
      CMP   AL,16
      JGE   HEXEND
ADD_TO：MOV  CL,4           ；作为循环条件
      SHL   BX,CL            ；BX乘以16
      MOV   AH,0
      ADD   BX,AX           ；两数相加
      INC   DX               ；DX加1
      JMP   INHEX
HEXEND：RET
HEXIBIN ENDP
BINIDEC  PROC  NEAR          ；用来把BX中十六进制转换到十进制
      MOV   CX,10000           ；把10000给CX，作为万位的权
      CALL  DEC_DIV           ；调用除权子程序
      MOV   CX,1000
      CALL  DEC_DIV
      MOV   CX,100
      CALL  DEC_DIV
      MOV   CX,10
      CALL  DEC_DIV
      MOV   CX,1
      CALL  DEC_DIV
      RET
BINIDEC ENDP
DEC_DIV  PROC  NEAR         ；除以各位十进制的权
      MOV   AX,BX            ；把BX内容给AX
      MOV   DX,0              ；DX清零
      DIV   CX
      MOV   BX,DX
      MOV   DL,AL
      ADD   DL,30H            ；转换为ASSII
      MOV   AH,2
      INT  21H
  RET
DEC_DIV  ENDP
CRLF  PROC  NEAR           ;换行
      LEA   DX,BF
      MOV   AH,9
      INT   21H
      RET
CRLF   ENDP
BINARY  PROC  NEAR    ；该子程序用来把十六制数转换为十六位二进制数表示
START2：LEA DX,BUF2
      MOV  AH,9
      INT   21H
      PUSH  DS        ；把DS压栈
      SUB   AX,AX    ；AX清零
      PUSH  AX
      CALL  HEXIBIN
      CMP   AL,1BH
      JZ     EXIT2
      CALL  CRLF
      CALL  PRINT
      CALL  CRLF
      JMP   START2
EXIT2:RET
BINARY  ENDP
PRINT PROC NEAR           ；把BX中的十六进制数转换成二进制
      MOV   CX,16D          ；记数
ROT： SHL   BX,1D           ；每移一位最高位变为CF
      JC      SET               ；CF为1则跳到SET,否则输出0
      MOV   DL,30H
      MOV   AH,2
      INT   21H
      DEC  CX
      JNZ   ROT
  RET
SET：MOV  DL,31H         ；输出1
      MOV  AH,2
      INT   21H
      DEC  CX
      JNZ   ROT
      RET
      PRINT ENDP
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
DECIBIN   PROC  NEAR       ；输入一个五位的十进制数
      MOV   BX,0
      MOV   CX,0
NEWCHAR：CMP  CX,5
        JNB   EXIT4
        MOV  AH,1
        INT   21H
        CMP  AL,1BH
        JZ    EXIT4
        SUB  AL,30H
        JL    EXIT4
        CMP  AL,9
        JG    EXIT4
        CBW
        INC  CX
        XCHG AX,BX
        MOV  DX,10
        MUL  DX
        XCHG AX,BX
        ADD  BX,AX
        JMP  NEWCHAR
EXIT4：RET
DECIBIN ENDP
BINIHEX  PROC  NEAR          ;把BX中的十进制数转换成十六进制输出
        MOV  CH,4
ROTATE：MOV  CL,4
       ROL  BX,CL            ;把BX中高四位移到低四位,放到AL中
       MOV  AL,BL
       AND  AL,0FH
       ADD  AL,30H
       CMP  AL,3AH           ;判断是否为数字
       JL    PRINTIT
       ADD  AL,7
PRINTIT：MOV  DL,AL
        MOV  AH,2
        INT  21H
        DEC  CH
        JNZ  ROTATE
RET
BINIHEX  ENDP
BETOHE   PROC  NEAR           ;用该子程序来把一个十六位二进制数转换成十六进制输出
START3：LEA  DX,BUF5
      MOV  AH,9
      INT   21H
      PUSH  DS
      SUB   AX,AX
      PUSH  AX
      CALL  INBIN
      CMP   AL,1BH
      JZ     EXIT5
      CALL  CRLF
      CALL  BINIHEX
      CALL  CRLF
      JMP   START3
EXIT5：RET
BETOHE  ENDP
INBIN  PROC  NEAR       ;输入十六二进制数
      MOV   BX,0
      MOV   CX,0
PUTIN：CMP  CX,16
      JNB    EXIT6
      MOV   AH,1
      INT    21H
      CMP   AL,1BH
      JZ     EXIT6
      SUB   AL,30H
      JL     EXIT6
      CMP   AL,1
      JG     EXIT6
      CBW
      INC    CX
      XCHG  AX,BX
      MOV   DX,2
      MUL   DX
      XCHG  AX,BX
      ADD   BX,AX
      JMP    PUTIN
EXIT6：RET
INBIN  ENDP

CODE ENDS
  END START

#18

zdoublehang2011-06-04 17:33

trouble依然在，只是少了点~~~~~~~~看看？？

还是看看吧~！

程序代码：

GAIXIE MACRO P1,P2,P3,P4,P5,P6
P2: CMP BYTE PTR [SI],P3

      JB   P5
      CMP  BYTE PTR [SI],P4
      JNB  P5
      CMP BYTE PTR [SI],'$'
;      到$则结束
      JZ   P6
      P1   BYTE PTR [SI],20H
      P5: INC SI

      LOOP P2
      P6: LEA DX,BUF 1+2
;出改写后的字母
MOV AH,9
  ;  调用9号中断功能，输出字符串
      INT  21H
      LEA DX,BF
   ; 把BF首地址给CX
   MOV AH,9
    ; 调用9号中断功能
      INT  21H
      JMP START

    ; ；返回
     ENDM
     DATA SEGMENT
;义数据段
BUF    DB  '**********choose the operation**********',0DH,0AH
       DB  '1:big to small',0DH,0AH
       DB  '2:small to big',0DH,0AH
       DB  '3:hexadecimal to binary',0DH,0AH
       DB  '4:binary to hexadecimal',0DH,0AH
       DB  '5:hexadecimal to decimal',0DH,0AH
       DB  '6:decimal to hexadecimal',0DH,0AH
       DB  '7:EXIT',0DH,0AH,'$'
BF     DB  0DH,0AH,'$'
buf1 db 21,?,20 dup(?)
;用来存放输入的字符串
BUF2   DB  'enter a hex data:$'
BUF3   DB  'The input is wrong,choose again please:$'
BUF4   DB  'enter a deci data:$'
BUF5   DB  'enter a bin data:$'
DATA  ENDS
CODE SEGMENT
  ASSUME  CS:CODE,DS:DATA
  START: MOV AX,DATA
      MOV  DS,AX
      MOV DX,OFFSET BUF
;   出选择界面
MOV AH,9
;    调用9号中断功能
      INT 21H

MOV AH,1

;   入要选择的操作
INT 21H
PUSH AX
;   NT 会改变AL的值,应压栈保护
LEA DX,BF
;  行
MOV AH,9
;   调用9号中断功能
INT 21H

  POP AX
  ;  把AX压栈保护
   CMP AL,'1'
   ;   把AL中内容跟1比较
    JZ BTOS
;     相等则跳转到
CMP AL,'2'
  JZ STOB
   CMP AL,'3'
    JZ HTOB
     CMP AL,'4'
      JZ BTOH
      CMP AL,'5'

JZ HTOD
  CMP AL,'6'
   JZ DTOH
    CMP AL,'7'
     JZ EXIT
  LEA DX,BUF3
  ; 把BUF3的首地址给DX
   MOV AH,9
    INT 21H

CALL CRLF

;   调用子程序CALL
  JMP START
  ;    返回，重新选择
  EXIT: MOV AH,4CH
;退出
INT 21H
BTOH: CALL BETOHE
;调用二进制转十六进制子程序
HTOB: CALL BINARY

;调用十六进制转二进制子程序
HTOD: CALL HEXIDEC
;调用十六进制转十进制子程序
DTOH: CALL DETOHE
;调用十进制转十六进制子程序
BTOS: CALL INPUT
;大写字母改为小写
MOV CX,20

;   作为循环条件
GAIXIE ADD,NEXT1,'A','Z',N1,N2

;  宏GAIXIE展开
STOB: CALL INPUT

;小写字母改为大写
MOV CX,20
  GAIXIE SUB, NEXT2, 'a', 'z', N3, N4

INPUT PROC NEAR
;输入字符串
MOV DX,0
;    DX清零
MOV DX,OFFSET BUF1
;     把BUF1的首地址给DX

MOV AH,10

;   调用10号中断功能，输出字符串
  INT 21H
   LEA DX,BF
   ;  把BF首地址给DX
    MOV AH,9

INT 21H
  LEA SI,BUF1+2
   MOV BL,[SI-1]
   ; 把输入的字符个数给BL
   MOV BH,0
;  BH清零
  MOV BYTE PTR [BX+SI+1],'$'
  ; 把$作为字符串结束字符
   LEA DX,BUF1+2
    MOV AH,9
     INT 21H
    RET
                        ;返回
INPUT ENDP
HEXIDEC PROC NEAR
;用该子程序把一个十六进制数转换成十进制数表示
PUSH DS

;    保护初始数据段
  SUB AX,AX
  ;  AX清零
   PUSH AX
   ;  把AX压栈保护
START1: LEA DX,BUF2

MOV AH,9
  INT 21H
   CALL HEXIBIN
   ;  调用输入一个十六进制数子程序
    CMP AL,1BH
    ; 遇Esc则退出
     JZ EXIT1
   CALL CRLF
   ; 换行
    CALL BINIDEC
     CALL CRLF
  JMP START1
  ;   返回
EXIT1: RET
HEXIDEC ENDP
HEXIBIN PROC NEAR
;输入一个十六进制数,并存放在BX中
MOV BX,0
;       ；把BX清零
MOV DX,0

;     作为输入四位的记数器
INHEX: CMP DX,4
;把DX跟4比较
JNB HEXEND

;    ；大于则跳转
   MOV AH,1
   ;  输入数据
   INT 21H

CMP AL,1BH

;    遇到Esc则退出
  JZ HEXEND
   SUB AL,30H
   ;   判断是否数字或字母?否则跳出
   JL HEXEND
   ;   JL    HEXEND
    CMP AL,10
    ; 判断是否数字
   JL ADD_TO
   ;  是则存放BX中
SUB AL,7

;    把AL内容减7转为字母
  CMP AL,10
  ; 判断是否小写字母(a~f)
   JL HEXEND

    CMP AL,16


JL ADD_TO

;     小于则跳转
  SUB AL,20H
  ; 判断是否大写字母(A~F)
   CMP AL,10
   JL HEXEND
  CMP AL,16
   JGE HEXEND
ADD_TO: MOV CL,4
;作为循环条件
SHL BX,CL

;   BX乘以16
  MOV AH,0

   ADD BX,AX
   ;   两数相加
    INC DX
    ; DX加1
     JMP INHEX

     HEXEND: RET
HEXIBIN ENDP
BINIDEC PROC NEAR
;用来把BX中十六进制转换到十进制
MOV CX,10000

;    把10000给CX，作为万位的权
  CALL DEC_DIV
  ;   调用除权子程序
MOV CX,1000
  CALL DEC_DIV
MOV CX,100

CALL DEC_DIV

      MOV   CX,10
      CALL  DEC_DIV
      MOV   CX,1
      CALL  DEC_DIV
      RET
BINIDEC ENDP
DEC_DIV PROC NEAR
;除以各位十进制的权
MOV AX,BX

;   把BX内容给AX
  MOV DX,0
  ;  DX清零
   DIV CX
      MOV   BX,DX
      MOV   DL,AL

ADD DL,30H

;转换为ASSII
  MOV AH,2
  INT 21H

RET
DEC_DIV  ENDP
CRLF  PROC  NEAR           ;换行
      LEA   DX,BF
      MOV   AH,9
      INT   21H
      RET
CRLF   ENDP
BINARY PROC NEAR
;该子程序用来把十六制数转换为十六位二进制数表示
START2: LEA DX,BUF2

MOV AH,9
  INT 21H
   PUSH DS
;把DS压栈
    SUB AX,AX
;AX清零
     PUSH AX
  CALL HEXIBIN
   CMP AL,1BH
    JZ EXIT2
  CALL CRLF
   CALL PRINT
    CALL CRLF
  JMP START2
EXIT2:RET
BINARY  ENDP
PRINT PROC NEAR

;把BX中的十六进制数转换成二进制
  MOV CX,16D

;记数
ROT: SHL BX,1D
;每移一位最高位变为CF
JC SET
         ;CF为1则跳到SET,否则输出0
  MOV DL,30H
   MOV AH,2
   INT 21H
   DEC CX
  JNZ ROT
RET
SET: MOV DL,31H

MOV AH,2
  INT 21H

DEC CX

JNZ ROT

RET
  PRINT ENDP
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
DECIBIN PROC NEAR

;输入一个五位的十进制数
      MOV   BX,0
      MOV   CX,0
      NEWCHAR: CMP CX,5

JNB EXIT4
  MOV AH,1
  INT 21H
   CMP AL,1BH
    JZ EXIT4
  SUB AL,30H
   JL EXIT4
    CMP AL,9

JG EXIT4
  CBW
   INC CX
    XCHG AX,BX
  MOV DX,10
  MUL DX
   XCHG AX,BX
    ADD BX,AX
     JMP NEWCHAR
EXIT4: RET
DECIBIN ENDP
BINIHEX PROC NEAR
         ;把BX中的十进制数转换成十六进制输出
  MOV CH,4
ROTATE: MOV CL,4

ROL BX,CL
         ;把BX中高四位移到低四位,放到AL中
    MOV AL,BL
  AND AL,0FH
   ADD AL,30H
    CMP AL,3AH
          ;判断是否为数字
     JL PRINTIT
  ADD AL,7
  PRINTIT: MOV DL,AL

MOV AH,2

  INT 21H
   DEC CH
    JNZ ROTATE
RET

BINIHEX ENDP
BETOHE PROC NEAR

          ;用该子程序来把一个十六位二进制数转换成十六进制输出
START3: LEA DX,BUF5

MOV AH,9

INT 21H
  PUSH DS
  SUB AX,AX
   PUSH AX
    CALL INBIN

  CMP AL,1BH

JZ EXIT5
  CALL CRLF
  CALL BINIHEX
   CALL CRLF
  JMP START3
EXIT5: RET
BETOHE ENDP
INBIN PROC NEAR
    ;输入十六二进制数
MOV BX,0
   MOV CX,0

PUTIN:CMP CX,16

JNB EXIT6
  MOV AH,1
    INT 21H
      CMP AL,1BH
    JZ EXIT6
     SUB AL,30H
      JL EXIT6
      CMP AL,1
    JG EXIT6
  CBW
    INC CX
     XCHG AX,BX
       MOV DX,2
       MUL DX
      XCHG  AX,BX
ADD BX,AX
  JMP PUTIN
EXIT6: RET
INBIN ENDP
CODE ENDS

END START

#19

zdoublehang2011-06-04 20:19

#20

obstratiker2011-06-04 22:06

大哥这代码

貌似是宏定义那
GAIXIE MACRO P1,P2,P3,P4,P5,P6
P2: CMP BYTE PTR [SI],P3

      JB   P5
      CMP  BYTE PTR [SI],P4
      JNB  P5
      CMP BYTE PTR [SI],'$'
;      到$则结束
      JZ   P6
      P1   BYTE PTR [SI],20H
      P5: INC SI

      LOOP P2
      P6: LEA DX,BUF 1+2                                这里是不是应该是    P6: LEA DX,BUF1 + 2

你具体的函数我没看，但 debug 的时候是宏这出了问题，我按上述的改了后没 debug 了，不过得不出想要的结果
另外我想提些建议
1，你的代码太长的话，就把关键功能的地方贴出就行了，像数据定义和一些面向用户的工作的代码贴多了眼花缭乱
2，然后把你具体实现功能的思路说出来，比如我的方法就是，先把把字符串以十六进制存入，然后对十六进制进行转换
你这样说了，大家都好按你的思路帮你看代码
3，这个是解决这个问题的思路的建议了，如果你要写的程序，就是在常用的2,8,10,16进制间转换的话
因为任何数据一存入寄存器就是 16 进制的（我觉得这就是问题的难点），那么你就不要用字符串来存数据，直接写数据进去就行了
（字符串存的是是 10 进制的ascii，再经过运算放入寄存器又变成 16 进制的了，换来换去就乱了）
然后 2,8,16 之间转换不用烦恼，重点就是 16 和10 进制之间的转换了

#21

zdoublehang2011-06-04 23:40

回复 20楼 obstratiker

呵呵~大侠就是大侠，眼睛亮，，，我用的是那个masm的集成环境，，，debug老师让练，只是我没学会哎

，，，，

下午看来看去也发现了点是宏处有问题，，还有下面有个repeat 得换个名字，，，只是晚上去打了羽毛球忘补充了，抱歉呐，还是得说你眼睛亮呀！

ps：李娜赢了！或许我该转行打网球了

#22

zdoublehang2011-06-06 13:49

回复 2楼 ansic

虽然这个程序还没弄的更美一点，，，但看到头顶结账催着就先结贴吧~等做得好了，一定贴出来~！！！

#23

zdoublehang2011-06-06 13:50

回复 13楼 obstratiker

虽然这个程序还没弄的更美一点，，，但看到头顶结账催着就先结贴吧~等做得好了，一定贴出来~！！！

要是有可能也看看那个字模的程序吧

#24

zdoublehang2011-06-06 13:51

回复 7楼 zaixuexi

虽然这个程序还没弄的更美一点，，，但看到头顶结账催着就先结贴吧~等做得好了，一定贴出来~！！！

#25

zdoublehang2011-06-06 13:52

回复 11楼 zklhp

感谢每一位看过此贴的朋友们~~~~

有机会看看那个字模的程序呀~~！！！

#26

zdoublehang2011-06-07 13:14

回复 14楼 obstratiker

不好意思，，之前没看你的这个程序，，，现在看来看可有不知道如何用的？？

能给我讲讲不？？

#27

obstratiker2011-06-07 16:57

回复 26楼 zdoublehang

这个就是在 data 段中写好你想要转换的数和它的进制，然后写好你要转换成什么进制的，然后就在屏幕上输出了
这相当于是在程序内部做完工作了，每次要换别的进制什么的就得改程序再汇编……我边写代码边调试习惯这样了
当然你改改就可以让程序运行时再进行数据输入