.
CLOCK:
MOV TH0,#3CH MOV TL0,#0B0H DJNZ 50H,RETURN MOV 50H,#14H
MOV A,#01H ADD A,32H .
DA A
MOV 32H,A
CJNE A,#60H,RETURN MOV 32H,#00H
MOV A,#01H ADD A,31H DA A
MOV 31H,A
CJNE A,#60H,RETURN MOV 31H,#00H
MOV A,#01H ADD A,30H DA A
MOV 30H,A
CJNE A,#24H,RETURN MOV 30H,#00H
RETURN:
RETI LED:
MOV A,@R0 SWAP A
ANL A,#0FH ACALL CTAB MOV R2,A
MOV A,@R0 ANL A,#0FH LCALL CTAB MOV R3,A
.
MOV DPTR,#8002H MOV A,R1 MOVX @DPTR,A MOV DPTR,#8004H MOV A,R2 MOVX @DPTR,A MOV A,R1 RR A MOV R1,A .
LCALL DLY
MOV DPTR,#8002H MOV A,R1 MOVX @DPTR,A MOV DPTR,#8004H MOV A,R3 MOVX @DPTR,A MOV A,R1 RR A MOV R1,A LCALL DLY
INC R0
CJNE R0,#33H,LED LJMP SLED CTAB:
PUSH DPH PUSH DPL
MOV DPTR,#TAB MOVC A,@A+DPTR POP DPL POP DPH RET
INPUT:
CLR RI CLR EA
MOV 30H,SBUF JNB RI,$ CLR RI
MOV 31H,SBUF JNB RI,$
.
CLR RI
MOV 32H,SBUF .
SETB EA RETI TAB:
DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH DLY:
MOV R7,#02H DL:
MOV R6,#0FFH DL1:
DJNZ R6,DL1 DJNZ R7,DL RET END