Dutor » 单片机

PIC18 EEPROM编程

dutor — Tue, 24 Nov 2009 14:25:04 +0000

　　本程序利用PIC18单片机实现了对EEPROM的读写。应用背景是”汽车里程表”，简单介绍下程序功能和流程。
　　单片机接受来自RA4管脚的计数脉冲信号，应用中这个脉冲信号通常由一个传感器来产生，计数脉冲被设定为上升沿触发。计数器溢出时，需要更新一个用于存储当前里程的RAM寄存器单元COUNT，可以理解为车轮转了一定圈数后，里程表的增加一定的里程数。
　　RB0管脚用来接收一个外部中断信号，接收到中断信号后，在中断服务程序中将COUNT的值即当前里程数保存至EEPROM的00H单元。这样可以配合外部电路实现当单片机掉电时自动保存里程表数值的功能，即汽车熄火时保存里程表，以减少对EEPROM的读写次数。
　　单片机启动时，首先应该到EEPROM的相应单元读取里程表的当前值，并在此基础上进行累加。
　　程序中为了调试方便，还将COUNT的数值同步地通过8个LED以二进制形式较直观地显示了出来。

list	P = 18F452
#include P18F452.INC
 
	TMR0B	EQU D'253'
	COUNT	EQU  0x10H
	ORG	0000H	  	;PIC上电时从0000h单元开始执行
	GOTO	MAIN	  	;跳转到主程序
 
	ORG	0008H
	GOTO	INT0_ISR	;中断向量入口
 
	ORG	0030H	  	;主程序定位
MAIN	
	CLRF	TRISD	  	;设定D口方向为输出
	CLRF	PORTD 		;设定C口方向为输出
	BSF	TRISA, 4 	; 使用RA4做为计数输入
	BSF	INTCON, GIE 	;开全局中断
	BCF	INTCON, INT0IF 	;清INT0中断标志
	BSF	INTCON, INT0IE 	; 开INT0中断
	BSF	TRISB, INT0 	; 设定RB0即INT0脚为接收(输入)状态
 
	MOVLW	68H
	MOVWF	T0CON 		; 设定计数器TMR0为8位计数，上升沿触发，分频比1:1
	MOVLW	0x00
	MOVWF	EEADR	 	; 装载EEPROM的地址00h
	CALL	READ_EE 	; 读入EEPROM中00h单元的原始数据，即计数初值，保存到WREG
	MOVWF	COUNT
	MOVWF	PORTD 		; 输出到PORTD(连接了8个LED)
 
LOOP	
 
	BCF	INTCON, T0IF 	; 清TMR0中断标志
	MOVLW	TMR0B 
	MOVWF	TMR0L 		; 装入计数初值 253
	BSF	T0CON, TMR0ON 	; 启动计数器
	TEST	
	BTFSS	INTCON, T0IF 	; 检测TMR0是否溢出
	GOTO	TEST
	INCF	COUNT, F 	; 计数加一
	MOVFF	COUNT, PORTD 	; 输出，显示
 
	GOTO	LOOP
 
WIRT_EE				; 写EEPROM
	BCF	EECON1, EEPGD
	BCF	EECON1, CFGS 	; 设定EECON1控制寄存器
	BSF	EECON1, WREN 	; EEPROM写使能
	BCF	INTCON, GIE 	; 写EEPROM时需要关闭一切中断
 
	MOVLW	0x55h 	; 
	MOVWF	EECON2
	MOVLW	0xAAh
	MOVWF	EECON2
	BSF	EECON1, WR 	; 经典的五指令序列，将EEDATA写入EEPROM
 
	BSF	INTCON, GIE 	; 开全局中断
	BCF	EECON1, WREN 	; 提前关闭写使能
	RETURN	
 
READ_EE				; 读EEPROM
	BCF	EECON1, EEPGD
	BCF	EECON1, CFGS
	BSF	EECON1, RD
	NOP	
	MOVF	EEDATA, W 	; 将读出的结果写入W并返回，
	RETURN	
 
 
INT0_ISR	
				; 外部中断int0服务程序，可以利用外部电路，
				; 实现掉电时将当前计数值写入EEPROM
	BTFSS	INTCON, INT0IF  ; 重新测试溢出位，防止干扰信号触发中断
	RETFIE	
	BCF	INTCON, INT0IF
	MOVLW	0x00h
	MOVWF	EEADR
	MOVFF	COUNT, EEDATA
	CALL	WIRT_EE
 
	RETFIE			; 中断返回
