汇编语言,修改下总密码。感谢大家

文件内容如下所示:大侠们帮忙,是看一下怎么修改总密码,关机密码,加减密码。感谢大家了。急!!!
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

WE:PUSH 07H
MOV R7,#8
WE1:RLC A
MOV SDA_24CXX_5,C
NOP
SETB SCL_24CXX_6
NOP
CLR SCL_24CXX_6
DJNZ R7,WE1
POP 07H
SETB SCL_24CXX_6
NOP
CLR SCL_24CXX_6
RET
WRIT:NOP
PUSH ACC
CLR SDA_24CXX_5
NOP
CLR SCL_24CXX_6
MOV A,#0A0H
ACALL WE
MOV A,DPH
ACALL WE
MOV A,DPL
ACALL WE
POP ACC
PUSH ACC
ACALL WE
CLR SDA_24CXX_5
NOP
SETB SCL_24CXX_6
NOP
SETB SDA_24CXX_5
LCALL DL2
POP ACC
RET
RE:PUSH 07H
MOV R7,#8
CLR A
RE1:SETB SCL_24CXX_6
NOP
MOV C,SDA_24CXX_5
RLC A
CLR SCL_24CXX_6
DJNZ R7,RE1
POP 07H
SETB SDA_24CXX_5
NOP
SETB SCL_24CXX_6
NOP
CLR SCL_24CXX_6
RET
WF:CLR SDA_24CXX_5
NOP
CLR SCL_24CXX_6
MOV A,#0A0H
ACALL WE
MOV A,DPH
ACALL WE
MOV A,DPL
ACALL WE
RET
READ:ACALL WF
SETB SDA_24CXX_5
NOP
SETB SCL_24CXX_6
NOP
CLR SDA_24CXX_5
NOP
CLR SCL_24CXX_6
MOV A,#0A1H
ACALL WE
ACALL RE
CLR SDA_24CXX_5
NOP
SETB SCL_24CXX_6
NOP
SETB SDA_24CXX_5
RET
WP:CLR SDA_24CXX_5
NOP
CLR SCL_24CXX_6
MOV A,#0A0H
LCALL WE
MOV A,DPH
LCALL WE
MOV A,DPL
LCALL WE
PUSH 07H
MOV R7,#32
WP1:CLR A
LCALL WE
DJNZ R7,WP1
POP 07H
CLR SDA_24CXX_5
NOP
SETB SCL_24CXX_6
NOP
SETB SDA_24CXX_5
LCALL DL2
RET
DTW:SETB RST_DS1302_5
MOV A,R2
MOV R4,#8
DTW1:RRC A
MOV DIO_DS1302_6,C
NOP
NOP
SETB CLK_DS1302_7
NOP
NOP
CLR CLK_DS1302_7
DJNZ R4,DTW1
MOV A,R3
MOV R4,#8
DTW2:RRC A
MOV DIO_DS1302_6,C
NOP
NOP
SETB CLK_DS1302_7
NOP
NOP
CLR CLK_DS1302_7
DJNZ R4,DTW2
NOP
NOP
CLR RST_DS1302_5
RET
DTR:SETB RST_DS1302_5
MOV A,R2
MOV R4,#8
DTR1:RRC A
MOV DIO_DS1302_6,C
NOP
NOP
SETB CLK_DS1302_7
NOP
NOP
CLR CLK_DS1302_7
DJNZ R4,DTR1
NOP
NOP
SETB DIO_DS1302_6
CLR A
CLR C
MOV R4,#8
DTR2:MOV C,DIO_DS1302_6
RRC A
NOP
NOP
SETB CLK_DS1302_7
NOP
NOP
CLR CLK_DS1302_7
NOP
NOP
DJNZ R4,DTR2
MOV R3,A
CLR RST_DS1302_5
RET
TMW:MOV R2,#8EH
MOV R3,#00H
CALL DTW
MOV R2,#80H
MOV R3,#00H
CALL DTW
MOV R0,#54H
MOV R2,#8CH
MOV A,@R0
MOV R3,A
CALL DTW
INC R0
MOV R5,#88H
MOV R7,#4
TMW1:MOV A,R5
MOV R2,A
MOV A,@R0
MOV R3,A
LCALL DTW
INC R0
MOV A,R5
DEC A
DEC A
MOV R5,A
DJNZ R7,TMW1
MOV R2,#8EH
MOV R3,#80H
LCALL DTW
RET
TMR:MOV R0,#54H
MOV R2,#8DH
LCALL DTR
MOV A,R3
MOV @R0,A
INC R0
MOV R5,#89H
MOV R7,#4
TMR1:MOV A,R5
MOV R2,A
LCALL DTR
MOV A,R3
MOV @R0,A
INC R0
MOV A,R5
DEC A
DEC A
MOV R5,A
DJNZ R7,TMR1
RET
BCD8:CLR A
MOV R2,A
MOV R3,A
MOV R7,#8
BCD81:CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R2
ADDC A,R2
DA A
MOV R2,A
MOV A,R3
ADDC A,R3
DA A
MOV R3,A
DJNZ R7,BCD81
RET
BCD24:PUSH 00H
PUSH 06H
PUSH 07H
MOV R0,#70H
MOV R7,#3
CLR A
B1:MOV @R0,A
INC R0
DJNZ R7,B1
MOV R7,#24
B2:MOV R0,#01H
MOV R6,#3
CLR C
B3:MOV A,@R0
RLC A
MOV @R0,A
INC R0
DJNZ R6,B3
MOV R0,#70H
MOV R6,#3
B4:MOV A,@R0
ADDC A,@R0
DA A
MOV @R0,A
INC R0
DJNZ R6,B4
DJNZ R7,B2
POP 07H
POP 06H
POP 00H
RET
BCD32:PUSH 00H
PUSH 06H
PUSH 07H
MOV R0,#70H
MOV R7,#4
CLR A
C1:MOV @R0,A
INC R0
DJNZ R7,C1
MOV R7,#32
C2:MOV R0,#01H
MOV R6,#4
CLR C
C3:MOV A,@R0
RLC A
MOV @R0,A
INC R0
DJNZ R6,C3
MOV R0,#70H
MOV R6,#4
C4:MOV A,@R0
ADDC A,@R0
DA A
MOV @R0,A
INC R0
DJNZ R6,C4
DJNZ R7,C2
POP 07H
POP 06H
POP 00H
RET
DCBB:MOV A,R2
ANL A,#0FH
MOV R1,A
MOV A,R2
SWAP A
ANL A,#0FH
MOV B,#10
MUL AB
ADD A,R1
MOV R1,A
MOV A,R3
ANL A,#0FH
MOV B,#100
MUL AB
ADD A,R1
MOV R1,A
RET
DCB:CLR A
MOV R1,A
MOV R2,A
MOV R3,A
MOV R0,#06H
MOV R7,#3
D1:PUSH 04H
MOV R4,#10
LCALL MU1
POP 04H
MOV A,@R0
ANL A,#0F0H
SWAP A
ACALL DCBA
PUSH 04H
MOV R4,#10
LCALL MU1
POP 04H
MOV A,@R0
ANL A,#0FH
ACALL DCBA
DEC R0
DJNZ R7,D1
RET
DCBA:ADD A,R1
MOV R1,A
CLR A
ADDC A,R2
MOV R2,A
CLR A
ADDC A,R3
MOV R3,A
RET
MU1:PUSH 00H
PUSH 05H
PUSH 07H
MOV R0,#01H
MOV R5,#0
MOV R7,#3
CLR C
MU10:MOV A,@R0
MOV B,R4
PUSH PSW
MUL AB
POP PSW
ADDC A,R5
MOV @R0,A
MOV R5,B
INC R0
DJNZ R7,MU10
POP 07H
POP 05H
POP 00H
RET
MU2:PUSH 00H
PUSH 07H
MOV R0,#70H
MOV R7,#5
CLR A
MU20:MOV @R0,A
INC R0
DJNZ R7,MU20
MOV A,R4
MOV B,R1
MUL AB
MOV R0,#70H
ACALL MU2A
MOV A,R4
MOV B,R2
MUL AB
MOV R0,#71H
ACALL MU2A
MOV A,R5
MOV B,R1
MUL AB
MOV R0,#71H
ACALL MU2A
MOV A,R4
MOV B,R3
MUL AB
MOV R0,#72H
ACALL MU2A
MOV A,R5
MOV B,R2
MUL AB
MOV R0,#72H
ACALL MU2A
MOV A,R5
MOV B,R3
MUL AB
MOV R0,#73H
ACALL MU2A
MOV R1,70H
MOV R2,71H
MOV R3,72H
MOV R4,73H
POP 07H
POP 00H
RET
MU2A:ADD A,@R0
MOV @R0,A
INC R0
MOV A,B
ADDC A,@R0
MOV @R0,A
MU2B:MOV F0,C
CJNE R0,#74H,MU2C
RET
MU2C:INC R0
CLR A
MOV C,F0
ADDC A,@R0
MOV @R0,A
SJMP MU2B
MU3:PUSH 00H
PUSH 07H
MOV R0,#70H
MOV R7,#6
CLR A
MU30:MOV @R0,A
INC R0
DJNZ R7,MU30
MOV A,R4
MOV B,R1
MUL AB
MOV R0,#70H
ACALL MU3A
MOV A,R4
MOV B,R2
MUL AB
MOV R0,#71H
ACALL MU3A
MOV A,R5
MOV B,R1
MUL AB
MOV R0,#71H
ACALL MU3A
MOV A,R4
MOV B,R3
MUL AB
MOV R0,#72H
ACALL MU3A
MOV A,R5
MOV B,R2
MUL AB
MOV R0,#72H
ACALL MU3A
MOV A,R6
MOV B,R1
MUL AB
MOV R0,#72H
ACALL MU3A
MOV A,R5
MOV B,R3
MUL AB
MOV R0,#73H
ACALL MU3A
MOV A,R6
MOV B,R2
MUL AB
MOV R0,#73H
ACALL MU3A
MOV A,R6
MOV B,R3
MUL AB
MOV R0,#74H
ACALL MU3A
POP 07H
POP 00H
RET
MU3A:ADD A,@R0
MOV @R0,A
INC R0
MOV A,B
ADDC A,@R0
MOV @R0,A
MU3B:MOV F0,C
CJNE R0,#75H,MU3C
RET
MU3C:INC R0
CLR A
MOV C,F0
ADDC A,@R0
MOV @R0,A
SJMP MU3B
MU4:PUSH 00H
PUSH 06H
PUSH 07H
MOV R0,#01H
MOV R6,#0
MOV R7,#4
CLR C
MU40:MOV A,@R0
MOV B,R5
PUSH PSW
MUL AB
POP PSW
ADDC A,R6
MOV @R0,A
MOV R6,B
INC R0
DJNZ R7,MU40
POP 07H
POP 06H
POP 00H
RET
CPC:MOV A,R1
ADD A,#1
MOV R1,A
MOV A,R2
ADDC A,#0
MOV R2,A
MOV A,R3
ADDC A,#0
MOV R3,A
RET

DV1:PUSH 05H
PUSH 06H
PUSH 07H
CLR A
MOV R5,A
MOV R6,A
MOV R7,#24
CLR F0
ACALL RLN1
DV10:CLR C
MOV A,R5
SUBB A,R4
MOV R5,A
MOV A,R6
SUBB A,#0
MOV R6,A
JC DV12
SETB F0
DV11:ACALL RLN1
DJNZ R7,DV10
POP 07H
POP 06H
POP 05H
RET
DV12:MOV A,R5
ADD A,R4
MOV R5,A
MOV A,R6
ADDC A,#0
MOV R6,A
CLR F0
SJMP DV11
RLN1:MOV C,F0
MOV A,R1
RLC A
MOV R1,A
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
MOV A,R5
RLC A
MOV R5,A
MOV A,R6
RLC A
MOV R6,A
RET
DV2:PUSH 07H
CLR A
MOV 70H,A
MOV 71H,A
MOV 72H,A
MOV R7,#32
CLR F0
ACALL RLN2
DV20:CLR C
MOV A,70H
SUBB A,R5
MOV 70H,A
MOV A,71H
SUBB A,R6
MOV 71H,A
MOV A,72H
SUBB A,#0
MOV 72H,A
JC DV22
SETB F0
DV21:ACALL RLN2
DJNZ R7,DV20
CLR C
MOV A,70H
SUBB A,R5
MOV A,71H
SUBB A,R6
MOV A,72H
SUBB A,#0
JC DV2X
ACALL CPC
DV2X:POP 07H
RET
DV22:MOV A,70H
ADD A,R5
MOV 70H,A
MOV A,71H
ADDC A,R6
MOV 71H,A
MOV A,72H
ADDC A,#0
MOV 72H,A
CLR F0
SJMP DV21
RLN2:MOV C,F0
MOV A,R1
RLC A
MOV R1,A
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
MOV A,R4
RLC A
MOV R4,A
MOV A,70H
RLC A
MOV 70H,A
MOV A,71H
RLC A
MOV 71H,A
MOV A,72H
RLC A
MOV 72H,A
RET
DV3:PUSH 00H
PUSH 06H
PUSH 07H
MOV R0,#75H
MOV R7,#3
CLR A
DV30:MOV @R0,A
INC R0
DJNZ R7,DV30
MOV R7,#40
CLR F0
ACALL RLN3
DV31:CLR C
MOV R0,#75H
MOV R1,#79H
MOV R6,#3
DV32:MOV A,@R0
SUBB A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R6,DV32
JC DV36
SETB F0
DV33:ACALL RLN3
DJNZ R7,DV31
MOV R1,70H
MOV R2,71H
MOV R3,72H
POP 07H
POP 06H
POP 00H
RET
DV36:CLR C
MOV R0,#75H
MOV R1,#79H
MOV R6,#3
DV37:MOV A,@R0
ADDC A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R6,DV37
CLR F0
SJMP DV33
RLN3:MOV C,F0
MOV R0,#70H
MOV R6,#8
RLN31:MOV A,@R0
RLC A
MOV @R0,A
INC R0
DJNZ R6,RLN31
RET
BB:PUSH 27H
PUSH 2EH
PUSH 4AH
PUSH 4BH
CLR A
MOV 4AH,A
MOV 4BH,A
ANL 27H,#32H
MOV 2EH,#00H
MOV 2DH,#15H
MOV 2CH,#01H
MOV 2BH,#05H
MOV 2AH,#1AH
MOV 29H,#10H
MOV 28H,#1
BB0:LCALL KA
JB 07H,BB7
JB 08H,BB1
MOV 28H,A
SJMP BB0
BB1:MOV A,28H
CJNE A,#1,BB2
ACALL TOTC
SJMP BB7
BB2:CJNE A,#2,BB3
ACALL TOTH
SJMP BB7
BB3:CJNE A,#3,BB7
ACALL TOTA
BB7:POP 4BH
POP 4AH
POP 2EH
POP 27H
RET
TOA:MOV DPL,6EH
MOV DPH,6FH
LCALL CO
MOV A,5EH
ADD A,60H
MOV 60H,A
MOV A,5FH
ADDC A,61H
MOV 61H,A
CLR A
ADDC A,62H
MOV 62H,A
CLR A
ADDC A,63H
MOV 63H,A
MOV DPL,6EH
MOV DPH,6FH
MOV A,51H
ORL A,#0A0H
LCALL WRIT
LCALL LH15
RET
TOB:CLR A
MOV 60H,A
MOV 61H,A
MOV 62H,A
MOV 63H,A
RET
TOC:MOV DPL,6EH
MOV DPH,6FH
LCALL CO
MOV A,5EH
ADD A,60H
MOV 60H,A
MOV A,5FH
ADDC A,61H
MOV 61H,A
CLR A
ADDC A,62H
MOV 62H,A
CLR A
ADDC A,63H
MOV 63H,A
MOV DPL,6EH
MOV DPH,6FH
LCALL LH15
RET
TOTC:CLR 17H
CLR 18H
ACALL TOB
OC0:MOV DPTR,#1000H
OC1:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
JZ OC6
CJNE A,#0F0H,OC5
SETB 17H
ACALL TOA
OC2:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
MOV R4,A
ANL A,#0F0H
JZ OC4
CJNE A,#0F0H,OC3
MOV A,R4
ANL A,#0FH
CJNE A,51H,OC3
INC DPTR
LCALL READ
CJNE A,52H,OC3
INC DPTR
LCALL READ
CJNE A,53H,OC3
ACALL TOA
SJMP OC2
OC3:MOV DPL,6EH
MOV DPH,6FH
LCALL LH15
SJMP OC2
OC4:LCALL TCP
ACALL TOB
SJMP OC0
OC5:LCALL LH15
SJMP OC1
OC6:JB 17H,OC8
LCALL E13
OC7:LCALL CL15
RET
OC8:LCALL TT2
MOV DPTR,#1000H
OC9:LCALL READ
JZ OC7
ORL A,#0F0H
LCALL WRIT
LCALL LH15
SJMP OC9
TOTH:CLR 17H
CLR 18H
ACALL TOB
OH0:MOV DPTR,#1000H
OH1:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
JZ OH6
CJNE A,#0F0H,OH5
SETB 17H
ACALL TOA
OH2:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
JZ OH4
CJNE A,#0F0H,OH3
CLR C
MOV A,DPL
ADD A,#8
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
LCALL READ
CJNE A,59H,OH3
ACALL TOA
SJMP OH2
OH3:MOV DPL,6EH
MOV DPH,6FH
LCALL LH15
SJMP OH2
OH4:LCALL THP
ACALL TOB
SJMP OH0
OH5:LCALL LH15
SJMP OH1
OH6:JB 17H,OH8
LCALL E13
OH7:LCALL CL15
RET
OH8:LCALL TT2
MOV DPTR,#1000H
OH9:LCALL READ
JZ OH7
ORL A,#0F0H
LCALL WRIT
LCALL LH15
SJMP OH9
TOTA:CLR 17H
ACALL TOB
MOV DPTR,#1000H
OA1:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
JZ OA2
SETB 17H
ACALL TOC
MOV DPL,6EH
MOV DPH,6FH
LCALL LH15
SJMP OA1
OA2:JNB 17H,OA3
LCALL TAP
RET
OA3:LCALL E13
RET
V:MOV DPTR,#7FFFH
LCALL READ
CJNE A,#0AAH,V0
RET
V0:MOV 2EH,#00H
MOV 2DH,#13H
MOV 2CH,#1AH
MOV 2BH,#02H
MOV 2AH,#00H
MOV 29H,#00H
MOV 28H,#00H
MOV 27H,#00H
MOV DPTR,#7FFFH
MOV A,#0AAH
LCALL WRIT
MOV DPTR,#7F40H
MOV R7,#80
V1:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,V1
MOV DPTR,#7F00H
MOV A,#01H
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
MOV DPTR,#7F27H
MOV A,#99H
LCALL WRIT
INC DPTR
MOV A,#34H
LCALL WRIT
INC DPTR
MOV A,#12H
LCALL WRIT
INC DPTR
MOV R7,#6
V2:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,V2
MOV DPTR,#7F07H
MOV R7,#9
V3:MOV A,#88H
LCALL WRIT
INC DPTR
DJNZ R7,V3
MOV DPTR,#7F10H
MOV A,#10
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
INC DPTR
MOV A,#30H
LCALL WRIT
INC DPTR
MOV A,#75H
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
INC DPTR
MOV A,#23H
LCALL WRIT
INC DPTR
MOV A,#34H
LCALL WRIT
INC DPTR
MOV A,#12H
LCALL WRIT
INC DPTR
MOV A,#10H
MOV A,#0
LCALL WRIT
INC DPTR
MOV A,#27H
MOV A,#0
LCALL WRIT
MOV DPTR,#0000H
V4:LCALL WP
MOV A,DPL
ADD A,#32
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
CJNE A,#7FH,V4
MOV DPTR,#0000H
V5:LCALL READ
JNZ V6
INC DPTR
MOV A,DPH
CJNE A,#7FH,V5
RET
V6:LCALL E11
RET

