PT2262与pt2272 Proteus完全仿真附单片机源程序 -

L0001: LJMP L0169
AJMP L0119
L0002: MOV R7,#40H
ACALL L0171
MOV R3,#0FFH
MOV R2,#06H
MOV R1,#0CH
ACALL L0148
SETB 21H.5
LCALL L0014
CLR A
MOV 32H,A
MOV P3,#0FFH
MOV R7,32H
ACALL L0171
L0003: MOV A,25H
XRL A,#02H
JZ L0004
AJMP L0013
L0004: ACALL L0151
MOV 08H,R7
MOV A,08H
JZ L0003
MOV A,08H
CJNE A,#0EH,L0005
ACALL L0137
SJMP L0003
L0005: MOV A,08H
CJNE A,#0DH,L0006
ACALL L0104
SJMP L0003
L0006: MOV A,08H
CJNE A,#07H,L0003
CLR 21H.5
L0007: JNB 21H.5,L0008
AJMP L0012
L0008: MOV R7,#4AH
ACALL L0171
MOV R3,#0FFH
MOV R2,#06H
MOV R1,#1AH
ACALL L0148
JB 21H.4,L0010
MOV R7,3AH
ACALL L0158
MOV 3AH,R7
MOV A,3AH
XRL A,#88H
JNZ L0009
MOV R7,39H
ACALL L0158
MOV 39H,R7
MOV A,39H
XRL A,#88H
JNZ L0009
MOV R7,38H
ACALL L0158
MOV 38H,R7
MOV A,38H
XRL A,#88H
JNZ L0009
MOV R7,37H
ACALL L0158
MOV 37H,R7
MOV A,37H
XRL A,#88H
JNZ L0009
MOV R7,36H
ACALL L0158
MOV 36H,R7
MOV A,36H
CJNE A,#88H,L0009
MOV R7,35H
ACALL L0158
MOV 35H,R7
MOV A,35H
CJNE A,#88H,L0009
MOV R7,34H
ACALL L0158
MOV 34H,R7
MOV A,34H
CJNE A,#88H,L0009
MOV R7,33H
ACALL L0158
MOV 33H,R7
L0009: ACALL L0142
SJMP L0007
L0010: MOV R7,3AH
ACALL L0161
MOV 3AH,R7
MOV A,3AH
XRL A,#0EEH
JNZ L0011
MOV R7,39H
ACALL L0161
MOV 39H,R7
MOV A,39H
XRL A,#0EEH
JNZ L0011
MOV R7,38H
ACALL L0161
MOV 38H,R7
MOV A,38H
XRL A,#0EEH
JNZ L0011
MOV R7,37H
ACALL L0161
MOV 37H,R7
MOV A,37H
XRL A,#0EEH
JNZ L0011
MOV R7,36H
ACALL L0161
MOV 36H,R7
MOV A,36H
CJNE A,#0EEH,L0011
MOV R7,35H
ACALL L0161
MOV 35H,R7
MOV A,35H
CJNE A,#0EEH,L0011
MOV R7,34H
ACALL L0161
MOV 34H,R7
MOV A,34H
CJNE A,#0EEH,L0011
MOV R7,33H
ACALL L0161
MOV 33H,R7
L0011: ACALL L0142
AJMP L0007
L0012: LCALL L0014
AJMP L0003
L0013: RET
L0014: MOV R7,#4AH
ACALL L0171
MOV R3,#0FFH
MOV R2,#06H
MOV R1,#15H
ACALL L0148
RET
L0015: ACALL L0134
ACALL L0166
MOV R7,#04H
MOV R0,#33H
MOV A,#88H
L0016: MOV @R0,A
INC R0
DJNZ R7,L0016
MOV R7,#04H
MOV R0,#37H
MOV A,#8EH
L0017: MOV @R0,A
INC R0
DJNZ R7,L0017
MOV R7,#03H
MOV R0,#3CH
MOV A,#88H
L0018: MOV @R0,A
INC R0
DJNZ R7,L0018
MOV 3BH,#0EEH
CLR A
MOV R7,A
L0019: MOV A,#3FH
ADD A,R7
MOV R0,A
MOV @R0,#03H
MOV A,#43H
ADD A,R7
MOV R0,A
CLR A
MOV @R0,A
INC R7
CJNE R7,#03H,L0019
MOV 42H,#80H
MOV 25H,#01H
ACALL L0090
L0020: MOV A,25H
JNZ L0030
MOV R7,#40H
ACALL L0171
MOV R3,#0FFH
MOV R2,#05H
MOV R1,#0F1H
ACALL L0148
L0021: JB 21H.0,L0026
MOV A,25H
JNZ L0026
L0022: JB 21H.2,L0023
ACALL L0098
MOV A,25H
JZ L0022
L0023: MOV C,21H.1
JNB P1.0,L0024
CPL C
L0024: JNC L0021
MOV C,P1.0
MOV 21H.1,C
JNB 21H.1,L0025
SETB TR0
ACALL L0081
SJMP L0021
L0025: ACALL L0115
SJMP L0021
L0026: JNB 21H.0,L0027
ACALL L0063
L0027: ACALL L0090
MOV R7,#40H
ACALL L0171
MOV R3,#0FFH
MOV R2,#05H
MOV R1,#0FAH
ACALL L0148
L0028: JNB P3.3,L0029
MOV A,25H
JZ L0028
L0029: ACALL L0134
SJMP L0020
L0030: MOV A,25H
CJNE A,#01H,L0031
ACALL L0110
SJMP L0020
L0031: ACALL L0002
SJMP L0020
L0032: CJNE R3,#01H,L0033
MOV A,DPL
ADD A,R1
MOV DPL,A
MOV A,DPH
ADDC A,R2
MOV DPH,A
MOVX A,@DPTR
RET
L0033: JNC L0034
MOV A,R1
ADD A,DPL
MOV R0,A
MOV A,@R0
RET
L0034: CJNE R3,#0FEH,L0035
MOV A,R1
ADD A,DPL
MOV R0,A
MOVX A,@R0
RET
L0035: MOV A,DPL
ADD A,R1
MOV DPL,A
MOV A,DPH
ADDC A,R2
MOV DPH,A
CLR A
MOVC A,@A+DPTR
RET
L0036: CJNE R4,#00H,L0037
CJNE R6,#00H,L0040
MOV A,R7
MOV B,R5
DIV AB
MOV R7,A
MOV R5,B
RET
L0037: CLR A
XCH A,R4
MOV R0,A
MOV B,#08H
L0038: MOV A,R7
ADD A,R7
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R4
RLC A
MOV R4,A
MOV A,R6
SUBB A,R5
MOV A,R4
SUBB A,R0
JC L0039
MOV R4,A
MOV A,R6
SUBB A,R5
MOV R6,A
INC R7
L0039: DJNZ B,L0038
CLR A
XCH A,R6
MOV R5,A
RET
L0040: MOV A,R5
MOV R0,A
MOV B,A
MOV A,R6
DIV AB
JB OV,L0044
MOV R6,A
MOV R5,B
MOV B,#08H
L0041: MOV A,R7
ADD A,R7
MOV R7,A
MOV A,R5
RLC A
MOV R5,A
JC L0042
SUBB A,R0
JNC L0043
DJNZ B,L0041
RET
L0042: CLR C
SUBB A,R0
L0043: MOV R5,A
INC R7
DJNZ B,L0041
L0044: RET
L0045: MOV R7,#88H
ACALL L0046
MOV R7,#88H
L0046: MOV 20H,R7
MOV C,20H.7
MOV P1.4,C
MOV R7,31H
L0047: DEC R7
MOV A,R7
JZ L0048
NOP
NOP
SJMP L0047
L0048: MOV C,20H.6
MOV P1.4,C
MOV R7,31H
L0049: DEC R7
MOV A,R7
JZ L0050
NOP
NOP
SJMP L0049
L0050: MOV C,20H.5
MOV P1.4,C
MOV R7,31H
L0051: DEC R7
MOV A,R7
JZ L0052
NOP
NOP
SJMP L0051
L0052: MOV C,20H.4
MOV P1.4,C
MOV R7,31H
L0053: DEC R7
MOV A,R7
JZ L0054
NOP
NOP
SJMP L0053
L0054: MOV C,20H.3
MOV P1.4,C
MOV R7,31H
L0055: DEC R7
MOV A,R7
JZ L0056
NOP
NOP
SJMP L0055
L0056: MOV C,20H.2
MOV P1.4,C
MOV R7,31H
L0057: DEC R7
MOV A,R7
JZ L0058
NOP
NOP
SJMP L0057
L0058: MOV C,20H.1
MOV P1.4,C
MOV R7,31H
L0059: DEC R7
MOV A,R7
JZ L0060
NOP
NOP
SJMP L0059
L0060: MOV C,20H.0
MOV P1.4,C
MOV R7,31H
L0061: DEC R7
MOV A,R7
JZ L0062
NOP
NOP
SJMP L0061
L0062: RET
L0063: MOV R7,#04H
MOV R0,#33H
CLR A
L0064: MOV @R0,A
INC R0
DJNZ R7,L0064
MOV R7,#04H
L0065: CLR C
MOV A,#07H
SUBB A,R7
ADD A,ACC
MOV R6,A
MOV A,2AH
MOV R0,06H
INC R0
SJMP L0067
L0066: CLR C
RRC A
L0067: DJNZ R0,L0066
ACALL L0145
CJNE R7,#08H,L0065
MOV R7,#08H
L0068: CLR C
MOV A,#0BH
……………………
…………限于本文篇幅余下代码请从51黑下载附件…………

复制代码