21,457
社区成员
发帖
与我相关
我的任务
分享汇编语言，怎么修改总密码，关机密码，加减密码。
汇编语言代码如下 ，各位大侠帮帮忙啊，，怎么修改总密码，关机密码，加减密码。感谢了。急！！！
P4 EQU 0D8H
BEEP BIT P1.6
S1_CD4052_9 BIT P1.7
S0_CD4052_10 BIT P4.3
D573_11 BIT P4.2 ;段
W573_11 BIT P1.0 ;位
JMPER BIT P3.4
SDA_24CXX_5 BIT P3.5
SCL_24CXX_6 BIT P3.6
RST_DS1302_5 BIT P4.0
DIO_DS1302_6 BIT P2.0
CLK_DS1302_7 BIT P3.7
ORG 0000H
SJMP MAIN
ORG 0003H
AJMP WI0
ORG 000BH
AJMP WT0
ORG 0013H
AJMP WI1
ORG 001BH
AJMP WT1
ORG 0023H
AJMP WTR
ORG 0030H
MAIN:NOP
setb S1_CD4052_9
setb S0_CD4052_10
CLR BEEP
MOV 0BFH,#02H
SETB P1.1;键盘输入线
SETB P1.2
SETB P1.3
SETB P1.4
CLR A
MOV P0,A
CLR D573_11
CLR W573_11
MOV SP,#0D0H
MOV R0,#08H
MOV R7,#248
CLR A
M1:MOV @R0,A
INC R0
DJNZ R7,M1
LCALL U
MOV IE,#9FH
MOV IP,#07H
MOV TMOD,#11H
MOV 0C8H,#34H
SETB IT0
SETB IT1
MOV TL0,#0B0H
MOV TH0,#0B9H
SETB TR0
SETB 05H
SETB 06H
MOV 08H,#8
MOV TL1,#80H
MOV TH1,#0FCH
SETB TR1
MOV 14H,#1
LCALL V
LCALL ZJ
LCALL GJPD
LCALL U
LCALL KZ
M2:NOP
JB 10H,M3
JB 11H,M3
LCALL TTR
M3:LCALL SC
LCALL KY
JZ M2
LCALL KJ
SJMP M2
ORG 0100H
ZJ:NOP
PUSH 27H
PUSH 2EH
MOV R2,#8EH
MOV R3,#00H
LCALL DTW
MOV R2,#90H
MOV R3,#0AAH
LCALL DTW
MOV R2,#8EH
MOV R3,#80H
LCALL DTW
ZJ0:MOV R7,#10
CLR A
MOV R3,A
MOV R4,A
ZJ1:MOV R6,#50
MOV A,R3
MOV 27H,A
MOV 2EH,A
MOV R0,#28H
MOV R5,#6
MOV A,R4
ZJ2:MOV @R0,A
INC R0
DJNZ R5,ZJ2
ZJ3:LCALL KY
CJNE A,#15,ZJ4
SJMP ZJ10
ZJ4:CJNE A,#12,ZJ5
LCALL CLGJ
SJMP ZJ0
ZJ5:CJNE A,#8,ZJ6
LCALL BT2
SJMP ZJ0
ZJ6:CJNE A,#6,ZJ7
LCALL BT3
SJMP ZJ0
ZJ7:CJNE A,#1,ZJ8
LCALL BT4
SJMP ZJ0
ZJ8:CJNE A,#14,ZJ9
LCALL BH
SJMP ZJ0
ZJ9:LCALL DL2
DJNZ R6,ZJ3
MOV A,R3
CPL A
MOV R3,A
INC R4
DJNZ R7,ZJ1
ZJ10:POP 2EH
POP 27H
RET
BH:PUSH 27H
PUSH 2EH
CLR A
MOV 27H,A
MOV 2EH,A
MOV DPTR,#7F2AH
LCALL MMRX
BH0:LCALL KY
CJNE A,#14,BH0
MOV DPTR,#7F2DH
LCALL MMRX
MOV 2EH,#15H
BH1:LCALL KY
CJNE A,#14,BH1
POP 2EH
POP 27H
RET
WT1:CLR 01H
CLR TR1
PUSH ACC
PUSH PSW
CLR RS0
SETB RS1
DJNZ R4,WT11
MOV R0,#26H
MOV R1,#20H
MOV R2,2EH
MOV R3,#2
MOV R4,#8
CLR A
MOV P0,A
SETB D573_11
CLR D573_11
SETB W573_11
CLR W573_11
MOV TL1,#00H
MOV TH1,#0FEH
SETB 01H
SETB 02H
SJMP WT14
WT11:CLR A
MOV P0,A
SETB D573_11
CLR D573_11
SETB W573_11
CLR W573_11
MOV A,@R0
JNB 02H,WT12
DJNZ R3,WT13
CLR 02H
WT12:ADD A,#38H
MOVC A,@A+PC
XCH A,R2
RRC A
XCH A,R2
MOV ACC.7,C
SJMP WT15
WT13:MOV P0,A
NOP
SETB D573_11
CLR D573_11
MOV A,#40H ;顺序变了
MOV P0,A
NOP
SETB W573_11
CLR W573_11
SJMP WT14
WT15:MOV P0,A
SETB D573_11
CLR D573_11
MOV A,R1
MOV P0,A
NOP
SETB W573_11
CLR W573_11
MOV A,R1
RR A
MOV R1,A
WT14:MOV TL1,#80H
MOV TH1,#0FCH
INC R0
SETB TR1
POP PSW
POP ACC
RETI
TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH;0,1,2,3,4,5,6,7,8,9
DB 77H,7CH,39H,5EH,79H,71H,00H,40H,48H,76H;A,B,C,D,E,F, ,-,
DB 0EH,38H,54H,5CH,73H,50H,78H,1CH,6EH
DL:PUSH 07H
MOV 07H,#250
DL0:NOP
NOP
NOP
DJNZ 07H,DL0
POP 07H
RET
DL1:NOP
ACALL DL
ACALL DL
RET
DL2:NOP
ACALL DL1
ACALL DL1
RET
DL3:PUSH 07H
MOV 07H,#20
DL30:NOP
NOP
NOP
DJNZ 07H,DL30
POP 07H
RET
KY:ACALL DL2
PUSH PSW
SETB RS0
SETB RS1
ACALL KYB
JNZ KY2 ;如果A=0，说明没有按键按下
KY1:POP PSW
RET
KY2:MOV R2,A
ACALL KYB4
JNZ KY1
ACALL DL2
ACALL KYB;第二次判断
CJNE A,1AH,KY1;1AH就是R2
SETB BEEP
KY3:ACALL DL2
ACALL KYB;判断有没有松开
JNZ KY3
MOV A,R2
CLR BEEP
POP PSW
RET
KYB:NOP
CLR A
MOV R3,A
MOV R4,A
MOV R5,A
MOV R6,#0FEH;置最低位为0，开始扫描
MOV R7,#4 ;4跟行线
KYB1:JNB 01H,KYB1
CLR TR1
KYB2:MOV A,R6
MOV P0,A
SETB W573_11
CLR W573_11
NOP
NOP
MOV C,P1.4
ACALL KYC
MOV C,P1.3
ACALL KYC
MOV C,P1.2
ACALL KYC
MOV C,P1.1
ACALL KYC
MOV A,R6
RL A
MOV R6,A
DJNZ R7,KYB2
CLR A
MOV P0,A
SETB W573_11
CLR W573_11
SETB TR1
MOV R7,#16
KYB3:CLR C
MOV A,R5
RRC A
MOV R5,A
MOV A,R4
RRC A
MOV R4,A
MOV A,R3
RRC A
MOV R3,A
JNC KYB5
KYB4:DJNZ R7,KYB3
CLR A
RET
KYB5:MOV A,R7
RET
KYC:MOV A,R3
RLC A
MOV R3,A
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
RET
WT0:CLR TR0
JNB 06H,WT01
MOV TL0,#00H
MOV TH0,#00H
clr S1_CD4052_9
setb S0_CD4052_10
SETB TR0
CLR 06H
RETI
WT01:MOV TL0,#00H
MOV TH0,#00H
setb S1_CD4052_9
clr S0_CD4052_10
SETB TR0
SETB 06H
RETI
WI0:PUSH ACC
PUSH PSW
CLR RS1
SETB RS0
CLR TR0
clr S1_CD4052_9
clr S0_CD4052_10
MOV R1,TL0
MOV R2,TH0
CLR A
MOV TL0,A
MOV TH0,A
SETB TR0
CLR A
MOV R3,A
MOV R7,#4
WI01:CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
DJNZ R7,WI01
MOV A,R4
ADD A,R1
MOV R4,A
MOV A,R5
ADDC A,R2
MOV R5,A
MOV A,R6
ADDC A,R3
MOV R6,A
POP PSW
POP ACC
RETI
WI1:PUSH ACC
PUSH PSW
CLR RS1
SETB RS0
CLR TR0
MOV R1,TL0
MOV R2,TH0
MOV TL0,#0B0H
MOV TH0,#0B9H
SJMP WIAD
WIEND:CLR A
MOV R4,A
MOV R5,A
MOV R6,A
WIENE:SETB 06H
POP PSW
POP ACC
RETI
WIAD:DJNZ R0,WIX
setb S1_CD4052_9
setb S0_CD4052_10
SETB TR0
JB 1BH,W4
ACALL WII
MOV R1,#0A0H
MOV R0,#24
MOV A,R6
W1:XCH A,@R1
INC R1
DJNZ R0,W1
MOV R1,#0A0H
MOV R0,#24
MOV A,R5
W2:XCH A,@R1
INC R1
DJNZ R0,W2
MOV R1,#0A0H
MOV R0,#24
MOV A,R4
W3:XCH A,@R1
INC R1
DJNZ R0,W3
W4:CLR A
MOV R4,A
MOV R5,A
MOV R6,A
MOV R0,#8
SETB 04H
SJMP WIEND
WIX:setb S1_CD4052_9
setb S0_CD4052_10
SETB TR0
ACALL WII
SJMP WIENE
WII:CLR C
MOV A,R4
SUBB A,R1
MOV R4,A
MOV A,R5
SUBB A,R2
MOV R5,A
MOV A,R6
SUBB A,#0
MOV R6,A
RET
WTR:JNB 0AH,TRA
SJMP TRB
TRA:CLR TI
JB 10H,TRA1
RETI
TRA1:PUSH ACC
PUSH PSW
SETB RS0
SETB RS1
MOV A,@R0
MOV SBUF,A
INC R0
DJNZ R1,TRA2
CLR 10H
TRA2:POP PSW
POP ACC
RETI
TRB:CLR TI
JB 10H,TRB1
RETI
TRB1:PUSH ACC
PUSH PSW
SETB RS1
SETB RS0
SETB TB8
MOV A,@R0
MOV SBUF,A
INC R0
DJNZ R1,TRB2
CLR 10H
TRB2:POP PSW
POP ACC
RETI
TTC:MOV R0,#0C0H
MOV R1,46H
MOV R2,47H
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
MOV R0,#0C5H
MOV R1,#72H
MOV R7,#3
TTC1:MOV A,@R1
SWAP A
ANL A,#0FH
ADD A,#30H
MOV @R0,A
DEC R0
MOV A,@R1
ANL A,#0FH
ADD A,#30H
MOV @R0,A
DEC R0
DEC R1
DJNZ R7,TTC1
MOV A,31H
JZ TTC3
MOV R0,#0C0H
MOV A,R0
ADD A,31H
MOV R0,A
MOV A,#2EH ; '.'
TTC2:XCH A,@R0
INC R0
CJNE R0,#0C7H,TTC2
SJMP TTC4
TTC3:MOV R0,#0C6H
MOV @R0,#30H
INC R0
TTC4:JNB 0CH,TTC5
MOV @R0,#2DH ;'-'
SJMP TTC6
TTC5:MOV @R0,#30H
TTC6:MOV 18H,#0C0H
MOV 19H,#8
MOV A,#03DH;=打头
MOV SBUF,A
SETB 10H
SETB 11H
RET
TTR:MOV A,37H
JB ACC.3,TTC
JNB 0AH,TTA;0ah=0 为托利多格式
SJMP TTB
TTA:MOV R0,#0C0H
MOV @R0,#20H
MOV A,31H
CJNE A,#1,TTA1
MOV @R0,#23H
SJMP TTA4
TTA1:CJNE A,#2,TTA2
MOV @R0,#24H
SJMP TTA4
TTA2:CJNE A,#3,TTA3
MOV @R0,#25H
SJMP TTA4
TTA3:CJNE A,#4,TTA4
MOV @R0,#26H
TTA4:INC R0
MOV A,#30H
JNB 0FH,TTA5
SETB ACC.2
TTA5:JNB 0CH,TTA6
SETB ACC.1
TTA6:JNB 0DH,TTA7
SETB ACC.3
TTA7:MOV @R0,A
INC R0
MOV @R0,#20H
MOV R1,46H
MOV R2,47H
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
MOV R0,#0C3H
MOV R1,#72H
MOV R7,#3
TTA9:MOV A,@R1
SWAP A
ANL A,#0FH
ADD A,#30H
MOV @R0,A
INC R0
MOV A,@R1
ANL A,#0FH
ADD A,#30H
MOV @R0,A
INC R0
DEC R1
DJNZ R7,TTA9
MOV @R0,#0DH
INC R0
MOV @R0,#0AH
MOV 18H,#0C0H
MOV 19H,#11
MOV A,#02H
MOV SBUF,A
SETB 10H
SETB 11H
RET
TTB:MOV R0,#0C0H
CLR A
JNB 0FH,TTB1
SETB ACC.7
TTB1:JNB 0CH,TTB2
SETB ACC.5
TTB2:JB 0DH,TTB3
SETB ACC.4
TTB3:MOV @R0,A
MOV A,31H
INC A
ORL A,@R0
MOV @R0,A
MOV R1,46H
MOV R2,47H
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
MOV R0,#0C1H
MOV R1,#70H
MOV R7,#3
TTB4:MOV A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R7,TTB4
MOV 18H,#0C0H
MOV 19H,#4
SETB TB8
MOV A,#0FFH
MOV SBUF,A
SETB 10H
SETB 11H
RET
ADS:NOP
CLR A
MOV R1,A
MOV R2,A
MOV R3,A
MOV R0,#0A0H
MOV R7,#8
ADS0:MOV A,@R0
ADD A,R1
MOV R1,A
INC R0
MOV A,@R0
ADDC A,R2
MOV R2,A
INC R0
MOV A,@R0
ADDC A,R3
MOV R3,A
INC R0
DJNZ R7,ADS0
MOV R7,#5
ADS1:CLR C
MOV A,R3
RRC A
MOV R3,A
MOV A,R2
RRC A
MOV R2,A
MOV A,R1
RRC A
MOV R1,A
DJNZ R7,ADS1
;LCALL ADY
RET
ADX:NOP
CLR A
MOV R1,A
MOV R2,A
MOV R3,A
MOV R0,#0A0H
MOV R7,#8
ADX0:MOV A,@R0
ADD A,R1
MOV R1,A
INC R0
MOV A,@R0
ADDC A,R2
MOV R2,A
INC R0
MOV A,@R0
ADDC A,R3
MOV R3,A
INC R0
DJNZ R7,ADX0
MOV R7,#6
ADX1:CLR C
MOV A,R3
RRC A
MOV R3,A
MOV A,R2
RRC A
MOV R2,A
MOV A,R1
RRC A
MOV R1,A
DJNZ R7,ADX1
RET
SU:NOP
ACALL ADS
CLR 0CH
CLR C
MOV A,R1
SUBB A,43H
MOV R1,A
MOV A,R2
SUBB A,44H
MOV R2,A
MOV A,R3
SUBB A,45H
MOV R3,A
JNC SU0
LCALL CPA
SETB 0CH
CLR 19H
CLR 1AH
SU0:PUSH 00H
PUSH 07H
MOV R4,3DH
MOV R5,3EH
MOV R6,3FH
LCALL MU3
MOV R0,#70H
MOV R7,#5
CLR C
SU1:MOV A,@R0
RLC A
MOV @R0,A
INC R0
DJNZ R7,SU1
MOV 79H,3AH
MOV 7AH,3BH
MOV 7BH,3CH
LCALL DV3
POP 07H
POP 00H
RET
KJ:CJNE A,#8,KJ1
LCALL BT1
RET
KJ1:CJNE A,#14,KJ2
LCALL DATE
LCALL TIME
RET
KJ2:CJNE A,#13,KJ3
JNB 13H,KJ21
CLR P2.3
KJ20:LCALL KY
CJNE A,#13,KJ20
SETB P2.3
KJ21:RET
KJ3:CJNE A,#4,KJ4
LCALL ZZ
RET
KJ4:CJNE A,#11,KJ5
LCALL RPT
RET
KJ5:CJNE A,#10,KJ6
LCALL DYSZ
RET
KJ6:CJNE A,#5,KJ7
JB 0FH,KJ60
JB 15H,KJ60
LCALL ZP
KJ60:RET
KJ7:CJNE A,#1,KJ8
JB 0FH,KJ14
LCALL YCCC
RET
KJ8:CJNE A,#2,KJ9
JB 0FH,KJ80
JB 15H,KJ80
LCALL ECCC
KJ80:RET
KJ9:CJNE A,#12,KJ10
LCALL CLEAR
RET
KJ10:CJNE A,#9,KJ11
LCALL QP
RET
KJ11:CJNE A,#6,KJ12
LCALL ZX
RET
KJ12:CJNE A,#3,KJ13
LCALL BTKLAA
RET
KJ13:CJNE A,#7,KJ14
JNB 13H,KJ14
LCALL BB
RET
KJ14:CJNE A,#15,KJ15
CLR A
MOV 38H,A;取消扣率
MOV 39H,A
MOV DPTR,#7F18H
CALL WRIT
INC DPTR
CALL WRIT
RET
KJ15:RET
SK:NOP
SETB P1.5
JB P1.5,SK0
ORL 27H,#20H
ANL 27H,#0EFH
RET
SK0:NOP
ANL 27H,#0DFH
SETB P4.1
JB P4.1,SK1
ORL 27H,#10H
RET
SK1:ANL 27H,#0EFH
RET
----------
这里去除 了几千行。。。。
-------------
MOV 28H,A
SJMP BTKLAAA
BTKLAA3:JNZ BTKLAAA
MOV 28H,A
SJMP BTKLAAA
BTKLAAB:MOV A,28H
JZ BTKLAAC
SETB 2AH
SJMP BTKLAAD
BTKLAAC:CLR 2AH
BTKLAAD:CLR A
MOV C,2AH
MOV ACC.0,C
MOV C,2FH;选择哪一组扣率
MOV ACC.4,C
MOV DPTR,#7F28H
CALL WRIT
MOV R0,#30H;存扣率作用重量范围
MOVX A,@R0
MOV R1,A
INC R0
MOVX A,@R0
MOV R2,A
MOV R3,#0
LCALL BCD24
CLR 0CH
LCALL BTAA;小数点
BTKLAA0:LCALL SY
LCALL KA
JB 07H,BTKLAA2
JB 08H,BTKLAA1
CALL BTCA
SJMP BTKLAA0
BTKLAA1:LCALL BTCB;7F90,7F91H存放扣率起作用的最小重量
MOV DPTR,#7F90H
MOV R0,#30H
MOV A,R1
MOVX @R0,A
LCALL WRIT
INC R0
INC DPTR
MOV A,R2
MOVX @R0,A
LCALL WRIT
MOV R3,#0;将扣率范围转化为分度数供ZD调用
MOV R4,30H
CALL DV1
MOV R0,#32H
MOV A,R1
MOVX @R0,A
INC R0
MOV A,R2
MOVX @R0,A
BTKLAA2:
RET
BTAA:MOV A,31H;搞定小数点
JNZ BTAA2
MOV 2EH,#00H
SJMP BTAA6
BTAA2:CJNE A,#1,BTAA3
MOV 2EH,#02H
SJMP BTAA6
BTAA3:CJNE A,#2,BTAA4
MOV 2EH,#04H
SJMP BTAA6
BTAA4:CJNE A,#3,BTAA5
MOV 2EH,#08H
SJMP BTAA6
BTAA5:MOV 2EH,#10H
BTAA6:MOV 7FH,2EH
RET
END
P4 EQU 0D8H
BEEP BIT P1.6
S1_CD4052_9 BIT P1.7
S0_CD4052_10 BIT P4.3
D573_11 BIT P4.2 ;段
W573_11 BIT P1.0 ;位
JMPER BIT P3.4
SDA_24CXX_5 BIT P3.5
SCL_24CXX_6 BIT P3.6
RST_DS1302_5 BIT P4.0
DIO_DS1302_6 BIT P2.0
CLK_DS1302_7 BIT P3.7
ORG 0000H
SJMP MAIN
ORG 0003H
AJMP WI0
ORG 000BH
AJMP WT0
ORG 0013H
AJMP WI1
ORG 001BH
AJMP WT1
ORG 0023H
AJMP WTR
ORG 0030H
MAIN:NOP
setb S1_CD4052_9
setb S0_CD4052_10
CLR BEEP
MOV 0BFH,#02H
SETB P1.1;键盘输入线
SETB P1.2
SETB P1.3
SETB P1.4
CLR A
MOV P0,A
CLR D573_11
CLR W573_11
MOV SP,#0D0H
MOV R0,#08H
MOV R7,#248
CLR A
M1:MOV @R0,A
INC R0
DJNZ R7,M1
LCALL U
MOV IE,#9FH
MOV IP,#07H
MOV TMOD,#11H
MOV 0C8H,#34H
SETB IT0
SETB IT1
MOV TL0,#0B0H
MOV TH0,#0B9H
SETB TR0
SETB 05H
SETB 06H
MOV 08H,#8
MOV TL1,#80H
MOV TH1,#0FCH
SETB TR1
MOV 14H,#1
LCALL V
LCALL ZJ
LCALL GJPD
LCALL U
LCALL KZ
M2:NOP
JB 10H,M3
JB 11H,M3
LCALL TTR
M3:LCALL SC
LCALL KY
JZ M2
LCALL KJ
SJMP M2
ORG 0100H
ZJ:NOP
PUSH 27H
PUSH 2EH
MOV R2,#8EH
MOV R3,#00H
LCALL DTW
MOV R2,#90H
MOV R3,#0AAH
LCALL DTW
MOV R2,#8EH
MOV R3,#80H
LCALL DTW
ZJ0:MOV R7,#10
CLR A
MOV R3,A
MOV R4,A
ZJ1:MOV R6,#50
MOV A,R3
MOV 27H,A
MOV 2EH,A
MOV R0,#28H
MOV R5,#6
MOV A,R4
ZJ2:MOV @R0,A
INC R0
DJNZ R5,ZJ2
ZJ3:LCALL KY
CJNE A,#15,ZJ4
SJMP ZJ10
ZJ4:CJNE A,#12,ZJ5
LCALL CLGJ
SJMP ZJ0
ZJ5:CJNE A,#8,ZJ6
LCALL BT2
SJMP ZJ0
ZJ6:CJNE A,#6,ZJ7
LCALL BT3
SJMP ZJ0
ZJ7:CJNE A,#1,ZJ8
LCALL BT4
SJMP ZJ0
ZJ8:CJNE A,#14,ZJ9
LCALL BH
SJMP ZJ0
ZJ9:LCALL DL2
DJNZ R6,ZJ3
MOV A,R3
CPL A
MOV R3,A
INC R4
DJNZ R7,ZJ1
ZJ10:POP 2EH
POP 27H
RET
BH:PUSH 27H
PUSH 2EH
CLR A
MOV 27H,A
MOV 2EH,A
MOV DPTR,#7F2AH
LCALL MMRX
BH0:LCALL KY
CJNE A,#14,BH0
MOV DPTR,#7F2DH
LCALL MMRX
MOV 2EH,#15H
BH1:LCALL KY
CJNE A,#14,BH1
POP 2EH
POP 27H
RET
WT1:CLR 01H
CLR TR1
PUSH ACC
PUSH PSW
CLR RS0
SETB RS1
DJNZ R4,WT11
MOV R0,#26H
MOV R1,#20H
MOV R2,2EH
MOV R3,#2
MOV R4,#8
CLR A
MOV P0,A
SETB D573_11
CLR D573_11
SETB W573_11
CLR W573_11
MOV TL1,#00H
MOV TH1,#0FEH
SETB 01H
SETB 02H
SJMP WT14
WT11:CLR A
MOV P0,A
SETB D573_11
CLR D573_11
SETB W573_11
CLR W573_11
MOV A,@R0
JNB 02H,WT12
DJNZ R3,WT13
CLR 02H
WT12:ADD A,#38H
MOVC A,@A+PC
XCH A,R2
RRC A
XCH A,R2
MOV ACC.7,C
SJMP WT15
WT13:MOV P0,A
NOP
SETB D573_11
CLR D573_11
MOV A,#40H ;顺序变了
MOV P0,A
NOP
SETB W573_11
CLR W573_11
SJMP WT14
WT15:MOV P0,A
SETB D573_11
CLR D573_11
MOV A,R1
MOV P0,A
NOP
SETB W573_11
CLR W573_11
MOV A,R1
RR A
MOV R1,A
WT14:MOV TL1,#80H
MOV TH1,#0FCH
INC R0
SETB TR1
POP PSW
POP ACC
RETI
TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH;0,1,2,3,4,5,6,7,8,9
DB 77H,7CH,39H,5EH,79H,71H,00H,40H,48H,76H;A,B,C,D,E,F, ,-,
DB 0EH,38H,54H,5CH,73H,50H,78H,1CH,6EH
DL:PUSH 07H
MOV 07H,#250
DL0:NOP
NOP
NOP
DJNZ 07H,DL0
POP 07H
RET
DL1:NOP
ACALL DL
ACALL DL
RET
DL2:NOP
ACALL DL1
ACALL DL1
RET
DL3:PUSH 07H
MOV 07H,#20
DL30:NOP
NOP
NOP
DJNZ 07H,DL30
POP 07H
RET
KY:ACALL DL2
PUSH PSW
SETB RS0
SETB RS1
ACALL KYB
JNZ KY2 ;如果A=0，说明没有按键按下
KY1:POP PSW
RET
KY2:MOV R2,A
ACALL KYB4
JNZ KY1
ACALL DL2
ACALL KYB;第二次判断
CJNE A,1AH,KY1;1AH就是R2
SETB BEEP
KY3:ACALL DL2
ACALL KYB;判断有没有松开
JNZ KY3
MOV A,R2
CLR BEEP
POP PSW
RET
KYB:NOP
CLR A
MOV R3,A
MOV R4,A
MOV R5,A
MOV R6,#0FEH;置最低位为0，开始扫描
MOV R7,#4 ;4跟行线
KYB1:JNB 01H,KYB1
CLR TR1
KYB2:MOV A,R6
MOV P0,A
SETB W573_11
CLR W573_11
NOP
NOP
MOV C,P1.4
ACALL KYC
MOV C,P1.3
ACALL KYC
MOV C,P1.2
ACALL KYC
MOV C,P1.1
ACALL KYC
MOV A,R6
RL A
MOV R6,A
DJNZ R7,KYB2
CLR A
MOV P0,A
SETB W573_11
CLR W573_11
SETB TR1
MOV R7,#16
KYB3:CLR C
MOV A,R5
RRC A
MOV R5,A
MOV A,R4
RRC A
MOV R4,A
MOV A,R3
RRC A
MOV R3,A
JNC KYB5
KYB4:DJNZ R7,KYB3
CLR A
RET
KYB5:MOV A,R7
RET
KYC:MOV A,R3
RLC A
MOV R3,A
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
RET
WT0:CLR TR0
JNB 06H,WT01
MOV TL0,#00H
MOV TH0,#00H
clr S1_CD4052_9
setb S0_CD4052_10
SETB TR0
CLR 06H
RETI
WT01:MOV TL0,#00H
MOV TH0,#00H
setb S1_CD4052_9
clr S0_CD4052_10
SETB TR0
SETB 06H
RETI
WI0:PUSH ACC
PUSH PSW
CLR RS1
SETB RS0
CLR TR0
clr S1_CD4052_9
clr S0_CD4052_10
MOV R1,TL0
MOV R2,TH0
CLR A
MOV TL0,A
MOV TH0,A
SETB TR0
CLR A
MOV R3,A
MOV R7,#4
WI01:CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
DJNZ R7,WI01
MOV A,R4
ADD A,R1
MOV R4,A
MOV A,R5
ADDC A,R2
MOV R5,A
MOV A,R6
ADDC A,R3
MOV R6,A
POP PSW
POP ACC
RETI
WI1:PUSH ACC
PUSH PSW
CLR RS1
SETB RS0
CLR TR0
MOV R1,TL0
MOV R2,TH0
MOV TL0,#0B0H
MOV TH0,#0B9H
SJMP WIAD
WIEND:CLR A
MOV R4,A
MOV R5,A
MOV R6,A
WIENE:SETB 06H
POP PSW
POP ACC
RETI
WIAD:DJNZ R0,WIX
setb S1_CD4052_9
setb S0_CD4052_10
SETB TR0
JB 1BH,W4
ACALL WII
MOV R1,#0A0H
MOV R0,#24
MOV A,R6
W1:XCH A,@R1
INC R1
DJNZ R0,W1
MOV R1,#0A0H
MOV R0,#24
MOV A,R5
W2:XCH A,@R1
INC R1
DJNZ R0,W2
MOV R1,#0A0H
MOV R0,#24
MOV A,R4
W3:XCH A,@R1
INC R1
DJNZ R0,W3
W4:CLR A
MOV R4,A
MOV R5,A
MOV R6,A
MOV R0,#8
SETB 04H
SJMP WIEND
WIX:setb S1_CD4052_9
setb S0_CD4052_10
SETB TR0
ACALL WII
SJMP WIENE
WII:CLR C
MOV A,R4
SUBB A,R1
MOV R4,A
MOV A,R5
SUBB A,R2
MOV R5,A
MOV A,R6
SUBB A,#0
MOV R6,A
RET
WTR:JNB 0AH,TRA
SJMP TRB
TRA:CLR TI
JB 10H,TRA1
RETI
TRA1:PUSH ACC
PUSH PSW
SETB RS0
SETB RS1
MOV A,@R0
MOV SBUF,A
INC R0
DJNZ R1,TRA2
CLR 10H
TRA2:POP PSW
POP ACC
RETI
TRB:CLR TI
JB 10H,TRB1
RETI
TRB1:PUSH ACC
PUSH PSW
SETB RS1
SETB RS0
SETB TB8
MOV A,@R0
MOV SBUF,A
INC R0
DJNZ R1,TRB2
CLR 10H
TRB2:POP PSW
POP ACC
RETI
TTC:MOV R0,#0C0H
MOV R1,46H
MOV R2,47H
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
MOV R0,#0C5H
MOV R1,#72H
MOV R7,#3
TTC1:MOV A,@R1
SWAP A
ANL A,#0FH
ADD A,#30H
MOV @R0,A
DEC R0
MOV A,@R1
ANL A,#0FH
ADD A,#30H
MOV @R0,A
DEC R0
DEC R1
DJNZ R7,TTC1
MOV A,31H
JZ TTC3
MOV R0,#0C0H
MOV A,R0
ADD A,31H
MOV R0,A
MOV A,#2EH ; '.'
TTC2:XCH A,@R0
INC R0
CJNE R0,#0C7H,TTC2
SJMP TTC4
TTC3:MOV R0,#0C6H
MOV @R0,#30H
INC R0
TTC4:JNB 0CH,TTC5
MOV @R0,#2DH ;'-'
SJMP TTC6
TTC5:MOV @R0,#30H
TTC6:MOV 18H,#0C0H
MOV 19H,#8
MOV A,#03DH;=打头
MOV SBUF,A
SETB 10H
SETB 11H
RET
TTR:MOV A,37H
JB ACC.3,TTC
JNB 0AH,TTA;0ah=0 为托利多格式
SJMP TTB
TTA:MOV R0,#0C0H
MOV @R0,#20H
MOV A,31H
CJNE A,#1,TTA1
MOV @R0,#23H
SJMP TTA4
TTA1:CJNE A,#2,TTA2
MOV @R0,#24H
SJMP TTA4
TTA2:CJNE A,#3,TTA3
MOV @R0,#25H
SJMP TTA4
TTA3:CJNE A,#4,TTA4
MOV @R0,#26H
TTA4:INC R0
MOV A,#30H
JNB 0FH,TTA5
SETB ACC.2
TTA5:JNB 0CH,TTA6
SETB ACC.1
TTA6:JNB 0DH,TTA7
SETB ACC.3
TTA7:MOV @R0,A
INC R0
MOV @R0,#20H
MOV R1,46H
MOV R2,47H
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
MOV R0,#0C3H
MOV R1,#72H
MOV R7,#3
TTA9:MOV A,@R1
SWAP A
ANL A,#0FH
ADD A,#30H
MOV @R0,A
INC R0
MOV A,@R1
ANL A,#0FH
ADD A,#30H
MOV @R0,A
INC R0
DEC R1
DJNZ R7,TTA9
MOV @R0,#0DH
INC R0
MOV @R0,#0AH
MOV 18H,#0C0H
MOV 19H,#11
MOV A,#02H
MOV SBUF,A
SETB 10H
SETB 11H
RET
TTB:MOV R0,#0C0H
CLR A
JNB 0FH,TTB1
SETB ACC.7
TTB1:JNB 0CH,TTB2
SETB ACC.5
TTB2:JB 0DH,TTB3
SETB ACC.4
TTB3:MOV @R0,A
MOV A,31H
INC A
ORL A,@R0
MOV @R0,A
MOV R1,46H
MOV R2,47H
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
MOV R0,#0C1H
MOV R1,#70H
MOV R7,#3
TTB4:MOV A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R7,TTB4
MOV 18H,#0C0H
MOV 19H,#4
SETB TB8
MOV A,#0FFH
MOV SBUF,A
SETB 10H
SETB 11H
RET
ADS:NOP
CLR A
MOV R1,A
MOV R2,A
MOV R3,A
MOV R0,#0A0H
MOV R7,#8
ADS0:MOV A,@R0
ADD A,R1
MOV R1,A
INC R0
MOV A,@R0
ADDC A,R2
MOV R2,A
INC R0
MOV A,@R0
ADDC A,R3
MOV R3,A
INC R0
DJNZ R7,ADS0
MOV R7,#5
ADS1:CLR C
MOV A,R3
RRC A
MOV R3,A
MOV A,R2
RRC A
MOV R2,A
MOV A,R1
RRC A
MOV R1,A
DJNZ R7,ADS1
;LCALL ADY
RET
ADX:NOP
CLR A
MOV R1,A
MOV R2,A
MOV R3,A
MOV R0,#0A0H
MOV R7,#8
ADX0:MOV A,@R0
ADD A,R1
MOV R1,A
INC R0
MOV A,@R0
ADDC A,R2
MOV R2,A
INC R0
MOV A,@R0
ADDC A,R3
MOV R3,A
INC R0
DJNZ R7,ADX0
MOV R7,#6
ADX1:CLR C
MOV A,R3
RRC A
MOV R3,A
MOV A,R2
RRC A
MOV R2,A
MOV A,R1
RRC A
MOV R1,A
DJNZ R7,ADX1
RET
SU:NOP
ACALL ADS
CLR 0CH
CLR C
MOV A,R1
SUBB A,43H
MOV R1,A
MOV A,R2
SUBB A,44H
MOV R2,A
MOV A,R3
SUBB A,45H
MOV R3,A
JNC SU0
LCALL CPA
SETB 0CH
CLR 19H
CLR 1AH
SU0:PUSH 00H
PUSH 07H
MOV R4,3DH
MOV R5,3EH
MOV R6,3FH
LCALL MU3
MOV R0,#70H
MOV R7,#5
CLR C
SU1:MOV A,@R0
RLC A
MOV @R0,A
INC R0
DJNZ R7,SU1
MOV 79H,3AH
MOV 7AH,3BH
MOV 7BH,3CH
LCALL DV3
POP 07H
POP 00H
RET
KJ:CJNE A,#8,KJ1
LCALL BT1
RET
KJ1:CJNE A,#14,KJ2
LCALL DATE
LCALL TIME
RET
KJ2:CJNE A,#13,KJ3
JNB 13H,KJ21
CLR P2.3
KJ20:LCALL KY
CJNE A,#13,KJ20
SETB P2.3
KJ21:RET
KJ3:CJNE A,#4,KJ4
LCALL ZZ
RET
KJ4:CJNE A,#11,KJ5
LCALL RPT
RET
KJ5:CJNE A,#10,KJ6
LCALL DYSZ
RET
KJ6:CJNE A,#5,KJ7
JB 0FH,KJ60
JB 15H,KJ60
LCALL ZP
KJ60:RET
KJ7:CJNE A,#1,KJ8
JB 0FH,KJ14
LCALL YCCC
RET
KJ8:CJNE A,#2,KJ9
JB 0FH,KJ80
JB 15H,KJ80
LCALL ECCC
KJ80:RET
KJ9:CJNE A,#12,KJ10
LCALL CLEAR
RET
KJ10:CJNE A,#9,KJ11
LCALL QP
RET
KJ11:CJNE A,#6,KJ12
LCALL ZX
RET
KJ12:CJNE A,#3,KJ13
LCALL BTKLAA
RET
KJ13:CJNE A,#7,KJ14
JNB 13H,KJ14
LCALL BB
RET
KJ14:CJNE A,#15,KJ15
CLR A
MOV 38H,A;取消扣率
MOV 39H,A
MOV DPTR,#7F18H
CALL WRIT
INC DPTR
CALL WRIT
RET
KJ15:RET
SK:NOP
SETB P1.5
JB P1.5,SK0
ORL 27H,#20H
ANL 27H,#0EFH
RET
SK0:NOP
ANL 27H,#0DFH
SETB P4.1
JB P4.1,SK1
ORL 27H,#10H
RET
SK1:ANL 27H,#0EFH
RET
----------
这里去除 了几千行。。。。
-------------
MOV 28H,A
SJMP BTKLAAA
BTKLAA3:JNZ BTKLAAA
MOV 28H,A
SJMP BTKLAAA
BTKLAAB:MOV A,28H
JZ BTKLAAC
SETB 2AH
SJMP BTKLAAD
BTKLAAC:CLR 2AH
BTKLAAD:CLR A
MOV C,2AH
MOV ACC.0,C
MOV C,2FH;选择哪一组扣率
MOV ACC.4,C
MOV DPTR,#7F28H
CALL WRIT
MOV R0,#30H;存扣率作用重量范围
MOVX A,@R0
MOV R1,A
INC R0
MOVX A,@R0
MOV R2,A
MOV R3,#0
LCALL BCD24
CLR 0CH
LCALL BTAA;小数点
BTKLAA0:LCALL SY
LCALL KA
JB 07H,BTKLAA2
JB 08H,BTKLAA1
CALL BTCA
SJMP BTKLAA0
BTKLAA1:LCALL BTCB;7F90,7F91H存放扣率起作用的最小重量
MOV DPTR,#7F90H
MOV R0,#30H
MOV A,R1
MOVX @R0,A
LCALL WRIT
INC R0
INC DPTR
MOV A,R2
MOVX @R0,A
LCALL WRIT
MOV R3,#0;将扣率范围转化为分度数供ZD调用
MOV R4,30H
CALL DV1
MOV R0,#32H
MOV A,R1
MOVX @R0,A
INC R0
MOV A,R2
MOVX @R0,A
BTKLAA2:
RET
BTAA:MOV A,31H;搞定小数点
JNZ BTAA2
MOV 2EH,#00H
SJMP BTAA6
BTAA2:CJNE A,#1,BTAA3
MOV 2EH,#02H
SJMP BTAA6
BTAA3:CJNE A,#2,BTAA4
MOV 2EH,#04H
SJMP BTAA6
BTAA4:CJNE A,#3,BTAA5
MOV 2EH,#08H
SJMP BTAA6
BTAA5:MOV 2EH,#10H
BTAA6:MOV 7FH,2EH
RET
END
...全文
请发表友善的回复…
发表回复
认真生活快乐工作 2014-06-09
- 打赏
- 举报
顶一下，兄弟们