END

662e438d

PIC18 ADC模数转换

dutor — Wed, 18 Nov 2009 14:40:37 +0000

　　使用PIC18单片机的ADC转换模块对RA0口输入的模拟电压信号进行转换，然后通过PORTD端口输出，而这里与PORTD对应引脚相连接的是8个LED。

list P = 18F452 ;指明单片机型号为PIC18F452
#include P18F452.INC ;包含一个头文件，其中定义了一些端口及一些特殊寄存器的地址
 
	org	0000h  	;PIC上电时从0000h单元开始执行
	goto	main  	;跳转到主程序
	ORG	0008H  	;中断向量入口
	BTFSS	PIR1, ADIF 	; AD转换完成中断
	RETFIE
	GOTO	AD_ISR
 
	ORG	0030H  	;主程序定位
MAIN
	CLRF	TRISD  	;设定D口方向为输出
	CLRF 	PORTD 	;设定C口方向为输出
	BSF 	TRISA, 0 	; 使用AN0输入
	MOVLW	81H 	;FOSC/32, AN0, 开启
	MOVWF	ADCON0
	MOVLW	0EH 	;左对齐,AN0为模拟输入
	MOVWF	ADCON1 	;VDD & VSS为参考电压
	BCF 	INTCON, TMR0IF
	BCF 	PIR1, ADIF 	;清AD中断标志位
	BSF 	PIE1, ADIE 	;开AD中断
	BSF 	INTCON, PEIE 	;开外围中断
	BSF  	NTCON, GIE 	;开总中断
	MOVLW 	C7H 	;TMR0 8位，分频比为1:256
	MOVWF	T0CON
LOOP
	CALL	DELAY
	BSF  	DCON0, GO 	;开启 A/D转换
	GOTO	LOOP
 
DELAY
 
	BTFSS  	NTCON, TMR0IF 	; 等待延时，采样保持
	GOTO  	DELAY
	BCF  	NTCON, TMR0IF
	RETURN
 
AD_ISR ;AD转换完成时调用的中断服务程序，将转换结果输出
	ORG 	0200H
	MOVFF	ADRESH, PORTD 	;显示转换结果
	BCF 	PIR1, ADIF 	;清AD中断标志位
	RETFIE
END 	;程序结束

PIC中断汇编

dutor — Tue, 03 Nov 2009 23:24:20 +0000

list P = 18F452
#include P18F452.INC
 
MOVLF macro R, K
    movlw 	K
    movwf 	R
endm
 
    ; 定义了几个寄存器
    R1  	EQU 20H
    R2  	EQU 21H
    R3  	EQU 22H
    R4 		EQU 23H
 
    ORG 	0008H  ;中断向量入口
    GOTO 	SELECT ;跳转到中段服务选择子程序
 
	org		0000h  ;PIC上电时从0000h单元开始执行
	goto	main  ;跳转到主程序
 
	org		0030h  ;主程序定位
main
	clrf	TRISD  ;设定D口方向为输出
    CLRF	TRISC ;设定C口方向为输出
    CLRF	PORTC ;C口置零
    BSF 	TRISB, INT0 ; 设定int0中断源对应引脚为输入
    CLRF 	PORTD
    CLRF	INTCON ;先将中断控制寄存器清零
    BSF 	INTCON, GIE ; 允许全局中断
    BSF  	INTCON, TMR0IE ; 允许TMR0定时器中断
    BSF		INTCON, INT0IE ; 允许int0中断
    MOVLF  	T0CON, 07H ; 设定定时器0的计数模式
 
    ; 给定时器装入初值，定时器为特殊的双缓冲结构，
    ; 注意初值的装入顺序为先高后低
    MOVLF 	TMR0H, 0C2H
    MOVLF  	TMR0L, 0F7H
    BSF  	T0CON, TMR0ON ; 打开定时器开始计数
 
LOOP ; PIC汇编的标号不需要冒号':'
   	;SLEEP  ; 进入Sleep模式
   	GOTO LOOP ; 转啊转
 
 
SELECT ; 中断服务选择程序,这里的测试顺序决定了中断优先级
   	BTFSC   INTCON, TMR0IF ; 测试定时器溢出位，为0则跳过一条指令
   	GOTO   	TMR0_ISR ; TMR0IF为1时，跳转到定时器服务程序
   	;NOP
   	BTFSS   INTCON, INT0IF ; 测试外部中断int0的标志位，为0则跳一步
   	RETFIE ; 中断返回，会涉及到出栈操作
   	GOTO   	INT0_ISR ; 跳转到int0服务程序
 
