要求:设(30H)=4BH,将高4位的ASCII码放在31H单元,低4位的ASCII码放在32H单元,程序具有通用性,向入口参数30H存入任何数,都能将其变成相应的ISCII码.
方法:如:用CJNE A,#0AH,NEQ,分别加30H或37H的方法.
哪位高手帮帮忙,先谢谢了

data segment

 org 30h
     db ?
     db ?
     db ?
data ends

code segment
main proc far

 assume cs:code,ds:data

 push ds

 sub ax,ax

 push ax

 mov ax,data

 mov ds,ax

 mov si,30h

 mov byte ptr [si],4bh

 call convert

 mov cx,2

 mov si,30h
loop1:

 inc si

 mov dl,[si]

 mov ah,2

 int 21h
loop loop1

 mov ax,4c00h

 int 21h
main endp

convert proc near

 mov si,30h

 mov al,[si]

 mov ch,2
rotate:

 inc si

 mov cl,4

 rol al,cl

 mov bl,al

 and bl,0fh

 add bl,30h

 cmp bl,3ah

 jl store

 add bl,7h
store:

 mov [si],bl

 dec ch

 jnz rotate

 ret
convert endp

code ends
end main

收到的鲜花

• zklhp 于 2008-10-28 12:43 送鲜花  50朵   附言：好文章

谢谢帮助,呵呵

ORG 0000H
     LJMP MAIN
     ORG 4030H
MAIN:MOV SP,#60H
     MOV 30H,#4BH
     MOV R2,30H
     MOV A,R2
     ANL A,#00001111B
     CJNE A,#0AH,NEQ
NEQ: JC LOOP
     ADD A,#37H
     JMP LOOP3
LOOP:ADD A,#30H
LOOP3:MOV 31H,A
      MOV A,R2
      SWAP A
      ANL A,#0FH
      CJNE A,#0AH,NE1
NE1: JC LOOP1
     ADD A,#37H
     JMP LOOP4
LOOP1:ADD A,#30H
LOOP4:MOV 32H,A
A1: SJMP A1   
    END

再推荐一种更通用的算法：查表
如果仅仅0~9，就用你的算法比较简练。不过查表也很简练。

    ;假如R6中是8位压缩BCD码
    ...计数寄存器赋值——适合一批压缩BCD码
        MOV    DPTR,#tab         ;DPTR指向ASCII码表
    _loop:
        MOV    A,R6              ;取BCD码数据
        SWAP   A
        ANL    A,#0Fh            ;取高4位值
        MOVC   A,@A+DPTR         ;译码
    ...保存
        ;
        MOV    A,R6              ;取BCD码数据
        ANL    A,#0Fh            ;取低4位值
        MOVC   A,@A+DPTR         ;译码
    ...保存
    ...循环

#tab:   ...ASCII码表

[[it] 本帖最后由 cnhanxiao 于 2008-11-5 14:39 编辑 [/it]]

收到的鲜花

• zklhp 于 2008-11-05 16:55 送鲜花  50朵   附言：我很赞同

呵呵,查表是很简单,谢谢哈