;
$DATE (10.12.2020)
$TITLE (LED Blink )
$PAGELENGTH(56)
$PAGEWIDTH(150)
$DEBUG
$XREF
$NOLIST
$MOD51
$LIST
;

LED  EQU P1.0

ORG  0000H
	 LJMP START

	ORG 0100H
START:
	; LED aus
	CLR LED
LOOP:
	CLR LED
	LCALL TIME
	SETB LED
	LCALL TIME
 	JMP LOOP

;  Verzoegerungszeit 2 Sekunden
TIME:
        PUSH ACC
        PUSH   PSW
        MOV    (52H),#10H         ; Verzoegerungszeit = 2 Sekunden
TIME3:  MOV    (51H),#0FFH
TIME2:  MOV    (50H),#0FFH
TIME1:  DJNZ   (50H),TIME1
        DJNZ   (51H),TIME2
        DJNZ   (52H),TIME3
        POP    PSW
        POP    ACC
        RET

END