star01.asm

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

code    segment
        org     100h
        assume  cs:code,ds:code
Start:  push    cs
        pop     ds

        mov     ax,0a000h
        mov     es,ax

        mov     ax,0013h
        int     10h
Rep00:  mov     dl,31

Rep01:  call    flash
        dec     dl
        cmp     dl,16
        jnz     rep01
rep02:  call    flash
        inc     dl
        cmp     dl,31
        jnz     rep02

        push    ax
        mov     ah,01h
        int     16h
        pop     ax
        jz      rep01

        mov     ax,0003h
        int     10h

        mov     ah,4ch
        int     21h

flash   proc    near
        mov     bx,320*100+160
        xor     di,di
        xor     si,si
        mov     cx,20
        mov     ah,dl
Rep000:
        mov     al,ah
        cmp     ah,16
        jb      l1
        jmp     next
l1:     xor     al,al
next:   Dec     ah
        call    draw
        call    draw
        loop    rep000

        mov     cx,1
delay0: push    cx
        mov     cx,0ffffh
delay:  loop    delay
        pop     cx
        loop    delay0
        ret
flash   endp

draw    proc    near
        call    point
        call    point
        inc     di
        add     si,320
        ret
draw    endp

Point   proc    near
        mov     es:[bx+di],al
        neg     di
        sub     bx,di
        mov     es:[bx+si],al
        add     bx,di
        mov     es:[bx+si],al
        add     bx,di
        mov     es:[bx+si],al
        sub     bx,di
        neg     si
        ret
Point   endp

code    ends
        end     Start