Page 205 -

ACALL DELAY2
MOV P1,#C0H ;0
MOV P2,#00H
MOV R5,#04H
ACALL DELAY2
AJMP AGAIN
;----------------------
DELAY1: MOV R6,#FAH
DE1: MOV R7,#FAH
DE2: DJNZ R7,DE2
JNB P0.3,STOP
DJNZ R6,DE1
JNB P0.3,STOP
DJNZ R5,DELAY1
JNB P0.3,STOP
RET
;-----------------------
STOP: AJMP BEGIN
;-----------------------
DELAY2: MOV R6,#FAH
DE11: MOV R7,#FAH
DE22: DJNZ R7,DE22
JNB P0.3,STOP
JNB P0.2,STOP
DJNZ R6,DE11
JNB P0.3,STOP
JNB P0.2,STOP
DJNZ R5,DELAY2
JNB P0.3,STOP
JNB P0.2,STOP
RET
;------------------------
END