Org	*
	.data
Counter_5ms	Ds	1		;Jumlah delay 5mS yg terjadi

	.CODE
	Org	*
************
* Delay 5 mS sebanyak 200 x

Delay_1detik:
	Mov	Counter_5mS,#0200		

Tunggu_1detik:
	Acall	Delay_5mS
	Djnz	Counter_5mS,Tunggu_1detik
	Ret
	
***********
* Delay 5 mS sebanyak 100 x

Delay_500mS:
	Mov	Counter_5mS,#0100

Tunggu_500mS:
	Acall	Delay_5mS
	Djnz	Counter_5mS,Tunggu_500mS
	Ret

************
* Delay 5 mS sebanyak 20 x

Delay_100mS:
	Mov	Counter_5mS,#020

Tunggu_100mS:
	Acall	Delay_5mS
	Djnz	Counter_5mS,Tunggu_100mS
	Ret

************
* Delay 5 mS sebanyak 15 x

Delay_75mS:
	Mov	Counter_5mS,#015

Tunggu_75mS:
	Acall	Delay_5mS
	Djnz	Counter_5mS,Tunggu_75mS
	Ret

**************
* Delay ini bekerja hanya pada crystal 11.0592 MHz

Delay_5mS
	Push	TMOD
	Mov	TMOD,#21H		;Timer Mode 16 bit counter
	Mov	TH0,#0EDH
	Mov	TL0,#0FFH
	Setb	TR0

Tunggu_5mS:
	Jbc	TF0,Sudah_5mS
	Ajmp	Tunggu_5mS	

Sudah_5mS:
	Clr	TR0
	Pop	TMOD
	Ret