急求一个单片机仓库温度控制系统，采用Proteus仿真，用汇编语言写，明天早上要用。程序标注释

(1) 设计仓库温度检测控制器的硬件电路和控制程序，实现如下功能。
(2) 该仓库温度检测控制器可以检测仓库内的温度，并对其进行控制。
(3) 能实现通过键盘对仓库温度上下限的设定。
(4) 在仓库温度低于温度下限时，启动加热器加热，同时报警。
(5) 在仓库温度高于温度上下时，启动风机降温，同时报警。
(6) 能显示各个测温点的温度和仓库的平均温度。
急求啊，明早要用，明早发来继续追加。明早没有问题作废。要仿真电路图和源码（标注释）
做好的发我邮箱，[email protected].明早发到的追加100粉，要分的做，要钱的就不要联系了

举报该问题

推荐答案 2011-12-15

已经发了，大部分能满足你的要求。

CLR P3.7

MAIN:MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER

LCALL TEMPRRO

MOV P2,#06H

LCALL PRO

;------------------------------------------------------

MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER2

LCALL TEMPRRO

MOV P2,#5BH

LCALL PRO

;------------------------------------------------------

MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER3

LCALL TEMPRRO

MOV P2,#4FH

LCALL PRO

;------------------------------------------------------

MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER4

LCALL TEMPRRO

MOV P2,#66H

LCALL PRO

;------------------------------------------------------

MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER5

LCALL TEMPRRO

MOV P2,#6DH

LCALL PRO

;------------------------------------------------------

MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER6

LCALL TEMPRRO

MOV P2,#7DH

LCALL PRO

;------------------------------------------------------

MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER7

LCALL TEMPRRO

MOV P2,#07H

LCALL PRO

;------------------------------------------------------

MOV 38H,#00H

MOV 39H,#00H

MOV 3AH,#00H

MOV 3BH,#00H

LCALL GET_TEMPER8

LCALL TEMPRRO

MOV P2,#7FH

LCALL PRO

LJMP MAIN

;==============================================CHL1

GET_TEMPER:

SETB P1.0H ; 定时入口

BCD: LCALL INIT_1820

JB 00H,S22

LJMP BCD ; 若DS18B20不存在则返回

S22: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_1820

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_1820

NOP

LCALL DELAY1

CBA:LCALL INIT_1820

JB 00H,ABC

LJMP CBA

ABC:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_1820

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_1820

LCALL READ_18200 ;READ_1820

RET

;==============================

READ_1820:

MOV R2,#8

RE1:

CLR C

SETB P1.0H

NOP

CLR P1.0H

NOP

SETB P1.0H

MOV R3,#7

DJNZ R3,$

MOV C,P1.0H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE1

RET

;=============================

WRITE_1820:

MOV R2,#8

CLR C

WR1:

CLR P1.0H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.0H,C

MOV R3,#23

DJNZ R3,$

SETB P1.0H

NOP

DJNZ R2,WR1

SETB P1.0H

RET

;=======================================

READ_18200:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE00:

MOV R2,#8

RE01:

CLR C

SETB P1.0H

NOP

CLR P1.0H

NOP

SETB P1.0H

MOV R3,#7

DJNZ R3,$

MOV C,P1.0H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE01

MOV @R1,A

DEC R1

DJNZ R4,RE00

RET

;=======================================

INIT_1820:

SETB P1.0H

NOP

CLR P1.0H

MOV R0,#250

TSR1:

DJNZ R0,TSR1 ; 延时520us

SETB P1.0H

MOV R0,#25H ;96US-25H

TSR2:

DJNZ R0,TSR2

JNB P1.0H,TSR3;如D0为低则复位成功，DS18B20存在

LJMP TSR4 ; 延时

TSR3:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR5

TSR4:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR7

TSR5:

MOV R0,#06BH ;200US

TSR6:

DJNZ R0,TSR6 ; 延时

TSR7:

SETB P1.0H ;拉高总线

RET

;===============================

GET_TEMPER2:

SETB P1.1H ; 定时入口

BCD2: LCALL INIT_18202

JB 00H,S222

