درخواست برنامه اسمبلی(پیانو یا یک آهنگ)

سلام اینم برنامه پیانو با اسمبلی با ماکرو

music macro degree
mov al,0b6h
out 43h,al

mov ah,degree
mov al,degree
out 42h,al
mov al,ah
out 42h,al
push ax
or al,00000011b
out 61h,al

mov ax,0
mov cx,0aa00h
a: in al,61h
and al,10h
cmp al,ah
je a
mov ah,al
loop a
pop ax
and al,11111100b
out 61h,al
endm
stksg segment stack
dw 32 dup(0)
stksg ends
datasg segment para 'data'
delay db ?
datasg ends
codesg segment 'code'
assume ds:datasg,cs:codesg,ss:stksg
main proc near

mov AX,datasg
mov DS,AX
mov bx,06h
L1: mov ah,10h
int 16h
mov delay,al
cmp delay,27
je Finish
music delay
jmp L1
finish: mov ax,4c00h
int 21h
main endp
codesg ends
end main