.ORG 0H
JMP MAIN
.ORG 100H

MAIN: CLR P2.5
CLR P2.6
MOV A,#38H
CALL STROBE
MOV A,#0CH
CALL STROBE
MOV A,#06H
CALL STROBE
MOV A,#01H
CALL STROBE
MOV A,#02H
CALL STROBE
SETB P2.5

MOV R1, #00H
MOV DPTR, #300H
LJMP NEXT0

GET00: MOV P1, #0FFH
MOV A, P1
ANL A, #00000011B
CJNE A, #00H, GET00

DIRECTION: MOV A, P1
ANL A, #00000011B
CJNE A, #01H,CW
CW: INC R1
CJNE R1, #01H,TWO
LCALL DISPLAY
MOV DPTR, #310H
LJMP NEXT1

TWO: CJNE R1, #02H, THREE
LCALL DISPLAY
MOV DPTR, #320H
LJMP NEXT2

THREE: CJNE R1, #03H, FOUR
LCALL DISPLAY
MOV DPTR, #330H
LJMP NEXT3

FOUR: CJNE R1, #04H, FIVE
LCALL DISPLAY
MOV DPTR, #340H
LJMP NEXT4

FIVE: CJNE R1, #05H, SIX
LCALL DISPLAY
MOV DPTR, #350H
LJMP NEXT5

SIX: CJNE R1, #06H, SEVEN
LCALL DISPLAY
MOV DPTR, #360H
LJMP NEXT6

SEVEN: CJNE R1, #07H, EIGHT
LCALL DISPLAY
MOV DPTR, #370H
LJMP NEXT7

EIGHT: CJNE R1, #08H, NINE
LCALL DISPLAY
MOV DPTR, #380H
LJMP NEXT8

NINE: LCALL DISPLAY
MOV DPTR, #390H
LJMP NEXT9

NEXT0: CLR A
MOVC A, @A+DPTR
CJNE A, #0DH, B0
LJMP GET00
B0: LJMP LOOP0

NEXT1: CLR A
MOVC A, @A+DPTR
CJNE A, #1DH, B1
LJMP GET00
B1: LJMP LOOP1

NEXT2: CLR A
MOVC A, @A+DPTR
CJNE A, #2DH, B2
LJMP GET00
B2: LJMP LOOP2

NEXT3: CLR A
MOVC A, @A+DPTR
CJNE A, #3DH, B3
LJMP GET00
B3: LJMP LOOP3

NEXT4: CLR A
MOVC A, @A+DPTR
CJNE A, #4DH, B4
LJMP GET00
B4: LJMP LOOP4


NEXT5: CLR A
MOVC A, @A+DPTR
CJNE A, #5DH, B5
LJMP GET00
B5: LJMP LOOP5


NEXT6: CLR A
MOVC A, @A+DPTR
CJNE A, #6DH, B6
LJMP GET00
B6: LJMP LOOP6


NEXT7: CLR A
MOVC A, @A+DPTR
CJNE A, #7DH, B7
LJMP GET00
B7: LJMP LOOP7


NEXT8: CLR A
MOVC A, @A+DPTR
CJNE A, #8DH, B8
LJMP GET00
B8: LJMP LOOP8


NEXT9: CLR A
MOVC A, @A+DPTR
CJNE A, #9DH, B9
LJMP GET00
B9: LJMP LOOP9


LOOP0: LCALL STROBE
INC DPTR
LJMP NEXT0

LOOP1: LCALL STROBE
INC DPTR
LJMP NEXT1

LOOP2: LCALL STROBE
INC DPTR
LJMP NEXT2

LOOP3: LCALL STROBE
INC DPTR
LJMP NEXT3

LOOP4: LCALL STROBE
INC DPTR
LJMP NEXT4

LOOP5: LCALL STROBE
INC DPTR
LJMP NEXT5

LOOP6: LCALL STROBE
INC DPTR
LJMP NEXT6

LOOP7: LCALL STROBE
INC DPTR
LJMP NEXT7

LOOP8: LCALL STROBE
INC DPTR
LJMP NEXT8

LOOP9: LCALL STROBE
INC DPTR
LJMP NEXT9

STROBE: SETB P2.7
MOV P0, A
CALL DELAY
CLR P2.7
RET

DISPLAY: CLR P2.5
CLR P2.6
MOV A,#38H
LCALL STROBE
MOV A,#0CH
LCALL STROBE
MOV A,#06H
LCALL STROBE
MOV A,#01H
LCALL STROBE
MOV A,#02H
LCALL STROBE
SETB P2.5

DELAY: MOV R2, #10H
AA: MOV R3, #55H
BB: DJNZ R3, BB
DJNZ R2, AA
RET

.ORG 300H
DB '0', 0DH

.ORG 310H
DB '1', 1DH

.ORG 320H
DB '2', 2DH

.ORG 330H
DB '3', 3DH

.ORG 340H
DB '4', #4DH

.ORG 350H
DB '5', #5DH

.ORG 360H
DB '6', #6DH

.ORG 370H
DB '7', #7DH

.ORG 380H
DB '8', #8DH

.ORG 390H
DB '9', #9DH

END