ex3-6.asm

《PIC单片机应用开发典型模块》源代码及图片

;--------------程序信息-----------------
;文件名   : ex3-6.asm
;版本     : 1.0
;作者     :
;修改时间 :

;--------------程序说明------------------
;CHAP 3.6 LED动态显示实例

;-----------常量和变量声明---------------

 
         LED EQU P1;             	宏定义LED显示器
	 Dq BIT P2.0
	 ADDR EQU 30H;          	显示的温度值地址
	 ADDREND EQU 33H;

;--------------预定义--------------------

               ORG 0000H
               LJMP START

;------------中断入口地址分配------------
               ;ORG 0003H
               ;LJMP INT0PRG
               ;ORG 000BH
               ;LJMP INT1PRG
               ;ORG 0013H;
               ;LJMP
               ;ORG 0030H

START:
;--------------初始化子程序--------------
     MOV SP,60H;
;--------------主程序--------------------
MAIN:  	LCALL GETTEMP;    	通过传感器获得温度值
        LCALL DISP;         	动态扫描显示温度值

LJMP MAIN


;----------------子程序------------------

DISP:                         	;动态液晶显示子程序
	MOV R0,ADDR;
	MOV DPTR,#LEDDB;
DISP1:	MOVX A,@DPTR;
        MOV R1,A;
        MOV A,@R0;
	ORL A,R1;;
	MOV LED,A;
	LCALL DELAY1MS;
        INC R0;
	INC DPTR;
	MOV A,R0;
	CJNE A,#ADDREND,DISP1;
	RET;


;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;    DS1820温度采集主程序
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
GETTEMP:
        CLR PSW.4
        SETB PSW.3  		;设置工作寄存器当前所在的区域
        CLR EA     		;使用ds1820一定要禁止任何中断产生
        LCALL INT   		;调用初使化子程序
        MOV A,#0CCH
        LCALL WRITE 		;送入跳过ROM命令
        MOV A, #44H
        LCALL WRITE 	        ;送入温度转换命令
        LCALL INT   		;温度转换完全,再次初使化ds1820
        MOV A,#0CCH
        LCALL WRITE 		;送入跳过ROM命令
        MOV A,#0BEH
        LCALL WRITE 		;送入读温度暂存器命令
        LCALL READ
        MOV R7,A 		;读出温度值低字节存入R7
        LCALL READ
        MOV R6,A ;		读出谩度值高字节存入R6
	;LCALL TEMPCHANGE;
        ;SETB EA
        RET
INT: 				;初始化ds1820子程序
       	CLR EA
L0:	CLR dq 		        ;ds1820总线为低复位电平
        MOV R2,#200
L1:	CLR dq
        DJNZ R2,L1		;总线复位电平保持400us
        SETB dq 		;释放ds1820总线
        MOV R2,#30
L4:	DJNZ R2,L4 	        ;释放ds1820总线保持60us
   	CLR C 		        ;清存在信号
    	ORL C,dq
    	JC L0			 ;存在吗?不存在则重新来
  	MOV R6,#80
L5:	ORL C,dq
        JC L3
        DJNZ R6,L5
        SJMP L0
L3:	MOV R2,#240
L2:	DJNZ R2,L2
        RET
WRITE: 					;向ds1820写操作命令子程序
        CLR EA
        MOV R3,#8		 ;写入ds1820的bit数,一个字节8个bit
WR1:	SETB dq

        MOV R4,#8
        RRC A			 ;把一个字节data(A)分成8个bit环移给 C
        CLR dq			 ;开始写入ds1820总线要处于复位(低)状态
WR2:	DJNZ R4,WR2		 ;ds1820总线复位保持16us
        MOV dq,C			 ;写入一个bit
        MOV R4,#20
WR3:	DJNZ R4,WR3		 ;等待40us
        DJNZ R3,WR1 		;写入下一个bit
        SETB dq 			;重新释放ds1820总线
        RET
READ:
        CLR EA
        MOV R6,#8		 ;连续读8个bit
RE1:		CLR dq 			;读前总线保持为低
        MOV R4,#4
        NOP
        SETB dq 			;开始读总线释放
RE2:		DJNZ R4,RE2 		;持续8us
        MOV C,dq			 ;从ds1820总线读得一个bit
        RRC A 			;把读得的位值环移给 A
        MOV R5,#30
RE3:	DJNZ R5,RE3	;持续60us
        DJNZ R6,RE1		 ;读下一个bit
        SETB dq 		 ;重新释放ds1820总线
        RET


;--------------中断子程序----------------

;---------------延时子程序---------------

DELAY1MS: MOV R5,#02H;
 DELAY10: MOV R6,#00F4H;
 DELAY11: MOV R7,#0FFH;
 DELAY12: DJNZ R7,DELAY12;
        DJNZ R6,DELAY11;
        DJNZ R5,DELAY10;
        RET;

LEDDB: 	DB 10H,20H,40H;   	 高位表示LED的片选端

END

;---------------注意事项-----------------