LJMP BCD2 ; 若DS18B20不存在则返回

S222: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_18202

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_18202

NOP

LCALL DELAY1

CBA2:LCALL INIT_18202

JB 00H,ABC2

LJMP CBA2

ABC2:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_18202

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_18202

LCALL READ_182002 ;READ_1820

RET

;==============================

READ_18202:

MOV R2,#8

RE12:

CLR C

SETB P1.1H

NOP

CLR P1.1H

NOP

SETB P1.1H

MOV R3,#7

DJNZ R3,$

MOV C,P1.1H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE12

RET

;=============================

WRITE_18202:

MOV R2,#8

CLR C

WR12:

CLR P1.1H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.1H,C

MOV R3,#23

DJNZ R3,$

SETB P1.1H

NOP

DJNZ R2,WR12

SETB P1.1H

RET

;=======================================

READ_182002:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE002:

MOV R2,#8

RE012:

CLR C

SETB P1.1H

NOP

CLR P1.1H

NOP

SETB P1.1H

MOV R3,#7

DJNZ R3,$

MOV C,P1.1H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE012

MOV @R1,A

DEC R1

DJNZ R4,RE002

RET

;=======================================

INIT_18202:

SETB P1.1H

NOP

CLR P1.1H

MOV R0,#250

TSR12:

DJNZ R0,TSR12 ; 延时520us

SETB P1.1H

MOV R0,#25H ;96US-25H

TSR22:

DJNZ R0,TSR22

JNB P1.1H,TSR32;如D0为低则复位成功，DS18B20存在

LJMP TSR42 ; 延时

TSR32:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR52

TSR42:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR72

TSR52:

MOV R0,#06BH ;200US

TSR62:

DJNZ R0,TSR62 ; 延时

TSR72:

SETB P1.1H ;拉高总线

RET

;===============================

GET_TEMPER3:

SETB P1.2H ; 定时入口

BCD3: LCALL INIT_18203

JB 00H,S223

LJMP BCD3 ; 若DS18B20不存在则返回

S223: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_18203

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_18203

NOP

LCALL DELAY1

CBA3:LCALL INIT_18203

JB 00H,ABC3

LJMP CBA3

ABC3:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_18203

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_18203

LCALL READ_182003 ;READ_1820

RET

;==============================

READ_18203:

MOV R2,#8

RE13:

CLR C

SETB P1.2H

NOP

CLR P1.2H

NOP

SETB P1.2H

MOV R3,#7

DJNZ R3,$

MOV C,P1.2H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE13

RET

;=============================

WRITE_18203:

MOV R2,#8

CLR C

WR13:

CLR P1.2H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.2H,C

MOV R3,#23

DJNZ R3,$

SETB P1.2H

NOP

DJNZ R2,WR13

SETB P1.2H

RET

;=======================================

READ_182003:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE003:

MOV R2,#8

RE013:

CLR C

SETB P1.2H

NOP

CLR P1.2H

NOP

SETB P1.2H

MOV R3,#7

DJNZ R3,$

MOV C,P1.2H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE013

MOV @R1,A

DEC R1

DJNZ R4,RE003

RET

;=======================================

INIT_18203:

SETB P1.2H

NOP

CLR P1.2H

MOV R0,#250

TSR13:

DJNZ R0,TSR13 ; 延时520us

SETB P1.2H

MOV R0,#25H ;96US-25H

TSR23:

DJNZ R0,TSR23

JNB P1.2H,TSR33;如D0为低则复位成功，DS18B20存在

LJMP TSR43 ; 延时

TSR33:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR53

TSR43:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR73

TSR53:

MOV R0,#06BH ;200US

TSR63:

DJNZ R0,TSR63 ; 延时

TSR73:

SETB P1.2H ;拉高总线

RET

;===============================

GET_TEMPER4:

SETB P1.3H ; 定时入口

BCD4: LCALL INIT_18204

JB 00H,S224

LJMP BCD4 ; 若DS18B20不存在则返回

S224: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_18204

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_18204

NOP

LCALL DELAY1

CBA4:LCALL INIT_18204

JB 00H,ABC4

LJMP CBA4

