bcd.asm

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

stack  segment para stack 'stack'
db  256 dup(?)
stack  ends
data  segment
dat1  db  3ah
dat2  db  ?
dat3  db  ?
data  ends
code  segment
      assume  cs:code,ds:data,ss:stack
start:mov  ax,data
      mov  ds,ax
      lea  si,dat1
      mov al,[si]
      cmp  al,99
      jbe  bcd
      lea  di,dat3
      mov  byte ptr[di],0ffh
      jmp  exit
bcd:  cbw
      mov  cl,10
      div  cl
      add al,30h   ;商al,加30h化为对应ASCII码
      add ah,30h   ;余数ah,加30h化为对应ASCII码
      mov dl,al
      mov bl,ah    ;bl中间变量
      mov ah,2h    ;分2个字符输出bcd码高位，低位
      int 21h
      mov dl,bl
      int 21h
                
exit: mov  ah,4ch
      int  21h
code  ends
      end  start