老實說，自己的編程技能差的還太多，完成這個實驗竟用了足足3個小時，包括構思、編輯、調試、修改、再調試……
不過，總算調通了，可以進行下一章的學習了。
assume cs:codesg
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'
;以上是表示21年的21個字符串
dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
;以上是表示21年公司總收入的21個dword型數據
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
dw 11542,14430,15257,17800
;以上是表示21Ian公司僱員人數的21個word型數據
data ends
table segment
db 21 dup ('year summ ne ?? ')
table ends
;以上爲書中給出的代碼
stacksg segment
dw 0,0,0,0,0,0,0,0
;開闢棧空間，存放外層循環CX的值
stacksg ends
codesg segment
start: mov ax,data
mov ds,ax
mov ax,table
mov es,ax
mov ax,stacksg
mov ss,ax
mov sp,16
mov si,0 ;定位data段中的每個年份和公司總收入的每個字節，0表示定位第一個字節
mov bx,0 ;bx定位table中的每一條記錄，0表示定位第一條
mov bp,0 ;定位data段中每年僱員人數，0表示定位第一年的
mov cx,21 ;外層循環次數
s0: push cx ;入棧
mov di,0 ;定位table段中年份和收入的每個字節
mov cx,4
s1: mov ax,0
mov al,ds:[si]
mov ah,ds:84[si]
mov es:[bx].0[di],al ;寫年份
mov es:[bx].5[di],ah ;寫收入
inc si
inc di
loop s1
;s1將年份和收入寫入table段，按字節寫入
s2: mov ax,0
mov ax,ds:[bp].168
mov es:[bx].10,ax
add bp,2
;s2僅作爲標號，不進行循環，這段代碼將僱員人數寫入table，按字寫入
mov dx,es:[bx].7
mov ax,es:[bx].5
div word ptr es:[bx].10
mov es:[bx].13,ax
;這段代碼計算人均收入（取整）並寫入table
add bx,16 ;定位下一條記錄
pop cx ;外循環次數出棧
loop s0
mov ax,4c00h
int 21h
codesg ends
end start