ABC4:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_18204

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_18204

LCALL READ_182004 ;READ_1820

RET

;==============================

READ_18204:

MOV R2,#8

RE14:

CLR C

SETB P1.3H

NOP

CLR P1.3H

NOP

SETB P1.3H

MOV R3,#7

DJNZ R3,$

MOV C,P1.3H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE14

RET

;=============================

WRITE_18204:

MOV R2,#8

CLR C

WR14:

CLR P1.3H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.3H,C

MOV R3,#23

DJNZ R3,$

SETB P1.3H

NOP

DJNZ R2,WR14

SETB P1.3H

RET

;=======================================

READ_182004:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE004:

MOV R2,#8

RE014:

CLR C

SETB P1.3H

NOP

CLR P1.3H

NOP

SETB P1.3H

MOV R3,#7

DJNZ R3,$

MOV C,P1.3H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE014

MOV @R1,A

DEC R1

DJNZ R4,RE004

RET

;=======================================

INIT_18204:

SETB P1.3H

NOP

CLR P1.3H

MOV R0,#250

TSR14:

DJNZ R0,TSR14 ; 延时520us

SETB P1.3H

MOV R0,#25H ;96US-25H

TSR24:

DJNZ R0,TSR24

JNB P1.3H,TSR34;如D0为低则复位成功，DS18B20存在

LJMP TSR44 ; 延时

TSR34:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR54

TSR44:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR74

TSR54:

MOV R0,#06BH ;200US

TSR64:

DJNZ R0,TSR64 ; 延时

TSR74:

SETB P1.3H ;拉高总线

RET

;===============================

GET_TEMPER5:

SETB P1.4H ; 定时入口

BCD5: LCALL INIT_18205

JB 00H,S225

LJMP BCD5 ; 若DS18B20不存在则返回

S225: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_18205

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_18205

NOP

LCALL DELAY1

CBA5:LCALL INIT_18205

JB 00H,ABC5

LJMP CBA5

ABC5:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_18205

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_18205

LCALL READ_182005 ;READ_1820

RET

;==============================

READ_18205:

MOV R2,#8

RE15:

CLR C

SETB P1.4H

NOP

CLR P1.4H

NOP

SETB P1.4H

MOV R3,#7

DJNZ R3,$

MOV C,P1.4H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE15

RET

;=============================

WRITE_18205:

MOV R2,#8

CLR C

WR15:

CLR P1.4H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.4H,C

MOV R3,#23

DJNZ R3,$

SETB P1.4H

NOP

DJNZ R2,WR15

SETB P1.4H

RET

;=======================================

READ_182005:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE005:

MOV R2,#8

RE015:

CLR C

SETB P1.4H

NOP

CLR P1.4H

NOP

SETB P1.4H

MOV R3,#7

DJNZ R3,$

MOV C,P1.4H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE015

MOV @R1,A

DEC R1

DJNZ R4,RE005

RET

;=======================================

INIT_18205:

SETB P1.4H

NOP

CLR P1.4H

MOV R0,#250

TSR15:

DJNZ R0,TSR15 ; 延时520us

SETB P1.4H

MOV R0,#25H ;96US-25H

TSR25:

DJNZ R0,TSR25

JNB P1.4H,TSR35;如D0为低则复位成功，DS18B20存在

LJMP TSR45 ; 延时

TSR35:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR55

TSR45:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR75

TSR55:

MOV R0,#06BH ;200US

TSR65:

DJNZ R0,TSR65 ; 延时

TSR75:

SETB P1.4H ;拉高总线

RET

;===============================

GET_TEMPER6:

SETB P1.5H ; 定时入口

BCD6: LCALL INIT_18206

JB 00H,S226

LJMP BCD6; 若DS18B20不存在则返回

S226: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_18206

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_18206

NOP

LCALL DELAY1

CBA6:LCALL INIT_18206

JB 00H,ABC6

LJMP CBA6

ABC6:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_18206

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_18206

LCALL READ_182006 ;READ_1820

RET

;==============================

READ_18206:

MOV R2,#8

RE16:

CLR C

SETB P1.5H

NOP

