exchang.asm

编的不好

stack         SEGMENT
        DW    100h   DUP (?)
stack         ENDS
;************************************
data          segment
buff3     db      5 dup (?)
data         ends
;***********************************
code         segment 
            assume  ss:stack,ds:data,es:data
 
main        proc      far
            mov      ax,data
            mov      ds,ax
            mov      es,ax

            mov      ax,84h
            call     chang1


exit:      mov       ax,4c00h
           int       21h 
           retf
main       endp
;*******************************
chang1     proc       near
           push       ax
           push       bx
           push       dx
           
           mov       di,offset buff3+4
       ;    cmp       al,'u'
       ;    jne       t6           
        ;   sub       count1,25
        ;   mov       count2,0
; t6:       mov       ax,count1 
           mov       cx,5
p2:        xor       dx,dx
           mov       bx, 10
           div       bx
           or        dl ,30h
           mov       byte ptr [di],dl
           dec       di
           loop      p2
           
           mov       cx ,5
           mov       bx,offset buff3
p5:        mov       dl,[bx]       
           cmp       cx,5
           je        p6
           cmp       cx,4
           je        a2
           cmp       cx,3
           je        a7
           cmp       cx,2
           je        a8
           cmp       cx,1
           je        a9
           jmp       a3
a1:        mov      al,[bx-4]
           cmp      al,30h
           jne      p9
a4:        mov      al,[bx-3]
           cmp      al,30h
           jne      p9
a5:        mov      al,[bx-2]
           cmp      al,30h
           jne      p9
a6:        mov       al,[bx-1]
           cmp       al,30h 
           jne       p9
           jmp       p4
a2:        cmp       dl,30h
           je        a6 
           jmp       p9 
a7:        cmp       dl,30h
           je        a5
           jmp       p9
a8:        cmp       dl,30h
           je        a4
           jmp       p9
a9:        cmp       dl,30h
           jne       p9
           mov       al,[bx-4]
           cmp       al,30h
           jne       p9
           mov       al,[bx-3]
           cmp       al,30h
           jne       p9
           mov       al,[bx-2]
           cmp       al,30h
           jne       p9
           mov       al,[bx-1]
           cmp       al,30h 
           jmp        p9
p6:        cmp       dl,30h
           je        p4           
           
p9:        mov       ah,02h
           int       21h
           jmp       p4
;p8:        mov       dl,' '
      ;     mov       ah,02h 
        ;   int       21h
p4:        inc       bx
           dec       cx
           cmp       cx,0
           je        a3
           jmp       p5
         ;  inc       count2
          ; cmp       count2,23
          ; jbe       t6
         ;  inc       count1
a3:        pop       dx
           pop       bx
           pop       ax
           retn 
chang1     endp
;****************************************  
code       ends
           end       main