BT1:NOP
BT10:SETB P3.4
JNB P3.4,BT11
RET
BT11:MOV R0,#20H
MOV A,2EH
MOVX @R0,A
INC R0
MOV A,27H
MOVX @R0,A
PUSH 27H
PUSH 2EH
ANL 27H,#32H
MOV 7FH,2EH
MOV 2EH,#0
LCALL MM1
JB 22H,BTKL;进入扣率功能密码正确,扣率重量标定
JB 09H,BT13
JB 1EH,BT19
BT12:NOP
POP 2EH
POP 27H
LCALL U
MOV DPL,#18H
MOV A,#10H
MOV A,#0
;MOV 38H,A
;LCALL WRIT
INC DPL
MOV A,#27H
MOV A,#0
;MOV 39H,A
;LCALL WRIT
RET
BT13:MOV 28H,#1
MOV 29H,#10H
MOV 2AH,#10H
MOV 2BH,#15H
MOV 2CH,#0AH
MOV 2DH,#0CH
BT14:LCALL KA
JB 07H,BT12
JB 08H,BT15
MOV 28H,A
SJMP BT14
BT15:MOV A,28H
CJNE A,#1,BT16
LCALL BTC
SJMP BT12
BT16:CJNE A,#2,BT17
LCALL BTZ
SJMP BT12
BT17:CJNE A,#3,BT18
LCALL BTBZ
SJMP BT12
BT18:CJNE A,#4,BT12
LCALL BTV
SJMP BT12
BT19:LCALL BTBS
POP 2EH
POP 27H
RET

BTKL:CLR 0CH
CLR A
MOV 70H,A
MOV 71H,A
MOV 72H,A;初始显示P 0
MOV R0,#20H
MOVX A,@R0
MOV 2EH,A
INC R0
MOVX A,@R0
MOV 27H,A
CLR 2CH
BTK1:LCALL SY;将70~72H中内容送28~2DH显示
MOV 2DH,#11H;显示-
SJMP BTK11
BTK10:LCALL SY
MOV 2DH,#10H
BTK11:LCALL KA
JNB 2BH,BTK12;清除键按下标志位
CPL 2CH;扣率加减标志位
SJMP BTK13
BTK12:JB 07H,BTK5
JB 08H,BTK2
LCALL BTCA
BTK13:JNB 2CH,BTK1
SJMP BTK10
BTK2:JNB 2CH,BTK21
MOV A,#01H
MOV DPTR,#7F28H
CALL WRIT
SJMP BTK22
BTK21:CLR A
MOV DPTR,#7F28H
CALL WRIT
BTK22:LCALL BTCB
;MOV A,R1;判断皮重是否为0
;JNZ ZP3
;MOV A,R2
;JNZ ZP3
;RET
BTK3:MOV R3,#0
MOV R4,30H
CALL DV1
MOV 38H,R1
MOV 39H,R2
MOV A,R1
MOV DPTR,#7F18H
LCALL WRIT
MOV A,R2
MOV DPTR,#7F19H
LCALL WRIT
MOV R0,#0
MOV A,R1
MOVX @R0,A
INC R0
MOV A,R2
MOVX @R0,A
;ORL 27H,#08H
;SETB 2AH;是否重新打印菜单头标志位
BTK5:POP 2EH
POP 27H
;LCALL BTKLAAD
RET
;BTK4:CLR 15H
;ANL 27H,#0F7H
;CLR A
;MOV 6CH,A
;MOV 6DH,A
XX:MOV R0,#28H
XX1:XCH A,@R0
INC R0
DJNZ R7,XX1
RET
X2:MOV R7,#2
ACALL XX
RET
X3:MOV R7,#3
ACALL XX
RET
X4:MOV R7,#4
ACALL XX
RET
X5:MOV R7,#5
ACALL XX
RET
X6:MOV R7,#6
ACALL XX
RET
BTBZ:MOV DPTR,#7F18H
MOV A,#10H
MOV A,#0
;MOV 38H,A
;LCALL WRIT
INC DPTR
MOV A,#27H
MOV A,#0
;MOV 39H,A
;LCALL WRIT
BTBZ0:JNB 04H,BTBZ1
CLR 04H
LCALL SU
MOV R4,30H
LCALL DV1
LCALL CPB
LCALL BEX
MOV R4,30H
LCALL MU1
LCALL BCD24
LCALL SY
BTBZ1:LCALL KY
CJNE A,#16,BTBZ2
LCALL ADS
SJMP BTBZ4
BTBZ2:CJNE A,#15,BTBZ0
RET
BTBZ3:LCALL E14
SJMP BTBZ0
BTBZ4:CLR C
MOV A,R1
SUBB A,43H
MOV 54H,A
MOV A,R2
SUBB A,44H
MOV 55H,A
MOV A,R3
SUBB A,45H
MOV 56H,A
JC BTBZ3
MOV A,54H
SUBB A,#20
MOV A,55H
SUBB A,#0
MOV A,56H
SUBB A,#0
JC BTBZ3
BTBZ5:CLR A
MOV R1,A
MOV R2,A
MOV R3,A
LCALL BCD24
CLR 0CH
BTBZ6:LCALL SY
LCALL KA
JB 07H,BTBZ10
JB 08H,BTBZ7
LCALL BTCA
SJMP BTBZ6
BTBZ7:LCALL BTCB
MOV A,R1
JNZ BTBZ8
MOV A,R2
JNZ BTBZ8
MOV A,R3
JNZ BTBZ8
SJMP BTBZ5
BTBZ8:NOP
MOV 3DH,R1
MOV 3EH,R2
MOV 3FH,R3
MOV 3AH,54H
MOV 3BH,55H
MOV 3CH,56H
MOV DPTR,#7F1AH
MOV R0,#3AH
MOV R7,#6
BTBZ9:MOV A,@R0
LCALL WRIT
INC R0
INC DPTR
DJNZ R7,BTBZ9
BTBZ10:RET
BTVX:MOV 2DH,#19H
MOV A,#10H
MOV 2BH,A
MOV 2AH,A
MOV 29H,A
MOV 28H,A
RET
BTVY:LCALL BCD24
MOV R0,#28H
MOV R1,#70H
MOV R7,#3
BTVY1:MOV A,@R1
ANL A,#0FH
MOV @R0,A
INC R0
MOV A,@R1
SWAP A
ANL A,#0FH
MOV @R0,A
INC R0
INC R1
DJNZ R7,BTVY1
RET
BTVU:MOV A,29H
SWAP A
ORL A,28H
MOV R4,A
MOV A,2BH
SWAP A
ORL A,2AH
MOV R5,A
MOV A,2DH
SWAP A
ORL A,2CH
MOV R6,A
LCALL DCB
RET
BTV:NOP
MOV 2EH,#00H
CALL BTVX
MOV 2CH,#1
MOV R7,#200
BTV0:LCALL DL2
DJNZ R7,BTV0
MOV R1,3AH
MOV R2,3BH
MOV R3,3CH
LCALL BTVY
BTV1:LCALL KA
JB 07H,BTV3
JB 08H,BTV2
LCALL X6
SJMP BTV1
BTV2:CALL BTVU
MOV DPTR,#7F1AH
MOV A,R1
MOV 3AH,A
LCALL WRIT
INC DPTR
MOV A,R2
MOV 3BH,A
LCALL WRIT
INC DPTR
MOV A,R3
MOV 3CH,A
LCALL WRIT
BTV3:CALL BTVX
MOV 2CH,#2
MOV R7,#200
BTV4:LCALL DL2
DJNZ R7,BTV4
MOV R1,3DH
MOV R2,3EH
MOV R3,3FH
LCALL BTVY
BTV5:LCALL KA
JB 07H,BTV7
JB 08H,BTV6
LCALL X6
SJMP BTV5
BTV6:CALL BTVU
MOV DPTR,#7F1DH
MOV A,R1
MOV 3DH,A
LCALL WRIT
INC DPTR
MOV A,R2
MOV 3EH,A
LCALL WRIT
INC DPTR
MOV A,R3
MOV 3FH,A
LCALL WRIT
BTV7:RET
BTBS:NOP
MOV 2EH,#04H
CLR 0CH
MOV R1,38H
MOV R2,39H
MOV R3,#0
LCALL BCD24
MOV R0,#70H
MOV A,@R0
ANL A,#0FH
MOV 28H,A
MOV A,@R0
SWAP A
ANL A,#0FH
MOV 29H,A
INC R0
MOV A,@R0
ANL A,#0FH
MOV 2AH,A
MOV A,@R0
SWAP A
ANL A,#0FH
MOV 2BH,A
INC R0
MOV A,@R0
ANL A,#0FH
MOV 2CH,A
MOV 2DH,#10H
BTBS1:LCALL KA
JB 07H,BTBS4
JB 08H,BTBS2
LCALL X5
SJMP BTBS1
BTBS2:MOV A,29H
SWAP A
ORL A,28H
MOV R4,A
MOV A,2BH
SWAP A
ORL A,2AH
MOV R5,A
MOV R6,2CH
LCALL DCB
MOV A,R1
JNZ BTBS3
MOV A,R2
JNZ BTBS3
SJMP BTBS4
BTBS3:MOV DPTR,#7F18H
MOV A,R1
MOV 38H,A
LCALL WRIT
INC DPTR
MOV A,R2
MOV 39H,A
LCALL WRIT
BTBS4:RET

KV:MOV R0,#0AH;保存未经扣率重量以备BEX(判断稳定)用
MOV A,R1
MOVX @R0,A
INC R0
MOV A,R2
MOVX @R0,A

JB 27H,KV4
CLR C;扣率,以直接减加重量的方式
JB 2CH,KV1;加重量标志,此标志在按清除后改变

MOV R0,#26H
MOV A,R1
MOVX @R0,A
INC R0
SUBB A,38H
MOV R1,A
MOV A,R2
MOVX @R0,A

INC R0
SUBB A,39H
MOV R2,A

MOV A,R3
MOVX @R0,A

SUBB A,#0
MOV R3,A
JC KV3
JMP KV4

KV1:MOV A,R1
ADD A,38H
MOV R1,A
MOV A,R2
ADDC A,39H
MOV R2,A
MOV A,R3
ADDC A,#0
MOV R3,A
KV2:JMP KV4
KV3:
MOV R0,#26H
MOVX A,@R0
MOV R1,A
INC R0
MOVX A,@R0
MOV R2,A
INC R0
MOVX A,@R0
MOV R3,A
KV4:MOV 46H,R1
MOV 47H,R2
RET

MM1:CLR 09H
CLR 1EH
CLR 22H
MOV R0,#28H
MOV R7,#6
MOV A,#10H
MM10:MOV @R0,A
INC R0
DJNZ R7,MM10
MM11:LCALL KA
JB 07H,MM12
JB 08H,MM13
JB 2BH,MM11
LCALL X6
SJMP MM11
MM12:CLR A
MOV 38H,A
MOV 39H,A
MOV DPTR,#7F18H
CALL WRIT
INC DPTR
CALL WRIT
RET

MM13:MOV A,2AH;先判断是否两位密码正确,若是,则进入扣率状态
CJNE A,#10H,MM131

MOV DPTR,#7F27H
LCALL READ
MOV R0,A
MOV R1,#29H
MOV A,R0
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM54
DEC R1
MOV A,R0
ANL A,#0FH
XRL A,@R1
JNZ MM54
;SETB 09H
SETB 22H
MM54:RET
MM131:MOV R1,#2DH
MOV A,#5
XRL A,@R1
JNZ MM14
DEC R1
MOV A,#1
XRL A,@R1
JNZ MM14
DEC R1
MOV A,#6
XRL A,@R1
JNZ MM14
DEC R1
MOV A,#4
XRL A,@R1
JNZ MM14
DEC R1
MOV A,#2
XRL A,@R1
JNZ MM14
DEC R1
MOV A,#8
XRL A,@R1
JNZ MM14
SETB 09H
RET
MM14:LCALL TMR
MOV R1,#2DH
MOV A,54H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM15
DEC R1
MOV A,55H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM15
DEC R1
MOV A,56H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM15
DEC R1
MOV A,54H
ANL A,#0FH
XRL A,@R1
JNZ MM15
DEC R1
MOV A,55H
ANL A,#0FH
XRL A,@R1
JNZ MM15
DEC R1
MOV A,56H
ANL A,#0FH
XRL A,@R1
JNZ MM15
SETB 09H
RET
MM15:MOV DPTR,#7F07H
ACALL MMR
MOV R0,#78H
MOV R1,#28H
MOV R7,#6
MM17:MOV A,@R0
XRL A,@R1
JNZ MM18
INC R0
INC R1
DJNZ R7,MM17
SETB 09H
RET
MM18:MOV DPTR,#7F27H
ACALL MMR
MOV R0,#78H
MOV R1,#28H
MOV R7,#6
MM19:MOV A,@R0
XRL A,@R1
JNZ MM1A
INC R0
INC R1
DJNZ R7,MM19
SETB 1EH
RET
MM1A:MOV R1,#2DH
MOV A,#5
XRL A,@R1
JNZ MM1B
DEC R1
MOV A,#0
XRL A,@R1
JNZ MM1B
DEC R1
MOV A,#3
XRL A,@R1
JNZ MM1B
DEC R1
MOV A,#1
XRL A,@R1
JNZ MM1B
DEC R1
MOV A,#2
XRL A,@R1
JNZ MM1B
DEC R1
MOV A,#8
XRL A,@R1
JNZ MM1B
LCALL MMG
RET

MM1B:MOV R1,#2DH
MOV A,#5
XRL A,@R1
JNZ MM1C
DEC R1
MOV A,#7
XRL A,@R1
JNZ MM1C
DEC R1
MOV A,#2
XRL A,@R1
JNZ MM1C
DEC R1
MOV A,#5
XRL A,@R1
JNZ MM1C
DEC R1
MOV A,#7
XRL A,@R1
JNZ MM1C
DEC R1
MOV A,#2
XRL A,@R1
JNZ MM1C
LCALL MMH
MM1C:RET

MMG:MOV DPTR,#7F2AH
LCALL MMRX
MMG1:LCALL KA
JB 07H,MMG7
JB 08H,MMG2
LCALL X6
SJMP MMG1
MMG2:MOV DPTR,#7F2AH
LCALL MMW
MOV DPTR,#7F2DH
LCALL MMRX
MOV 2EH,#15H
MMG3:LCALL KA
JB 07H,MMG7
JB 08H,MMG4
LCALL X6
SJMP MMG3
MMG4:MOV DPTR,#7F2DH
LCALL MMW
MOV 2EH,#00H
MMG7:RET

