实验 14 源代码

小马过河

1. assume cs:dmd
   
2. dmd segment
   
3. cxks:   mov dx,0b800h
   
4.              mov es,dx
   
5.                  mov di,160*2+30*2
   
6.          mov al,9
   
7.          mov ah,0                               
   
8.          mov cx,6
   
9.      s1:  
   
10.          push ax  
    
11.                  push cx
    
12.                   call zcxd
    
13.              mov es:[di],ah
    
14.              mov es:[di+2],al
    
15.                  pop cx
    
16.                  cmp cx,4                 
    
17.                  je tgd   ;查看是否等于4若等于则空格
    
18.                  
    
19.                   cmp cx,1
    
20.                   je tgd   ;换换查看是否等于1若等于则空格
    
21.                   
    
22.              cmp cx,4                 
    
23.                  ja sss    ;高于4时转移
    
24.                  
    
25.                  cmp cx,4
    
26.                  jb ss2   ;低于4时跳
    
27.         sss: mov byte ptr es:[di+4],'\'
    
28.                  jmp tgd
    
29.         ss2: mov byte ptr es:[di+4],':'         
    
30. tgd: add di ,6
    
31.          pop ax
    
32.          cmp cx,4   ;等于4也就是第三次时跳
    
33.          je ss4
    
34.          
    
35.          jmp ss5
    
36. ss4: dec ax    ;等于4也就是第三次时ax-1
    
37. 
    
38. ss5: cmp cx,4
    
39.          ja ss3    ;大于4时跳
    
40.          
    
41.          dec ax       
    
42. ss3: dec ax         
    
43.          loop s1
    
44.          jmp  gb
    
45. zcxd:out 70h,al
    
46.          in   al,71h
    
47.      mov ah,al
    
48.          mov cl,4
    
49.          shr ah,cl
    
50.          add ah,30h
    
51.          and al,00001111b
    
52.          add al,30h
    
53.          ret                        
    
54.   gb:nop
    
55.          mov ax,4c00h
    
56.          int 21h
    
57.          dmd ends
    
58.          end cxks

复制代码

如可优化 望高手指正