TMR0_ISR ; 定时器服务程序
   	BTFSS   INTCON, TMR0IF  ; 重新测试溢出位，防止干扰信号触发中断
   	RETFIE
   	BCF  	INTCON, TMR0IF  ; 清除溢出位
   	;BSF  	INTCON, GIE ; 
   	INCF   	PORTD, F ; D口加1
   	MOVLF 	TMR0H, 0C2H ; 计数器初值进行重装
   	MOVLF  	TMR0L, 0F7H
 
   	RETFIE ; 中断返回
 
 
INT0_ISR ; 外部中断int0服务程序
   	;CALL 	delay
   	BTFSS   INTCON, INT0IF  ; 重新测试溢出位，防止干扰信号触发中断
   	RETFIE
   	BCF   	INTCON, INT0IF ; 清除溢出位
   	; 下面的几行通过更改定时器的分频比来改变定时间隔，每次减半
   	MOVFF  	T0CON, R1
   	DECF   	R1, W
   	ANDWF   07H
   	MOVWF   T0CON
   	; D口加1
   	INCF   	PORTD
   	;MOVLF  R1, 0005H
   	;MOVF 	PORTD, W
   	;SUBWF 	R1, W
   	;BNZ 	NEXT
   	;BSF 	PORTC, 0002H
   	;CALL 	DELAY
   	;BCF 	PORTC, 0002H
NEXT
 
   	RETFIE ; 中断返回
 
SPEAKER
  	BSF  PORTC, 0002H
  	RETURN
DELAY  ; 软件延时
	movlw	0xFF
	movwf 	R1
L3
	movlw	0x1f
	movwf	R2
L2
	movlw	0x1f
	movwf	R3
L1
	decf	R3, F
	bnz		L1
	decf		R2, F
	bnz		L2
	decf		R1, F
	bnz		L3
	return
 
end

　　PIC的汇编实在诡异，有点被颠覆的感觉，原来汇编指令还可以这么来设计，原来汇编指令怎么设计都可以。最OOXX的一条指令就一个实现短转移的指令叫做BRA，意为BRAanch，看到这条指令的时候，我都诧异了，奶罩能做什么？哇塞！居然还能跳转！？奶罩居然可以无条件跳转？！Orz……另外PIC指令把单词缩写运用的淋漓尽致，譬如指令BTFSS，是一条位测试加条件跳转指令：BTFSS = Bit + Test + FileRegister + Skip + Set，用法：BTFSS R1, 0003h, 寄存器R1的第3位为1时跳过下一条指令。真是震撼！

　　最后附上PIC18的中断体系硬件结构图，出自陈育斌老师的手笔：

PIC18中断体系硬件结构示意图

双缓冲

dutor — Tue, 27 Oct 2009 13:59:51 +0000

　　双缓冲，顾名思义，就是二级缓冲。缓冲是一块内存或者一个/一组寄存器，一般位于接口之中，接口是指硬件或者软件间的一种连接。接口可以协调通信双方的数据交换，比如并行/串行数据的转换，模拟/数据信号的转换，高速/低速设备间的匹配等。那么双缓冲又是什么呢？

　　一种双缓冲是硬件上的，是一种严格意义上的双缓冲。下面就是一个双缓冲结构的例子：

PIC定时器中的双缓冲结构

　　图示是PIC 18单片机中定时/计数器的结构图，PIC18是一种8位的单片机，但它的定时/计数器(的寄存器)却是16位的，所以为其装初值的时候就要分高低字节分别装载。于是问题就来了，由于定时计数器一般是连续工作，需要经常进行重装，如果对一个正在工作的定时计数器进行重装的话，就会产生高低字节不同步的状态，这是一种潜在的错误，尽管这种错误发生的概率很小。为了防止这种错误的发生，PIC单片机设计者采用了上图所示的双缓存结构。其中，TMR0H’和TMR0L组成了一个真正的定时计数器，而TMR0H是一个临时寄存器只有TMR0L的写信号有效时它才能被装入TMR0H’。当需要重装定时器时，首先应该将16位定时/计数的初值的高8位装入TMR0H临时寄存器，然后在向TMR0L写入低8位时由于TMR0L写信号有效，TMR0H也被同步地装入TMR0H’。这样，定时计算器就可以正确的工作，这就是硬件的双缓冲。

