鱼C论坛

 找回密码
 立即注册
查看: 2573|回复: 4

[汇编作业] 实验七除了最后的人均工资(人均收入补上啦!!)

[复制链接]
发表于 2018-8-21 10:08:49 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 sannnnnd 于 2018-8-21 21:51 编辑
DATAS 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个四字节的字符串
        ;0~53H
    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型数据
        ;54~0A7H
    dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
    dw 11542,14430,15257,17800
    ;以上是表现21年公司雇员人数的21个word型数据
    ;0A8H~0D1H
DATAS ENDS

STACKS SEGMENT
    dw 8 dup (0)
STACKS ENDS

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

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS,ES:table
START:
    MOV AX,DATAS
    MOV DS,AX
    mov ax,table
    mov es,ax
    mov ax,STACKS
    mov ss,ax
    mov sp,16
    ;        es:[bx+0+si] 年份
    ;        es:[bx+5+si] 收入
    ;        es:[bx+10+si] 雇员数
    ;        es:[bx+D+si] 人均收入
    ;bx行地址,idata为属性地址,si为属性内部地址
    mov cx,21
    mov bx,0
    mov di,0
    mov dx,0
    
  s:push cx
          mov cx,4
          mov si,0
          
 s0:
    mov al,ds:[di]
    mov es:[bx+si],al
    
    mov al,ds:54H[di]
    push bx
    add bx,5
    mov es:[bx+si],al
    
    inc di
    inc si
    pop bx
    loop s0
            ;s0循环是录入四字节的年份和收入
        mov cx,2
        push di

        mov si,0
        ;s1循环是录入两字节的雇员数和人均工资(还没有开始做人均工资~)
 s1:mov di,dx
         mov al,ds:0A8H[di]
         push bx
         add bx,10
         mov es:[bx+si],al
         inc dx
         inc si
         pop bx
         loop s1
    pop di
    
    
        add bx,16
        pop cx
        loop s
        
        
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2018-8-21 10:10:26 | 显示全部楼层
这个作业做了一早上!还没做完 临时有事就先溜了 晚上回来继续完成~
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-8-21 21:43:12 | 显示全部楼层
将人均工资补上之后~ 我感觉我把程序变复杂了!!!!

DATAS 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个四字节的字符串
        ;0~53H
    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型数据
        ;54~0A7H
    dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
    dw 11542,14430,15257,17800
    ;以上是表现21年公司雇员人数的21个word型数据
    ;0A8H~0D1H
    db 0
DATAS ENDS

STACKS SEGMENT
    dw 8 dup (0)
STACKS ENDS

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

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS,ES:table
START:
    MOV AX,DATAS
    MOV DS,AX
    mov ax,table
    mov es,ax
    mov ax,STACKS
    mov ss,ax
    mov sp,16
    ;        es:[bx+0+si] 年份
    ;        es:[bx+5+si] 收入
    ;        es:[bx+10+si] 雇员数
    ;        es:[bx+D+si] 人均收入
    ;bx行地址,idata为属性地址,si为属性内部地址
    mov cx,21
    mov bx,0
    mov di,0
    mov dx,0
    mov si,0
    
  s:push si
          push cx
          mov cx,4
          mov si,0

 s0:
    mov al,ds:[di]
    mov es:[bx+si],al
    
    mov al,ds:54H[di]
    push bx
    add bx,5
    mov es:[bx+si],al
    inc di
    inc si
    pop bx
    loop s0
    
    
        mov cx,2
        push di
        mov si,0
 s1:mov di,dx
         mov al,ds:0A8H[di]
         push bx
         add bx,10
         mov es:[bx+si],al
         inc dx
         inc si
         pop bx
         loop s1
    pop di
    


        pop cx
        pop si
        push di
        push dx
        
        mov di,ds:[0D2H]
        mov dx,ds:[si+56H]
        mov ax,ds:[si+54H]
        div word ptr ds:[di+0A8H]
        mov es:[bx+0DH],al
        mov es:[bx+0EH],ah

        pop dx
        add si,4
        push cx
        mov cx,ds:[0D2H]
        add cx,2
        mov ds:[0D2H],cx
        pop cx
        pop di
        add bx,16
        loop s
        
        
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-8-21 21:45:56 | 显示全部楼层
nice ~晚上总算把这个做完啦!!
KQ6WF63Q}JS~1_3[@{T4[$8.jpg
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2018-8-22 20:53:12 From FishC Mobile | 显示全部楼层
你帮我看看我的程序
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-24 14:03

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表