MMH:MOV DPTR,#7F27H
MOV R0,#28H
LCALL READ
MOV R1,A
ANL A,#0FH
MOV @R0,A
INC R0
MOV A,R1
SWAP A
ANL A,#0FH
MOV @R0,A
MOV R7,#4
MOV A,#10H
MMH0:INC R0
MOV @R0,A
DJNZ R7,MMH0

MMH1:LCALL KA
JB 07H,MMH7
JB 08H,MMH6
LCALL X2
SJMP MMH1
MMH6:MOV DPTR,#7F27H
MOV A,29H
ANL A,#0FH
SWAP A
MOV R1,A
MOV A,28H
ANL A,#0FH
ORL A,R1
LCALL WRIT
MMH7:RET

BT2:NOP
PUSH 27H
PUSH 2EH
MOV 27H,#0
MOV 2EH,#0
ACALL MM2
JB 09H,BT21
BT20:NOP
POP 2EH
POP 27H
RET
BT21:LCALL DSGJ
SJMP BT20
BT3:NOP
PUSH 27H
PUSH 2EH
MOV 27H,#0
MOV 2EH,#0
ACALL MM3
JB 09H,BT31
BT30:NOP
POP 2EH
POP 27H
RET
BT31:LCALL CZCC
SJMP BT30
BT4:NOP
PUSH 27H
PUSH 2EH
MOV 27H,#0
MOV 2EH,#0
ACALL MM4
JB 09H,BT41
BT40:NOP
POP 2EH
POP 27H
RET
BT41:NOP
MOV DPTR,#7F03H
LCALL READ
MOV R1,A
ANL A,#0FH
MOV 28H,A
MOV A,R1
SWAP A
ANL A,#0FH
MOV 29H,A
INC DPTR
LCALL READ
MOV R1,A
ANL A,#0FH
MOV 2AH,A
MOV A,R1
SWAP A
ANL A,#0FH
MOV 2BH,A
JNZ BT42
MOV 2BH,#10H
MOV A,2AH
JNZ BT42
MOV 2AH,#10H
MOV A,29H
JNZ BT42
MOV 29H,#10H
BT42:MOV A,#10H
MOV 2CH,A
MOV 2DH,A
BT43:LCALL KY
CJNE A,#15,BT44
SJMP BT40
BT44:CJNE A,#12,BT43
MOV DPTR,#7F03H
CLR A
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
SJMP BT40
MM2:NOP
CLR 09H
MOV R0,#28H
MOV R7,#6
MOV A,#10H
MM20:MOV @R0,A
INC R0
DJNZ R7,MM20
MM21:LCALL KA
JB 07H,MM22
JB 08H,MM23
LCALL X6
SJMP MM21
MM22:RET
MM23:MOV R1,#2DH
MOV A,#1
XRL A,@R1
JNZ MM24
DEC R1
MOV A,#8
XRL A,@R1
JNZ MM24
DEC R1
MOV A,#7
XRL A,@R1
JNZ MM24
DEC R1
MOV A,#2
XRL A,@R1
JNZ MM24
DEC R1
MOV A,#1
XRL A,@R1
JNZ MM24
DEC R1
MOV A,#6
XRL A,@R1
JNZ MM24
SETB 09H
RET
MM24:LCALL TMR
MOV R1,#2DH
MOV A,54H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM25
DEC R1
MOV A,56H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM25
DEC R1
MOV A,55H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM25
DEC R1
MOV A,56H
ANL A,#0FH
XRL A,@R1
JNZ MM25
DEC R1
MOV A,54H
ANL A,#0FH
XRL A,@R1
JNZ MM25
DEC R1
MOV A,55H
ANL A,#0FH
XRL A,@R1
JNZ MM25
SETB 09H
RET
MM25:MOV DPTR,#7F0AH
ACALL MMR
MOV R0,#78H
MOV R1,#28H
MOV R7,#6
MM27:MOV A,@R0
XRL A,@R1
JNZ MM28
INC R0
INC R1
DJNZ R7,MM27
SETB 09H
MM28:RET
MM3:NOP
CLR 09H
MOV R0,#28H
MOV R7,#6
MOV A,#10H
MM30:MOV @R0,A
INC R0
DJNZ R7,MM30
MM31:LCALL KA
JB 07H,MM32
JB 08H,MM33
LCALL X6
SJMP MM31
MM32:RET
MM33:MOV R1,#2DH
MOV A,#4
XRL A,@R1
JNZ MM34
DEC R1
MOV A,#9
XRL A,@R1
JNZ MM34
DEC R1
MOV A,#5
XRL A,@R1
JNZ MM34
DEC R1
MOV A,#7
XRL A,@R1
JNZ MM34
DEC R1
MOV A,#7
XRL A,@R1
JNZ MM34
DEC R1
MOV A,#6
XRL A,@R1
JNZ MM34
SETB 09H
RET
MM34:LCALL TMR
MOV R1,#2DH
MOV A,54H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM35
DEC R1
MOV A,55H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM35
DEC R1
MOV A,56H
SWAP A
ANL A,#0FH
XRL A,@R1
JNZ MM35
DEC R1
MOV A,56H
ANL A,#0FH
XRL A,@R1
JNZ MM35
DEC R1
MOV A,55H
ANL A,#0FH
XRL A,@R1
JNZ MM35
DEC R1
MOV A,54H
ANL A,#0FH
XRL A,@R1
JNZ MM35
SETB 09H
RET
MM35:MOV DPTR,#7F0DH
ACALL MMR
MOV R0,#78H
MOV R1,#28H
MOV R7,#6
MM37:MOV A,@R0
XRL A,@R1
JNZ MM38
INC R0
INC R1
DJNZ R7,MM37
SETB 09H
MM38:RET
MM4:NOP
CLR 09H
MOV R0,#28H
MOV R7,#6
MOV A,#10H
MM40:MOV @R0,A
INC R0
DJNZ R7,MM40
MM41:LCALL KA
JB 07H,MM42
JB 08H,MM43
LCALL X4
SJMP MM41
MM42:RET
MM43:MOV R1,#2BH
MOV A,#2
XRL A,@R1
JNZ MM44
DEC R1
MOV A,#0
XRL A,@R1
JNZ MM44
DEC R1
MOV A,#0
XRL A,@R1
JNZ MM44
DEC R1
MOV A,#0
XRL A,@R1
JNZ MM44
SETB 09H
MM44:RET
MMR:NOP
MOV R0,#78H
MMR0:MOV R7,#3
MMR1:LCALL READ
MOV R1,A
ANL A,#0FH
MOV @R0,A
INC R0
MOV A,R1
SWAP A
ANL A,#0FH
MOV @R0,A
INC R0
INC DPTR
DJNZ R7,MMR1
RET
MMRX:NOP
MOV R0,#28H
ACALL MMR0
RET
MMW:MOV R0,#78H
ACALL DSC
MOV R0,#78H
MOV R7,#3
MMW1:MOV A,@R0
LCALL WRIT
INC R0
INC DPTR
DJNZ R7,MMW1
RET
DSR:PUSH 07H
MOV R0,#78H
MOV R7,#6
DSR1:LCALL READ
MOV @R0,A
INC R0
INC DPTR
DJNZ R7,DSR1
POP 07H
RET
DSW:PUSH 07H
MOV R0,#78H
MOV R7,#6
DSW1:MOV A,@R0
LCALL WRIT
INC R0
INC DPTR
DJNZ R7,DSW1
POP 07H
RET
DSA:MOV 28H,#10H
MOV 29H,#10H
MOV 2AH,#10H
MOV 2CH,#02H
MOV 2DH,#0FH
MOV 2EH,#10H
RET
DSB:MOV R1,#28H
MOV R7,#3
DSB1:MOV A,@R0
ANL A,#0FH
MOV @R1,A
INC R1
MOV A,@R0
SWAP A
ANL A,#0FH
MOV @R1,A
INC R0
INC R1
DJNZ R7,DSB1
RET
DSC:MOV R1,#28H
MOV R7,#3
DSC1:INC R1
MOV A,@R1
SWAP A
DEC R1
ORL A,@R1
MOV @R0,A
INC R0
INC R1
INC R1
DJNZ R7,DSC1
RET
DSD:ACALL DSA
DSD0:LCALL KY
JZ DSD0
CJNE A,#15,DSD1
SJMP DSD7
DSD1:CJNE A,#16,DSD0
MOV 2EH,#15H
MOV DPH,#7FH
MOV DPL,7EH
ACALL DSR
MOV R0,#78H
ACALL DSB
DSD3:LCALL KA
JB 07H,DSD7
JB 08H,DSD4
LCALL X6
SJMP DSD3
DSD4:MOV R0,#78H
ACALL DSC
MOV 2EH,#00H
MOV R0,#7BH
ACALL DSB
DSD5:LCALL KA
JB 07H,DSD7
JB 08H,DSD6
LCALL X6
SJMP DSD5
DSD6:MOV R0,#7BH
ACALL DSC
MOV DPH,#7FH
MOV DPL,7EH
ACALL DSW
DSD7:RET
DSGJ:NOP
MOV 28H,#10H
MOV 29H,#10H
MOV 2AH,#0EH
MOV 2BH,#1AH
MOV 2CH,#0AH
MOV 2DH,#0DH
DS0:LCALL KY
CJNE A,#15,DS1
SJMP DS4
DS1:CJNE A,#16,DS0
LCALL DTX
DS2:LCALL KA
JB 07H,DS4
JB 08H,DS3
LCALL X6
SJMP DS2
DS3:MOV A,2DH
SWAP A
ORL A,2CH
MOV 54H,A
MOV A,2BH
SWAP A
ORL A,2AH
MOV 55H,A
MOV A,29H
SWAP A
ORL A,28H
MOV 56H,A
LCALL TMW
DS4:MOV A,#10H
MOV 28H,A
MOV 29H,A
MOV 2AH,A
MOV 2BH,A
MOV 2CH,#02H
MOV 2DH,#0FH
MOV 2EH,#00H
DS5:LCALL KY
CJNE A,#15,DS6
SJMP DS9
DS6:CJNE A,#16,DS5
MOV DPTR,#7F0AH
ACALL MMRX
DS7:LCALL KA
JB 07H,DS9
JB 08H,DS8
LCALL X6
SJMP DS7
DS8:MOV DPTR,#7F0AH
ACALL MMW
DS9:MOV 2BH,#01H
MOV 7EH,#40H
ACALL DSD
MOV 2BH,#02H
MOV 7EH,#48H
ACALL DSD
MOV 2BH,#03H
MOV 7EH,#50H
ACALL DSD
RET
CZA:MOV 28H,#10H
MOV 29H,#10H
MOV 2AH,#10H
MOV 2CH,#03H
MOV 2DH,#0FH
MOV 2EH,#10H
RET
CZB:NOP
ACALL CZA
CZB0:LCALL KY
JZ CZB0
CJNE A,#15,CZB1
SJMP CZB4
CZB1:CJNE A,#16,CZB0
MOV 2EH,#15H
ACALL DSR
MOV R0,#78H
ACALL DSB
CZB2:LCALL KY
JZ CZB2
CJNE A,#15,CZB3
SJMP CZB4
CZB3:CJNE A,#16,CZB2
MOV R1,7BH
MOV R2,7CH
MOV R3,7DH
LCALL BCD24
MOV 2EH,7FH
LCALL YY1
CZB4:RET
YY1:LCALL SY
YY10:LCALL KY
CJNE A,#15,YY11
RET
YY11:CJNE A,#16,YY10
RET
CZCC:NOP
MOV A,#10H
MOV 28H,A
MOV 29H,A
MOV 2AH,A
MOV 2BH,A
MOV 2CH,#03H
MOV 2DH,#0FH
CZ0:LCALL KY
CJNE A,#15,CZ1
SJMP CZ6
CZ1:CJNE A,#12,CZ3
MOV 28H,#10H
MOV 29H,#11H
MOV 2AH,#15H
MOV 2BH,#0CH
MOV 2CH,#11H
MOV 2DH,#10H
MOV DPTR,#7F60H
MOV R7,#40
CZ2:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,CZ2
SJMP CZCC
CZ3:CJNE A,#16,CZ0
MOV DPTR,#7F0DH
ACALL MMRX
CZ4:LCALL KA
JB 07H,CZ6
JB 08H,CZ5
LCALL X6
SJMP CZ4
CZ5:MOV DPTR,#7F0DH
ACALL MMW
CZ6:NOP
MOV 2BH,#01H
MOV DPTR,#7F60H
ACALL CZB
MOV 2BH,#02H
MOV DPTR,#7F68H
ACALL CZB
MOV 2BH,#03H
MOV DPTR,#7F70H
ACALL CZB
MOV 2BH,#04H
MOV DPTR,#7F78H
ACALL CZB
MOV 2BH,#05H
MOV DPTR,#7F80H
ACALL CZB
RET
GJPD:LCALL TMR
MOV DPTR,#7F40H
LCALL DSR
MOV A,78H
JNZ GJ0
MOV A,79H
JNZ GJ0
MOV A,7AH
JNZ GJ0
SJMP GJ2
GJ0:CLR C
MOV A,56H
SUBB A,78H
MOV A,55H
SUBB A,79H
MOV A,54H
SUBB A,7AH
JNC GJ1
RET
GJ1:CLR A
MOV 27H,A
MOV 28H,#10H
MOV 29H,#18H
MOV 2AH,#15H
MOV 2BH,#0EH
MOV 2CH,#13H
MOV 2DH,#10H
MOV 2EH,A
LCALL KY
CJNE A,#14,GJ11
LCALL DTX
MOV R7,#200
GJ10:LCALL DL2
DJNZ R7,GJ10
SJMP GJ1
GJ11:CJNE A,#16,GJ1
LCALL BH
SJMP GJ1
GJ2:MOV DPTR,#7F48H
LCALL DSR
MOV A,78H
JNZ GJ3
MOV A,79H
JNZ GJ3
MOV A,7AH
JNZ GJ3
SJMP GJ4
GJ3:CLR C
MOV A,56H
SUBB A,78H
MOV A,55H
SUBB A,79H
MOV A,54H
SUBB A,7AH
JNC GJ1
RET
GJ4:MOV DPTR,#7F50H
LCALL DSR
MOV A,78H
JNZ GJ5
MOV A,79H
JNZ GJ5
MOV A,7AH
JNZ GJ5
RET
GJ5:CLR C
MOV A,56H
SUBB A,78H
MOV A,55H
SUBB A,79H
MOV A,54H
SUBB A,7AH
JNC GJ1
RET
CLGJ:NOP
PUSH 27H
PUSH 2EH
MOV 27H,#00H
MOV 2EH,#00H
MOV A,#10H
MOV 28H,A
MOV 29H,A
MOV 2AH,A
MOV 2BH,A
MOV 2CH,A
MOV 2DH,A
CG0:LCALL KA
JB 07H,CG3
JB 08H,CG1
LCALL X6
SJMP CG0
CG1:MOV A,29H
SWAP A
ORL A,28H
MOV 70H,A
MOV A,2BH
SWAP A
ORL A,2AH
MOV 71H,A
MOV A,2DH
SWAP A
ORL A,2CH
MOV 72H,A
MOV DPTR,#7F40H
LCALL DSR
MOV A,7BH
CJNE A,70H,CG4
MOV A,7CH
CJNE A,71H,CG4
MOV A,7DH
CJNE A,72H,CG4
MOV DPTR,#7F40H
MOV R7,#8
CG2:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,CG2
CG3:NOP
POP 2EH
POP 27H
RET
CG4:MOV DPTR,#7F48H
LCALL DSR
MOV A,7BH
CJNE A,70H,CG6
MOV A,7CH
CJNE A,71H,CG6
MOV A,7DH
CJNE A,72H,CG6
MOV DPTR,#7F40H
MOV R7,#16
CG5:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,CG5
SJMP CG3
CG6:MOV DPTR,#7F50H
LCALL DSR
MOV A,7BH
CJNE A,70H,CG3
MOV A,7CH
CJNE A,71H,CG3
MOV A,7DH
CJNE A,72H,CG3
MOV DPTR,#7F40H
MOV R7,#24
CG7:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,CG7
SJMP CG3
BTC:NOP
MOV A,#10H
MOV 28H,A
MOV 29H,A
MOV 2AH,A
MOV 2BH,A
MOV 2CH,#01H
MOV 2DH,#0FH
BC0:LCALL KY
CJNE A,#15,BC1
SJMP BC4
BC1:CJNE A,#16,BC0
MOV DPTR,#7F07H
LCALL MMRX
BC2:LCALL KA
JB 07H,BC4
JB 08H,BC3
LCALL X6
SJMP BC2
BC3:MOV DPTR,#7F07H
LCALL MMW
BC4:NOP
LCALL BTC1
LCALL BTC2
LCALL BTC3
LCALL BTC5
LCALL BTC6
LCALL BTC7
LCALL BTC8
LCALL BTC9
RET
BTC1:NOP
MOV R1,30H
LCALL BCD8
MOV A,R2
ANL A,#0FH
MOV 28H,A
MOV A,R2
SWAP A
ANL A,#0FH
MOV 29H,A
MOV A,#10H
MOV 2AH,A
MOV 2BH,A
MOV 2CH,A
MOV 2DH,#0DH
BTC10:LCALL KA
JB 07H,BTC18
JB 08H,BTC11
LCALL X2
SJMP BTC10
BTC11:MOV A,29H
SWAP A
ORL A,28H
MOV R2,A
CJNE R2,#01H,BTC12
MOV A,#1
SJMP BTC17
BTC12:CJNE R2,#02H,BTC13
MOV A,#2
SJMP BTC17
BTC13:CJNE R2,#05H,BTC14
MOV A,#5
SJMP BTC17
BTC14:CJNE R2,#10H,BTC15
MOV A,#10
SJMP BTC17
BTC15:CJNE R2,#20H,BTC16
MOV A,#20
SJMP BTC17
BTC16:CJNE R2,#50H,BTC10
MOV A,#50
BTC17:MOV 30H,A
MOV DPTR,#7F10H
LCALL WRIT
BTC18:RET
BTC2:NOP
MOV 28H,31H
MOV A,#10H
MOV 29H,A
MOV 2AH,A
MOV 2BH,A
MOV 2CH,#0CH
MOV 2DH,#0DH
BTC20:LCALL KA
JB 07H,BTC27
JB 08H,BTC21
MOV 28H,A
SJMP BTC20
BTC21:MOV A,28H
JNZ BTC22
MOV 2EH,#00H
SJMP BTC26
BTC22:CJNE A,#1,BTC23
MOV 2EH,#02H
SJMP BTC26
BTC23:CJNE A,#2,BTC24
MOV 2EH,#04H
SJMP BTC26
BTC24:CJNE A,#3,BTC25
MOV 2EH,#08H
SJMP BTC26
BTC25:CJNE A,#4,BTC20
MOV 2EH,#10H
BTC26:MOV 31H,A
MOV DPTR,#7F11H
LCALL WRIT
BTC27:RET
BTCA:PUSH ACC
MOV R7,#4
BTCA1:CLR C
MOV R0,#70H
MOV A,@R0
RLC A
MOV @R0,A
INC R0
MOV A,@R0
RLC A
MOV @R0,A
INC R0
MOV A,@R0
RLC A
MOV @R0,A
DJNZ R7,BTCA1
POP ACC
ORL A,70H
MOV 70H,A
RET
BTCB:NOP
MOV R4,70H
MOV R5,71H
MOV R6,72H
LCALL DCB
RET
BTC3:NOP
MOV R1,32H
MOV R2,33H
MOV R3,34H
LCALL BCD24
CLR 0CH
BTC30:LCALL SY
LCALL KA
JB 07H,BTC32
JB 08H,BTC31
LCALL BTCA
SJMP BTC30
BTC31:LCALL BTCB
MOV DPTR,#7F12H
MOV A,R1
MOV 32H,A
LCALL WRIT
INC DPTR
MOV A,R2
MOV 33H,A
LCALL WRIT
INC DPTR
MOV A,R3
MOV 34H,A
LCALL WRIT
BTC32:RET
BTC4:NOP
MOV A,35H
SWAP A
ANL A,#0FH
MOV 28H,A
MOV 29H,#10H
MOV 2AH,#10H
MOV 2BH,#1AH
MOV 2CH,#15H
MOV 2DH,#0FH
MOV 2EH,#00H
BTC40:LCALL KA
JB 07H,BTC45
JB 08H,BTC41
MOV 28H,A
SJMP BTC40
BTC41:MOV A,28H
CJNE A,#1,BTC42
SJMP BTC44
BTC42:CJNE A,#2,BTC43
SJMP BTC44
BTC43:CJNE A,#3,BTC40
BTC44:MOV A,28H
SWAP A
MOV R1,A
MOV A,35H
ANL A,#0FH
ORL A,R1
MOV 35H,A
MOV DPTR,#7F15H
LCALL WRIT
BTC45:RET
BTC5:NOP
MOV A,35H
ANL A,#0FH
MOV 28H,A
MOV 29H,#10H
MOV 2AH,#10H
MOV 2BH,#01H
MOV 2CH,#01H
MOV 2DH,#0FH
MOV 2EH,#10H
BTC50:LCALL KA
JB 07H,BTC58
JB 08H,BTC51
MOV 28H,A
SJMP BTC50
BTC51:MOV A,28H
JZ BTC57
CJNE A,#1,BTC52
SJMP BTC57
BTC52:CJNE A,#2,BTC53
SJMP BTC57
BTC53:CJNE A,#3,BTC54
SJMP BTC57
BTC54:CJNE A,#4,BTC55
SJMP BTC57
BTC55:CJNE A,#5,BTC56
SJMP BTC57
BTC56:CJNE A,#6,BTC50
BTC57:MOV A,35H
ANL A,#0F0H
ORL A,28H
MOV 35H,A
MOV DPTR,#7F15H
LCALL WRIT
BTC58:RET
BTC6:NOP
NOP
MOV A,36H
SWAP A
ANL A,#0FH
MOV 28H,A
MOV 29H,#10H
MOV 2AH,#10H
MOV 2BH,#02H
MOV 2CH,#01H
MOV 2DH,#0FH
MOV 2EH,#10H
BTC60:LCALL KA
JB 07H,BTC67
JB 08H,BTC61
MOV 28H,A
SJMP BTC60
BTC61:MOV A,28H
JZ BTC66
CJNE A,#1,BTC62
SJMP BTC66
BTC62:CJNE A,#2,BTC63
SJMP BTC66
BTC63:CJNE A,#3,BTC64
SJMP BTC66
BTC64:CJNE A,#4,BTC65
SJMP BTC66
BTC65:CJNE A,#5,BTC60
BTC66:MOV A,28H
SWAP A
MOV R1,A
MOV A,36H
ANL A,#0FH
ORL A,R1
MOV 36H,A
MOV DPTR,#7F16H
LCALL WRIT
BTC67:RET
BTC7:NOP
NOP
MOV A,36H
ANL A,#0FH
MOV 28H,A
MOV 29H,#10H
MOV 2AH,#10H
MOV 2BH,#03H
MOV 2CH,#01H
MOV 2DH,#0FH
MOV 2EH,#10H
BTC70:LCALL KA
JB 07H,BTC77
JB 08H,BTC71
MOV 28H,A
SJMP BTC70
BTC71:MOV A,28H
JZ BTC76
CJNE A,#1,BTC72
SJMP BTC76
BTC72:CJNE A,#2,BTC73
SJMP BTC76
BTC73:CJNE A,#3,BTC74
SJMP BTC76
BTC74:CJNE A,#4,BTC75
SJMP BTC76
BTC75:CJNE A,#5,BTC70
BTC76:MOV A,36H
ANL A,#0F0H
ORL A,28H
MOV 36H,A
MOV DPTR,#7F16H
LCALL WRIT
BTC77:RET
BTC8:NOP
NOP
MOV A,37H
SWAP A
ANL A,#0FH
MOV 28H,A
MOV 29H,#10H
MOV 2AH,#10H
MOV 2BH,#04H
MOV 2CH,#01H
MOV 2DH,#0FH
MOV 2EH,#10H
BTC80:LCALL KA
JB 07H,BTC83
JB 08H,BTC81
MOV 28H,A
SJMP BTC80
BTC81:MOV A,28H
JZ BTC82
CJNE A,#1,BTC80
BTC82:MOV A,28H
SWAP A
MOV R1,A
MOV A,37H
ANL A,#0FH
ORL A,R1
MOV 37H,A
MOV DPTR,#7F17H
LCALL WRIT
BTC83:RET
BTC9:NOP
NOP
MOV A,37H
ANL A,#0FH
MOV 28H,A
MOV 29H,#10H
MOV 2AH,#10H
MOV 2BH,#05H
MOV 2CH,#01H
MOV 2DH,#0FH
MOV 2EH,#10H
BTC90:LCALL KA
JB 07H,BTC94
JB 08H,BTC91
MOV 28H,A
SJMP BTC90
BTC91:MOV A,28H
BTC92:CJNE A,#9,BTC93
SJMP BTC90
BTC93:MOV A,37H
ANL A,#0F0H
ORL A,28H
MOV 37H,A
MOV DPTR,#7F17H
LCALL WRIT
BTC94:RET
BTZ:MOV DPTR,#7F18H
;MOV A,#10H
MOV A,#0
;MOV 38H,A;进入标定后扣率不取消
;LCALL WRIT
INC DPTR
MOV A,#0
;MOV A,#27H
;MOV 39H,A
;LCALL WRIT
BTZ0:JNB 04H,BTZ1
CLR 04H
LCALL ADX
LCALL BCD24
CLR 0CH
LCALL SY
BTZ1:LCALL KY
CJNE A,#15,BTZ2
SJMP BTZ3
BTZ2:CJNE A,#16,BTZ0
LCALL ADS
MOV DPTR,#7F20H
MOV A,R1
MOV 40H,A
MOV 43H,A
LCALL WRIT
INC DPTR
MOV A,R2
MOV 41H,A
MOV 44H,A
LCALL WRIT
INC DPTR
MOV A,R3
MOV 42H,A
MOV 45H,A
LCALL WRIT
BTZ3:MOV 2EH,7FH
BTZ4:JNB 04H,BTZ5
CLR 04H
LCALL SU
MOV R4,30H
LCALL DV1
LCALL CPB
LCALL BEX
MOV R4,30H
LCALL MU1
LCALL BCD24
LCALL SY
BTZ5:LCALL KY
CJNE A,#16,BTZ6
LCALL ADS
SJMP BTZ7
BTZ6:CJNE A,#15,BTZ4
RET
BTZ6A:LCALL E14
SJMP BTZ4
BTZ7:CLR C
MOV A,R1
SUBB A,43H
MOV 54H,A
MOV A,R2
SUBB A,44H
MOV 55H,A
MOV A,R3
SUBB A,45H
MOV 56H,A
JC BTZ6A
MOV A,54H
SUBB A,#20
MOV A,55H
SUBB A,#0
MOV A,56H
SUBB A,#0
JC BTZ6A
BTZ8:CLR A
MOV R1,A
MOV R2,A
MOV R3,A
LCALL BCD24
CLR 0CH
BTZ9:LCALL SY
LCALL KA
JB 07H,BTZ13
JB 08H,BTZ10
LCALL BTCA
SJMP BTZ9
BTZ10:LCALL BTCB
MOV A,R1
JNZ BTZ11
MOV A,R2
JNZ BTZ11
MOV A,R3
JNZ BTZ11
SJMP BTZ8
BTZ11:NOP
MOV 3DH,R1
MOV 3EH,R2
MOV 3FH,R3
MOV 3AH,54H
MOV 3BH,55H
MOV 3CH,56H
MOV DPTR,#7F1AH
MOV R0,#3AH
MOV R7,#6
BTZ12:MOV A,@R0
LCALL WRIT
INC R0
INC DPTR
DJNZ R7,BTZ12
BTZ13:RET
KA:NOP
CLR 07H
CLR 08H
CLR 2BH
LCALL KY
JZ KA
CJNE A,#8,KA0
CLR A
RET
KA0:CJNE A,#1,KA1
MOV A,#1
RET
KA1:CJNE A,#5,KA2
MOV A,#2
RET
KA2:CJNE A,#9,KA3
MOV A,#3
RET
KA3:CJNE A,#2,KA4
MOV A,#4
RET
KA4:CJNE A,#6,KA5
MOV A,#5
RET
KA5:CJNE A,#10,KA6
MOV A,#6
RET
KA6:CJNE A,#3,KA7
MOV A,#7
RET
KA7:CJNE A,#7,KA8
MOV A,#8
RET
KA8:CJNE A,#11,KA9
MOV A,#9
RET
KA9:CJNE A,#15,KA10
SETB 07H
RET
KA10:CJNE A,#16,KA11
SETB 08H
RET
KA11:CJNE A,#12,KA
SETB 2BH
RET
BBJ:NOP
JB 0CH,BBJ0
JB 1AH,BBJ0
JNB 0EH,BBJ0
SJMP BBJ1
BBJ0:RET
BBJ1:NOP
PUSH 01H
PUSH 02H
PUSH 03H
MOV R4,30H
LCALL MU1
CLR C
MOV A,#0F4H
SUBB A,R1
MOV A,#01H
SUBB A,R2
CLR A
SUBB A,R3
JNC BBJ2
SETB 1AH
MOV DPTR,#7F03H
LCALL READ
MOV R1,A
INC DPTR
LCALL READ
MOV R2,A
MOV A,R1
ADD A,#1
DA A
MOV R1,A
MOV A,R2
ADDC A,#0
DA A
MOV R2,A
MOV DPTR,#7F03H
MOV A,R1
LCALL WRIT
INC DPTR
MOV A,R2
LCALL WRIT
BBJ2:POP 03H
POP 02H
POP 01H
RET
BBJJ:NOP
JB 19H,BJ0
JB 0CH,BJ0
JB 0DH,BJ0
JNB 0EH,BJ0
SJMP BJ1
BJ0:RET
BJ1:NOP
PUSH 01H
PUSH 02H
PUSH 03H
SETB 19H
MOV R4,30H
LCALL MU1
CLR C
MOV A,67H
SUBB A,R1
MOV A,68H
SUBB A,R2
MOV A,69H
SUBB A,R3
JNC BJX
MOV 75H,R1
MOV 76H,R2
MOV 77H,R3
MOV DPTR,#7F68H
LCALL DSR
ACALL BJC
JC BJ2
ACALL BJB
MOV DPTR,#7F60H
LCALL DSW
MOV 67H,75H
MOV 68H,76H
MOV 69H,77H
SJMP BJX
BJ2:MOV DPTR,#7F60H
LCALL DSW
MOV 67H,7BH
MOV 68H,7CH
MOV 69H,7DH
MOV DPTR,#7F70H
LCALL DSR
ACALL BJC
JC BJ3
ACALL BJB
MOV DPTR,#7F68H
LCALL DSW
BJX:NOP
POP 03H
POP 02H
POP 01H
RET
BJ3:MOV DPTR,#7F68H
LCALL DSW
MOV DPTR,#7F78H
LCALL DSR
ACALL BJC
JC BJ4
ACALL BJB
MOV DPTR,#7F70H
LCALL DSW
SJMP BJX
BJ4:MOV DPTR,#7F70H
LCALL DSW
MOV DPTR,#7F80H
LCALL DSR
ACALL BJC
JC BJ5
ACALL BJB
MOV DPTR,#7F78H
LCALL DSW
SJMP BJX
BJ5:MOV DPTR,#7F78H
LCALL DSW
ACALL BJB
MOV DPTR,#7F80H
LCALL DSW
SJMP BJX
BJB:LCALL TMR
MOV 78H,56H
MOV 79H,55H
MOV 7AH,54H
MOV 7BH,75H
MOV 7CH,76H
MOV 7DH,77H
RET
BJC:CLR C
MOV A,7BH
SUBB A,75H
MOV A,7CH
SUBB A,76H
MOV A,7DH
SUBB A,77H
RET
SC:JB 04H,SC0
RET
SC0:NOP
CLR 04H
CLR 11H
LCALL SU
MOV R4,30H
LCALL DV1
LCALL ZR
LCALL CPB