　　接触到”软件”的或者说逻辑的双缓冲，是在Chris写一个3D魔方的时候。最初的魔方在转动时画面会发生闪烁，后来采用的双缓存消除了闪烁。画面闪烁是因为程序是边计算图像的”桢”(输入法无此字)数据，边向显示器(显存)写出桢数据所造成的延迟感。解决方法就是，先将计算所得数据存入内存，得到一个完整桢后再”一次性”地写入显存。这也是一种双缓存，也是一种同步，但不是严格意义上的同步。另外，一个更好的方法就是采用利用多线程，创建一个可容纳多个桢的缓冲池作为共享，创建一个线程来计算桢数据并添加到缓冲池，创建另外一个线程从缓冲池中取出桢并写入显存。当然，正两个线程需要一定的同步机制来协调工作。要是再创建一个线程，痴痴地等待着Chris同学的鼠标就perfect了！

I2C键盘扫描程序

dutor — Wed, 06 May 2009 14:22:26 +0000

;#################################################################
;              这是一个键盘扫描程序 
;将得到的健值（01H-10H）在右边两位数码管显示 (data= XX) 
;程序采用中断结构，硬件连接上将INT_KEY信号与P3.2(INT0) 连接；
;普通的I2C通讯程序可以直接利用，为读数据子程序需要加延时
;这是ZLG7290芯片在读数据时有延时，在RDBYT中添加一个20US延时
;#################################################################
SDA		BIT	P1.0
SCL		BIT	P1.1  
WSLA		EQU	070H
RSLA		EQU	071H
DISDA		EQU	20H		;源数据块首地址
DISCON		EQU	08H		;写入数据个数		
DATA_1		EQU	30H		;变量区首地址
;********************************************************
	ORG	8000H 
	LJMP	8100H  
;********************************************************
	ORG	8003H
	LJMP	INT_7290
;********************************************************
;            初始化部分					          
;********************************************************
	ORG	8100H 
START: MOV	SP,#60H
	CLR	P1.7   		;7290复位
	LCALL	DELAY	
	SETB	P1.7	
	SETB	EA 			;开INT0中断
	SETB	EX0
	SETB	IT0  		;触发极性为下降沿 	
;********************************************************
;           建立变量缓冲区	(30H-37H) 			          
;********************************************************
	MOV	DATA_1,  #13H	;变量缓冲区(显示 data =   )
	MOV	DATA_1+1,#13H	;注意：
	MOV	DATA_1+2,#13H 	;变量取值范围0-F
	MOV	DATA_1+3,#12H
	MOV	DATA_1+4,#10H
	MOV	DATA_1+5,#11H
	MOV	DATA_1+6,#10H
	MOV	DATA_1+7,#0DH
;********************************************************
;           通过查表建立显示缓冲区（20H-27H）				          
;********************************************************
	MOV	DPTR,#LEDSEG 	;开始对变量查表
	MOV	R7,#DISCON		;写入数据个数	
	MOV	R0,#DISDA  		;源数据块首地址
	MOV	R1,#DATA_1
LOOP1:	MOV	A,@R1
	MOVC	A,@A+DPTR 		;查表得对应的字形码
	MOV	@R0,A 			;送显示缓冲区
	INC	R1
	INC	R0
	DJNZ	R7,LOOP1  
;********************************************************
;	向7290B写入数据，以显示"data=  "
;********************************************************
LOOP:	MOV	R7,#DISCON
	MOV	R2,#10H
	MOV	R3,#WSLA
	MOV	R0,#DISDA 
	LCALL	WRNBYT			;调显示子程序
	LCALL	DELAY 			;使显示稳定 
	SJMP	LOOP 
;******************************************************************
LEDSEG:	DB	0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E4H	;0-7的字形码
		DB	0FEH,0F6H,0EEH,3EH,9CH,7AH,9EH,8EH		;8-F的字形码
		DB	0FAH,1EH,12H,00H						;a,t,= 和熄灭码
;******************************************************************
;	拆分程序（将A中的数据拆分为两个四位16进制数并查表）
;	( 结果在R4、R3中 ) 
;******************************************************************
CF:	PUSH	02H 		;将A中的数据拆分为两个四位16进制数并查表
	PUSH	DPH  	;	
