小马过河 发表于 2012-1-28 12:02:40

实验 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:,ah
             mov es:,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:,'\'
               jmp tgd
        ss2: mov byte ptr es:,':'       
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
       jmpgb
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如可优化 望高手指正
页: [1]
查看完整版本: 实验 14 源代码