trance.asm

独孤剑客 ASM Source Code 1998-2001 for DOS

code    segment
        org     100h
        assume  cs:code
Start:  mov     ax,0b800h
        mov     ds,ax

        mov     al,32
Again3: mov     ah,33
Again4: mov     cx,80*24
        mov     di,80*2*24-2
        mov     bl,1
Again:  cmp     ah,[di]
        jnz     Next
        cmp     [di+160],al
        jnz     Next
        mov     [di],al
        mov     [di+160],ah
        xor     bl,bl
        call    Delay
Next:   dec     di
        dec     di
        loop    Again
        cmp     bl,0
        jz      Again4
        inc     ah
        jnz     Again4
        call    Delay
        jmp     Again3

Delay   proc    near
        push    ax
        push    bx
        push    cx
        push    dx
        mov     ah,86h
        xor     cx,cx
        mov     dx,07fffh
        int     15h
        mov     ah,01h
        int     16h
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        jz      Exit_d
        mov     ah,4ch
        int     21h
Exit_d: ret
Delay   endp

code    ends
        end     Start