PUSH	DPL
	MOV	DPTR,#LEDSEG
	MOV	R2,A
	ANL	A,#0FH
	MOVC	A,@A+DPTR
	MOV	R3,A
	MOV	A,R2
	SWAP	A
	ANL	A,#0FH
	MOVC	A,@A+DPTR
	MOV	R4,A
	POP	DPL
	POP	DPH
	POP	02H
	RET  
;*******************************************************************
;          中断服务程序 INT_7290:（INT0）
;*******************************************************************	
INT_7290:
	PUSH	00H
	PUSH	02H
	PUSH	03H
	PUSH	04H
	PUSH	07H
	PUSH	ACC
	PUSH	PSW
	MOV	R0,#28H	;状态数据区首址
	MOV	R7,#04H	;取状态数据个数
	MOV	R2,#00H ;内部数据首地址
	MOV	R3,#WSLA;取器件地址（写）
	MOV	R4,#RSLA;取器件地址（读）
 	LCALL	RDADD	;读出7290的00H-03H数据存于28H-2BH 
	NOP			;设定一个断点,以观察读出的4个数据
	MOV	A,29H	;取健值
	LCALL	CF		;拆分、查表
	MOV	20H,R3	;送显示缓冲区（最低两位数码管）
	MOV	21H,R4
	POP	PSW
	POP	ACC
	POP	07H
	POP	04H
	POP	03H
	POP	02H
	POP	00H
	RETI
;**********************************************************************
DELAY:	PUSH	00H
	PUSH	01H
	MOV	R0,#00H
DELAY1:	MOV	R1,#00H
	DJNZ	R1,$
	DJNZ	R0,DELAY1
	POP	01H
	POP	00H
	RET
;**********************************************************************
 
;相关的I2C子程序（WRNBYT、WRBYT、STOP、CACK、STA）参见8.1.4 。这里省略
;*******************************************************************
;【附录一】由汇编语言编制的I2C通讯子程序
;【提  示】下列程序是在系统时钟为12MHZ（或11.0592MHZ），即NOP指令为1微秒左右。
;（1）带有内部单元地址的多字节写操作子程序 WRNBYT
;*******************************************************************
;通用的I2C通讯子程序（多字节写操作）
;入口参数R7字节数,R0:源数据块首地址
;R0原数据块首地址；R2从器件内部子地址;R3:外围器件地址（写）
;相关子程序WRBYT、STOP、CACK、STA
;*******************************************************************	
WRNBYT:	PUSH	PSW		
		PUSH	ACC				
WRADD:	MOV		A,R3		;取外围器件地地址（包含r/w=0）	
		LCALL	STA		;发送起始信号S  
		LCALL	WRBYT		;发送外围地址
		LCALL	CACK		;检测外围器件的应答信号
		JB		F0,WRADD	;如果应
		MOV		A,R2
		LCALL	WRBYT		;发送内部寄存器首地址
		LCALL	CACK		;检测外围器件的应答信号
		JB		F0,WRADD	;如果应答不正确返回重来 	
WRDA:	MOV		A,@R0
		LCALL	WRBYT		;发送外围地址
		LCALL	CACK		;检测外围器件的应答信号
		JB		F0,WRADD	;如果应答不正确返回重来
		INC		R0
		DJNZ  	R7,WRDA
		LCALL	STOP 	
		POP		ACC
		POP		PSW
		RET 	       
;*******************************************************************
 
 
 
 
 
 
 
 
 
 
;（2）带有内部单元地址的多字节读操作子程序 RDADD 
;*******************************************************************
;通用的I2C通讯子程序（多字节读操作）
;入口参数R7字节数；
;R0目标数据块首地址；R2从器件内部子地址；
;R3器件地址（写）；R4器件地址（读）
;相关子程序WRBYT、STOP、CACK、STA、MNACK 
;*******************************************************************	
RDADD:  PUSH	PSW			;从PCF8563的02H单元读入7个参数
		PUSH	ACC			;存放于20H-26H单元	
RDADD1:	LCALL	STA 
		MOV		A,R3		;取器件地址（写）
		LCALL	WRBYT		;发送外围地址
		LCALL	CACK		;检测外围器件的应答信号
		JB		F0,RDADD1	;如果应答不正确返回重来
		MOV		A,R2		;取内部地址	
		LCALL	WRBYT		;发送外围地址
		LCALL	CACK		;检测外围器件的应答信号
		JB		F0,RDADD1	;如果应答不正确返回重来	
		LCALL	STA
		MOV		A,R4		;取器件地址（读）
		LCALL	WRBYT		;发送外围地址
		LCALL	CACK		;检测外围器件的应答信号
		JB		F0,RDADD1	;如果应答不正确返回重来
