没有用堆栈的实验9

BellXu

利用BX做了内循环……自鸣得意中 ^^
看了很多解答，觉得偏移地址和电脑屏幕比例有关，自行修改数据段中PY即可。

1. ASSUME CS:CODE,DS:DATA
   
2. 
   
3. DATA SEGMENT
   
4.         PY DW 680H,7C0H,900H
   
5.         SR DB 'welcome to masm!'
   
6.         BG DB 2,24H,71H
   
7. DATA ENDS
   
8. 
   
9. CODE SEGMENT
   
10. START: MOV AX,DATA
    
11.                 MOV DS,AX
    
12.                 MOV AX,0B800H
    
13.                 MOV ES,AX
    
14.                 MOV SI,0
    
15.                 MOV DI,0
    
16.                 MOV CX,16
    
17.                 MOV BX,4                                        ;计数三次显示串&同时负责切换行（自下而上）
    
18. STRING:MOV AL,BYTE PTR SR[DI]
    
19.                 MOV BP,WORD PTR PY[BX]
    
20.         MOV ES:BYTE PTR[BP+SI],AL
    
21.                 ADD SI,2
    
22.                 INC DI
    
23.                 LOOP STRING
    
24.                 MOV CX,16
    
25.                 MOV SI,0
    
26.                 MOV DI,0
    
27.                 SUB BX,2
    
28.                 JNC STRING
    
29.             MOV BX,4
    
30.                  MOV CX,16
    
31.                 MOV SI,0
    
32.                 MOV DI,2
    
33. BACKGD:INC SI                                                ;显示背景属性
    
34.                 MOV AL,BYTE PTR BG[DI]
    
35.                 MOV BP,WORD PTR PY[BX]
    
36.                  MOV ES:BYTE PTR [BP+SI],AL
    
37.                  INC SI
    
38.                  LOOP BACKGD
    
39.                  MOV CX,16
    
40.                  MOV SI,0
    
41.                  DEC DI
    
42.                  SUB BX,2
    
43.                  JNC BACKGD                
    
44.                  MOV AX,4C00H
    
45.                  INT 21H
    
46. CODE ENDS
    
47. END START

复制代码