KEY_ADD位P3.0
KEY_DEC位P3.1
ORG 0000H
開始:LJMP初始化
ORG 0003HINT0
ORG 000BHT0 INT
ORG 0013H；1NT1
ORG 001BH；T1 INT
ORG 0023Hs端口INT
ORG 002BHT2國際
ORG 0030H
；============================================
初始:MOV SP，#60H
MOV P0，#0FFH
MOV P2，#00H
MOV P1，#00H
MOV 4AH，#15
；============================================
MAIN:LCALL GET _ temple
我叫DISP
//LCALL按鍵掃描
//l呼出
SJMP梅因
；============================================
GET _ TEMPER:
SETB P3.4
LCALL RST18B20
JB 00H，DSS2
浸水使柔軟
DSS2: MOV A，#0CCH
LCALL WR18B20
MOV A # 44H
LCALL WR18B20
LCALL RST18B20
MOV A，#0CCH
LCALL WR18B20
MOV A，#0BEH
LCALL WR18B20
LCALL RE18B20
浸水使柔軟
RST18B20:
SETB P3.4
nototherwiseprovided（for）除非另有規定
CLR P3.4
MOV R0 # 06BH
MOV R1，#03H
DSR1: DJNZ R0，DSR1
MOV R0 # 6BH
DJNZ R1，DSR1
SETB P3.4
nototherwiseprovided（for）除非另有規定
nototherwiseprovided（for）除非另有規定
nototherwiseprovided（for）除非另有規定
MOV R0，#25H
DSR2: JNB P3.4，DSR3
DJNZ R0，DSR2
LJMP DSR4
SETB 00H
LJMP DSR5
DSR4: CLR 00H
LJMP DSR7
DSR5: MOV R0，#06BH
DSR6: DJNZ R0，DSR6
DSR7: SETB P3.4
浸水使柔軟
；-
WR18B20:
MOV·R2，排名第八
CLR C
WR1: CLR P3.4
MOV R3，6號
DJNZ R3，美元
RRC A
MOV P3.4，C
MOV R3，第23位
DJNZ R3，美元
SETB P3.4
nototherwiseprovided（for）除非另有規定
DJNZ R2，WR1
SETB P3.4
浸水使柔軟
；-
RE18B20: SETB RS0
MOV·R4，排名第二
MOV R0，#36H
RE00: MOV R5，#8
RE01: CLR C
SETB P3.4
nototherwiseprovided（for）除非另有規定
nototherwiseprovided（for）除非另有規定
CLR P3.4
nototherwiseprovided（for）除非另有規定
nototherwiseprovided（for）除非另有規定
nototherwiseprovided（for）除非另有規定
SETB P3.4
MOV·R6，第07名
裏10:R6 DJNZ
MOV C，P3.4
MOV·R6，第20位
RE20: DJNZ R6
RRC A
DJNZ R5，RE01
MOV @R0，A
十二月零日
DJNZ R4，RE00
CLR RS0
nototherwiseprovided（for）除非另有規定
浸水使柔軟
；-
DISP: MOV A，35H
ANL A，#0FH
MOV 45H，A
MOV A，36H
交換A
ANL A，#0FH
MOV 46H，A
MOV A，45H
交換A
ORL A，46H
MOV 46H，A
MOV B，#10
分部AB
MOV 50H，A
MOV 51H，B
MOV A，4AH
MOV B，#10
分部AB
MOV 52H，A
MOV 53H，B
MOV DPTR，#標簽
MOV A，50H
MOVC A，@A+DPTR
CPL A
MOV P1，#00H
MOV·P2
LCALL延遲
MOV A，51H
MOVC A，@A+DPTR
CPL A
MOV P1，#20H
MOV·P2
LCALL延遲
MOV A，52H
MOVC A，@A+DPTR
CPL A
MOV P1，#40H
MOV·P2
LCALL延遲
MOV A，53H
MOVC A，@A+DPTR
CPL A
MOV P1，#60H
MOV·P2
LCALL延遲
浸水使柔軟
標簽:DB 3FH、06H、5BH、4FH、66H、6DH、7DH、07H、7FH、6FH
延遲:MOV R5，#30
d 1:MOV R6，#123
nototherwiseprovided（for）除非另有規定
D2: DJNZ R6，D2
DJNZ R5，D1
浸水使柔軟
//KEYSCAN: JB 7DH，SCAN1
JB KEY_ADD，SCAN2
DJNZ R0美元
JB KEY_ADD，SCAN2
SETB 7DH
INC 4AH
掃描1: JNB密鑰_添加，掃描12
CLR 7DH
掃描2: JB 7CH，掃描11
JB KEY_DEC，SCAN12
DJNZ R0美元
JB KEY_DEC，SCAN12
SETB 7CH
12月4日
掃描11: JNB密鑰_DEC，掃描12
CLR 7CH
掃描12:無
浸水使柔軟
//出局:MOV A，46H
CJNE A，4AH，OUT1
SJMP OUT3
OUT1: SUBB A，4AH
MOV B，排名第二
分部AB
LP1: MOV P1，#03H
阿卡爾德爾
十二月A
JZ OUT3
MOV P1，#02H
阿卡爾德爾
十二月A
JZ OUT3
MOV P1，#06H
阿卡爾德爾
十二月A
JZ OUT3
MOV P1，#04H
阿卡爾德爾
十二月A
JZ OUT3
MOV P1，#0CH
阿卡爾德爾
十二月A
JZ OUT3
MOV P1，#08H
阿卡爾德爾
十二月A
JZ OUT3
MOV P1，#09H
阿卡爾德爾
十二月A
JZ OUT3
MOV P1，#01H
阿卡爾德爾
十二月A
//JNZ LP 1
AJMP OUT3
OUT3: NOP
浸水使柔軟
戴爾:MOV·R6，#10
DD 1:MOV R5，#80H
DD2:MOV R7，第0
DD3:DJNZ R7、DD3
DJNZ R5
DJNZ R6，DD1
浸水使柔軟
結束