3-27-1.asm

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

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

data segment 
     Nbuf db 3,0,3 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 Nbuf
      mov ah,10
      int 21H

      mov cl,Nbuf[1]
      mov al,Nbuf[2]
      sub al,30H
      CMP cl,1
      JZ NEXT
      mov dl,10
      mul dl
      mov bl,Nbuf[3]
      sub bl,30H
      add al,bl
NEXT:           

      CALL Mysum

      mov SI,offset Outbuf + 5
      mov dx,0
      mov bx,10
AGAIN:      
      div bx
      add dl,30H
      mov [SI],dl
      mov dx,0
      DEC SI
      CMP ax,0
      JZ MYEND
      JMP AGAIN
MYEND:
      mov dx,SI
      INC dx
      mov ah,9
      int 21H

      ret
begin   endp

Mysum proc
      push bx
      mov bl,al
      mov bh,0      
      mov ah,0
      mul bl
      add ax,bx 
      pop bx
      ret
Mysum endp


code    ends
      end begin