KEYVAL EQU 30H
LED EQU 31H
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
MOV LED,#0FEH
JB KEY,LP
LCALL DELAY
JB KEY,LP
INC KEYVAL
LP:
MOV A,KEYVAL
CJNE A,#2,LP1
LP1:
JC LP2
MOV KEYVAL,#0
CLR A
LP2:
JNZ LP3
MOV A,LED
MOV P0,A
RL A
MOV LED,A
LCALL DELAY
LCALL DELAY
SJMP MAIN
LP3:
DEC A
JNZ LP4
MOV A,LED
MOV P0,A
RR A
MOV LED,A
LCALL DELAY
LCALL DELAY
LP4:
LJMP MAIN
DELAY:
MOV R2,#60
DELAY1:
MOV R3,#250
DJNZ R3,$
DJNZ R2,DELAY1
RET
END