实验10第3题

BellXu

1. ASSUME CS:CODES,DS:DATAS,SS:STACKS
   
2. DATAS SEGMENT
   
3.     DW 123,12666,1,8,3,38
   
4. DATAS ENDS
   
5. 
   
6. STACKS SEGMENT
   
7.     DW 200 DUP(0)
   
8. STACKS ENDS
   
9. 
   
10. CODES SEGMENT
    
11.     START:
    
12.             MOV AX,DATAS
    
13.             MOV DS,AX
    
14.             MOV AX,STACKS
    
15.             MOV SS,AX
    
16.             MOV SP,0
    
17.             MOV SI,0
    
18.             MOV DI,0
    
19.             MOV AX,0B800H
    
20.             MOV ES,AX
    
21.             MOV BX,10        ;历次除数
    
22.             MOV CX,6        ;显示6个数串。题中要求用JCXZ,但模板并未在data中加0？
    
23.             XOR DX,DX
    
24. L:        MOV AX,DS:WORD PTR [SI]
    
25.           PUSH CX        ;保护CX，子程序中有用。
    
26.         XOR CX,CX
    
27.             CALL DTOC
    
28.             POP CX        ;还原CX
    
29.             ADD SI,2
    
30.             LOOP L
    
31.             MOV AH,4CH
    
32.             INT 21H
    
33. DTOC:
    
34.         DIV BX
    
35.         ADD DX,30H
    
36.         PUSH DX        ;余数堆栈，得以“倒叙”显示
    
37.         XOR DX,DX
    
38.         INC CX
    
39.         CMP AX,0
    
40.         JZ SHOW        ;被除数为0则开始显示
    
41.         JMP DTOC
    
42. SHOW:       
    
43.         POP AX
    
44.         MOV ES:BYTE PTR [DI],AL
    
45.         INC DI
    
46.         MOV ES:BYTE PTR [DI],07        ;注意显存每个字符占一字节，07是默认黑底白字体
    
47.         INC DI
    
48.         LOOP SHOW
    
49.         MOV ES:BYTE PTR [DI],32        ;每个数串间加空格
    
50.         INC DI
    
51.         MOV ES:BYTE PTR [DI],07
    
52.         INC DI
    
53.         RET
    
54. CODES ENDS
    
55.     END START

复制代码

自觉冗长可简化，欢迎讨论交流