DATAS SEGMENT
    ;此处输入数据段代码  
    DB '1975','1976','1977','1978';16
    DD 16,22,382,1356;16
    DW 3,7,9,13;8
DATAS ENDS

TABLE SEGMENT
        DB 4 DUP('0123456789ABCDEF')        
TABLE ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX
    MOV SI,0
    
    MOV AX,TABLE
    MOV ES,AX
    MOV DI,0
    
    MOV BX,4
    
;INSERT子过程,先把年份全部复制到TABLE段中,然后是收入,再然后是雇员, 人均收入,记录的数量用BX保存,不过这样子用处不大!
INSERT:
;年
        MOV CX,BX
YEAR:
        MOV DX,[SI]
        MOV ES:[DI],DX
        MOV DX,[SI+2]
        MOV ES:[DI+2],DX
        MOV BYTE PTR ES:[DI+4],' '
        ADD SI,4
        ADD DI,16
        LOOP YEAR
        
        
        MOV CX,BX
        MOV SI,16
        MOV DI,5
        ;收入
INCOME:
        MOV DX,[SI]
        MOV ES:[DI],DX
        MOV DX,[SI+2]
        MOV ES:[DI+2],DX
        MOV BYTE PTR ES:[DI+4],' '
        ADD SI,4
        ADD DI,16
        LOOP INCOME
        
                ;雇员数
        MOV CX,BX
        MOV SI,32
        MOV DI,10

NUM_EMP:
        MOV DX,[SI]
        MOV ES:[DI],DX
        MOV BYTE PTR ES:[DI+2],' '
        ADD SI,2
        ADD DI,16
        LOOP NUM_EMP
        
        ;平均工资
        MOV CX,BX
        MOV DI,5
AVG:
        MOV AX,ES:[DI]
        MOV DX,ES:[DI+2]
        DIV WORD PTR ES:[DI+5]
        MOV ES:[DI+8],AX
        MOV BYTE PTR ES:[DI+10],' '
        ADD DI,16
        LOOP AVG
        
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START