RDN:	LCALL	RDBYT 	
		MOV		@R0,A
		DJNZ	R7,ACK
		LCALL	MNACK
		LCALL	STOP	
		POP		ACC
		POP		PSW
		RET
ACK:	LCALL	MACK
		INC		R0
		SJMP	RDN 
 
 
 
 
 
 
 
;（3）I2C各个信号子程序
;**********************************************************************
;						启动信号子程序S 
;**********************************************************************
STA:	SETB	SDA		;启动信号S
		SETB	SCL
		NOP				;产生4.7US延时
		NOP
		NOP
		NOP
		NOP	
		CLR		SDA
		NOP				;产生4.7US延时
		NOP
		NOP
		NOP
		NOP 	
		CLR		SCL
		RET 
;**********************************************************************
;						停止信号子程序P 
;**********************************************************************
STOP:	CLR		SDA 	;停止信号P
		SETB	SCL
		NOP				;产生4.7US延时
		NOP
		NOP
		NOP
		NOP	
		SETB	SDA
		NOP				;产生4.7US延时
		NOP
		NOP
		NOP
		NOP	
		CLR		SCL
		CLR		SDA
		RET 
;**********************************************************************
;						应答信号子程序   MACK
;**********************************************************************
MACK:	CLR		SDA	;发送应答信号ACK
		SETB	SCL
		NOP			;产生4.7US延时
		NOP
		NOP
		NOP
		NOP
		CLR		SCL
		SETB	SDA
		RET
;**********************************************************************
;						非应答法信号子程序MNACK
;**********************************************************************
MNACK:	SETB	SDA		;发送非应答信号NACK
		SETB	SCL
		NOP				;产生4.7US延时
		NOP
		NOP
		NOP
		NOP
		CLR		SCL
		CLR		SDA
		RET
;**********************************************************************
;						应答检测子程序CACK
;**********************************************************************
CACK:	SETB	SDA		;应答位检测子程序
		SETB	SCL 
		CLR		F0
		MOV		C,SDA	;采样SDA
		JNC		CEND	;应答正确时转CEND
		SETB	F0		;应答错误时F0置一
CEND:	CLR		SCL
		RET
;**********************************************************************
;						发送一个字节子程序WRBYT
;**********************************************************************
WRBYT:	PUSH	06H
MOV		R6,#08H		;发送一个字节子程序 
WLP:	RLC		A 			;(入口参数A)
		MOV		SDA,C
		SETB	SCL
		NOP					;产生4.7US延时
		NOP
		NOP
		NOP
		NOP
		CLR		SCL
		DJNZ	R6,WLP
		POP		06H
		RET
;**********************************************************************
;						接收一个字节子程序RDBYT 
;**********************************************************************
RDBYT: 	PUSH	06H
		MOV		R6,#08H	;接收一个字节子程序
RLP:	SETB	SDA
		SETB	SCL
;  *******************************************
	NOP			;!!!!!产生大于15微秒的延时!!!!!!
	NOP 		;注意这是专门为ZLG7290
	NOP 		;添加的20微秒延时部分
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
;  ********************************************	
	MOV		C,SDA
	MOV		A,R2
	RLC		A
	MOV		R2,A
	CLR		SCL
	DJNZ	R6,RLP 		;(出口参数R2)
	POP		06H
	RET  
;**********************************************************************
 
		END

51单片机A/D转换器

dutor — Wed, 06 May 2009 14:18:19 +0000

 
	dat 	bit p3.2	;定义端口号
	clk	bit p3.3	
	cs	bit p3.4
 
	org	8000h		;程序定位及跳转指令的设置
	ljmp	8100h
	org	8100h
 
start:
	mov	sp, #60h	;定义堆栈底位置
stable:
	mov	r3, #00h	;循环体执行次数:256
	mov	r6, #00h	;寄存器清零
	mov	r7, #00h	;寄存器清零
loop:
				;取平均值主要是为了减小
				;高速模数转换干扰产生的误差
	lcall	tlc549_adc	;调用模数转换子程序
	add	a, r6		;向R7-R6累加a的值256次
	mov	r6, a
	mov 	a, #00h
	addc	a, r7
	mov	r7, a	
	lcall	delay
	djnz	r3, loop
	mov	a, r7		;将R7中的平均值送到a
	cpl	a		;a取反
	mov	p1, a		;输出a的值
	sjmp	stable
 
