3.asm

华工电信系汇编习题的编程实现

 stack segment stack 'stack'
       dw 32 dup (?)
 stack ends

 data segment
      HexIn db 6,0,6 dup(?)
      OutBuf db 6 dup(?),'$'
 data ends
 code segment
      begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax

      mov dx,offset HexIn
      mov ah,10
      int 21H

      mov ch,HexIn[1]
      mov SI,offset HexIn + 2
      mov cl,4
      mov ax,0
      mov bh,0
AGAIN:
      shl ax,cl
      mov bl,[SI]
      INC SI
      sub bl,030H
      CMP bl,00AH
      JS SHI
      sub bl,7
SHI:
      add ax,bx
      DEC ch
      CMP ch,0
      JNZ AGAIN
      mov SI,offset Outbuf + 5

LOOP2:
     mov dx,0
     mov bx,10
     div bx
     add dl,030H
     mov [SI],dl
     DEC SI
     CMP ax,0
     JNZ LOOP2

     mov dl,00AH
     mov ah,2
     int 21H

     INC SI
     mov dx,SI
     mov ah,9
     int 21H

      ret
begin endp
code ends
     end begin