LCALL BEX
LCALL KV;乘以扣率

LCALL BBJ
LCALL BBJJ
LCALL CZZ
JB 0FH,SC4
JNB 15H,SC2;有皮重标志
JNB 0CH,SC1
CLR 0CH
LCALL CPA
SC1:CLR C
MOV A,R1
SUBB A,6CH
MOV R1,A
MOV A,R2
SUBB A,6DH

MOV R2,A
MOV A,R3
SUBB A,#0
MOV R3,A
JNB ACC.7,SC2
SETB 0CH
LCALL CPA
SC2:MOV R4,30H
LCALL MU1
LCALL BCD24
LCALL SY
SC3:LCALL SK
RET
SC4:MOV A,#11H
MOV R0,#28H
MOV R7,#6
SC5:MOV @R0,A
INC R0
DJNZ R7,SC5
SJMP SC3

CPA:CLR C
MOV A,R1
CPL A
ADD A,#1
MOV R1,A
MOV A,R2
CPL A
ADDC A,#0
MOV R2,A
MOV A,R3
CPL A
ADDC A,#0
MOV R3,A
RET
CPB: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
JNC CPB1
MOV A,R1
ADD A,#1
MOV R1,A
MOV A,R2
ADDC A,#0
MOV R2,A
MOV A,R3
ADDC A,#0
MOV R3,A
CPB1:RET
SY:JB 1CH,SY8
JB 1DH,SY9
NOP
MOV R0,#70H
MOV R1,#78H
MOV R7,#3
SY0:MOV A,@R0
ANL A,#0FH
MOV @R1,A
INC R1
MOV A,@R0
SWAP A
ANL A,#0FH
MOV @R1,A
INC R0
INC R1
DJNZ R7,SY0
MOV R0,#7DH
MOV A,2EH
JNZ SY1
MOV R7,#5
SJMP SY5
SY1:CJNE A,#02H,SY2
MOV R7,#4
SJMP SY5
SY2:CJNE A,#04H,SY3
MOV R7,#3
SJMP SY5
SY3:CJNE A,#08H,SY4
MOV R7,#2
SJMP SY5
SY4:CJNE A,#10H,SY5
MOV R7,#1
SY5:MOV A,@R0
JNZ SY6
MOV @R0,#10H
DEC R0
DJNZ R7,SY5
SY6:JNB 0CH,SY7
INC R0
MOV @R0,#11H
SY7:NOP
MOV 28H,78H
MOV 29H,79H
MOV 2AH,7AH
MOV 2BH,7BH
MOV 2CH,7CH
MOV 2DH,7DH
RET
SY8:CLR 1CH
RET
SY9:CLR 1DH
RET
ZR:MOV A,35H
ANL A,#0FH
JNZ ZR1
RET
ZR1:MOV A,R3
JNZ ZR3
MOV A,R2
JNZ ZR3
CLR C
MOV A,35H
ANL A,#0FH
SUBB A,R1
JC ZR3
MOV A,48H
DEC A
JZ ZR2
MOV 48H,A
CLR A
MOV R1,A
RET
ZR2:ACALL ZERO
CLR A
MOV R1,A
ZR3:MOV 48H,#20
RET