tlc549_adc:			;模数转换的驱动子程序
	push	07h
	clr	a		;清零
	clr	clk		;清零
	mov	r7, #08h	;由于是串行输入，每字节需要8次读入
	clr	cs		;片选信号置低位，选中模数转换器
loop1:
	setb	clk		;开始读取数据
	mov	c, dat
	rlc	a		;诸位读取，送到a
	clr	clk
	djnz	r7, loop1
	setb	cs
	setb	clk
	pop	07h
ret
 
delay:				;微小的延时，用来同步和协调单片机
				;与模数转换器的工作步调
	push	00h
	mov	r0, #00h
	djnz	r0, $
	pop	00h
ret
 
 
end

单片机蜂鸣器

dutor — Wed, 29 Apr 2009 14:16:25 +0000

功能描述

功能很简单，程序更简单：

简单的蜂鸣器实验程序：本程序通过在P1.1输出一个音频范围的方波，驱动实验板上的蜂鸣器发出蜂鸣声，其中包含有一个定时模块，作用是使输出的方波频率在人耳朵听觉能力之内的20KHZ以下，如果没有这个延时程序的话，输出的频率将大大超出人耳朵的听觉能力，我们将不能听到声音。更改定时常数，可以改变输出频率，也就可以调整蜂鸣器的音调。

 	org 	8000h		;定位
	ljmp 	start
	org 	8100h
start:
	mov 	sp, #60h
	mov	tmod, #10h	;置T1为方式1
	mov	tl1, #010h
	mov	th1, #010h	;设初值，定时为50ms
	setb	tr1		;启动定时器T1
loop:	jnb	tf1, $
 
	clr	tf1
	mov	tl1, #033h
	mov	th1, #0feh
	jb	p1.0, loop
	cpl	p1.1
down:
	sjmp	loop
	END

[warning]This is original article, you could copy it freely with my site links!
此日志为dutor原创，您可以自由转载，添加原文链接我将万分感激！[/warning]

单片机简易电子琴

dutor — Wed, 29 Apr 2009 14:12:53 +0000

功能描述

由p1口外接按键开关，p3.3接蜂鸣器组成。

 	org 	8000h		;定位
	ljmp 	start
	org 	8100h
start:
	mov 	sp, #60h
	mov	tmod, #10h	;置T1为方式1
;	mov	tl1, #010h
;	mov	th1, #010h	;设初值，定时为50ms
	setb	tr1		;启动定时器T1
 
loop1:	
	mov	p1, #0ffh
	mov	a, p1
	mov	r5, a
	cpl 	a
	jz	loop1
	cjne	a, #01h, loop2
	sjmp	do
loop2:
	cjne	a, #02h, loop3
	sjmp	ra
loop3:
	cjne	a, #04h, loop4
	sjmp	mi
loop4:
	cjne	a, #08h, loop5
	sjmp	fa
loop5:
	cjne	a, #10h, loop6
	sjmp	so
loop6:
	cjne	a, #20h, loop7
	sjmp	la
loop7:
	cjne	a, #40h, loop8
	sjmp	xi
loop8:
	cjne	a, #80h, loop1
	sjmp	hdo
	sjmp	loop1
 
do:
	mov	r7, #0f9h
	mov	r6, #21h
	sjmp	loop
ra:
	mov	r7, #0f9h
	mov	r6, #0e0h
	sjmp	loop
mi:
	mov	r7, #0fah
	mov	r6, #08bh
	sjmp	loop
fa:
	mov	r7, #0fah
	mov	r6, #0d7h
	sjmp	loop
so:
	mov	r7, #0fbh
	mov	r6, #67h
	sjmp	loop
la:
	mov	r7, #0fbh
	mov	r6, #0e8h
	sjmp	loop
xi:
	mov	r7, #0fch
	mov	r6, #5bh
	sjmp	loop
hdo:
	mov	r7, #0fch
	mov	r6, #8eh
	sjmp	loop
 
loop:
	lcall 	music
	sjmp	loop1
music:
	mov	tl1, r6
	mov	th1, r7
 
loop9:
	jnb	tf1, $
	clr	tf1
	mov	tl1, r6
	mov	th1, r7
	cpl	p3.3
	mov	a, p1
	cpl	a
	jnz	loop9
	setb	p3.3
down:
	ret
	END

[warning]This is original article, you could copy it freely with my site links!
此日志为dutor原创，您可以自由转载，添加原文链接我将万分感激！[/warning]