CLR P1.5H

NOP

SETB P1.5H

MOV R3,#7

DJNZ R3,$

MOV C,P1.5H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE16

RET

;=============================

WRITE_18206:

MOV R2,#8

CLR C

WR16:

CLR P1.5H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.5H,C

MOV R3,#23

DJNZ R3,$

SETB P1.5H

NOP

DJNZ R2,WR16

SETB P1.5H

RET

;=======================================

READ_182006:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE006:

MOV R2,#8

RE016:

CLR C

SETB P1.5H

NOP

CLR P1.5H

NOP

SETB P1.5H

MOV R3,#7

DJNZ R3,$

MOV C,P1.5H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE016

MOV @R1,A

DEC R1

DJNZ R4,RE006

RET

;=======================================

INIT_18206:

SETB P1.5H

NOP

CLR P1.5H

MOV R0,#250

TSR16:

DJNZ R0,TSR16 ; 延时520us

SETB P1.5H

MOV R0,#25H ;96US-25H

TSR26:

DJNZ R0,TSR26

JNB P1.5H,TSR36;如D0为低则复位成功，DS18B20存在

LJMP TSR46 ; 延时

TSR36:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR56

TSR46:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR76

TSR56:

MOV R0,#06BH ;200US

TSR66:

DJNZ R0,TSR66 ; 延时

TSR76:

SETB P1.5H ;拉高总线

RET

;===============================

GET_TEMPER7:

SETB P1.6H ; 定时入口

BCD7: LCALL INIT_18207

JB 00H,S227

LJMP BCD7; 若DS18B20不存在则返回

S227: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_18207

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_18207

NOP

LCALL DELAY1

CBA7:LCALL INIT_18207

JB 00H,ABC7

LJMP CBA7

ABC7:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_18207

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_18207

LCALL READ_182007 ;READ_1820

RET

;==============================

READ_18207:

MOV R2,#8

RE17:

CLR C

SETB P1.6H

NOP

CLR P1.6H

NOP

SETB P1.6H

MOV R3,#7

DJNZ R3,$

MOV C,P1.6H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE17

RET

;=============================

WRITE_18207:

MOV R2,#8

CLR C

WR17:

CLR P1.6H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.6H,C

MOV R3,#23

DJNZ R3,$

SETB P1.6H

NOP

DJNZ R2,WR17

SETB P1.6H

RET

;=======================================

READ_182007:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE007:

MOV R2,#8

RE017:

CLR C

SETB P1.6H

NOP

CLR P1.6H

NOP

SETB P1.6H

MOV R3,#7

DJNZ R3,$

MOV C,P1.6H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE017

MOV @R1,A

DEC R1

DJNZ R4,RE007

RET

;=======================================

INIT_18207:

SETB P1.6H

NOP

CLR P1.6H

MOV R0,#250

TSR17:

DJNZ R0,TSR17 ; 延时520us

SETB P1.6H

MOV R0,#25H ;96US-25H

TSR27:

DJNZ R0,TSR27

JNB P1.6H,TSR37;如D0为低则复位成功，DS18B20存在

LJMP TSR47; 延时

TSR37:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR57

TSR47:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR77

TSR57:

MOV R0,#06BH ;200US

TSR67:

DJNZ R0,TSR67; 延时

TSR77:

SETB P1.6H ;拉高总线

RET

;===============================

GET_TEMPER8:

SETB P1.7H ; 定时入口

BCD8: LCALL INIT_18208

JB 00H,S228

LJMP BCD8; 若DS18B20不存在则返回

S228: LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配------0CC命令

LCALL WRITE_18208

MOV A,#44H ; 发出温度转换命令

LCALL WRITE_18208

NOP

LCALL DELAY1

CBA8:LCALL INIT_18208

JB 00H,ABC8

LJMP CBA8

ABC8:LCALL DELAY1

MOV A,#0CCH ; 跳过ROM匹配

LCALL WRITE_18208

MOV A,#0BEH ; 发出读温度命令

LCALL WRITE_18208

LCALL READ_182008 ;READ_1820

RET

;==============================

READ_18208:

MOV R2,#8

RE18:

