Jak zaprogramować generowanie tonów na uC 8051 w asemblerze?

while(1){
PIN  = !PIN;
delay_us(1000);
}

	BUZZER	EQU P1.5
	COUNT	EQU R0
	
	LJMP	START
	ORG	100H
	
START:	
	LCALL A1	;pierwszy ton
	MOV A, #01	;przerwa
	LCALL DELAY_100MS
	
	LCALL C2	;drugi ton
	MOV A, #01	
	LCALL DELAY_100MS
	
	LCALL E2	;trzeci ton
	MOV A, #02	
	LCALL DELAY_100MS
	
	LJMP START	;powtorka

A1:	
	MOV 	COUNT,#154 ;ILOSC ITERACJI
	
	CPL 	BUZZER
	MOV	TH0, #251 ;STARSZY BAJT (251 * 256 = 64,256)
	MOV	TL0, #233 ;MŁODSZY BAJT (64,256 + 233 = 64,489)
	LCALL 	WAIT
	
	CPL 	BUZZER
	MOV	TH0, #251 
	MOV	TL0, #233
	LCALL 	WAIT	

	DJNZ	COUNT, A1 ;KOLEJNA ITERACJA
	
	RET

	
C2:	
	MOV 	COUNT,#183
	
	CPL 	BUZZER
	MOV	TH0, #252
	MOV	TL0, #143 
	LCALL 	WAIT
	
	CPL 	BUZZER
	MOV	TH0, #252 
	MOV	TL0, #143
	LCALL 	WAIT	

	DJNZ	COUNT, C2
	
	RET
	
E2:	
	MOV 	COUNT,#231
	
	CPL 	BUZZER
	MOV	TH0, #253
	MOV	TL0, #69 
	LCALL 	WAIT
	
	CPL 	BUZZER
	MOV	TH0, #253 
	MOV	TL0, #69
	LCALL 	WAIT	

	DJNZ	COUNT, E2
	
	RET			

WAIT:	
	MOV	TMOD,#01 ;USTAWIA TIMER 0 NA TRYB 16 BITOWY
	SETB	TR0	 ;URUCHAMIA TIMER 0
	JNB	TF0, $	 ;JESLI TIMER 0 NIE PRZEPELNIL SIE, CZEKA
	CLR	TR0	 ;ZATRZYMUJE TIMER 0
	RET