实验十，第三问完整代码，干了几天！终于抠出来了！分享一下！

fjs2009

                               
登录/注册后可看大图

assume cs:code,ds:data
data segment
     db 128 dup (0)
     dw 123,2000,12666,1,3,38
data ends

code segment
start:
      mov bx,data
      mov ds,bx
      mov si,0
      mov di,0
      mov bx,0
      mov bp,0
   s3:mov ax,[bp+128]
      mov cx,ax
      jcxz over
      call stoc
      mov dh,8
      mov dl,3
      mov cl,2
      call show_str
      jmp short s3
over:
      mov ax,4c00h
      int 21h
stoc:
      push ax
      push bx
      push cx
      push dx
    s:mov dx,0
      mov cx,10d
      div cx
      mov cx,ax
      jcxz ok
      add dx,30h
      push dx
      inc bx
      jmp short s
   ok:add dx,30h
      push dx
      inc bx
      mov cx,bx
   s1:pop ax
      mov ds:[si],al
      inc si
      loop s1
      pop dx
      pop cx
      pop bx
      pop ax
      ret
show_str:
      push ax
      push bx
      push cx
      push dx
      push si
      push bp
      mov ax,0b800h
      mov es,ax
      mov si,0
      mov ax,160
      dec dh
      mul dh
      mov bx,ax
      mov ax,2
      dec dl
      mul dl
      add bx,ax
      mov al,cl
      mov di,0
   s2:mov cl,[si]
      mov ch,0
      jcxz ok1
      mov es:[bx+di],cl
      mov es:[bx+di+1],al
      inc si
      add di,2
      loop s2
  ok1:
      pop bp
      pop si
      pop dx
      pop cx
      pop bx
      pop ax
      add bp,2
      ret
code ends
end start

关键是感觉

干的好同志！

小B同学

一堆push，没有注释，没法子看

bingghost

;P  送鲜花  送笑脸   

eons

好像是实验十里面的第三个问题？还是三个问题用一个程序来解决？

小生我怕怕

不错！就是要这种精神，加油