ZD:CLR C;判断是否小于5d
MOV A,R1
SUBB A,#1
MOV A,R2
SUBB A,#0
JC ZD1
JNB 2AH,ZD00;小于扣率范围扣率不起作用选项F1.6=0,
ZD0:CLR C
MOV R0,#32H;与扣率范围进行比较
MOVX A,@R0
MOV B,A
MOV A,R1
SUBB A,B
INC R0
MOVX A,@R0
MOV B,A
MOV A,R2
SUBB A,B
JC ZD1
ZD00:CLR 27H
RET
ZD1:SETB 27H;小于范围,则27H=1
RET

BEX:;MOV A,R1
;CJNE A,46H,BE1
;MOV A,R2
;CJNE A,47H,BE1
MOV R0,#0AH
MOVX A,@R0
CJNE A,01H,BE1
INC R0
MOVX A,@R0
CJNE A,02H,BE1

ORL 27H,#04H
CLR 0DH
CALL ZD

SJMP BE2
BE1:MOV 46H,R1
MOV 47H,R2
ANL 27H,#0FBH
SETB 0DH
BE2:MOV A,R1
JNZ BE3
MOV A,R2
JNZ BE3
CLR 0CH
CLR 0EH
CLR 19H
CLR 1AH
ORL 27H,#40H
RET
BE3:SETB 0EH
ANL 27H,#0BFH
RET
CZX:MOV R1,32H
MOV R2,33H
MOV R3,34H
MOV R4,30H
LCALL DV1
MOV R0,#4DH
MOV A,R1
ADD A,#9
MOV @R0,A
INC R0
MOV A,R2
ADDC A,#0
MOV @R0,A
INC R0
MOV A,R3
ADDC A,#0
MOV @R0,A
RET
CZZ:CLR 0FH
JB 0CH,CZZ0
CLR C
MOV A,4DH
SUBB A,R1
MOV A,4EH
SUBB A,R2
MOV A,4FH
SUBB A,R3
JNC CZZ0
SETB 0FH

CZZ0:RET
QP:JB 15H,QP0
JB 0CH,QP2
QP0:CPL 15H
JB 15H,QP1
ANL 27H,#0F7H
RET
QP1:ORL 27H,#08H
MOV 6CH,46H
MOV 6DH,47H
QP2:RET
KZ:MOV 43H,40H
MOV 44H,41H
MOV 45H,42H
MOV A,36H
SWAP A
ACALL ZZZ
RET
ZZ:MOV A,36H
ACALL ZZZ
RET
ZZZ:ANL A,#0FH
JNZ ZZ0
MOV 43H,40H
MOV 44H,41H
MOV 45H,42H
RET
ZZ0:CJNE A,#1,ZZ1
MOV 7FH,#4
CALL ZZX
RET
ZZ1:CJNE A,#2,ZZ2
MOV 7FH,#8
CALL ZZX
RET
ZZ2:CJNE A,#3,ZZ3
MOV 7FH,#40
CALL ZZX
RET
ZZ3:CJNE A,#4,ZZ4
MOV 7FH,#100
CALL ZZX
RET
ZZ4:ACALL ZERO
RET
ZERO:PUSH 01H
PUSH 02H
PUSH 03H
LCALL ADS
MOV 43H,R1
MOV 44H,R2
MOV 45H,R3
POP 03H
POP 02H
POP 01H
RET
ZZZZ:LCALL ADS
CLR 0CH
CLR C
MOV A,R1
SUBB A,40H
MOV R1,A
MOV A,R2
SUBB A,41H
MOV R2,A
MOV A,R3
SUBB A,42H
MOV R3,A
JNC ZZZ0
LCALL CPA
SETB 0CH
ZZZ0:MOV R4,3DH
MOV R5,3EH
MOV R6,3FH
LCALL MU3
MOV R0,#70H
MOV R7,#5
CLR C
ZZZ1:MOV A,@R0
RLC A
MOV @R0,A
INC R0
DJNZ R7,ZZZ1
MOV 79H,3AH
MOV 7AH,3BH
MOV 7BH,3CH
LCALL DV3
MOV R4,30H
LCALL DV1
RET
ZZX:CALL ZZZZ
PUSH 01H
PUSH 02H
PUSH 03H
MOV R1,32H
MOV R2,33H
MOV R3,34H
MOV R4,30H
LCALL DV1
MOV R4,7FH
LCALL MU1
MOV R4,#100
LCALL DV1
POP 06H
POP 05H
POP 04H
CLR C
MOV A,R1
SUBB A,R4
MOV A,R2
SUBB A,R5
MOV A,R3
SUBB A,R6
JC ZZX1
CALL ZERO
ZZX1:RET
DTX:MOV 2EH,#15H
LCALL TMR
MOV R0,#56H
MOV R1,#28H
MOV R7,#3
DTX0:MOV A,@R0
ANL A,#0FH
MOV @R1,A
INC R1
MOV A,@R0
SWAP A
ANL A,#0FH
MOV @R1,A
DEC R0
INC R1
DJNZ R7,DTX0
RET
DATE:NOP
PUSH 27H
PUSH 2EH
ANL 27H,#32H
CALL DTX
DATE1:LCALL KY
CJNE A,#14,DATE1
POP 2EH
POP 27H
RET
TIME:NOP
PUSH 27H
PUSH 2EH
ANL 27H,#32H
MOV 2DH,#10H
MOV 2EH,#00H
TM0:LCALL TMR
MOV A,58H
ANL A,#0FH
MOV 28H,A
MOV A,58H
SWAP A
ANL A,#0FH
MOV 29H,A
MOV 2AH,#12H
MOV A,57H
ANL A,#0FH
MOV 2BH,A
MOV A,57H
SWAP A
ANL A,#0FH
MOV 2CH,A
LCALL KY
JZ TM0
CJNE A,#14,TM2
TM1:POP 2EH
POP 27H
RET
TM2:CJNE A,#15,TM3
SJMP TM1
TM3:CJNE A,#16,TM0
TM4:LCALL KA
JB 07H,TM6
JB 08H,TM5
XCH A,28H
XCH A,29H
XCH A,2BH
XCH A,2CH
SJMP TM4
TM5:MOV A,29H
SWAP A
ORL A,28H
MOV 58H,A
MOV A,2CH
SWAP A
ORL A,2BH
MOV 57H,A
LCALL TMW
TM6:POP 2EH
POP 27H
RET
DYSZ:NOP
PUSH 27H
PUSH 2EH
ANL 27H,#32H
MOV 2EH,#00H
MOV 28H,49H
MOV A,#10H
MOV 29H,A
MOV 2AH,A
MOV 2BH,A
MOV 2CH,A
MOV 2DH,#18H
DY1:LCALL KA
JB 07H,DY3
JB 08H,DY2
MOV 28H,A
SJMP DY1
DY2:MOV A,28H
ANL A,#03H
JZ DY3
MOV 49H,A
MOV DPTR,#7F00H
LCALL WRIT
DY3:POP 2EH
POP 27H
RET
ZX:PUSH 27H
PUSH 2EH
PUSH 4AH
PUSH 4BH
CLR A
MOV 4AH,A
MOV 4BH,A
MOV 6AH,A
MOV 6BH,A
ANL 27H,#32H
MOV 7FH,2EH
MOV 2EH,#00H
MOV 2DH,#10H
MOV 2CH,#19H
MOV 2BH,#0EH
MOV 2AH,#0AH
MOV 29H,#0DH
MOV 28H,#10H
ZX0:LCALL KY
CJNE A,#1,ZX1
LCALL ZJZ
SJMP ZX4
ZX1:CJNE A,#5,ZX2
LCALL ZPZ
SJMP ZX4
ZX2:CJNE A,#2,ZX3
LCALL ZJG
SJMP ZX4
ZX3:CJNE A,#15,ZX0
ZX4:POP 4BH
POP 4AH
POP 2EH
POP 27H
RET
NO:MOV A,6AH
ADD A,#1
DA A
MOV 6AH,A
MOV A,6BH
ADDC A,#0
DA A
MOV 6BH,A
RET
NOO:MOV A,4AH
ADD A,#1
DA A
MOV 4AH,A
MOV A,4BH
ADDC A,#0
DA A
MOV 4BH,A
RET
NOXS:NOP
MOV 2EH,#00H
MOV 2DH,#16H
MOV 2CH,#17H
MOV 2BH,#10H
MOV 2AH,6BH
MOV A,6AH
SWAP A
ANL A,#0FH
MOV 29H,A
MOV A,6AH
ANL A,#0FH
MOV 28H,A
RET
RQXS:NOP
MOV 2EH,#04H
MOV 2DH,#0DH
MOV 2CH,#10H
MOV A,55H
SWAP A
ANL A,#0FH
MOV 2BH,A
MOV A,55H
ANL A,#0FH
MOV 2AH,A
MOV A,56H
SWAP A
ANL A,#0FH
MOV 29H,A
MOV A,56H
ANL A,#0FH
MOV 28H,A
RET
SJXS:NOP
MOV 2EH,#00H
MOV 2DH,#1AH
MOV A,57H
SWAP A
ANL A,#0FH
MOV 2CH,A
MOV A,57H
ANL A,#0FH
MOV 2BH,A
MOV 2AH,#12H
MOV A,58H
SWAP A
ANL A,#0FH
MOV 29H,A
MOV A,58H
ANL A,#0FH
MOV 28H,A
RET
CHXS:NOP
MOV 2EH,#00H
MOV 2DH,#0CH
MOV 2CH,51H
MOV A,52H
SWAP A
ANL A,#0FH
MOV 2BH,A
MOV A,52H
ANL A,#0FH
MOV 2AH,A
MOV A,53H
SWAP A
ANL A,#0FH
MOV 29H,A
MOV A,53H
ANL A,#0FH
MOV 28H,A
RET
HHXS:NOP
MOV 2EH,#00H
MOV 2DH,#13H
MOV 2CH,#10H
MOV 2BH,#10H
MOV 2AH,#10H
MOV A,59H
SWAP A
ANL A,#0FH
MOV 29H,A
MOV A,59H
ANL A,#0FH
MOV 28H,A
RET
MZXS:NOP
MOV 2EH,7FH
MOV R1,5AH
MOV R2,5BH
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
LCALL SY
RET
PZXS:NOP
MOV 2EH,7FH
MOV R1,5CH
MOV R2,5DH
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
LCALL SY
RET
NZXS:NOP
MOV 2EH,7FH
MOV R1,5EH
MOV R2,5FH
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
LCALL SY
RET
CPZ:MOV DPL,6EH
MOV DPH,6FH
MOV R7,#5
CPZ0:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,CPZ0
RET
ZJZ:CLR 17H
MOV DPTR,#0000H
JZ0:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
CJNE A,#0F0H,JZ10
SETB 17H
LCALL RPP
LCALL NO
LCALL NOXS
JZ1:LCALL KY
CJNE A,#15,JZ2
SJMP JZ11
JZ2:CJNE A,#16,JZ1
ACALL CHXS
JZ3:LCALL KY
CJNE A,#15,JZ4
SJMP JZ11
JZ4:CJNE A,#12,JZ5
ACALL CPZ
SJMP JZ9
JZ5:CJNE A,#16,JZ3
ACALL PZXS
JZ6:LCALL KY
CJNE A,#15,JZ7
SJMP JZ11
JZ7:CJNE A,#12,JZ8
ACALL CPZ
SJMP JZ9
JZ8:CJNE A,#16,JZ6
JZ9:MOV DPL,6EH
MOV DPH,6FH
JZ10:LCALL LH5
MOV A,DPL
CJNE A,#0FFH,JZ0
MOV A,DPH
CJNE A,#05H,JZ0
JB 17H,JZ11
LCALL E12
JZ11:LCALL CLP
RET
ZPZ:CLR 17H
MOV DPTR,#0600H
ZPZ0:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
CJNE A,#0F0H,ZPZ10
SETB 17H
LCALL RPP
LCALL NO
LCALL NOXS
ZPZ1:LCALL KY
CJNE A,#15,ZPZ2
SJMP ZPZ11
ZPZ2:CJNE A,#16,ZPZ1
ACALL CHXS
ZPZ3:LCALL KY
CJNE A,#15,ZPZ4
SJMP ZPZ11
ZPZ4:CJNE A,#12,ZPZ5
ACALL CPZ
SJMP ZPZ9
ZPZ5:CJNE A,#16,ZPZ3
ACALL PZXS
ZPZ6:LCALL KY
CJNE A,#15,ZPZ7
SJMP ZPZ11
ZPZ7:CJNE A,#12,ZPZ8
ACALL CPZ
SJMP ZPZ9
ZPZ8:CJNE A,#16,ZPZ6
ZPZ9:MOV DPL,6EH
MOV DPH,6FH
ZPZ10:LCALL LH5
MOV A,DPH
CJNE A,#10H,ZPZ0
JB 17H,ZPZ11
LCALL E12
ZPZ11:LCALL CLP
RET
ZJG:NOP
MOV 2DH,#19H
MOV 2CH,#0DH
MOV 2BH,#10H
MOV 2AH,#10H
MOV 29H,#10H
MOV 28H,#1
JG0:LCALL KA
JB 07H,JG4
JB 08H,JG1
MOV 28H,A
SJMP JG0
JG1:MOV A,28H
CJNE A,#1,JG2
ACALL ZCH
RET
JG2:CJNE A,#2,JG3
ACALL ZHH
RET
JG3:CJNE A,#3,JG4
LCALL ZRQ
JG4:RET
ZCX:JB 17H,ZCY
LCALL E12
ZCY:RET
ZCZ:AJMP ZC23
ZCH:CLR 17H
LCALL CH
JNB 07H,ZC0
RET
ZC0:NOP
MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
MOV DPTR,#1000H
ZC1:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
MOV R4,A
ANL A,#0F0H
CJNE A,#0F0H,ZCX
LCALL NOO
MOV A,R4
ANL A,#0FH
CJNE A,51H,ZCZ
INC DPTR
LCALL READ
CJNE A,52H,ZCZ
INC DPTR
LCALL READ
CJNE A,53H,ZCZ
SETB 17H
MOV DPL,6EH
MOV DPH,6FH
LCALL CO
LCALL NO
LCALL NOXS
ZC2:LCALL KY
CJNE A,#15,ZC3
SJMP ZCX
ZC3:CJNE A,#11,ZC4
LCALL TB
AJMP ZC23
ZC4:CJNE A,#16,ZC2
LCALL RQXS
ZC5:LCALL KY
CJNE A,#15,ZC6
SJMP ZCX
ZC6:CJNE A,#11,ZC7
LCALL TB
AJMP ZC23
ZC7:CJNE A,#16,ZC5
LCALL SJXS
ZC8:LCALL KY
CJNE A,#15,ZC9
AJMP ZCX
ZC9:CJNE A,#11,ZC10
LCALL TB
AJMP ZC23
ZC10:CJNE A,#16,ZC8
ACALL HHXS
ZC11:LCALL KY
CJNE A,#15,ZC12
AJMP ZCX
ZC12:CJNE A,#11,ZC13
LCALL TB
AJMP ZC23
ZC13:CJNE A,#16,ZC11
ACALL MZXS
ZC14:LCALL KY
CJNE A,#15,ZC15
AJMP ZCX
ZC15:CJNE A,#11,ZC16
LCALL TB
SJMP ZC23
ZC16:CJNE A,#16,ZC14
ACALL PZXS
ZC17:LCALL KY
CJNE A,#15,ZC18
AJMP ZCX
ZC18:CJNE A,#11,ZC19
LCALL TB
SJMP ZC23
ZC19:CJNE A,#16,ZC17
ACALL NZXS
ZC20:LCALL KY
CJNE A,#15,ZC21
AJMP ZCX
ZC21:CJNE A,#11,ZC22
LCALL TB
SJMP ZC23
ZC22:CJNE A,#16,ZC20
ZC23:NOP
MOV DPL,6EH
MOV DPH,6FH
LCALL LH15
MOV A,DPL
CJNE A,#78H,ZC24
MOV A,DPH
CJNE A,#79H,ZC24
AJMP ZCX
ZC24:AJMP ZC1
ZHX:JB 17H,ZHY
LCALL E12
ZHY:RET
ZHZ:AJMP ZH23
ZHH:CLR 17H
LCALL HH
JNB 07H,ZH0
RET
ZH0:NOP
MOV DPTR,#1000H
ZH1:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
CJNE A,#0F0H,ZHX
LCALL NOO
MOV A,DPL
ADD A,#8
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
LCALL READ
CJNE A,59H,ZHZ
SETB 17H
MOV DPL,6EH
MOV DPH,6FH
LCALL CO
LCALL NO
LCALL NOXS
ZH2:LCALL KY
CJNE A,#15,ZH3
SJMP ZHX
ZH3:CJNE A,#11,ZH4
LCALL TB
AJMP ZH23
ZH4:CJNE A,#16,ZH2
LCALL RQXS
ZH5:LCALL KY
CJNE A,#15,ZH6
SJMP ZHX
ZH6:CJNE A,#11,ZH7
LCALL TB
AJMP ZH23
ZH7:CJNE A,#16,ZH5
LCALL SJXS
ZH8:LCALL KY
CJNE A,#15,ZH9
AJMP ZHX
ZH9:CJNE A,#11,ZH10
LCALL TB
AJMP ZH23
ZH10:CJNE A,#16,ZH8
ACALL CHXS
ZH11:LCALL KY
CJNE A,#15,ZH12
AJMP ZHX
ZH12:CJNE A,#11,ZH13
LCALL TB
AJMP ZH23
ZH13:CJNE A,#16,ZH11
ACALL MZXS
ZH14:LCALL KY
CJNE A,#15,ZH15
AJMP ZCX
ZH15:CJNE A,#11,ZH16
LCALL TB
SJMP ZH23
ZH16:CJNE A,#16,ZH14
ACALL PZXS
ZH17:LCALL KY
CJNE A,#15,ZH18
AJMP ZHX
ZH18:CJNE A,#11,ZH19
LCALL TB
SJMP ZH23
ZH19:CJNE A,#16,ZH17
ACALL NZXS
ZH20:LCALL KY
CJNE A,#15,ZH21
AJMP ZHX
ZH21:CJNE A,#11,ZH22
LCALL TB
SJMP ZH23
ZH22:CJNE A,#16,ZH20
ZH23:NOP
MOV DPL,6EH
MOV DPH,6FH
LCALL LH15
MOV A,DPL
CJNE A,#78H,ZH24
MOV A,DPH
CJNE A,#79H,ZH24
AJMP ZHX
ZH24:AJMP ZH1
RQ:LCALL TMR
MOV 2EH,#04H
MOV 2DH,#0DH
MOV 2CH,#10H
MOV A,55H
SWAP A
ANL A,#0FH
MOV 2BH,A
MOV A,55H
ANL A,#0FH
MOV 2AH,A
MOV A,56H
SWAP A
ANL A,#0FH
MOV 29H,A
MOV A,56H
ANL A,#0FH
MOV 28H,A
RQ0:LCALL KA
JB 07H,RQ2
JB 08H,RQ1
LCALL X4
SJMP RQ0
RQ1:MOV A,29H
SWAP A
ORL A,28H
MOV 56H,A
MOV A,2BH
SWAP A
ORL A,2AH
MOV 55H,A
RQ2:RET
ZQX:JB 17H,ZQY
LCALL E12
ZQY:RET
ZQZ:AJMP ZQ23
ZRQ:CLR 17H
LCALL RQ
JNB 07H,ZQ0
RET
ZQ0:NOP
MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
MOV DPTR,#1000H
ZQ1:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
CJNE A,#0F0H,ZQX
LCALL NOO
MOV A,DPL
ADD A,#4
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
LCALL READ
CJNE A,55H,ZQZ
INC DPTR
LCALL READ
CJNE A,56H,ZQZ
SETB 17H
MOV DPL,6EH
MOV DPH,6FH
LCALL CO
LCALL NO
LCALL NOXS
ZQ2:LCALL KY
CJNE A,#15,ZQ3
SJMP ZQX
ZQ3:CJNE A,#11,ZQ4
LCALL TB
AJMP ZQ23
ZQ4:CJNE A,#16,ZQ2
LCALL SJXS
ZQ5:LCALL KY
CJNE A,#15,ZQ6
SJMP ZQX
ZQ6:CJNE A,#11,ZQ7
LCALL TB
AJMP ZQ23
ZQ7:CJNE A,#16,ZQ5
LCALL CHXS
ZQ8:LCALL KY
CJNE A,#15,ZQ9
LJMP ZQX
ZQ9:CJNE A,#11,ZQ10
LCALL TB
AJMP ZQ23
ZQ10:CJNE A,#16,ZQ8
LCALL HHXS
ZQ11:LCALL KY
CJNE A,#15,ZQ12
LJMP ZQX
ZQ12:CJNE A,#11,ZQ13
LCALL TB
AJMP ZQ23
ZQ13:CJNE A,#16,ZQ11
LCALL MZXS
ZQ14:LCALL KY
CJNE A,#15,ZQ15
LJMP ZQX
ZQ15:CJNE A,#11,ZQ16
LCALL TB
AJMP ZQ23
ZQ16:CJNE A,#16,ZQ14
LCALL PZXS
ZQ17:LCALL KY
CJNE A,#15,ZQ18
LJMP ZQX
ZQ18:CJNE A,#11,ZQ19
LCALL TB
AJMP ZQ23
ZQ19:CJNE A,#16,ZQ17
LCALL NZXS
ZQ20:LCALL KY
CJNE A,#15,ZQ21
LJMP ZQX
ZQ21:CJNE A,#11,ZQ22
LCALL TB
AJMP ZQ23
ZQ22:CJNE A,#16,ZQ20
ZQ23:NOP
MOV DPL,6EH
MOV DPH,6FH
LCALL LH15
MOV A,DPL
CJNE A,#78H,ZQ24
MOV A,DPH
CJNE A,#79H,ZQ24
LJMP ZQX
ZQ24:AJMP ZQ1
EE:MOV 28H,#10H
MOV 2BH,#19H
MOV 2CH,#0EH
MOV 2DH,#10H
PUSH 07H
MOV R7,#150
EE1:LCALL DL2
DJNZ R7,EE1
POP 07H
RET
E1:NOP
MOV 2AH,#0
MOV 29H,#1
ACALL EE
RET
E2:NOP
MOV 2AH,#0
MOV 29H,#2
ACALL EE
RET
E3:NOP
MOV 2AH,#0
MOV 29H,#3
ACALL EE
RET
E4:NOP
MOV 2AH,#0
MOV 29H,#4
ACALL EE
RET
E5:NOP
MOV 2AH,#0
MOV 29H,#5
ACALL EE
RET
E6:NOP
MOV 2AH,#0
MOV 29H,#6
ACALL EE
RET
E7:NOP
MOV 2AH,#0
MOV 29H,#7
ACALL EE
RET
E8:NOP
MOV 2AH,#0
MOV 29H,#8
ACALL EE
RET
E9:NOP
MOV 2AH,#0
MOV 29H,#9
ACALL EE
RET
E10:NOP
MOV 2AH,#1
MOV 29H,#0
ACALL EE
RET
E11:NOP
MOV 2AH,#1
MOV 29H,#1
ACALL EE
RET
E12:NOP
MOV 2AH,#1
MOV 29H,#2
ACALL EE
RET
E13:NOP
MOV 2AH,#1
MOV 29H,#3
ACALL EE
RET
E14:NOP
MOV 2AH,#1
MOV 29H,#4
ACALL EE
RET
CC:CLR 12H
JB 0CH,CC0
JB 0DH,CC0
JNB 0EH,CC0
SETB 12H
RET
CC0:ACALL E8
RET
CH:CLR A
MOV 28H,A
MOV 29H,A
MOV 2AH,A
MOV 2BH,A
MOV 2CH,A
MOV 2DH,#0CH
CH0:LCALL KA
JB 07H,CH2
JB 08H,CH1
LCALL X5
SJMP CH0
CH1:MOV A,29H
SWAP A
ORL A,28H
MOV R3,A
MOV A,2BH
SWAP A
ORL A,2AH
MOV R2,A
MOV A,2CH
MOV R1,A
CH2:RET
HH:CLR A
MOV 28H,A
MOV 29H,A
MOV A,#10H
MOV 2AH,A
MOV 2BH,A
MOV 2CH,A
MOV 2DH,#13H
HH0:LCALL KA
JB 07H,HH2
JB 08H,HH1
LCALL X2
SJMP HH0
HH1:MOV A,29H
SWAP A
ORL A,28H
MOV 59H,A
HH2:RET
LH5:CLR C
MOV A,DPL
ADD A,#5
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
RET
LH15:CLR C
MOV A,DPL
ADD A,#15
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
RET
CL5:MOV R7,#5
CL50:CLR A
LCALL WRIT
INC DPTR
DJNZ R7,CL50
RET
CL15:MOV R0,#51H
MOV R7,#15
CLR A
CL150:MOV @R0,A
INC R0
DJNZ R7,CL150
RET
CN:MOV DPTR,#1000H
CN0:LCALL READ
ANL A,#0F0H
CJNE A,#0F0H,CN1
LCALL LH15
MOV A,DPH
CJNE A,#79H,CN0
MOV A,DPL
CJNE A,#78H,CN0
LCALL E1
RET
CN1:LCALL TMR
MOV R0,#51H
MOV R7,#15
CN2:MOV A,@R0
LCALL WRIT
INC R0
INC DPTR
DJNZ R7,CN2
ANL 51H,#0FH
CLR C
MOV A,4AH
ADD A,#1
DA A
MOV 4AH,A
MOV A,4BH
ADDC A,#0
DA A
MOV 4BH,A
MOV DPTR,#7F01H
MOV A,4AH
LCALL WRIT
INC DPTR
MOV A,4BH
LCALL WRIT
RET
RP:LCALL READ
MOV 5CH,A
INC DPTR
LCALL READ
MOV 5DH,A
RET
RPP:LCALL READ
ANL A,#0FH
MOV 51H,A
INC DPTR
LCALL READ
MOV 52H,A
INC DPTR
LCALL READ
MOV 53H,A
INC DPTR
LCALL READ
MOV 5CH,A
INC DPTR
LCALL READ
MOV 5DH,A
RET
YCCC:NOP
PUSH 27H
PUSH 2EH
ANL 27H,#32H
MOV 2EH,#00H
LCALL CC
JNB 12H,YC1
LCALL CH
JB 07H,YC1
JB 15H,YCX
MOV A,R1
JNZ YC2
MOV A,R2
JNZ YC2
MOV A,R3
JNZ YC2
MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
MOV A,46H
MOV 5AH,A
MOV 5EH,A
MOV A,47H
MOV 5BH,A
MOV 5FH,A
YC0:LCALL HH
JB 07H,YC1
ORL 51H,#0F0H
LCALL CN
LCALL TA
YC1:LCALL CL15
POP 2EH
POP 27H
RET
YCX:LJMP YCY
YC2:MOV DPTR,#0600H
YC3:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
MOV R4,A
ANL A,#0F0H
CJNE A,#0F0H,YC4
MOV A,R4
ANL A,#0FH
CJNE A,01H,YC4
INC DPTR
LCALL READ
CJNE A,02H,YC4
INC DPTR
LCALL READ
CJNE A,03H,YC4
MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
INC DPTR
YCXX:LCALL RP

