自写实验7程序

纸船

第一次写一个完整的程序，没有看过参考，虽然程序写的很麻烦，但调试结果正确:victory:

assume cs:codesg,ds:data,es:table

codesg segment

start:
      mov ax,data
      mov ds,ax
      mov ax,table
      mov es,ax                 
      mov cx,15h

      mov bp,0
      mov bx,0
      mov si,0
      mov di,0
s:
      mov ax,[bx]
      mov es:[bp],ax
      inc bx
      inc bx
      inc bp
      inc bp
      mov ax,[bx]
      mov es:[bp],ax
      inc bx
      inc bx
      inc bp
      inc bp

      mov al,' '
      mov es:[bp],al
      inc bp

      mov ax,[si+84]
      mov es:[bp],ax
      inc si
      inc si
      inc bp
      inc bp
      mov dx,[si+84]
      mov es:[bp],dx
      inc si
      inc si
      inc bp
      inc bp

      mov al,' '
      mov es:[bp],al
      inc bp

      mov ax,[di+168]
      mov es:[bp],ax
      inc bp
      inc bp
      inc di
      inc di

      mov al,' '
      mov es:[bp],al
      inc bp

      mov ax,[si+80]
      div word ptr [di+166]
      mov es:[bp],ax
      inc bp
      inc bp

      mov al,' '
      mov es:[bp],al
      inc bp
loop s
      mov ax,4c00h
      int 21h
codesg ends

data segment
  db '1975','1976','1977', '1978','1979','1980', '1981','1982','1983'
  db '1984','1985','1986', '1987','1988','1989', '1990','1991','1992'
  db '1993','1994','1995'

  dd 16,22,382,1356,2390,80100,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,2558,2793,4037,5635,8226
  dw 11542,14430,15257,17800

data ends

table segment
  db 21 dup('year summ ne ?? ')
table ends

end start