实验 14 源代码

小马过河

assume cs:dmd
dmd segment
 cxks:   mov dx,0b800h
             mov es,dx
                 mov di,160*2+30*2
         mov al,9
         mov ah,0                                
         mov cx,6
     s1:  
         push ax  
                 push cx 
                  call zcxd
             mov es:[di],ah
             mov es:[di+2],al
                 pop cx
                 cmp cx,4                 
                 je tgd   ;查看是否等于4若等于则空格
                 
                  cmp cx,1
                  je tgd   ;换换查看是否等于1若等于则空格
                  
             cmp cx,4                 
                 ja sss    ;高于4时转移
                 
                 cmp cx,4
                 jb ss2   ;低于4时跳
        sss: mov byte ptr es:[di+4],'\'
                 jmp tgd
        ss2: mov byte ptr es:[di+4],':'         
 tgd: add di ,6
         pop ax
         cmp cx,4   ;等于4也就是第三次时跳
         je ss4
         
         jmp ss5
ss4: dec ax    ;等于4也就是第三次时ax-1

ss5: cmp cx,4
         ja ss3    ;大于4时跳
         
         dec ax        
ss3: dec ax         
         loop s1
         jmp  gb
zcxd:out 70h,al
         in   al,71h
     mov ah,al
         mov cl,4
         shr ah,cl
         add ah,30h
         and al,00001111b
         add al,30h 
         ret                         
  gb:nop
         mov ax,4c00h
         int 21h
         dmd ends
         end cxks

如可优化 望高手指正