baweitoascii.asm

来自「微机的程序~很多~如~BCD转换成二进制~加减法运算等」· 汇编 代码 · 共 54 行

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