ORG 0000H
AJMP MAIN
ORG 0003H
AJMP JINGJI
ORG 0030H
MAIN: MOV SP,#80H
SETB EX0
SETB IT0
SETB EA
MOV P0,#00H
MOV P1,#00H
MOV P2,#00H
MOV R7,#30
MOV P1,#3EH
MOV B,#10
MOV R5,#0
ACALL INTR
MOV R7,#29
LOOP: ACALL YANSHI
ACALL INTR
DEC R7
CJNE R7,#9,LOOP
ACALL HUANDENG
MOV R7,#30
LOOP4: MOV P1,#0E3H
ACALL INTR
ACALL YANSHI
DEC R7
CJNE R7,#10,LOOP4
ACALL HUANDENG1
AJMP MAIN
INTR: MOV A,R7
DIV AB
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P2,A
MOV A,B
MOVC A,@A+DPTR
MOV P0,A
MOV B,#10
RET
YANSHI: MOV R3,#10
LOOP3: MOV R2,#100
LOOP2: MOV R1,#250
LOOP1: NOP
NOP
DJNZ R1,LOOP1
DJNZ R2,LOOP2
DJNZ R3,LOOP3
RET
HUANDENG:MOV P1,#0DEH
ACALL YANSHI
DEC R7
ACALL INTR
MOV P1,#0FEH
ACALL YANSHI
DEC R7
ACALL INTR
INC R5
CJNE R5,#5,HUANDENG
MOV R5,#0
RET
HUANDENG1:MOV P1,#0EDH
ACALL YANSHI
DEC R7
ACALL INTR
MOV P1,#0EFH
ACALL YANSHI
DEC R7
ACALL INTR
INC R5
CJNE R5,#5,HUANDENG1
MOV R5,#0
RET
JINGJI: PUSH P1
PUSH ACC
PUSH P0
PUSH P2
MOV A,#10
MOV P0,#0C0H
MOV P2,#0C0H
MOV P1,#0EEH
LL: DIV AB
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P2,A
MOV A,B
MOVC A,@A+DPTR
MOV P0,A
MOV B,#10
ACALL YANSHI
DEC A
CJNE A,#0,LL
POP P2
POP P0
POP ACC
POP P1
RETI
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END
|
