未经优化的实验七代码

milorguan

assume cs:codesg,ss:stacksg,ds:data,es:table
  data segment
  db'1975','1976','1977','1978','1979','1980','1981','1982','1983'
  db'1984','1985','1986','1987','1988','1989','1990','1991','1992','1993'
  db'1994','1995'
  
  dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
  dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
  
  dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
  dw 11542,14430,15257,17800
  data ends
table segment
   db 21 dup ('year summ ne ?? ')
table ends

stacksg segment
    dd 0,0,0,0
stacksg ends

codesg segment
  start: mov ax,data
         mov ds,ax
         mov ax,table
         mov es,ax
        
   mov ax,stacksg
   mov ss,ax
  
         
   
   mov si,0
   mov di,0
   mov bx,0
        
    mov cx,21
     s:  mov al, [bx+0]
   mov es:[di+0],al
   mov al, [bx+1]
   mov es:[di+1],al
   mov al, [bx+2]
   mov es:[di+2],al
   mov al, [bx+3]
   mov es:[di+3],al
   add bx,4
   add di,10h
   loop s
   
          mov si,0
   mov di,0
   mov bx,0
   mov cx,21
    s0:
        mov ax,[bx+54h]
  mov es:[di+5],ax
  mov ax,[bx+56h]
  mov es:[di+7],ax
  add bx,4
  add di,10h
   loop s0
     
  mov si,0
   mov di,0
   mov bx,0
     mov cx, 21
    s1: mov ax,[bx+0a8h]
     mov es:[di+0ah],ax
  add bx,2
  add di,10h
       loop s1
  
       mov cx,21
          mov si,0
   mov di,0
   mov bx,0
     s2:mov ax,es:[di+5]
        mov dx,es:[di+7]  
        div word ptr es:[di+0ah]
  mov es:[di+0dh],ax
        add di,10h
  
  
     loop s2
  
  mov ax,4c000h
  int 21h
codesg ends
end start

demon

四个循环的啊，怎么都是自己思路写出来的，
不错！
题目若没有给你栈空间，何况也用不到，可以去掉!

milorguan

我忘了删掉堆栈段了，当时在斟酌完后忘了删

milorguan

有一些没用的代码我没删掉