CLR C

SETB P1.7H

NOP

CLR P1.7H

NOP

SETB P1.7H

MOV R3,#7

DJNZ R3,$

MOV C,P1.7H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE18

RET

;=============================

WRITE_18208:

MOV R2,#8

CLR C

WR18:

CLR P1.7H

MOV R3,#6

DJNZ R3,$

RRC A

MOV P1.7H,C

MOV R3,#23

DJNZ R3,$

SETB P1.7H

NOP

DJNZ R2,WR18

SETB P1.7H

RET

;=======================================

READ_182008:

MOV R4,#2 ; 将温度高位和低位从DS18B20中读出

MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)

RE008:

MOV R2,#8

RE018:

CLR C

SETB P1.7H

NOP

CLR P1.7H

NOP

SETB P1.7H

MOV R3,#7

DJNZ R3,$

MOV C,P1.7H

MOV R3,#23

DJNZ R3,$

RRC A

DJNZ R2,RE018

MOV @R1,A

DEC R1

DJNZ R4,RE008

RET

;=======================================

INIT_18208:

SETB P1.7H

NOP

CLR P1.7H

MOV R0,#250

TSR18:

DJNZ R0,TSR18 ; 延时520us

SETB P1.7H

MOV R0,#25H ;96US-25H

TSR28:

DJNZ R0,TSR28

JNB P1.7H,TSR38;如D0为低则复位成功，DS18B20存在

LJMP TSR48; 延时

TSR38:

SETB 00H ; 置标志位,表示DS1820存在

LJMP TSR58

TSR48:

CLR 00H ; 清标志位,表示DS1820不存在

LJMP TSR78

TSR58:

MOV R0,#06BH ;200US

TSR68:

DJNZ R0,TSR68; 延时

TSR78:

SETB P1.7H ;拉高总线

RET

;===============================

;======================================

DELAY1:MOV R7,#20H

DJNZ R7,$

RET

;====================================

TEMPRRO:MOV 33H,#00H;初始化0

MOV A,30H

ANL A,#0FH

SWAP A

MOV 33H,A

MOV A,31H

ANL A,#0F0H

SWAP A

ORL 33H,A;重新组合成的带符号数据（整数部分）

MOV A,33H

ANL A,#80H;判断符号

JZ TEMPP

MOV A,33H

CPL A

;ADD A,#01H

SJMP TEMPP1

TEMPP:MOV A,33H;正数处理程序

LCALL HBCD

MOV A,31H

ANL A,#0FH

MOV DPTR,#TEMPTAB;小数查表

MOVC A,@A+DPTR

MOV 36H,A

CLR P3.7;表示正数

SJMP EXIT

TEMPP1:LCALL HBCD;负数处理程序

MOV A,31H

ANL A,#0FH

ORL A,#0F0H

CPL A

ADD A,#01H

MOV DPTR,#TEMPTAB

MOVC A,@A+DPTR;小数查表

MOV 36H,A

SETB P3.7;表示负数

EXIT:RET

HBCD: MOV B,#100 ;分离出百位，存放在R3中

DIV AB

MOV R3,A

MOV A,#10 ;余数继续分离十位和个位

XCH A,B

DIV AB

SWAP A

ORL A,B ;将十位和个位拼装成BCD码

MOV 34H,R3

MOV 35H,A

RET

TEMPTAB:DB 00H,01H,01H,02H,03H,03H,04H,04H

DB 05H,06H,06H,07H,08H,08H,09H,09H;0~16*0.0652

;==================================================

CBCD:;MOV R2,#04H;5个待分离的BCD

CL:MOV A,@R1 ;分离后将占10个单元

MOV B,A

ANL A,#0F0H

SWAP A

MOV 4CH,A

MOV A,B

ANL A,#0FH

MOV 4DH,A

MOV @R0,4CH

INC R0

MOV @R0,4DH

INC R0

INC R1

DJNZ R2,CL

RET

;===================================================

DISPLAY:MOV R0,#38H;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;显示缓冲区首地址

MOV R2,#04

DISP_LOOP:MOV A,@R0

LCALL DISP

INC R0

