ORG 00


DELAY_MELODI EQU 40
TEMPO_MELODI EQU 41


MOV DELAY_MELODI ,#3
MOV TEMPO_MELODI,#4

STP:
LCALL RING_TONE
...
...





DO6:
MOV R0,#0FEH
MOV R1,#48H
MOV R2,#52
LCALL PLAY
RET

DO6_DIZ:
MOV R0,#0FEH
MOV R1,#60H
MOV R2,#55
LCALL PLAY
RET

RE6:
MOV R0,#0FEH
MOV R1,#78H
MOV R2,#59
LCALL PLAY
RET

RE6_DIZ:
MOV R0,#0FEH
MOV R1,#8EH
MOV R2,#62
LCALL PLAY
RET

MI6:
MOV R0,#0FEH
MOV R1,#0A3H
MOV R2,#66
LCALL PLAY
RET

FA6:
MOV R0,#0FEH
MOV R1,#0B6H
MOV R2,#70
LCALL PLAY
RET

FA6_DIZ:
MOV R0,#0FEH
MOV R1,#0C9H
MOV R2,#74
LCALL PLAY
RET

SOL6:
MOV R0,#0FEH
MOV R1,#0DAH
MOV R2,#78
LCALL PLAY
RET

SOL6_DIZ:
MOV R0,#0FEH
MOV R1,#0EBH
MOV R2,#83
LCALL PLAY
RET

LA6:
MOV R0,#0FEH
MOV R1,#0FAH
MOV R2,#88
LCALL PLAY
RET

LA6_DIZ:
MOV R0,#0FFH
MOV R1,#09H
MOV R2,#93
LCALL PLAY
RET

SI6:
MOV R0,#0FFH
MOV R1,#17H
MOV R2,#99
LCALL PLAY
RET

DO7:
MOV R0,#0FFH
MOV R1,#24H
MOV R2,#105
LCALL PLAY
RET

DO7_DIZ:
MOV R0,#0FFH
MOV R1,#30H
MOV R2,#111
LCALL PLAY
RET

RE7:
MOV R0,#0FFH
MOV R1,#3CH
MOV R2,#118
LCALL PLAY
RET

RE7_DIZ:
MOV R0,#0FFH
MOV R1,#47H
MOV R2,#124
LCALL PLAY
RET

MI7:
MOV R0,#0FFH
MOV R1,#51H
MOV R2,#132
LCALL PLAY
RET

FA7:
MOV R0,#0FFH
MOV R1,#5BH
MOV R2,#140
LCALL PLAY
RET

FA7_DIZ:
MOV R0,#0FFH
MOV R1,#64H
MOV R2,#148
LCALL PLAY
RET

SOL7:
MOV R0,#0FFH
MOV R1,#6DH
MOV R2,#157
LCALL PLAY
RET

SOL7_DIZ:
MOV R0,#0FFH
MOV R1,#75H
MOV R2,#166
LCALL PLAY
RET

LA7:
MOV R0,#0FFH
MOV R1,#7DH
MOV R2,#175 ;**
LCALL PLAY
RET

LA7_DIZ:
MOV R0,#0FFH
MOV R1,#84H
MOV R2,#186
LCALL PLAY
RET

SI7:
MOV R0,#0FFH
MOV R1,#8BH
MOV R2,#198
LCALL PLAY
RET

PLAY:
PUSH 0
PUSH 1
PUSH 2
PUSH 3
PUSH 4
PUSH 5
PUSH 6
PUSH 7


MOV R3,#1
MOV R4,#DELAY_MELODI
MOV 06H,03H
PLAY0:
MOV 05H,02H
PLAY1:
MOV R7,#TEMPO_MELODI
CPL P2.1
PLAY2:
MOV A,R0
MOV TH0,A
MOV A,R1
MOV TL0,A
SETB TR0
FRQ:
JNB TF0,FRQ
CLR TR0
CLR TF0
DJNZ R7,PLAY2
DJNZ R2,PLAY1
MOV 02H,05H
DJNZ R3,PLAY0
MOV 03H,06H
DJNZ R4,PLAY0

POP 7
POP 6
POP 5
POP 4
POP 3
POP 2
POP 1
POP 0
SETB P2.1
RET



RING_TONE:
LCALL MI7
LCALL RE7
LCALL FA6_DIZ
LCALL FA6_DIZ
LCALL SOL6_DIZ
LCALL SOL6_DIZ
LCALL DO7_DIZ
LCALL SI6
LCALL RE6
LCALL RE6
LCALL MI6
LCALL MI6
LCALL SI6
LCALL LA6
LCALL DO6_DIZ
LCALL DO6_DIZ
LCALL MI6
LCALL MI6
LCALL LA6
LCALL LA6
LCALL LA6
LCALL LA6
RET

MELODI:
LCALL MI7
LCALL RE7_DIZ
LCALL MI7
LCALL RE7_DIZ
LCALL MI7
LCALL SI6
LCALL RE7
LCALL DO7
LCALL LA6
LCALL LA6
LCALL DO6
LCALL MI6
LCALL LA6
LCALL SI6
LCALL SI6
LCALL MI6
LCALL SOL6_DIZ
LCALL SI6
LCALL DO7
LCALL DO7
LCALL MI6
LCALL MI7
LCALL RE7_DIZ
LCALL MI7
LCALL RE7_DIZ
LCALL MI7
LCALL SI6
LCALL RE7
LCALL DO7
LCALL LA6
LCALL LA6
LCALL DO6
LCALL MI6
LCALL LA6
LCALL SI6
LCALL SI6
LCALL MI6
LCALL DO7
LCALL SI6
LCALL LA6
LCALL LA6
RET