YC31:CLR C
MOV A,46H
MOV 5AH,A
SUBB A,5CH
MOV 5EH,A
MOV A,47H
MOV 5BH,A
SUBB A,5DH
MOV 5FH,A
JNC YC0

LCALL E3
SJMP YC1
YC4:MOV DPL,6EH
MOV DPH,6FH
LCALL LH5
MOV A,DPH
CJNE A,#10H,YC3

MOV DPTR,#1000H
MOV 6EH,DPL
MOV 6FH,DPH
YC6:LCALL READ
MOV R4,A
ANL A,#0F0H
CJNE A,#0F0H,YC8
MOV A,R4
ANL A,#0FH
CJNE A,01H,YC7
INC DPTR
LCALL READ
CJNE A,02H,YC7
INC DPTR
LCALL READ
CJNE A,03H,YC7
MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
MOV A,DPL
ADD A,#9
MOV DPL,A
MOV A,DPH
ADDC A,#0
MOV DPH,A
SJMP YCXX
YC7:MOV A,6EH
ADD A,#15
MOV 6EH,A
MOV DPL,A
MOV A,6FH
ADDC A,#0
MOV 6FH,A
MOV DPH,A
SJMP YC6
YC8:LCALL E2
LJMP YC1

YCY:MOV 51H,R1
MOV 52H,R2
MOV 53H,R3

