assembly x86(nasm)子程序1

data    segment
message        db    ‘Binary to hexadecimal‘,0dh,0ah,‘Press any key to continue!‘,0dh,0ah,‘$‘
buf1        db  4eh,0ch,37h,04h,7dh,60h,21h,33h,44h,55h
buf2        db    ‘00h  $‘
data    ends
code    segment
assume    cs:code,ds:data
;---------------------------------------------------------------------------------------------------------------------
main proc        far
start:        mov    ax,data
            mov    ds,ax            
            lea dx,message    
            mov    ah,9                        
            int    21h
            mov cx,10
loopa:        
            call HEXAC
            loop loopa
exit:        mov    ah,4ch                        
            int    21h
main endp
;---------------------------------------------------------------------------------------------------------------------
HEXAC    proc    near                ;码型转换子程序
            mov al,buf1[si]
            push cx
            push si
            mov si,2
            xor cx,cx
            cbw
loopb:
            xor dx,dx
            inc cl
            mov bx,16
            div bx                    ;ax商,dx余
            push dx                    ;余数入栈
            cmp ax,0
            jne loopb
            mov buf2[0],‘0‘
            sub si,cx
loopc:
            pop dx
            cmp dl,9
            jna change
            add dl,55
            mov buf2[si],dl
            jmp next
change:        or  dl,00110000b
            mov buf2[si],dl
next:        inc si
            loop loopc
            pop si
            inc si
            pop cx
            call DISP
            ret
HEXAC endp
;---------------------------------------------------------------------------------------------------------------------
DISP    proc    near                ;显示子程序
            lea dx,buf2
            mov ah,9
            int 21h
            ret
DISP endp
;---------------------------------------------------------------------------------------------------------------------
code    ends
end    start