OUT DX,AL CALL DELAY retf
midelay: mov dx,0E820h ;timer0 set mov al,00H out dx,al
MOV DX,0E800H MOV AL,0F1H OUT DX,AL
jmp mi
singmi endp
singfa proc far fa:
mov dx,0e8e0h; in al,dx;
test al,02h jz fadelay mov dx,0E820h mov al,5EH out dx,al
MOV DX,0E800H ;mi ;led show ;\;音阶fa的发声及显示子程序 ;test stop or not ;stop ;timer0 set ;fa ;led show
26
MOV AL,39H ;\ OUT DX,AL CALL DELAY
retf
fadelay: mov dx,0E820h mov al,00H out dx,al
MOV DX,0E800H MOV AL,39H OUT DX,AL
jmp fa
singfa endp
singso proc far so:
mov dx,0e8e0h; in al,dx;
test al,02h jz sodelay mov dx,0E820h mov al,53h
out dx,al
;timer0 set ;fa ;led show ;\;音阶so的发声及显示子程序 ;test stop or not ;stop ;timer0 set ;so 27
MOV DX,0E800H ;led show MOV AL,0D9H ;\ OUT DX,AL CALL DELAY
retf
sodelay: mov dx,0E820h mov al,00h out dx,al
MOV DX,0E800H MOV AL,0D9H OUT DX,AL
jmp so
singso endp
singla proc far la:
mov dx,0e8e0h; in al,dx;
test al,02h jz radelay mov dx,0E820h
mov al,4BH ;timer0 set ;so ;led show ;\;音阶la的发声及显示子程序;test stop or not ;stop
;timer0 set ;la
28
out dx,al
MOV DX,0E800H ;led show MOV AL,0DDH ;\OUT DX,AL CALL DELAY
retf
radelay: mov dx,0E820h mov al,00H out dx,al
MOV DX,0E800H MOV AL,0DDH OUT DX,AL
jmp la
singla endp
singti proc far ti:
mov dx,0e8e0h; in al,dx;
test al,02h jz xidelay mov dx,0E820h ;timer0 set ;la ;led show ;\ ; 音阶ti的发声及显示子程序 ;test stop or not ;stop ;timer0 set
29
mov al,43H ;ti out dx,al
MOV DX,0E800H ;led show MOV AL,61H ;\ OUT DX,AL CALL DELAY
retf
xidelay: mov dx,0E820h mov al,00H out dx,al
MOV DX,0E800H MOV AL,61H OUT DX,AL
jmp ti
singti endp
singdo2 proc far do2:
mov dx,0e8e0h; in al,dx;
test al,02h ;timer0 set ;ti ;led show ;\;音阶高音do的发声及显示子程序 ;test stop or not
30