1 assume cs:code , ds:data , ss:stack 2 3 ; 数据段 4 data segment 5 6 db '1975','1976','1977','1978','1979','1980','1981','1982','1983' ;第一个偏移值:0 7 8 db '1984','1985','1986','1987','1988','1989','1990','1991','1992' 9 10 db '1993','1994','1995' ;最后一个偏移值:53H(83D) 11 12 ;以上是表示21年的21个字符串 13 14 15 16 dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514 ;第一个偏移值:54H(84D) 17 18 dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000 ;最后一个偏移值:A7H(167D) 19 20 ;以上是表示21年公司总收入的21个dword型数据 21 22 23 24 dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226 ;第一个偏移值是:A8H(168D) 25 26 dw 11542,14430,15257,17800 ;最后一个偏移值是:D2(210D) 27 28 ;以上是表示21年公司雇员人数的21个word型数据 29 30 dw 64 dup(?) ; 因为最后转换成字符串的空间不够,所以需要再多申请这么多空间 31 32 data ends 33 34 35 36 ; 栈段 37 stack segment 38 39 db 256 dup (?) 40 41 stack ends 42 43 44 ; 计算后的数据存放段 45 table segment 46 47 db 21 dup ('year sunm ne ?? ') 48 49 dw 32 dup(?) ; 因为最后转换成字符串的空间不够,所以需要再多申请这么多空间 50 51 table ends 52 53 54 55 ; 代码段 56 code segment 57 58 start: 59 60 ; 设置栈段地址 61 mov ax , stack 62 mov ss , ax 63 mov sp , 256 64 65 66 67 ; 计算数据段中的数据(计算人均收入,也就是收入除以雇员数) 68 mov ax , data 69 mov ds , ax 70 mov bx , 0 71 call Calculate 72 73 74 75 76 ; 循环,将双字节的数据的整型数转换成字符型 77 mov bx , 0 78 mov si , 0 ; 设置字符串输出的首地址 79 mov cx , 21 ; 设置循环次数 80 again: 81 ; 复制年份到ds段 82 mov ax , es:[ bx ] 83 mov ds:[ si ] , ax 84 mov ax , es:[ bx + 2 ] 85 mov ds:[ si + 2 ] , ax 86 mov word ptr ds:[ si + 4 ] , 0 ; 存入0,表示间隔 87 add bx , 5 ; 因为只需跳过一个空格,空格占一个字节,再加上前面读取的4个字节 88 add si , 6 89 90 91 mov ax , es:[ bx ] ; 获取公司总收入的dword型数据的低位 92 mov dx , es:[ bx + 2 ]; ; 获取公司总收入的dword型数据的高位 93 call dtoc ; 调用子程序,将dword型数据转换成数字符串型,放到ds:si指定的位置 94 add bx , 5 ; 跳过已经读取的字节再加上一个空格 95 inc si ; 如果去掉这个自增1,则存放他们之间的间隔0为一个字节,没有去掉这个自增就为一个字 96 97 mov ax , es:[ bx ] ; 获取公司雇员人数的word型数据 98 mov dx , 0 ; 因为是word型数据,所以高位不需要,为0 99 call dtoc ; 调用子程序,将dword型数据转换成数字符串型,放到ds:si指定的位置 100 add bx , 3 ; 跳过已经读取的字节再加上一个空格 101 inc si ; 如果去掉这个自增1,则存放他们之间的间隔0为一个字节,没有去掉这个自增就为一个字 102 103 mov ax , es:[ bx ] ; 获取公司雇员的人均收入 104 mov dx , 0 ; 因为是word型数据,所以高位不需要,为0 105 call dtoc ; 调用子程序,将dword型数据转换成数字符串型,放到ds:si指定的位置 106 add bx , 3 ; 跳过已经读取的字节再加上一个空格 107 inc si ; 如果去掉这个自增1,则存放他们之间的间隔0为一个字节,没有去掉这个自增就为一个字 108 109 loop again 110 111 112 113 ; 循环,用于显示所有的字符串 114 mov dh , 0 ; 第0行 115 mov dl , 2 ; 第2列 116 mov si , 0 ; 设置指向字符串首地址偏移量 117 mov cx , 22 ; 外循环共循环21次(因为第一次为了直接跳到循环处而一次性执行循环,所以需要多加一次循环) 118 119 jmp show_start ; 跳到开始出,以便能直接使用loop循环一次性输出 120 121 show_again1: 122 123 push cx ; 现场保护 124 mov cx , 4 ; 内循环共循环4次 125 126 show_again2: 127 128 push cx ; 因为CX还要用来设置颜色,所以还要保护 129 mov ch , 0 130 mov cl , 01h ; 设置颜色(蓝色) 131 call show_str 132 add si , 2 ; 加上间隔符,进行下一组字符串的输出 133 add dl , 10 ; 每输出一串字符列就空开几列 134 pop cx ; 恢复内循环的循环次数值 135 136 loop show_again2 137 138 add dh , 1 ; 输出完一组就要换下一行 139 mov dl , 2 ; 输出完一组列就要归位 140 pop cx ; 恢复外循环的循环次数值 141 show_start: 142 loop show_again1 143 144 145 146 ; 结束程序 147 mov ax , 4c00h 148 int 21h 149 150 151 152 ; 子程序 153 ; 计算数据段中的数据(计算平均收入,也就是收入除以雇员数) 154 ; 入口参数:ds:bx为待计算的数据段 155 ; 出口参数:计算好后的数据将放在table数据段中,也可以用 es:0 来直接获取这个table数据段的首地址 156 Calculate: 157 158 mov ax , table 159 mov es , ax ;设置要写入数据的段寄存器 160 161 mov bp , 0 ;设置table段的偏移地址 162 163 mov di , 0 ;设置雇员数每次增加的值(因为与其他值相比只有雇员数是2字节,所以要做特殊处理) 164 165 mov cx , 21 ;设置循环的值为21次 166 167 again_1: 168 169 mov ax , ds:[bx] ;复制年份的低字 170 mov es:[bp] , ax 171 172 mov ax , ds:[bx + 2] ;复制年份的高字 173 mov es:[bp + 2] , ax 174 175 176 177 mov ax , ds:0A8H.[di] ;复制雇员数(十进制168) 178 179 mov es:[bp + 0AH] , ax ;加10是因为复制了2个字节,而且写入的时候要输入一个空格, 180 ;并且这个位置是在复制了4个字节后的再加5个字节的位置 181 182 183 mov ax , ds:54H.[bx] ;复制收入的低字节(十进制84) 184 mov es:[bp + 5] , ax 185 186 mov dx , ds:54H.[bx + 2] ;复制收入的高字节(十进制84) 187 mov es:[bp + 7] , dx 188 189 190 191 div word ptr ds:0A8H.[di] ;因为除数是2个字节(16位)的,所以也用di(di每次循环增加2) 192 193 mov es:[bp + 0DH] , ax ;复制算好的人均收入 194 195 196 197 add bp , 16 ;进行下一组写入 198 199 add di , 2 ;用于计算雇员数的值加2,因为他一次值复制了2个字节 200 201 add bx , 4 ;复制了一次后要加上4字节,以便下一次读出和计算 202 203 loop again_1 204 205 ret ; Calculate子程序返回 206 207 208 209 210 ;参数: (ax) = dword型数据的低16位 211 ; (dx) = dword型数据的高16位 212 ; (cx) = 除数 213 ;返回: (dx) = 结果的高16位 214 ; (ax) = 结果的低16位 215 ; (cx) = 余数 216 divdw: ;子程序定义开始 217 218 push ax 219 220 mov ax,dx 221 222 mov dx,0 223 224 div cx 225 226 mov bx,ax 227 228 pop ax 229 230 div cx 231 232 mov cx,dx 233 234 mov dx,bx 235 236 ret ;子程序定义结束 237 238 239 240 241 ; 功能:将dword型数据转变为表示十进制数的字符,字符以0为结尾符 242 ; 参数:(ax) = dword型数据的低16位 243 ; (dx) = dword型数据的高16位 244 ; ds:si指向字符串的首地址 245 ; 返回:无 246 dtoc: push cx ; 保护现场 247 push bx ; 保护现场 248 push si ; 保存用来输出结果的字符串的首地址 249 250 mov byte ptr ds:[ si ] , 0 ;先写入结束符(写在首位,以便配合栈结构) 251 252 inc si 253 254 mov cx , 1 255 256 again_3:mov cx , 10 ; 做除数,每次都除以10,以便得到余数,从而求出每个位的值 257 258 call divdw ; 调用除法子程序,因为这个除法子程序可以防止数据溢出 259 260 add cl , 30H ;加上30H成为字符的ASCII码 261 262 mov ds:[ si ] , cl ;存入到指定的数据段 263 264 265 ; 判断商的低位和高位是否都为0如果都为0,则表示结束 266 mov cx , 0 267 or cx , ax 268 or cx , dx 269 270 jcxz ok1 271 272 inc si 273 inc cx ;因为loop会将cx减少1,所以要先加1 274 275 loop again_3 276 277 ok1: mov byte ptr ds:[ si + 1 ] , 0 ;尾部也写入结束符 278 279 pop si ; 取出用来输出结果的首地址 280 mov bx , si ; bx用来做最后的数据存入,所以也是为输出结果的首地址 281 282 mov al , ds:[ si ] ;从得到的第一个数据开始遍历 283 mov ah , 0 ;只要低位,高位归零 284 285 push ax ;结束符先入栈 286 287 ;把得出的字符倒过来,因为求余得到的数是倒着的 288 again_4:inc si 289 290 mov al , ds:[ si ] 291 mov ah , 0 ;只要低位,高位归零 292 293 mov cx , ax 294 295 jcxz ok2 ;已经全部临时存入栈中 296 297 push ax 298 299 inc cx ;因为loop会将cx减少1,所以要先加1 300 301 loop again_4 302 303 ok2: pop cx ;从栈中取出,正好实现倒叙 304 305 mov ds:[ bx ] , cl ;只要低位,高位归零 306 307 jcxz return 308 309 inc bx 310 inc cx ;因为loop会将cx减少1,所以要先加1 311 312 loop ok2 313 314 return: pop bx ; 恢复现场 315 pop cx ; 恢复现场 316 ret ; 返回 317 318 319 320 321 ;子程序 322 ;功能:在指定的位置 , 用指定的颜色 , 显示一个用0结束的字符串 323 ;参数:(dh) = 行号(取值范围0~24) , (dl) = 列号(取值范围0~79) 324 ; (cl) = 颜色 , ds:si指向字符串首地址 325 show_str: 326 327 push dx ; 现场保护 328 329 mov ax , 000ah ;转换成行需要乘以a(10) 330 mul dh ;计算写入位置的行 331 add ax , 0b800h ;B800是起始位置,所以加上规定的行数 332 333 334 add dl , dl ;计算写入位置的列 335 mov dh , 0 336 337 338 mov es , ax ;设置写入位置的寄存器 339 mov di , dx 340 341 mov al , cl ;保存颜色 342 343 344 mov cx , 2 345 jmp first_start 346 again_2: 347 348 mov cl , ds:[si] ;获取要显示的数据 349 mov ch , 0 ;不需要高位 350 jcxz ok ;如果是0则返回(结束这个子程序) 351 352 mov es:[di] , cl ;将字符写入 353 mov es:[di + 1] , al ;写入颜色 354 add di , 2 ;指向下一个要写入的位置 355 inc si ;指向下一个要读取字符的位置 356 mov cl , 2 ;again循环每次都成立 357 first_start: 358 loop again_2 359 ok: pop dx ; 恢复 360 ret ;返回(结束)这个子程序 361 362 363 code ends 364 365 366 end start