Page 208 -

MOV P2,#03H
MOV R5,#08H
ACALL DELAY1
MOV P1,#F9H ;1
MOV P2,#01H
MOV R5,#10H
ACALL DELAY1
AJMP BEGIN
;----------------------
DELAY1: MOV R6,#FAH
DE1: MOV R7,#FAH
DE2: DJNZ R7,DE2
DJNZ R6,DE1
DJNZ R5,DELAY1
RET
;-----------------------
STOP: AJMP BEGIN
;-----------------------
DELAY2: MOV R6,#60H
DE11: MOV R7,#60H
DE22: DJNZ R7,DE22
DJNZ R6,DE11
DJNZ R5,DELAY2
RET
;------------------------
END