axin020.asm

这个源代码是可运行的。

                     .model small
                     .stack 200 
                     .data
dut                  db '0'
count                db 'Pleace input number(0~6)','$'  
                     .code
                     .startup
                     mov ah,0
                     mov al,2
                     int 10h
                     mov ah,15
                     int 10h
                     mov si,bx
                     mov ah,2
                     mov dx,0101h
                     int 10h
                     mov ah,9
Wxin1:               mov al,'*'
                     mov bl,7
                     mov cx,10
                     int 10h
                     inc bh     
                     mov al,'*'
                     mov cx,1
                     call play
                     inc dl
                     mov al,dut
                     mov cx,8
                     call play
                     mov dl,10
                     mov al,'*'
                     mov cx,1
                     call play
                     inc dut
                     mov dl,1
                     cmp dut,'6'
                     jne Wxin1
                     inc dh
                     mov al,'*'
                     mov cx,10
                     call play
                     call music
                     mov ah,6
                     mov bh,7
                     mov cx,0202h
                     mov dx,0809h
                     int 10h
                     .exit 0
play                 proc
                     mov bx,si
                     push ax
                     mov ah,2
                     int 10h 
                     pop ax
                     mov ah,10
                     int 10
                     ret
play                 endp
music                proc
                     mov ah,9
                     lea dx,dut
                     int 21h
                     mov ah,1
                     int 21h
                     sub al,30h
                     ret
music                endp
                     
                     end