本科生课程设计（论文）
ACALL RDN1 ACALL RDN0
MOV 44H, 12H MOV 45H, 13H MOV 46H, 10H MOV 47H, 11H MOV
MOV MOV
R0,
#2
#44H
R1, R2,
#46H
ACALL SUB1
R3,
41H
;开始计算
MOV R2, 40H MOV
MOV MOV
R4, R5,
42H 43H
; →(32H,33H,34H,35H)
ACALL ML32
MOV 37H, 44H MOV 38H, 45H
ACALL DV32 ; →(30H,31H)
MOV MOV MOV RET
RD A, A, EA
EA ;写程序(写允许，写，写保护) RD
R0, #3 ;(R1)→(B)
@R1 3,
WL
R0,
#3 ;(R1)→(B)
R0, R1, R2,
#30H #14H #2
ACALL ADD1
WWR: CLR EA ;EEPROM读写 MOV
CALL MOV CJNE SETB RET
XWR: CLR MOV
CALL
MOV A, @R1
27
本科生课程设计（论文）
CJNE SETB RET
A, 3, WL EA
EPWR
WL: CALL
SJMP RET
EPWR: CALL
CLR MOV MOV MOV CALL MOV CALL MOV CALL SETB WREN: CLR
SETB MOV CALL SETB
RET
WRZ: MOV WR2: ACALL INC INC ACALL INC INC RET WRN0: MOV
MOV
ACALL WWR
WREN
CS A, #2 C, EPB
ACC.3, C
WRZ A, B WRZ A, @R1 WRZ CS
CS
WP A, #6
WRZ CS R2, #8 XWR
R1 B XWR
R1 B
R1,
#10H
B, #50H
WR2
;纯写子程序
;X5045写允许?
;写子程序 28
本科生课程设计（论文）
RET
R1, B,
#12H #52H
MOV WRN1: MOV
ACALL WR2
RET
XWRY0: MOV
MOV ACALL RET
WRY1: MOV
MOV ACALL RET
WAMIN: MOV
MOV ACALL RET
WAMAX: MOV
MOV ACALL
RET
RD2: ACALL INC INC INC ACALL INC INC
RET
XRD: CLR CLR CS
MOV
MOV
MOV
R1, #14H B,
#54H
WR2
R1, #16H B,
#56H
WR2
R1, #18H B,
#58H
WR2
R1, #1AH B,
#5AH
WR2
XRD B A R0
XRD
B R0 EA
A, #3
C,
EPB
ACC.3, C
;读程序
29
CALL WRZ MOV A, B
CALL WRZ CALL RDZ MOV @R0, A SETB CS SETB EA RET
RDZ: MOV
R2, #8 SETB DI SETB DO CLR CK RDZ1: MOV
C, DO
SETB CK RLC A CLR CK
DJNZ R2, RDZ1
RET
RDN0: MOV
B, #50H MOV R0,
#10H ACALL RD2
RET
RDN1: MOV
B, #52H MOV R0,
#12H
ACALL RD2
RET
RDY0: MOV
B, #54H MOV R0,
#14H
ACALL RD2
RET XRDY1: MOV B, #56H
MOV R0,
#16H
ACALL RD2
RET
本科生课程设计（论文）
;读子程序
30
本科生课程设计（论文）
RAMIN: MOV
MOV RET
B, R0,
#58H #18H
ACALL RD2
B, R0,
#5AH #1AH
RAMAX: MOV
MOV RET
ACALL RD2
;按键操作子程序 #1, JKK PT31 #2 #0 #0 SK
KK1
K2
KOPT:
OPT: CJNE
JNB JB SETB MOV MOV
A, KT, KTM, STB DPX, KT, KK, KO KK, KO
PT3: MOV
PT31: AJMP JKK: JNB
AJMP
SK:
JNB
KK
STB,
ACALL MK ACALL KO
CJNE
A,
#2,
K3
JNB JNB
KK, STB,
KK1 KK1
KK1: SETB K2:
ACALL OPTA ACALL KO
CJNE
A,
#4,
K4
JNB JNB
KK, STB,
KK1 KK1
K3:
ACALL OPTS ACALL KO
CJNE
A,
#8,
KO
K4:
31