YCY1:MOV 5CH,6CH
MOV 5DH,6DH
YCY2:CLR C
MOV A,46H
MOV 5AH,A
SUBB A,5CH
MOV 5EH,A
MOV A,47H
MOV 5BH,A
SUBB A,5DH
MOV 5FH,A
LCALL HH
JB 07H,YC5
ORL 51H,#0F0H
LCALL CN
LCALL TA
YC5:LJMP YC1
CLP:CLR A
MOV 51H,A
MOV 52H,A
MOV 53H,A
MOV 5CH,A
MOV 5DH,A
RET
ZP:JNB 0CH,ZP0
LCALL E8
RET
ZP0:JB 0EH,ZP1
LCALL YZPZ
RET
ZP1:LCALL SZPZ
RET
SZPZ:NOP
PUSH 27H
PUSH 2EH
ANL 27H,#32H
MOV 7FH,2EH
MOV 2EH,#00H
LCALL CH
JB 07H,SZ0
MOV A,R1
JNZ SZ1
MOV A,R2
JNZ SZ1
MOV A,R3
JNZ SZ1
LCALL E4
SZ0:LCALL CLP
POP 2EH
POP 27H
RET
SZ1:MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
LCALL HH
JB 07H,SZ0
MOV 2EH,7FH
CLR 0CH
CLR A
MOV 70H,A
MOV 71H,A
MOV 72H,A
SZ2:LCALL SY
LCALL KA
JB 07H,SZ0
JB 08H,SZ3
LCALL BTCA
SJMP SZ2
SZ3:LCALL BTCB
MOV R4,30H
LCALL DV1
MOV 5CH,R1
MOV 5DH,R2
CLR C
MOV A,46H
MOV 5AH,A
SUBB A,R1
MOV 5EH,A
MOV A,47H
MOV 5BH,A
SUBB A,R2
MOV 5FH,A
JNC SZ4
LCALL E3
SJMP SZ0
SZ4:ORL 51H,#0F0H
LCALL CN
LCALL TA
SJMP SZ0
YZPZ:NOP
PUSH 27H
PUSH 2EH
ANL 27H,#32H
MOV 7FH,2EH
YZ00:MOV 2EH,#00H
LCALL CH
MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
JB 07H,YZ0
MOV A,R1
JNZ YZ1
MOV A,R2
JNZ YZ1
MOV A,R3
JNZ YZ1
LCALL E4
YZ0:LCALL CLP
POP 2EH
POP 27H
RET
YZ1:MOV DPTR,#0600H
YZ2:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
MOV R4,A
ANL A,#0F0H
CJNE A,#0F0H,YZ3
MOV A,R4
ANL A,#0FH
CJNE A,01H,YZ3
INC DPTR
LCALL READ
CJNE A,02H,YZ3
INC DPTR
LCALL READ
CJNE A,03H,YZ3
INC DPTR
LCALL RP
SJMP YZ5
YZ3:MOV DPL,6EH
MOV DPH,6FH
LCALL LH5
MOV A,DPH
CJNE A,#10H,YZ2
MOV DPTR,#0600H
YZ4:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
CJNE A,#0F0H,YZ5
MOV DPL,6EH
MOV DPH,6FH
LCALL LH5
MOV A,DPH
CJNE A,#10H,YZ4
LCALL E5
YZ40:SJMP YZ0
YZ5:MOV 2EH,7FH
MOV R1,5CH
MOV R2,5DH
MOV R3,#0
MOV R4,30H
LCALL MU1
LCALL BCD24
CLR 0CH
YZ6:LCALL SY
LCALL KA
JB 07H,YZ40
JB 08H,YZ7
LCALL BTCA
SJMP YZ6
YZ7:LCALL BTCB
MOV R4,30H
LCALL DV1
MOV A,R1
JNZ YZ8
MOV A,R2
JNZ YZ8
LCALL E6
AJMP YZ0
YZ8:ACALL CZ
AJMP YZ00
CZ:MOV DPL,6EH
MOV DPH,6FH
MOV A,51H
ORL A,#0F0H
LCALL WRIT
INC DPTR
MOV A,52H
LCALL WRIT
INC DPTR
MOV A,53H
LCALL WRIT
INC DPTR
MOV A,R1
LCALL WRIT
INC DPTR
MOV A,R2
LCALL WRIT
LCALL CLP
RET
ECCC:NOP
PUSH 27H
PUSH 2EH
ANL 27H,#32H
MOV 2EH,#00H
LCALL CC
JNB 12H,EC0
CLR 12H
LCALL CH
JB 07H,EC0
MOV A,R1
JNZ EC1
MOV A,R2
JNZ EC1
MOV A,R3
JNZ EC1
LCALL E7
EC0:LCALL CL15
POP 2EH
POP 27H
RET
EC1:MOV 51H,R1
MOV 52H,R2
MOV 53H,R3
MOV DPTR,#0000H
EC2:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
MOV R4,A
ANL A,#0F0H
CJNE A,#0F0H,EC3
MOV A,R4
ANL A,#0FH
CJNE A,01H,EC3
INC DPTR
LCALL READ
CJNE A,02H,EC3
INC DPTR
LCALL READ
CJNE A,03H,EC3
SJMP EC6
EC3:MOV DPL,6EH
MOV DPH,6FH
LCALL LH5
MOV A,DPL
CJNE A,#0FFH,EC2
MOV A,DPH
CJNE A,#05H,EC2
MOV DPTR,#0000H
EC4:MOV 6EH,DPL
MOV 6FH,DPH
LCALL READ
ANL A,#0F0H
CJNE A,#0F0H,EC5
LCALL LH5
MOV A,DPL
CJNE A,#0FFH,EC4
MOV A,DPH
CJNE A,#05H,EC4
LCALL E9
SJMP EC0
EC5:MOV R1,46H
MOV R2,47H
ACALL CZ
SJMP EC0
EC6:LCALL HH
JB 07H,EC8
MOV DPL,6EH
MOV DPH,6FH
CLR A
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
INC DPTR
CLR A
LCALL WRIT
INC DPTR
LCALL READ
MOV R1,A
CLR A
LCALL WRIT
INC DPTR
LCALL READ
MOV R2,A
CLR A
LCALL WRIT
MOV 5CH,R1
MOV 5DH,R2
CLR C
MOV A,46H
MOV 5AH,A
SUBB A,R1
MOV 5EH,A
MOV A,47H
MOV 5BH,A
SUBB A,R2
MOV 5FH,A
JNC EC7
MOV 5CH,46H
MOV 5DH,47H
CLR C
MOV A,R1
MOV 5AH,A
SUBB

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
汇编语言与c语言之间有哪些关系
关于汇编需要那也基础,不知道具体汇编语言的用途,汇编语言和c语言之间有哪些关联了
汇编语言——Intel汇编语言程序设计(第5版)中文版
学会汇编语言的话,Intel汇编语言程序设计(第5版)中文版这本书怎么样呢
汇编语言键盘钢琴程序
DATA SEGMENT KEYS DB 'QWERTYU','ASDFGHJ','ZXCVBNM' FREQ DB 131,147,165,175,196,220,247 WELC DB 'Welcome to "Piano of Keyboard"',0DH,0AH,0DH,0AH,'$' EXPL DB 'Explanation:', 0DH,0AH,'Key:QWERTYU-Low Notes 1 2 3 4 5 6 7 ', 0DH,0AH,'Key:ASDFGHJ-Middle Notes 1 2 3 4 5 6 7 ',0DH,0AH,'Key:ZXCVBNM-High Notes 1 2 3 4 5 6 7 ', 0DH,0AH, 'Please Note Your Caps Lock Truned On', 0DH,0AH ESCQ DB 0DH,0AH,'Please play:',0DH,0AH,'(You can Type "ESC" to exit)', 0DH,0AH,0DH,0AH,'$' LAST DB 0DH,0AH,'Welcome again!','$' REMI DB 'Reminder:Please play the Key:"QWERTYU-ASDFGHJ-ZXCVBNM"', 0DH,0AH,'$' DATA ENDS CODE SEGMENT ASSUME CS:CODE DS:DATA START: MOV AX,DATA MOV DS,AX ;初始化数据区 LEA DX,WELC MOV AH,9 INT 21H ;显示提示语句 INPUT: MOV AH,7 INT 21H ;不回显输入键盘的KEY CMP AL,1BH ;判断输入KEY是否为“ESC” JZ EXIT ;若输入KEY为“ESC”则跳转到退出EXIT LEA DI,KEYS MOV CX,21 FIND: CMP AL,[DI] JZ SING ;找到KEY相对应的偏移地址DI则跳转至SING INC DI LOOP FIND ;根据输入KEY的ASCII码找到相对应的偏移地址 LEA DX,REMI MOV AH,9 INT 21H ;输入的KEY不正确,显示提醒请输入正确的KEY JMP INPUT ;不是正确的输入KEY,则跳转至INPUT SING: CALL FIFRE ;进入计算KEY所对应频率值的子程序 CALL SOUND ;进入根据频率值发出音调的子程序 JMP INPUT ;发声完毕后跳转至INPUT EXIT: LEA DX,LAST MOV AH,9 INT 21H ;显示退出时的字幕 MOV AX,4C00H INT 21H ;返回DOS FIFRE PROC ;计算KEY所对应频率值的子程序 MOV DL,1 ;标记频率基准值的倍数值 LEA BX,KEYS SUB DI,BX ;计算偏移地址相对与首地址的值 CMP DI,6 JNA SOU ;属于低音直接跳转至SOU SUB DI,7 ;属于中音,将偏移地址减7 ADD DL,1 ;标记倍数值加倍为2 CMP DI,6 JNA SOU ;属于中音,跳转至SOU SUB DI,7 ;属于高音,将偏移地址再减7 ADD DL,2 ;标记倍数值再加倍为4 SOU: MOV AX,DI ;将被换码给AL LEA BX,FREQ XLAT MUL DL ;频率基准值乘以倍数得到KEY所对应的频率值 MOV BX,AX RET FIFRE ENDP SOUND PROC ;根据频率值发出音调的子程序 MOV AL,0B6H OUT 43H,AL ;向8253的43H写入控制字 MOV DX,12H MOV AX,348CH DIV BX ;计算计数初值N OUT 42H,AL MOV AL,AH OUT 42H,AL ;向通道2端口42H写入计数初值N IN AL,61H OR AL,3 OUT 61H,AL ;打开扬声器 CALL DELAY ;进入延时子程序 IN AL,61H AND AL,0FCH OUT 61H,AL ;关闭扬声器 RET SOUND ENDP DELAY PROC ;延时时间子程序 PUSH BX PUSH CX MOV BX,4000 DY1: MOV CX,0FFFH DY0: LOOP DY0 DEC BX JNZ DY1 ;利用LOOP循环和跳转指令进行双循环 POP CX POP BX RET DELAY ENDP CODE ENDS END START 在DOSBOX里运行时无论按哪个键它都没办法弹![图片说明](https://img-ask.csdn.net/upload/201601/13/1452659977_585192.png) 一直重复显示着那句话!! 求助呀!
求密码登录及修改汇编程序
求一个8086汇编的密码登录及密码修改的汇编程序。求大神。具体:先与原来缓冲区的密码比较,如果正确则登录成功,如果错误,则跳到修改密码页面,然后输入新密码,再确认新密码,如果正确,则修改成功,如果错误则重新输入新密码
汇编语言转换为c语言。
怎样把汇编语言转换为c语言。有单片机里面的汇编语言,但是不会转换原来的c语言求帮助,谢谢啦。
汇编语言王爽实验14问题
为什么通不过编译? assume ds:data,ss:stack,cs:code data segment time: db "20??/??/?? ??:??:??",0 routine: db 9,8,7,4,2,0 data ends stack segment db 12 dup (0) stack ends code segment start: mov ax,data mov ds,ax mov si,offset time+2 mov di,offset routine mov ax,stack mov ss,ax mov sp,12 mov cx,6 lp: push cx mov al,ds:[di] out 70h,al in al,71h mov ah,al mov cl,4 shr ah,cl and al,00001111b add ah,30h add al,30h mov byte ptr ds:[si],ah mov byte ptr ds:[si+1],al inc di add si,3 pop cx loop lp mov ax,0b800h mov es,ax mov di,160*12 mov si,offset time show: mov cl,[si] mov ch,0 jcxz ok mov es:[di],cl inc si inc di inc di jmp show ok: mov ax,4c00h int 21h code ends end start
紧急求各位大神帮帮弄下汇编语言的
DATAS SEGMENT BUFFER DB 20 DUP(0) BUFFER1 DB 20 DUP(0) MSG1 DB "Please input you want choose number: $" MSG2 DB "1: eg:A to a exchange : Uppercase to lowercase $" MSG3 DB "2: eg:a to A exchange : Lowercase to Uppercase $" MSG4 DB "3: eg:1111 to f : Binary to Hexadecimal $" MSG5 DB "4: eg:f to 1111 : Hexadecimal to Binary $" MSG6 DB "5: eg:f to 15 : Hexadecimal to Decimal $" MSG7 DB "PLEASE INPUT SOME ALPHABET:$" MSG8 DB "PLEASE INPUT SOME BINARY NUMBER:$" MSG9 DB "PLEASE INPUT SOME HEX NUMBER:$" DATAS ENDS STACKS SEGMENT STACKS ENDS CODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKS START: MOV AX,DATAS MOV DS,AX P: CALL MENU ;子程序调用 CMP AL,'1' JZ A ; 若 AL=1,则转到A CMP AL,'2' JZ B ; 若AL=2,则转到B CMP AL,'3' JZ CA CMP AL,'4' JNZ LO JMP D LO: CMP AL,'5' JNZ EXIT1 JMP asd EXIT1:JMP EXIT A: CALL CLEAR ;子程序调用 MOV AH,02 ;设置光标位置 MOV DH,3 MOV DL,2 INT 10H ;中断指令 MOV SI,OFFSET MSG7 ;取MSG7的地址指针送入SI MOV DX,SI MOV AH,09 ;;显示一个字符串 INT 21H LEA SI,BUFFER ;取BUFFER的有效地址给SI S: MOV AH,01 ;;输入一个字符 INT 21H MOV [SI],AL INC SI CMP AL,0DH ;;回车 JNZ S ; ;若不输入回车,则继续执行S CALL CRLF MOV AH,02 ; ;设置光标位置 MOV DH,5 MOV DL,28 INT 10H LEA SI,BUFFER Q: MOV AL,[SI] CMP AL,'a' JNB E ; ;若AL的内容低于‘A’则转到E ADD AL,20H ; ;AL加上20H,大写字母转换为小写字母 E: MOV DL,AL MOV AH,02 ; ;显示一个字符 INT 21H INC SI MOV AL,[SI] CMP AL,0DH JNZ Q ; ;若不输入回车的话,则继续执行Q MOV AH,01 INT 21H CMP AL,0DH JZ P ; ;若输入回车,则返回P JMP EXIT B: CALL CLEAR ;调用子程序 MOV AH,02 MOV DH,3 MOV DL,2 INT 10H MOV SI,OFFSET MSG7 MOV DX,SI MOV AH,09 ; ;显示一个字符串 INT 21H LEA SI,BUFFER M: MOV AH,01 INT 21H MOV [SI],AL INC SI CMP AL,0DH JNZ M ; ;若不输入回车,则继续执行M CALL CRLF MOV AH,02 ; ;设置光标位置 MOV DH,5 MOV DL,28 INT 10H LEA SI,BUFFER I: MOV AL,[SI] CMP AL,5AH JNGE X ; ;若AL的内容低于‘Z’,则转到X SUB AL,20H ; ;小写字母转换为大写字母 X: MOV DL,AL MOV AH,02 INT 21H INC SI MOV AL,[SI] CMP AL,0DH JNZ I MOV AH,01 ; ;输入一个字符 INT 21H CMP AL,0DH JNZ EXIT0 ; ;若不输入回车,则转到EXIT0出 JMP P EXIT0:JMP EXIT CA: CALL CLEAR MOV AH,02 ;;设置光标位置 MOV DH,3 MOV DL,2 INT 10H MOV SI,OFFSET MSG8 MOV DX,SI MOV AH,09 INT 21H LEA SI,BUFFER NAA: MOV AH,01 INT 21H MOV [SI],AL INC SI CMP AL,0DH JNZ NAA CALL CRLF LEA DI,BUFFER MOV AH,02 MOV DH,5 MOV DL,28 INT 10H Y: MOV AL,[DI] SUB AL,30H ;;将ASCII码转换为二进制 MOV BL,8D MUL BL ADD AL,30H MOV DL,0 ADD DL,AL INC DI MOV AL,[DI] SUB AL,30H MOV BL, 4D MUL BL ADD DL,AL INC DI MOV AL,[DI] SUB AL,30H MOV BL,2D MUL BL ADD DL,AL INC DI MOV AL,[DI] SUB AL,30H MOV BL,1D MUL BL ADD DL,AL CMP DL,'9' JNG T ADD DL,'A'-':' T: MOV AH,02 INT 21H INC DI MOV AL,[DI] CMP AL,0DH JNZ Y MOV AH,01 INT 21H CMP AL,0DH JNZ EXIT JMP P D: CALL CLEAR MOV AH,02 MOV DH,3 MOV DL,2 INT 10H MOV SI,OFFSET MSG9 MOV DX,SI MOV AH,09 INT 21H LEA SI,BUFFER asd: CALL CLEAR MOV AH,02 MOV DH,3 MOV DL,2 INT 10H MOV SI,OFFSET MSG9 MOV DX,SI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MOV AH,09 INT 21H LEA SI,BUFFER FF: MOV AH,01 INT 21H MOV [SI],AL INC SI CMP AL,0DH JNZ FF CALL CRLF LEA SI,BUFFER MOV DI,OFFSET BUFFER1 RE: MOV AL,[SI] CMP AL,'9' JNG Z SUB AL,'A'-':' Z: SUB AL,30H MOV CX,4 ADD DI,4 YU: CBW MOV BL,2D DIV BL MOV [DI],AH PUSH AX ADD AH,30H ; ; 二进制转化为ASCII码 POP AX DEC DI LOOP YU ADD DI,4 INC SI MOV AL,[SI] CMP AL,0DH JNZ RE INC DI MOV AL,'$' MOV [DI],AL CALL CRLF MOV SI,OFFSET BUFFER1+1 MOV AL,[SI] RT: ADD AL,30H MOV DL,AL MOV AH,02 INT 21H INC SI MOV AL,[SI] CMP AL,'$' JNZ RT MOV AH,01 INT 21H CMP AL,0DH JNZ EXIT JMP P EXIT: MOV AH,4CH INT 21H ;返回DOS系统 MENU PROC NEAR CALL CLEAR ;调用子程序 MOV AH,02 ;设置光标位置 MOV DH,5 ;第5行 MOV DL,25 ;第25列 INT 10H LEA SI,MSG2 MOV DX,SI MOV AH,09 ;显示MSG2的内容 INT 21H ;输出MSG2字符串 MOV AH,02 ;至光标位置 MOV DH,7 ;第7行 MOV DL,25 ;第25列 INT 10H LEA SI,MSG3 ;取MSG3的有效地址 MOV DX,SI MOV AH,09 INT 21H ;输出MSG3字符串 MOV AH,02 MOV DH,9 ;第9行 MOV DL,25 ;第25列 INT 10H LEA SI,MSG4 ;取MSG4的有效地址 MOV DX,SI MOV AH,09 INT 21H ;输出MSG4字符串 MOV AH,02 MOV DH,11 ;第11行 MOV DL,25 ;第25列 INT 10H LEA SI,MSG5 MOV DX,SI MOV AH,09 INT 21H ;输出MSG5字符串 MOV AH,02 ;至光标位置 MOV DH,13 ;第15列 MOV DL,25 ;第17列 INT 10H LEA SI,MSG6 MOV DX,SI MOV AH,09 INT 21H ;输出MSG6字符串 MOV AH,02 ;至光标位置 MOV DH,19 ;第19列 MOV DL,25 ;第25列 INT 10H LEA SI,MSG1 MOV DX,SI MOV AH,09 INT 21H ;输出MSG1字符串 MOV AH,01 ;键盘输入 INT 21H RET ;返回 MENU ENDP CLEAR PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI MOV AH,07 ;屏幕初始化或下卷 MOV AL,25 ;下卷行数 MOV BH,70H ;卷入行属性 MOV CH,0 ;左上角行号 MOV CL,0 ;左上角列号 MOV DH,24 ;右下角行号 MOV DL,79 ;右下角列号 INT 10H POP DI POP SI POP DX POP CX POP BX POP AX RET CLEAR ENDP CRLF PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI MOV DL,0DH ;输出回车 MOV AH,02 INT 21H MOV DL,0AH ;输出换行 MOV AH,02 INT 21H POP DI POP SI POP DX POP CX POP BX POP AX RET CRLF ENDP CODES ENDS ;代码段结束 END START ;程序结束
汇编语言loop使用,连续多个数相加
汇编语言实验,使用loop实现连续多个数相加,求代码(字数怎么不够呢)
c语言与汇编语言交叉编译生成与操作系统无关的机器语言
c语言与汇编语言交叉编译生成与操作系统无关的机器语言应该使用什么汇编器和编译器
用汇编语言画图,汇编语言菜鸟求大家帮忙。感激不尽!
作为初学汇编语言的菜鸟,想请教一下怎么用汇编语言画6*6的矩形呢?![图片说明](http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/32.gif)![图片说明](http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/32.gif)![图片说明](http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/32.gif)
c++编程语言 密码隐藏 反汇编
在代码中写一串密码,在反汇编时不能直接将密码查找出来,有哪些方法?
用汇编语言实现96位整数的加减
用汇编语言实现96位整数的加减用汇编语言实现96位整数的加减用汇编语言实现96位整数的加减
汇编语言简单排序冒泡算法
给出五个0到99之间的数字,利用汇编语言程序将五个数字进行排序并标号 例 1 92 2 82 3 78 4 75 5 68
emu8086汇编语言课程设计
用emu8086汇编语言设计一个简单的小游戏,程序越简单越好,希望代码不要太长,跪求大神,不胜感激……,
汇编语言怎么判断一个数在某个范围内
求大神告诉,怎么判断一个数在某个范围内,比如5判断其在4~6范围内。因为汇编只有大于或等于小于或等于或者大于小于不能像C语言那样可以a=5 ;(a>4&&a<6),求用汇编怎么写
汇编语言点阵 dos系统
我们一个课程设计是作用汇编语言实现,用汉字点阵编写自己的名字学号,然后转移到U盘上,然后在电脑关机的情况下插入U盘,开机,自动显示你的学号姓名,这个要怎么做,求各位大佬指教
用汇编语言控制输出的字体大小
汇编萌新,请问大神怎么用汇编语言控制输出显示在屏幕上的字体大小,要能调大和调小。请大神告知怎么写那段程序,课设作业![图片说明](http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/9.gif)![图片说明](http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/9.gif)![图片](https://img-ask.csdn.net/upload/201611/14/1479136849_457060.png)
汇编语言时钟闹钟 急急急
求一个用汇编语言编写的表盘时钟,有闹钟功能 ![图片说明](https://img-ask.csdn.net/upload/201512/10/1449730453_336800.jpg)
如果用汇编语言编程俄罗斯方块
马上就要课程设计了,要求用汇编语言编俄罗斯方块,哪位大神能给出程序啊,多谢了!!!
终于明白阿里百度这样的大公司,为什么面试经常拿ThreadLocal考验求职者了
点击上面↑「爱开发」关注我们每晚10点,捕获技术思考和创业资源洞察什么是ThreadLocalThreadLocal是一个本地线程副本变量工具类,各个线程都拥有一份线程私有的数
《奇巧淫技》系列-python!!每天早上八点自动发送天气预报邮件到QQ邮箱
此博客仅为我业余记录文章所用,发布到此,仅供网友阅读参考,如有侵权,请通知我,我会删掉。 补充 有不少读者留言说本文章没有用,因为天气预报直接打开手机就可以收到了,为何要多此一举发送到邮箱呢!!!那我在这里只能说:因为你没用,所以你没用!!! 这里主要介绍的是思路,不是天气预报!不是天气预报!!不是天气预报!!!天气预报只是用于举例。请各位不要再刚了!!! 下面是我会用到的两个场景: 每日下
面试官问我:什么是消息队列?什么场景需要他?用了会出现什么问题?
你知道的越多,你不知道的越多 点赞再看,养成习惯 GitHub上已经开源 https://github.com/JavaFamily 有一线大厂面试点脑图、个人联系方式,欢迎Star和完善 前言 消息队列在互联网技术存储方面使用如此广泛,几乎所有的后端技术面试官都要在消息队列的使用和原理方面对小伙伴们进行360°的刁难。 作为一个在互联网公司面一次拿一次Offer的面霸,打败了无数
8年经验面试官详解 Java 面试秘诀
    作者 | 胡书敏 责编 | 刘静 出品 | CSDN(ID:CSDNnews) 本人目前在一家知名外企担任架构师,而且最近八年来,在多家外企和互联网公司担任Java技术面试官,前后累计面试了有两三百位候选人。在本文里,就将结合本人的面试经验,针对Java初学者、Java初级开发和Java开发,给出若干准备简历和准备面试的建议。   Java程序员准备和投递简历的实
究竟你适不适合买Mac?
我清晰的记得,刚买的macbook pro回到家,开机后第一件事情,就是上了淘宝网,花了500元钱,找了一个上门维修电脑的师傅,上门给我装了一个windows系统。。。。。。 表砍我。。。 当时买mac的初衷,只是想要个固态硬盘的笔记本,用来运行一些复杂的扑克软件。而看了当时所有的SSD笔记本后,最终决定,还是买个好(xiong)看(da)的。 已经有好几个朋友问我mba怎么样了,所以今天尽量客观
MyBatis研习录(01)——MyBatis概述与入门
C语言自学完备手册(33篇) Android多分辨率适配框架 JavaWeb核心技术系列教程 HTML5前端开发实战系列教程 MySQL数据库实操教程(35篇图文版) 推翻自己和过往——自定义View系列教程(10篇) 走出思维困境,踏上精进之路——Android开发进阶精华录 讲给Android程序员看的前端系列教程(40集免费视频教程+源码) 版权声明 本文原创作者:谷哥的小弟 作者博客
程序员一般通过什么途径接私活?
二哥,你好,我想知道一般程序猿都如何接私活,我也想接,能告诉我一些方法吗? 上面是一个读者“烦不烦”问我的一个问题。其实不止是“烦不烦”,还有很多读者问过我类似这样的问题。 我接的私活不算多,挣到的钱也没有多少,加起来不到 20W。说实话,这个数目说出来我是有点心虚的,毕竟太少了,大家轻喷。但我想,恰好配得上“一般程序员”这个称号啊。毕竟苍蝇再小也是肉,我也算是有经验的人了。 唾弃接私活、做外
Python爬虫爬取淘宝,京东商品信息
小编是一个理科生,不善长说一些废话。简单介绍下原理然后直接上代码。 使用的工具(Python+pycharm2019.3+selenium+xpath+chromedriver)其中要使用pycharm也可以私聊我selenium是一个框架可以通过pip下载 pip install selenium -i https://pypi.tuna.tsinghua.edu.cn/simple/ 
阿里程序员写了一个新手都写不出的低级bug,被骂惨了。
你知道的越多,你不知道的越多 点赞再看,养成习惯 本文 GitHub https://github.com/JavaFamily 已收录,有一线大厂面试点思维导图,也整理了很多我的文档,欢迎Star和完善,大家面试可以参照考点复习,希望我们一起有点东西。 前前言 为啥今天有个前前言呢? 因为你们的丙丙啊,昨天有牌面了哟,直接被微信官方推荐,知乎推荐,也就仅仅是还行吧(心里乐开花)
Java工作4年来应聘要16K最后没要,细节如下。。。
前奏: 今天2B哥和大家分享一位前几天面试的一位应聘者,工作4年26岁,统招本科。 以下就是他的简历和面试情况。 基本情况: 专业技能: 1、&nbsp;熟悉Sping了解SpringMVC、SpringBoot、Mybatis等框架、了解SpringCloud微服务 2、&nbsp;熟悉常用项目管理工具:SVN、GIT、MAVEN、Jenkins 3、&nbsp;熟悉Nginx、tomca
Python爬虫精简步骤1 获取数据
爬虫的工作分为四步: 1.获取数据。爬虫程序会根据我们提供的网址,向服务器发起请求,然后返回数据。 2.解析数据。爬虫程序会把服务器返回的数据解析成我们能读懂的格式。 3.提取数据。爬虫程序再从中提取出我们需要的数据。 4.储存数据。爬虫程序把这些有用的数据保存起来,便于你日后的使用和分析。 这一篇的内容就是:获取数据。 首先,我们将会利用一个强大的库——requests来获取数据。 在电脑上安装
Python绘图,圣诞树,花,爱心 | Turtle篇
1.画圣诞树 import turtle screen = turtle.Screen() screen.setup(800,600) circle = turtle.Turtle() circle.shape('circle') circle.color('red') circle.speed('fastest') circle.up() square = turtle.Turtle()
作为一个程序员,CPU的这些硬核知识你必须会!
CPU对每个程序员来说,是个既熟悉又陌生的东西? 如果你只知道CPU是中央处理器的话,那可能对你并没有什么用,那么作为程序员的我们,必须要搞懂的就是CPU这家伙是如何运行的,尤其要搞懂它里面的寄存器是怎么一回事,因为这将让你从底层明白程序的运行机制。 随我一起,来好好认识下CPU这货吧 把CPU掰开来看 对于CPU来说,我们首先就要搞明白它是怎么回事,也就是它的内部构造,当然,CPU那么牛的一个东
破14亿,Python分析我国存在哪些人口危机!
2020年1月17日,国家统计局发布了2019年国民经济报告,报告中指出我国人口突破14亿。 猪哥的朋友圈被14亿人口刷屏,但是很多人并没有看到我国复杂的人口问题:老龄化、男女比例失衡、生育率下降、人口红利下降等。 今天我们就来分析一下我们国家的人口数据吧! 更多有趣分析教程,扫描下方二维码关注vx公号「裸睡的猪」 即可查看! 一、背景 1.人口突破14亿 2020年1月17日,国家统计局发布
web前端javascript+jquery知识点总结
Javascript javascript 在前端网页中占有非常重要的地位,可以用于验证表单,制作特效等功能,它是一种描述语言,也是一种基于对象(Object)和事件驱动并具有安全性的脚本语言 ,语法同java类似,是一种解释性语言,边执行边解释。 JavaScript的组成: ECMAScipt 用于描述: 语法,变量和数据类型,运算符,逻辑控制语句,关键字保留字,对象。 浏览器对象模型(Br
Python实战:抓肺炎疫情实时数据,画2019-nCoV疫情地图
文章目录1. 前言2. 数据下载3. 数据处理4. 数据可视化 1. 前言 今天,群里白垩老师问如何用python画武汉肺炎疫情地图。白垩老师是研究海洋生态与地球生物的学者,国家重点实验室成员,于不惑之年学习python,实为我等学习楷模。先前我并没有关注武汉肺炎的具体数据,也没有画过类似的数据分布图。于是就拿了两个小时,专门研究了一下,遂成此文。 2月6日追记:本文发布后,腾讯的数据源多次变更u
听说想当黑客的都玩过这个Monyer游戏(1~14攻略)
第零关 进入传送门开始第0关(游戏链接) 请点击链接进入第1关: 连接在左边→ ←连接在右边 看不到啊。。。。(只能看到一堆大佬做完的留名,也能看到菜鸡的我,在后面~~) 直接fn+f12吧 &lt;span&gt;连接在左边→&lt;/span&gt; &lt;a href="first.php"&gt;&lt;/a&gt; &lt;span&gt;←连接在右边&lt;/span&gt; o
在家远程办公效率低?那你一定要收好这个「在家办公」神器!
相信大家都已经收到国务院延长春节假期的消息,接下来,在家远程办公可能将会持续一段时间。 但是问题来了。远程办公不是人在电脑前就当坐班了,相反,对于沟通效率,文件协作,以及信息安全都有着极高的要求。有着非常多的挑战,比如: 1在异地互相不见面的会议上,如何提高沟通效率? 2文件之间的来往反馈如何做到及时性?如何保证信息安全? 3如何规划安排每天工作,以及如何进行成果验收? ......
作为一个程序员,内存和磁盘的这些事情,你不得不知道啊!!!
截止目前,我已经分享了如下几篇文章: 一个程序在计算机中是如何运行的?超级干货!!! 作为一个程序员,CPU的这些硬核知识你必须会! 作为一个程序员,内存的这些硬核知识你必须懂! 这些知识可以说是我们之前都不太重视的基础知识,可能大家在上大学的时候都学习过了,但是嘞,当时由于老师讲解的没那么有趣,又加上这些知识本身就比较枯燥,所以嘞,大家当初几乎等于没学。 再说啦,学习这些,也看不出来有什么用啊!
渗透测试-灰鸽子远控木马
木马概述 灰鸽子( Huigezi),原本该软件适用于公司和家庭管理,其功能十分强大,不但能监视摄像头、键盘记录、监控桌面、文件操作等。还提供了黑客专用功能,如:伪装系统图标、随意更换启动项名称和表述、随意更换端口、运行后自删除、毫无提示安装等,并采用反弹链接这种缺陷设计,使得使用者拥有最高权限,一经破解即无法控制。最终导致被黑客恶意使用。原作者的灰鸽子被定义为是一款集多种控制方式于一体的木马程序
Python:爬取疫情每日数据
前言 有部分同学留言说为什么412,这是因为我代码里全国的cookies需要你自己打开浏览器更新好后替换,而且这个cookies大概只能持续20秒左右! 另外全国卫健委的数据格式一直在变,也有可能会导致爬取失败! 我现在已根据2月14日最新通报稿的格式修正了! 目前每天各大平台,如腾讯、今日头条都会更新疫情每日数据,他们的数据源都是一样的,主要都是通过各地的卫健委官网通报。 为什么已经有大量平台做
这个世界上人真的分三六九等,你信吗?
偶然间,在知乎上看到一个问题 一时间,勾起了我深深的回忆。 以前在厂里打过两次工,做过家教,干过辅导班,做过中介。零下几度的晚上,贴过广告,满脸、满手地长冻疮。   再回首那段岁月,虽然苦,但让我学会了坚持和忍耐。让我明白了,在这个世界上,无论环境多么的恶劣,只要心存希望,星星之火,亦可燎原。   下文是原回答,希望能对你能有所启发。   如果我说,这个世界上人真的分三六九等,
B 站上有哪些很好的学习资源?
哇说起B站,在小九眼里就是宝藏般的存在,放年假宅在家时一天刷6、7个小时不在话下,更别提今年的跨年晚会,我简直是跪着看完的!! 最早大家聚在在B站是为了追番,再后来我在上面刷欧美新歌和漂亮小姐姐的舞蹈视频,最近两年我和周围的朋友们已经把B站当作学习教室了,而且学习成本还免费,真是个励志的好平台ヽ(.◕ฺˇд ˇ◕ฺ;)ノ 下面我们就来盘点一下B站上优质的学习资源: 综合类 Oeasy: 综合
雷火神山直播超两亿,Web播放器事件监听是怎么实现的?
Web播放器解决了在手机浏览器和PC浏览器上播放音视频数据的问题,让视音频内容可以不依赖用户安装App,就能进行播放以及在社交平台进行传播。在视频业务大数据平台中,播放数据的统计分析非常重要,所以Web播放器在使用过程中,需要对其内部的数据进行收集并上报至服务端,此时,就需要对发生在其内部的一些播放行为进行事件监听。 那么Web播放器事件监听是怎么实现的呢? 01 监听事件明细表 名
3万字总结,Mysql优化之精髓
本文知识点较多,篇幅较长,请耐心学习 MySQL已经成为时下关系型数据库产品的中坚力量,备受互联网大厂的青睐,出门面试想进BAT,想拿高工资,不会点MySQL优化知识,拿offer的成功率会大大下降。 为什么要优化 系统的吞吐量瓶颈往往出现在数据库的访问速度上 随着应用程序的运行,数据库的中的数据会越来越多,处理时间会相应变慢 数据是存放在磁盘上的,读写速度无法和内存相比 如何优化 设计
Python新型冠状病毒疫情数据自动爬取+统计+发送报告+数据屏幕(三)发送篇
今天介绍的项目是使用 Itchat 发送统计报告 项目功能设计: 定时爬取疫情数据存入Mysql 进行数据分析制作疫情报告 使用itchat给亲人朋友发送分析报告(本文) 基于Django做数据屏幕 使用Tableau做数据分析 来看看最终效果 目前已经完成,预计2月12日前更新 使用 itchat 发送数据统计报告 itchat 是一个基于 web微信的一个框架,但微信官方并不允
作为程序员的我,大学四年一直自学,全靠这些实用工具和学习网站!
我本人因为高中沉迷于爱情,导致学业荒废,后来高考,毫无疑问进入了一所普普通通的大学,实在惭愧...... 我又是那么好强,现在学历不行,没办法改变的事情了,所以,进入大学开始,我就下定决心,一定要让自己掌握更多的技能,尤其选择了计算机这个行业,一定要多学习技术。 在进入大学学习不久后,我就认清了一个现实:我这个大学的整体教学质量和学习风气,真的一言难尽,懂的人自然知道怎么回事? 怎么办?我该如何更好的提升
粒子群算法求解物流配送路线问题(python)
粒子群算法求解物流配送路线问题(python) 1.查找论文文献 找一篇物流配送路径优化+粒子群算法求解的论文 参考文献:基于混沌粒子群算法的物流配送路径优化 2.了解粒子群算法的原理 讲解通俗易懂,有数学实例的博文:https://blog.csdn.net/daaikuaichuan/article/details/81382794 3.确定编码方式和解码策略 3.1编码方式 物流配送路线的
教你如何编写第一个简单的爬虫
很多人知道爬虫,也很想利用爬虫去爬取自己想要的数据,那么爬虫到底怎么用呢?今天就教大家编写一个简单的爬虫。 下面以爬取笔者的个人博客网站为例获取第一篇文章的标题名称,教大家学会一个简单的爬虫。 第一步:获取页面 #!/usr/bin/python # coding: utf-8 import requests #引入包requests link = "http://www.santostang.
前端JS初级面试题二 (。•ˇ‸ˇ•。)老铁们!快来瞧瞧自己都会了么
1. 传统事件绑定和符合W3C标准的事件绑定有什么区别? 传统事件绑定 &lt;div onclick=""&gt;123&lt;/div&gt; div1.onclick = function(){}; &lt;button onmouseover=""&gt;&lt;/button&gt; 注意: 如果给同一个元素绑定了两次或多次相同类型的事件,那么后面的绑定会覆盖前面的绑定 (不支持DOM事...
相关热词 c# 识别回车 c#生成条形码ean13 c#子控制器调用父控制器 c# 写大文件 c# 浏览pdf c#获取桌面图标的句柄 c# list反射 c# 句柄 进程 c# 倒计时 线程 c# 窗体背景色
立即提问