DIY编程器网

标题: 用PIC单片机实现LCD显示单个B字 [打印本页]

作者: liyf 时间: 2012-1-27 19:44
标题: 用PIC单片机实现LCD显示单个B字


;**************************************************
  __CONFIG 3F39H;设置配置位中振荡方式为XT,其它全部禁止或关闭
;**********************************************
STATUS  EQU 3H ;定义状态寄存器地址
PORTA EQU 5H ;定义RA口数据寄存器地址
PORTC EQU 7H ;定义RC口数据寄存器地址
TRISA EQU 85H  ;定义RA口方向控制寄存器地址
TRISC EQU 87H  ;定义RC口方向控制寄存器地址
ADCON1  EQU 9FH  ;定义ADC模块控制寄存器1的地址
;********************
Z    EQU 2 ;定义0状态位的位地址
RP0    EQU 5 ;定义页选位RP0的位地址
;*********************
RS EQU 1       ;LCD寄存器选择信号脚定义在RA.1脚
RW EQU 2       ;LCD读/写信号脚定义在RA.2脚
E  EQU 3       ;LCD片选信号脚定义在RA.3脚
;**********************
  ORG 000H
  NOP          ;放置一条ICD必需的空操作指令
  GOTO MAIN
  ORG 0008H
MAIN
  BSF STATUS,RP0
  MOVLW 07H
  MOVWF ADCON1    ;设置RA口全部为普通数字IO口
  MOVLW 00H       ;定义RA口,RC口全部为输出
  MOVWF TRISA
  MOVWF TRISC
  BCF STATUS,RP0
  CALL DELAY       ;调用廷时,刚上电LCD复位不一定有PIC快
  MOVLW 01H
  MOVWF PORTC       ;清屏
  CALL ENABLE
  MOVLW 38H
  MOVWF PORTC       ;8位2行5x7点阵
  CALL ENABLE
  MOVLW 0FH
  MOVWF PORTC       ;显示器开、光标开、闪烁开
  CALL ENABLE
  MOVLW 06H
  MOVWF PORTC       ;文字不动，光标自动右移
  CALL ENABLE
  MOVLW 0C0H
  MOVWF PORTC       ;写入显示起始地址（第一行第一个位置）
  CALL ENABLE
  MOVLW 42H
  MOVWF PORTC       ;字母"B"的代码
  BSF PORTA,RS
  BCF PORTA,RW
  BCF PORTA,E
  CALL DELAY
  BSF PORTA,E
  GOTO $
ENABLE
  BCF PORTA,RS       ;写入控制命令的子程序
  BCF PORTA,RW
  BCF PORTA,E
  CALL DELAY
  BSF PORTA,E
  RETLW 0
;********************************************
DELAY
                           ;子程序名，也是子程序入口地址
   MOVlw 0ffh       ;将外层循环参数值FFH经过W
   MOVwf 20h       ;送入用作外循环变量的20H单元
lp0 MOVlw 0ffh       ;将内层循环参数值FFH经过W
   MOVwf 21h          ;送入用作内循环变量的21H单元
lp1 nop
   decfsz 21h,1       ;变量21H内容递减，若为0跳跃
   goto    lp1          ;跳转到LP1处
   decfsz 20h,1       ;变量20H内容递减，若为0跳跃
   goto    lp0          ;跳跃到LP0处
   return                ;返回主程序
   end                ;源程序结束

作者: 爱人的眼泪555 时间: 2012-6-2 10:49
楼主高人啊，我先收藏了

欢迎光临 DIY编程器网 (http://diybcq.com./)