DJNZ R2,DISP_LOOP

CLR P0.2

NOP

SETB P0.2 ;上升沿将数据送到输出锁存器

NOP

CLR&

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/zBBtjWXtW.html

相似回答

用汇编语言编写一程序?且在proteus中软件仿真实现答：KEY2_DIS:CLR P1.1 MOV P0,#5BH SJMP KEY2_DIS KEY3_DIS:CLR P1.2 MOV P0,#4FH SJMP KEY3_DIS KEY4_DIS:CLR P1.3 MOV P0,#66H SJMP KEY4_DIS KEY5_DIS:CLR P1.4 MOV P0,#6DH SJMP KEY5_DIS KEY6_DIS:CLR P1.5 MOV P0,#7DH SJMP KEY6_DIS KEY7_DIS:CLR P1....

Proteus 仿真时,如何指定单片机所用的程序代码?答：proteus仿真时，用C语言或用汇编语言写的程序，要用keil编译出HEX代码文件，双击单片机添加HEX文件。

单片机汇编语言编程求助答：;用PROTEUS仿真，显示器使用7SEG-MPX2-CC ;=== ORG 0000H AJMP START ORG 0013H AJMP X1_INT START:MOV SP, #60H MOV IE, #84H MOV R3, #0 ;--- MAIN:LCALL DISPLAY SJMP MAIN ;--- X1_INT:MOV A, R3 ADD A, #1 DA A MOV R3, A ;R3 = 00~99...

单片机proteus仿真,有接线图和汇编语言,求把这个汇编语言改成c语言!答：//（1）静态显示#include <reg51.h>//共阴极数码管段码unsigned char code TAB1[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F,0x77,0x7C, 0x39,0x5E,0x79,0x71,0x73,0x3E,0x31,0x6E,0x76,0x38,0x00};//共阳极数码管段码unsigned char code TAB2[]={0x0C0...

在proteus中进行单片机的仿真学习,怎么向单片机(80C51)中写入程序...答：利用keil编写程序，C和汇编都行，生成HEX文件，在proteus在连接好线后，双击单片机，在属性对话框里面有一个文件夹图标，点那个添加刚才编译好的HEX文件，就可以了。

基于MCS-51单片机的精密温度控制系统的设计与实现答：本检测系统硬件设计以AT89C51单片机为核心,用温度传感器DS18B20实现温度控制,用数码管显示实际温度和预设温度,制作数字温度计,并可以实现温度预警控制。 单片机系统的软件编程采用单片机汇编进行编程。应用软件采用KEIL和PROTEUS仿真软件模拟实现控制过程。 温度控制系统是基于单片机的计算机检测技术的软硬件开发和面向对象的高级...

protues6.9 c51单片机仿真如何写入c语言编的程序啊??答：proteus仿真，C语言编制的程序，必须编译成HEX文件，才可以导入到单片机。汇编语言编制的程序，可以直接导入。

汇编语言:使用以下程序,用proteus仿真。为什么LED最后全亮了?_百度...答：接在p0.0脚上的led是会亮的，程序也对，是因为led正极的连线有问题，重新画一下，而接在p0.1的led是不会亮的，因不是发光二极管，就是普通的二极管，就算程序p0.1输出低电平就不亮的。

...编写一个定时程序,并显示在数码管上,用proteus模拟,结果数码管显 ...答：2 CLRP2.7 MOVA,24H ;时个位 ACALLSEG7 SETBP2.6 MOVP0,A CLRP2.6 MOVP0,00H ACALLDLY SETBP2.7 SETBP0.1 CLRP2.7 MOVA,25H ;时十位 ACALLSEG7 SETBP2.6 MOVP0,A CLRP2.6 MOVP0,00H ACALLDLY SETBP2.7 SETBP0.0 CLRP2.7 MOVP0,00H AJMPDISP SEG7:INCA ...

大家正在搜

基于单片机的温度控制系统 51单片机温度控制系统基于单片机温度控制系统设计单片机温度控制系统的设计单片机温度控制系统电路图单片机温度控制系统毕业论文基于单片机水温控制系统单片机恒温控制系统单片机炉温控制系统