prog6_27.asm

汇编语言-王爽 源代码 加 卜艳萍版源代码

stack  segment stack
       db  100 dup(?)
stack  ends
data  segment
      buf  dw  12bch
      str  db  4 dup(?),0dh,0ah,'$'
data  ends
code  segment
      assume  cs:code,ds:data,es:data,ss:stack
begin:mov  ax,data
      mov  ds,ax
      mov  es,ax
      lea  bx,str
      push  bx
      push  buf
      call  binhex
      lea  dx,str
      mov  ah,9
      int  21h 
      mov  ah,4ch
      int  21h
binhex  proc
      push  bp
      mov  bp,sp
      push  ax
      push  di
      push  cx
      push  dx
      pushf
      mov  ax,[bp+4]
      mov  di,[bp+6]
      add  di,3
      mov  dx,ax
      mov  cx,4
again:and  ax,000fh
      call  hexd
      std
      stosb
      push   cx
      mov  cl,4
      shr  dx,cl
      mov  ax,dx
      pop  cx
      loop  again
      popf
      pop  dx
      pop  cx
      pop  di
      pop  ax
      pop  bp
      ret  4
binhex  endp
hexd  proc
      cmp  al,0ah
      jl  addz
      add  al,07h
addz: add  al,30h
      ret
      hexd  endp
code  ends
      end  begin