📄 fangbianyi.asm
字号:
; File Name: E:\培训题目\程序电路2\Power.hex
; IC Body: MCS-51
; Date: 2007-7-18
Q0000: MOV A,#00H
MOV P0,A
CLR P2.7
SETB P2.7
SETB P2.7
CLR P2.0
CLR P2.1
CLR P2.2
MOV P0,#0FEH
LCALL Q019F
MOV P0,#0FFH
MOV P0,#0FDH
LCALL Q019F
MOV P0,#0FFH
MOV P0,#0FBH
LCALL Q019F
MOV P0,#0FFH
MOV P0,#0F7H
LCALL Q019F
MOV P0,#0FFH
MOV P0,#0EFH
LCALL Q019F
MOV P0,#0FFH
MOV P0,#0DFH
LCALL Q019F
MOV P0,#0FFH
MOV P0,#00H
LCALL Q019F
MOV P0,#0FFH
ACALL Q00EC
SETB P2.7
MOV R7,A
NOP
ACALL Q00AE
Q0057: ACALL Q00B6
SETB P1.4
SETB P1.5
SETB P1.6
JNB P1.4,Q006E
JNB P1.5,Q0084
JNB P1.6,Q009A
JNB P1.7,Q00A6
LJMP Q0057
Q006E: CJNE R7,#0C8H,Q0074
LJMP Q0057
Q0074: JNB P1.4,Q007F
ACALL Q00B6
INC R7
ACALL Q00AE
LJMP Q0057
Q007F: ACALL Q00B6
LJMP Q0074
Q0084: CJNE R7,#00H,Q008A
LJMP Q0057
Q008A: JNB P1.5,Q0095
ACALL Q00B6
DEC R7
ACALL Q00AE
LJMP Q0057
Q0095: ACALL Q00B6
LJMP Q008A
Q009A: MOV P0,#00H
CLR P2.7
SETB P2.7
ACALL Q01AA
LJMP Q0057
Q00A6: MOV A,R7
ACALL Q00F2
ACALL Q00B6
LJMP Q0057
Q00AE: MOV A,R7
MOV P0,A
CLR P2.7
SETB P2.7
RET
Q00B6: MOV A,R7
MOV B,#64H
DIV AB
MOV R5,A
MOV A,#0AH
XCH A,B
DIV AB
MOV R4,A
MOV R3,B
MOV DPTR,#01C1H
MOV A,R5
MOVC A,@A+DPTR
MOV P0,A
CLR P2.0
ACALL Q0185
SETB P2.0
MOV DPTR,#01D2H
MOV A,R4
MOVC A,@A+DPTR
MOV P0,A
CLR P2.1
ACALL Q0185
SETB P2.1
MOV DPTR,#01C1H
MOV A,R3
MOVC A,@A+DPTR
MOV P0,A
CLR P2.2
ACALL Q0185
SETB P2.2
RET
Q00EC: LCALL Q010F
ACALL Q0173
RET
Q00F2: MOV B,A
LCALL Q00F8
RET
Q00F8: ACALL Q0165
MOV A,#0A0H
ACALL Q0141
ACALL Q0151
MOV A,#00H
ACALL Q0141
ACALL Q0151
MOV A,B
ACALL Q0141
ACALL Q0151
ACALL Q0173
Q010F: ACALL Q0165
MOV A,#0A0H
ACALL Q0141
ACALL Q0151
MOV A,#00H
ACALL Q0141
ACALL Q0151
ACALL Q0165
MOV A,#0A1H
ACALL Q0141
ACALL Q0151
ACALL Q0128 ;0125 31 28
RET ;0127 22
;==========================================================================
Q0128: MOV R5,#08H ;0128 7D 08
CLR A ;012A E4
SETB P3.4 ;012B D2 B4
Q012D: CLR P3.3 ;012D C2 B3
NOP ;012F 00
NOP ;0130 00
NOP ;0131 00
NOP ;0132 00
SETB P3.3 ;0133 D2 B3
NOP ;0135 00
NOP ;0136 00
NOP ;0137 00
NOP ;0138 00
MOV C,P3.4 ;0139 A2 B4
RLC A ;013B 33
SETB P3.4 ;013C D2 B4
DJNZ R5,Q012D ;013E DD ED
RET ;0140 22
;==========================================================================
Q0141: MOV R5,#08H ;0141 7D 08
Q0143: RLC A ;0143 33
MOV P3.4,C ;0144 92 B4
SETB P3.3 ;0146 D2 B3
NOP ;0148 00
NOP ;0149 00
NOP ;014A 00
NOP ;014B 00
CLR P3.3 ;014C C2 B3
DJNZ R5,Q0143 ;014E DD F3
RET ;0150 22
;==========================================================================
Q0151: CLR P3.3 ;0151 C2 B3
SETB P3.4 ;0153 D2 B4
NOP ;0155 00
NOP ;0156 00
SETB P3.3 ;0157 D2 B3
NOP ;0159 00
NOP ;015A 00
NOP ;015B 00
MOV C,P3.4 ;015C A2 B4
JC Q0151 ;015E 40 F1
CLR P3.4 ;0160 C2 B4
CLR P3.3 ;0162 C2 B3
RET ;0164 22
;==========================================================================
Q0165: SETB P3.4 ;0165 D2 B4
SETB P3.3 ;0167 D2 B3
NOP ;0169 00
CLR P3.4 ;016A C2 B4
NOP ;016C 00
NOP ;016D 00
NOP ;016E 00
NOP ;016F 00
CLR P3.3 ;0170 C2 B3
RET ;0172 22
;==========================================================================
Q0173: CLR P3.4 ;0173 C2 B4
NOP ;0175 00
SETB P3.3 ;0176 D2 B3
NOP ;0178 00
NOP ;0179 00
NOP ;017A 00
NOP ;017B 00
SETB P3.4 ;017C D2 B4
NOP ;017E 00
NOP ;017F 00
CLR P3.3 ;0180 C2 B3
CLR P3.4 ;0182 C2 B4
RET ;0184 22
;==========================================================================
Q0185: MOV 31H,#0AH ;0185 75 31 0A
Q0188: MOV 32H,#0FAH ;0188 75 32 FA
DJNZ 32H,$ ;018B D5 32 FD
DJNZ 31H,Q0188 ;018E D5 31 F7
RET ;0191 22
;==========================================================================
Q0192: DB 75H, 31H, 0AH, 75H, 32H, 64H,0D5H, 32H ;u1.u2d.2
Q019A: DB 0FDH,0D5H, 31H,0F7H, 22H ;..1."
;==========================================================================
Q019F: MOV R7,#0FFH ;019F 7F FF
NOP ;01A1 00
NOP ;01A2 00
Q01A3: MOV R6,#0FFH ;01A3 7E FF
DJNZ R6,$ ;01A5 DE FE
DJNZ R7,Q01A3 ;01A7 DF FA
RET ;01A9 22
;==========================================================================
Q01AA: MOV DPTR,#01C1H ;01AA 90 01 C1
MOV A,#00H ;01AD 74 00
MOVC A,@A+DPTR ;01AF 93
MOV P0,A ;01B0 F5 80
CLR P2.0 ;01B2 C2 A0
CLR P2.1 ;01B4 C2 A1
CLR P2.2 ;01B6 C2 A2
ACALL Q0185 ;01B8 31 85
SETB P2.0 ;01BA D2 A0
SETB P2.1 ;01BC D2 A1
SETB P2.2 ;01BE D2 A2
RET ;01C0 22
;==========================================================================
Q01C1: DB 0C0H,0F9H,0A4H,0B0H, 99H, 92H, 82H,0D8H ;........
Q01C9: DB 80H, 90H,0FFH, 88H, 83H,0C6H,0A1H, 86H ;........
Q01D1: DB 8EH, 40H, 79H, 24H, 30H, 19H, 12H, 02H ;.@y$0...
Q01D9: DB 78H, 00H, 10H,0FFH ;x...
;==========================================================================
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -