ORG 0000H
LJMP MAIN
ORG 0030H
MAIN: MOV SP , #70H
LOP: LCALL ADCHANGE
LCALL BCDCHANGE
LCALL SHOW
SJMP LOP
ORG 0050H
ADCHANGE:MOV DPTR , #6000H
MOVX A , @DPTR
JNB P3.2 , $
MOVX A , @DPTR
RET
ORG 0070H
BCDCHANGE:MOV B , #0AH
DIV AB
MOV 30H , A
MOV 31H , B
RET
ORG 0100H
SHOW: MOV DPTR , #TAB
MOV A , 31H
MOVC A , @A+DPTR
MOV P1 , A
MOV P2 , #01H
LCALL DELAY
MOV A , 30H
MOVC A , @A+DPTR
MOV P1 , A
MOV P2 , #02H
LCALL DELAY
RET
ORG 0200H
DELAY:MOV R7, #50
L1: MOV R6, #200
L2: NOP NOP NOP
DJNZ R6 , L2
DJNZ R7 , L1
RET
ORG 0280H
TAB: DB 0C0H , 0F9H , 0A4H , 0B0H , 99H , 92H , 82H ,0F8H , 80H , 90H
END
|