prog6_25.asm

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

stack  segment stack
       dw  256 dup(?)
stack  ends
data  segment
      bcdbuf  db  65h
      binbuf  db  ?
data  ends
code  segment
      assume  cs:code,ds:data,ss:stack
start:mov  ax,data
      mov  ds,ax
      mov  al,bcdbuf
      call  tran
      mov  binbuf,al
      mov  ah,4ch
      int  21h
tran  proc
      pushf
      push  bx
      push  cx
      mov  ah,al
      and  ah,0fh
      mov  bl,ah
      and  al,0f0h
      mov  cl,04h
      ror  al,cl
      mov  bh,0ah
      mul  bh
      add  al,bl
      pop  cx
      pop  bx
      popf
      ret
tran  endp
code  ends
      end  start