单片机中断实验

dutor — Wed, 29 Apr 2009 14:05:40 +0000

功能描述

正常情况下(p3.2为高电平), p3.3的电平以一定的频率连续翻转，当p3.2为低电平时，触发int0外部中断，进入中断服务程序，另p3.3保持低电平，并将p1端口加1。p3.2外接一个按键开关时，中断服务程序有防抖动的功能，这时通过一定的延时(通常为10ms–20ms)来实现的。

程序

 	org 	8000h		;定位
	ljmp 	start
	org 	8003h		;中断向量
	ljmp	int_0
	org 	8100h
start:
	mov 	sp, #60h
	setb	ex0		;开int0中断
	setb 	ea		;开总中断
	mov	tcon, #00h	;低电平触发
	mov	r3, #00h
	mov	a, r3
	cpl	a
loop3:				;死循环
	mov	p1, a
	cpl	p3.3		;翻转
	lcall	DELAY		;延时
	sjmp	loop3
 
int_0:				;中断服务子程序
	push	psw
	lcall	DELAY		;防抖动
	setb	p3.3
	inc	r3
	mov	a, r3
	cpl	a
	mov	p1, a
	jnb	p3.2, $		;查询，防止多次中断
	lcall	DELAY		;还是防抖动
	pop	psw
	reti
 
DELAY:  PUSH 06H
	PUSH 07H
	MOV R7, #70H
LABEL1:
	MOV R6, #70H
LABEL2:
	DJNZ R6, $
	DJNZ R7, LABEL1
	POP 07H
	POP 06H
	RET
	END

[warning]This is original article, you could copy it freely with my site links!
此日志为dutor原创，您可以自由转载，添加原文链接我将万分感激！[/warning]

中断方式定时器

dutor — Wed, 29 Apr 2009 13:54:20 +0000

89C51单片机，每计时一秒将P1端口翻转一次，晶振频率12MHz，中断方式实现。这里另外一个查询方式的实现

 	org 	8000h		;定位
	ljmp 	start
	org 	801bh		;中断向量
	ljmp	int_t1
	org 	8100h
start:
	mov 	sp, #60h
	mov	tmod, #10h	;置T1为方式1
	mov	tl1, 0fch
	mov	th1, #4bh	;设初值，定时为50ms
	mov	r1, #20		;中断次数，以使定时为1ms
	setb	tr1		;启动定时器T1
	clr	a		;累加器清零
	setb	et1		;T1中断允许
	setb	ea		;开总外部中断标志
	sjmp	$		;等待中断
 
 
int_t1:				;中断服务子程序
	push	psw		;保存程序状态字
	mov 	tl1, #0fch	;重装计数器
	mov	th1, #4bh
	djnz	r1, exit	;1s时间未到，返回主程序，等待下一次中断
	mov	r1, #20		;1s时间到，重装r1
	cpl	a		;a取反
	mov	p1, a		;输出a
exit:	pop	psw		;程序状态字出栈
	reti
 
DELAY:  PUSH 06H
	PUSH 07H
	MOV R7, #70H
LABEL1:
	MOV R6, #70H
LABEL2:
	DJNZ R6, $
	DJNZ R7, LABEL1
	POP 07H
	POP 06H
	RET
	END

[warning]This is original article, you could copy it freely with my site links!
此日志为dutor原创，您可以自由转载，添加原文链接我将万分感激！[/warning]

查询式定时器

dutor — Wed, 29 Apr 2009 13:33:29 +0000

89C51单片机，每计时一秒将P1端口翻转一次，晶振频率12MHz，这里另外一个中断方式的实现

 	org 	8000h		;定位
	ljmp 	start
	org 	8100h
start:
	mov 	sp, #60h
	mov	r1, #20	
	clr	a
	mov	tmod, #10h	;置T1为方式1
loop:	mov	tl1, 0fch
	mov	th1, #4bh	;设初值，定时为50ms
	setb	tr1		;启动定时器T1
	jnb	tf1, $		;查询TF1是否溢出
 
	clr	tf1		;清除溢出标志
	djnz	r1, loop	;1s时间未到，重装计数器
	mov	r1, #20		;1s时间到，重装r1
	cpl	a		;a取反
	mov	p1, a		;输出a
	ljmp	loop
 
	END

[warning]This is original article, you could copy it freely with my site links!
此日志为dutor原创，您可以自由转载，添加原文链接我将万分感激！[/warning]