/*******************************************************************************
************ LABCENTER ELECTRONICS ************
************ Proteus VSM Sample Design Code ************
************Integer Calculator ( 2K Code Limit) ************
*******************************************************************************/
NAMEKEYPAD
This routine will read a character press from the keypad and return it in R7.
Set up Segments for the Input Routine - No parameters.
?PR?input?KEYPAD SEGMENT CODE
PUBLIC input
?DT?input?KEYPAD SEGMENT DATA
RSEG ?DT?input?KEYPAD Local Variable Segment for Output Routine.
KEY_ROW1 equ 0EFh
KEY_ROW2 equ 0DFh
KEY_ROW3 equ 0BFh
KEY_ROW4 equ 07Fh
keyflags: ds 16
RSEG ?PR?input?KEYPAD Code Segment for Output Routine.
input:
keyscan:push DPH
push DPL
mov R0,#keyflags R0 addresses the key toggle bytes
mov R1,#KEY_ROW1 R1 address the keyboard row address
mov R2,#4 R2 counts rows
ksrow: mov P2,R1 Set row address to port P2
nop
mov A,P1 Read column data from port P1
mov R3,#4 R3 counts keys per row
anl A,#3Fh
ks0: rrc AMove next bit into carry
mov R4,A R4 preserves the row data
jc ks1Jump if key not pressed
mov A,@R0 Test if key already pressed
mov @R0,#1 Flag pressed anyway
jz ksnew Jump if key newly pressed
jmp ks2
ks1: mov @R0,#0 Flag key as not pressed
ks2: inc R0Loop for next key in this row
mov A,R4
djnz R3,ks0
mov A,R1 Jiggle R1 to address next row
rl A
mov R1,A
djnz R2,ksrow
clr A
mov R7,A Return zero - no (new) key press.
jmp ksend
ksnew: mov DPTR,#keycodes We've found a new key since last time:
mov A,R0 The key flag address (ordinal) is in R0
clr C
subb A,#keyflags
movc A,@A+DPTR
mov R7,A Move the Key into R7 to be returned.
ksend: mov P2,#0FFh
pop DPL
pop DPH
ret
Data tables for returned row bits
keycodes:
db '7','8','9', '/'
db '4','5','6', '*'
db '1','2','3', '-'
db 'C','0','=', '+'
END
/******************************************************************************
************LABCENTER ELECTRONICS ************
************ Proteus VSM Sample Design Code ************
************ Integer Calculator ( 2K Code Limit) ************
********************************************************************************/
NAMELCD
Set up Code Segment and exports:
LCD SEGMENT CODE
RSEG LCD
PUBLIC _output
PUBLIC initialise
PUBLIC clearscreen
LCD Register Addresses.
LCD_CMD_WR equ 00h
LCD_DATA_WR equ 01h
LCD_BUSY_RD equ 02h
LCD_DATA_RD equ 03h
LCD_PAGE equ 80h
LCD Commands
LCD_CLS equ 1
LCD_HOME equ 2
LCD_SETMODE equ 4
LCD_SETVISIBLE equ 8
LCD_SHIFT equ 16
LCD_SETFUNCTION equ 32
LCD_SETCGADDR equ 64
LCD_SETDDADDR equ 128
Initialisation Routine for the LCD display.
initialise:
mov A,#030h 1 line, 8 bits
call wrcmd
mov A,#LCD_SETVISIBLE + 4
call wrcmd
mov A,#LCD_SETDDADDR+15 Start at right hand side of the display
call wrcmd
mov A,#LCD_SETMODE + 3 Automatic Increment - Display shift left.
call wrcmd
ret
We move the parameter (held in R7) into the Accumulator prior to writing it.
_output:mov A,R7
call wrdata
ret
Clears the LCD display and sets the initialisation conditions.
clearscreen:
mov A,#LCD_CLS
call wrcmd
mov A,#LCD_SETDDADDR + 15
call wrcmd
ret
*****************************
******** SUBROUTINES ********
*****************************
Sub routine to write command:
wrcmd: mov P2,#LCD_PAGE
mov R0,#LCD_CMD_WR
movx @R0,A
jmp wtbusy
Subroutine to Write a Character to the LCD Display.
wrdata: MOV P2,#LCD_PAGE
MOV R0,#LCD_DATA_WR
MOV A,R7
MOVX @R0,A
Subroutine to wait for a busy clear.
wtbusy: MOV R1,#LCD_BUSY_RD
MOVX A,@R1
JB ACC.7,wtbusy
ret
END
里面有128564显示汉字的程序，自己研究下，不过是用msp430控制的，你改改端口i就可以了。#include "msp430x26x.h"
#define uchar unsigned char
#define uint unsigned int
#define iDat 1 //数据标志
#define iCmd 0 //指令标志
#define LCDb_RS 0x20 //定义四个控制引脚
#define LCDb_RW 0x40
#define LCDb_E 0x80
#define LCDb_RST 0x04
#define LCDb_L1 0x80 //第一行的地址
#define LCDb_L2 0x90 //第二行的地址
#define LCDb_L3 0x88 //第三行的地址
#define LCDb_L4 0x98 //第四行的地址
#define LCDb_SET_RS P1OUT|=LCDb_RS //四个控制管脚的控制 *** 作
#define LCDb_SET_RW P1OUT|=LCDb_RW
#define LCDb_SET_E P1OUT|=LCDb_E
#define LCDb_SET_RST P8OUT|=LCDb_RST
#define LCDb_CLR_RS P1OUT&=~LCDb_RS
#define LCDb_CLR_RW P1OUT&=~LCDb_RW
#define LCDb_CLR_E P1OUT&=~LCDb_E
#define LCDb_CLR_RST P8OUT&=~LCDb_RST
#define LCDb_DO P4OUT //输出数据总线端口定义
#define LCDb_FUNCTION 0x38 // 液晶模式为8位，2行，5*8字符
#define LCDb_BASCMD 0x30 // 基本指令集
#define LCDb_CLS 0x01 // 清屏
#define LCDb_HOME 0x02 // 地址返回原点，不改变DDRAM内容
#define LCDb_ENTRY 0x06 // 设定输入模式，光标加，屏幕不移动
#define LCDb_C2L 0x10 // 光标左移
#define LCDb_C2R 0x14 // 光标右移
#define LCDb_D2L 0x18 // 屏幕左移
#define LCDb_D2R 0x1C // 屏幕又移
#define LCDb_ON 0x0C // 打开显示
#define LCDb_OFF 0x08 // 关闭显示
unsigned char RXData
unsigned char Seg_Data[10]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f} //数码管编码
unsigned char Result[5] //整数转化成字符串，给LCD显示
void Delayms(uint MS)
{
uint i,j
for( i=0i<MSi++)
for(j=0j<1141j++)
}
void Delayus(uint US)
{
uint i
US=US*5/4
for( i=0i<USi++)
}
void LCD12864_portini()
{
P1DIR=0xFF
P4DIR=0xFF
P5DIR=0xFF
P8DIR=0xFF
P8OUT |=LCDb_RST
//P1OUT=0xFF
}
/*函数名称: LCD12864_sendbyte
功能: 向12864液晶写入一个字节数据或者指令
*/
void LCD12864_sendbyte(uchar DatCmd, uchar dByte)
{
if (DatCmd == iCmd) //指令 *** 作
LCDb_CLR_RS
else
LCDb_SET_RS
LCDb_CLR_RW //写 *** 作
LCDb_SET_E
LCDb_DO = dByte //写入数据
//Delayus(500)
Delayms(1)
LCDb_CLR_E
}
/*函数名称: LCD12864_sendstr
功能: 向12864液晶写入一个字符串
参数: ptString--字符串指针
返回值 : 无
*/
void LCD12864_sendstr(uchar *ptString)
{
while((*ptString)!='\0') //字符串未结束一直写
{
LCD12864_sendbyte(iDat, *ptString++)
}
}
/*函数名称: LCD12864_clear
功能: 12864液晶清屏
参数: 无
返回值 : 无
*/
void LCD12864_clear(void)
{
LCD12864_sendbyte(iCmd,LCDb_CLS)
Delayms(2)// 清屏指令写入后，2ms 的延时是很必要的!!!
}
/*
函数名称: LCD12864_gotoXY
功能: 移动到指定位置
参数: Row--指定的行
Col--指定的列
返回值 : 无
*/
void LCD12864_gotoXY(uchar Row, uchar Col)
{
switch (Row) //选择行
{
case 2:
LCD12864_sendbyte(iCmd, LCDb_L2 + Col)break //写入第2行的指定列
case 3:
LCD12864_sendbyte(iCmd, LCDb_L3 + Col)break //写入第3行的指定列
case 4:
LCD12864_sendbyte(iCmd, LCDb_L4 + Col)break //写入第4行的指定列
default:
LCD12864_sendbyte(iCmd, LCDb_L1 + Col)break //写入第1行的指定列
}
}
/*
函数名称: LCD12864_initial
功能: 12864液晶初始化
*/
void LCD12864_initial(void)
{
Delayms(100) // 等待内部复位
LCD12864_portini() //端口初始化
LCD12864_sendbyte(iCmd, LCDb_FUNCTION) //功能、模式设定
LCD12864_sendbyte(iCmd, LCDb_ON) //打开显示
LCD12864_clear() //清屏
LCD12864_sendbyte(iCmd, LCDb_ENTRY) // 输入模式设定
}
void Int_char(int data)
{
if(data/1000)
{
Result[0]=data/1000+'0'
Result[1]=data/100%10+'0'
Result[2]=data/10%10+'0'
Result[3]=data%10+'0'
Result[4]=0
}
else if(data/100)
{
Result[0]=data/100+'0'
Result[1]=data/10%10+'0'
Result[2]=data%10+'0'
Result[3]=0
}
else if(data/10)
{
Result[0]=data/10%10+'0'
Result[1]=data%10+'0'
Result[2]=0
}
else
{
Result[0]=data%10+'0'
Result[1]=0
}
}
unsigned char Key_Press(void)
{
P7OUT=0xF0
if((P7IN&0x10)&&(P7IN&0x20)&&(P7IN&0x40)&&(P7IN&0x80)) return 0x00
else return 0xFF
}
unsigned char Get_Keycode(void)
{
while(1)
{
P7OUT=0xFE //扫描第一列
if((P7IN&0x10)==0) return 0
else if((P7IN&0x20)==0) return 4
else if((P7IN&0x40)==0) return 8
else if((P7IN&0x80)==0) return 12
P7OUT=0xFD //扫描第二列
if((P7IN&0x10)==0) return 1
else if((P7IN&0x20)==0) return 5
else if((P7IN&0x40)==0) return 9
else if((P7IN&0x80)==0) return 13
P7OUT=0xFB //扫描第三列
if((P7IN&0x10)==0) return 2
else if((P7IN&0x20)==0) return 6
else if((P7IN&0x40)==0) return 10
else if((P7IN&0x80)==0) return 14
P7OUT=0xF7 //扫描第四列
if((P7IN&0x10)==0) return 3
else if((P7IN&0x20)==0) return 7
else if((P7IN&0x40)==0) return 11
else if((P7IN&0x80)==0) return 15
}
}
void Init_compa()
{
CACTL1 = CAON+CAREF_2+CARSEL// Enable Comp, ref = 0.5*Vcc = Vin-
CACTL2 = P2CA0 // Pin to CA0
P1DIR |= 0x01 // P1.0 = o/p direction(CAOUT - LED)
P1SEL |= 0x01 // P1.0 - CAOUT, option select
}
/*
** 函数名称：初始化函数
*/
void Init_IIC(void)
{
P3SEL |= 0x06 // Assign I2C pins to USCI_B0
UCB0CTL1 |= UCSWRST // Enable SW reset
UCB0CTL0 = UCMST + UCMODE_3 + UCSYNC// I2C Master, synchronous mode
UCB0CTL1 = UCSSEL_2 + UCSWRST // Use SMCLK, keep SW reset
UCB0BR0 = 12// fSCL = SMCLK/12 = ~100kHz
UCB0BR1 = 0
UCB0I2CSA = 0x50 // Slave Address is 048h
UCB0CTL1 &= ~UCSWRST// Clear SW reset, resume operation
IE2 |= UCB0RXIE // Enable RX interrupt
_BIS_SR(GIE)
// RXCompare = 0x0 // Used to check incoming data
}
/** 函数名称：字节写函数
*/
void EEPROM_Write(unsigned char high_Address,unsigned char low_Address,unsigned char Word)
{
while (UCB0CTL1 &UCTXSTP) // 确定总线空闲
UCB0CTL1 |= UCTXSTT + UCTR // 发送起始位，确定为发送模式
UCB0TXBUF = high_Address// 发送高位地址
while((IFG2 &UCB0TXIFG)==0) // 判断是否发送完毕
UCB0TXBUF = low_Address // 发送低位地址
while((IFG2 &UCB0TXIFG)==0) // 判断是否发送完毕
UCB0TXBUF = Word// 发送数据
while((IFG2 &UCB0TXIFG)==0) // 判断是否发送完毕
UCB0CTL1 |= UCTXSTP // 发送停止位
while((UCB0CTL1 &UCTXSTP)==1) // 判断停止位是否发送完毕
}
/**
** 函数名称：字节读函数
*/
void EEPROM_readmore()
{
UCB0CTL1 &= ~UCTR // 确定为读
while (UCB0CTL1 &UCTXSTP) // 总线是否空闲
UCB0CTL1 |= UCTXSTT// 发送开始位
}
/*
** 函数名称：字节写函数
**/
void EEPROM_read(unsigned char high_Address,unsigned char low_Address)
{
while (UCB0CTL1 &UCTXSTP) // Ensure stop condition got sent
UCB0CTL1 |= UCTXSTT + UCTR // 发送起始位，确定为写
UCB0TXBUF = high_Address// 发送地址位高位
while((IFG2 &UCB0TXIFG)==0) // 判断是否发送完毕
UCB0TXBUF = low_Address // 发送地址位低位
while((IFG2 &UCB0TXIFG)==0) // 判断是否发送完毕
UCB0CTL1 &= ~UCTR // 确定为接收
while (UCB0CTL1 &UCTXSTP) //
UCB0CTL1 |=UCTXSTT
while((UCB0CTL1 &UCTXSTT)==1)
for(unsigned char i=0x0i<0x2fi++) // 延时确定数据已经被发送出去
UCB0CTL1 |=UCTXSTP + UCTXNACK // 发送停止位和NACK位
}
/*
** 函数名称：接收中断函数
**/
// USCI_B0 Data ISR
#pragma vector = USCIAB0TX_VECTOR
__interrupt void USCIAB0TX_ISR(void)
{
RXData = UCB0RXBUF // Get RX data
Int_char(RXData)
LCD12864_gotoXY(2,0) //第2行，第1列显示
LCD12864_sendstr(Result)
/*
key_code[0]=RXData%10+'0'
key_code[1]=0
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr(key_code)
*/
// __bic_SR_register_on_exit(CPUOFF) // Exit LPM0
}
void Init_UART()
{
P3OUT &= ~(BIT4+BIT5+BIT6+BIT7)
P3SEL = 0xF0// P3.4,5,6,7 = USCI_A0 TXD/RXD USCI_A1 TXD/RXD
UCA0CTL1 |= UCSSEL_1// CLK = ACLK
UCA0BR0 = 0x03 // 32kHz/9600 = 3.41
UCA0BR1 = 0x00 //
UCA0MCTL = UCBRS1 + UCBRS0 // Modulation UCBRSx = 3
UCA0CTL1 &= ~UCSWRST// **Initialize USCI state machine**
IE2 |= UCA0RXIE // Enable USCI_A0 RX interrupt
UCA1CTL1 |= UCSSEL_1// CLK = ACLK
UCA1BR0 = 0x03 // 32kHz/9600 = 3.41
UCA1BR1 = 0x00 //
UCA1MCTL = UCBRS1 + UCBRS0 // Modulation UCBRSx = 3
UCA1CTL1 &= ~UCSWRST// **Initialize USCI state machine**
UC1IE |= UCA1RXIE // Enable USCI_A0 RX interrupt
_BIS_SR(GIE)//使能中断
}
void Init_ADC()
{
ADC12CTL0 = SHT0_2 + ADC12ON// Set sampling time, turn on ADC12
ADC12CTL1 = SHP // Use sampling timer
ADC12IE = 0x01 // Enable interrupt
ADC12CTL0 |= ENC// Conversion enabled
P6DIR &= 0x01 // P6.0, i/p
P6SEL |= 0x01 // P6.0-ADC option select
_BIS_SR(GIE)//使能中断
}
void Start_ADC()
{
ADC12CTL0 |= ADC12SC // Start convn, software controlled
}
#pragma vector=USCIAB0RX_VECTOR
__interrupt void USCI0RX_ISR(void)
{
while (!(IFG2&UCA0TXIFG)) // USCI_A0 TX buffer ready?
UCA0TXBUF = UCA0RXBUF // TX ->RXed character
LCD12864_sendbyte(iDat,UCA0RXBUF)
}
#pragma vector=USCIAB1RX_VECTOR
__interrupt void USCI1RX_ISR(void)
{
while (!(UC1IFG&UCA1TXIFG)) // USCI_A0 TX buffer ready?
UCA1TXBUF = UCA1RXBUF // TX ->RXed character
LCD12864_sendbyte(iDat,UCA0RXBUF)
//UCA1TXBUF = 'z'
}
// ADC12 interrupt service routine
#pragma vector=ADC12_VECTOR
__interrupt void ADC12_ISR (void)
{
int i=ADC12MEM0
Int_char(i)
LCD12864_gotoXY(2,0) //第1行，第1列显示
LCD12864_sendstr(Result)
/*
key_code[0] =i/1000+'0'
key_code[1] =i/100%10+'0'
key_code[2] =i/10%10+'0'
key_code[3] =i%10+'0'
key_code[4] =0
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr(key_code)
*/
}
void Init_all()
{
LCD12864_initial()//LCD初始化，包含了数码管和LED灯初始化
P7DIR=0x0F //键盘扫描初始化
P7REN=0xF0 //输入上下拉电阻使能，输出上下拉不使能
P7OUT=0xF0//输入上拉
Init_UART()//串口初始化
Init_compa()//比较器初始化
Init_ADC()//ADC初始化
Init_IIC()//IIC初始化
}
void Test_Led()
{
unsigned char i=0
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr("1.Test_LED")
for(i<16i++)
{
P8OUT=0xF0|i
Delayms(50)
}
}
void Test_Seg()
{
int i
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr("2.Test_SEG")
for(i=0i<500i++)
{
//4,3,2,1
P1OUT&=~0x02
P1OUT|=0x10|0x08|0x04
P5OUT=Seg_Data[9] //清楚数码管显示
Delayms(1)
P1OUT&=~0x04
P1OUT|=0x10|0x08|0x02
P5OUT=Seg_Data[8] //清楚数码管显示
Delayms(1)
P1OUT&=~0x08
P1OUT|=0x10|0x04|0x02
P5OUT=Seg_Data[7] //清楚数码管显示
Delayms(1)
P1OUT&=~0x10
P1OUT|=0x08|0x04|0x02
P5OUT=Seg_Data[6] //清楚数码管显示
Delayms(1)
}
P5OUT=0x00//熄灭所有数码管
}
void Test_Key()
{
unsigned char i=0
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr("3.Test_KEY")
LCD12864_gotoXY(2,0) //第2行，第1列显示
LCD12864_sendstr("按键：")
for(i<16i++)
{
Int_char(Get_Keycode())
LCD12864_gotoXY(2,3)
LCD12864_sendstr("")
LCD12864_gotoXY(2,3)
LCD12864_sendstr(Result)
Delayms(100)//防抖
}
}
void Test_Uart()
{
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr("4.Test_UART")
LCD12864_gotoXY(2,0) //第2行，第1列显示
}
void Test_Compa()
{
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr("5.Test_COMPA")
}
void Test_ADC()
{
int i=0
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr("6.Test_ADC")
for(i<200i++)
{
Start_ADC()
Delayms(10)
}
}
void Test_IIC()
{
LCD12864_gotoXY(1,0) //第1行，第1列显示
LCD12864_sendstr("7.Test_IIC")
EEPROM_Write(0x00,0x40,7)// 字节写
Delayms(10)
EEPROM_read(0x00,0x40)
}
void main( void )
{
// Stop watchdog timer to prevent time out reset
WDTCTL = WDTPW + WDTHOLD//关闭看门狗
Init_all()
while(1){
Test_Led() //1.测试LED
LCD12864_gotoXY(2,0) //第1行，第1列显示
LCD12864_sendstr("请按16键！")
while(!(Get_Keycode()==15)) //按下最后一键测试下一个例子
LCD12864_clear()
Test_Seg() //2.测试数码管
LCD12864_gotoXY(2,0) //第1行，第1列显示
LCD12864_sendstr("请按16键！")
while(!(Get_Keycode()==15)) //按下最后一键测试下一个例子
LCD12864_clear()
Test_Key() //3.测试按键扫描
LCD12864_gotoXY(2,0) //第1行，第1列显示
LCD12864_sendstr("请按16键！")
while(!(Get_Keycode()==15)) //按下最后一键测试下一个例子
LCD12864_clear()
LCD12864_gotoXY(3,0) //第3行，第1列显示
LCD12864_sendstr("请按16键！")
Test_Uart() //4.测试串口
while(!(Get_Keycode()==15)) //按下最后一键测试下一个例子
LCD12864_clear()
Test_Compa() //5.测试比较器
LCD12864_gotoXY(2,0) //第2行，第1列显示
LCD12864_sendstr("请按16键！")
while(!(Get_Keycode()==15)) //按下最后一键测试下一个例子
LCD12864_clear()
Test_ADC() //6.测试ADC
LCD12864_gotoXY(3,0) //第3行，第1列显示
LCD12864_sendstr("请按16键！")
while(!(Get_Keycode()==15)) //按下最后一键测试下一个例子
LCD12864_clear()
Test_IIC() //7.测试IIC
Delayms(100)
LCD12864_gotoXY(3,0) //第3行，第1列显示
LCD12864_sendstr("测试完成")
while(!(Get_Keycode()==15)) //按下最后一键测试下一个例子
LCD12864_clear()
}
}
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）