lcdshow.s

这是我自己在做实验设计时做的,用摩托罗拉飞思卡尔做的一个多功能电子钟

	.module lcdshow.c
	.area text
;              i -> 0,X
;            str -> 3,X
_lcdshow::
	ais #-1
	tsx
; /*文件描述:本文件包含了用HD44780显示相关的3个子程序    *
; *         1. LCDShow:在LCD上显示32个字符               *
; *         2. LcdInit:初始化Lcd                         *
; *         3. Lcd_Command:执行给定的cmd命令             *
; *-------------《嵌入式应用技术基础教程》--------------*/
; //[以下为子程序源代码]
; //[头文件]
; #include "GP32C.h"         //包含头文件
; #define LcdData PTB        //Lcd显示数据传送口
; #define LcdData_D  DDRB    //数据口方向寄存器
; #define LcdCtrl PTC        //Lcd控制信号传送口
; #define LcdCtrl_D  DDRC    //控制口方向寄存器
; #define  LcdRS 0           //Lcd寄存器选择信号PTC0
; #define  LcdRW 1           //读写信号接PTC1
; #define  LcdE  2           //Lcd使能信号接PTC2
; //内部调用子程序
; void Lcd_Command(unsigned char cmd); //命令执行子程序
; void LcdInit(void);                  //Lcd初始化子程序
; void Lcd_show_cursor(char x,char y);
; 
; /*LcdShow:在HD44780显示屏上显示数据--------------------*
; *功能描述:在HD44780显示屏上显示str中的32个数据         *
; *参  数:str:待显示数组                                 *
; *返  回:无                                             *
; *------------------以上为子程序说明-------------------*/
; void lcdshow(unsigned char str[])
;   {	 	
;     unsigned char i;
;     LcdInit();               //调用Lcd初始化子程序
	jsr _LcdInit
;  	//显示第1行16个字符
;  	LcdCtrl&=~(1<<LcdRS);      //RS、R/W=00,写指令
	bclr #0,0x2
; 	LcdCtrl&=~(1<<LcdRW);    
	bclr #1,0x2
;   	Lcd_Command(0b10000000); //后7位为DDRAM地址0x00 
	lda #-128
	psha
	jsr _Lcd_Command
	ais #1
	tsx
; 	LcdCtrl|=1<<LcdRS;		 //RS、R/W=10,写数据到DDRAM中
	bset #0,0x2
;     LcdCtrl&=~(1<<LcdRW);
	bclr #1,0x2
;    	for (i=0;i<16;i++)       //逐个显示
	clr ,X
	bra L5
L2:
	clr *__r0
	lda ,X
	add 4,X
	sta *__r1
	lda *__r0
	adc 3,X
	sta *__r0
	ldhx *__r0
	lda ,x
	psha
	jsr _Lcd_Command
	ais #1
	tsx
L3:
	inc ,X
L5:
	lda ,X
	cmp #16
	blo L2
;        Lcd_Command(str[i]);
;     //显示第2行16个字符
;    	LcdCtrl&=~(1<<LcdRS);    //RS、R/W=00,写指令
	bclr #0,0x2
; 	LcdCtrl&=~(1<<LcdRW);    
	bclr #1,0x2
;   	Lcd_Command(0b11000000); //后7位为DDRAM地址0x40 
	lda #-64
	psha
	jsr _Lcd_Command
	ais #1
	tsx
; 	LcdCtrl|=1<<LcdRS;		 //RS、R/W=10,写数据到DDRAM中
	bset #0,0x2
; 	LcdCtrl&=~(1<<LcdRW);
	bclr #1,0x2
;     for (i=16;i<32;i++)      //逐个显示
	lda #16
	sta ,X
	bra L9
L6:
	clr *__r0
	lda ,X
	add 4,X
	sta *__r1
	lda *__r0
	adc 3,X
	sta *__r0
	ldhx *__r0
	lda ,x
	psha
	jsr _Lcd_Command
	ais #1
	tsx
L7:
	inc ,X
L9:
	lda ,X
	cmp #32
	blo L6
L1:
	ais #1
	.dbline 0 ; func end
	rts
;              i -> 0,X
_LcdInit::
	ais #-1
	tsx
; 	  Lcd_Command(str[i]);
;    }
; /*LcdInit:初始化Lcd------------------------------------*
; *功  能:初始化Lcd(HD44780),设置显示方式,清屏,AC自动+1  *
; *参  数:无                                             *
; *返  回:无                                             *
; *-----------------------------------------------------*/
; void LcdInit(void)
;   {
;     unsigned char i;
;     LcdData_D=0b11111111;     //数据口为输出
	lda #-1
	sta 0x5
;     LcdCtrl_D|=(1<<LcdE);     //控制口低三位为输出
	bset #2,0x6
;     LcdCtrl_D|=(1<<LcdRS); 
	bset #0,0x6
;     LcdCtrl_D|=(1<<LcdRW); 
	bset #1,0x6
;     LcdCtrl|=(1<<LcdE);       //E=1
	bset #2,0x2
;     LcdCtrl&=~(1<<LcdRS);     //RS、R/W=00,写指令
	bclr #0,0x2
;     LcdCtrl&=~(1<<LcdRW);    
	bclr #1,0x2
;     Lcd_Command(0b00111000);  //8位数据接口,2行,5*7点阵
	lda #56
	psha
	jsr _Lcd_Command
	ais #1
;     Lcd_Command(0b00001000);  //关显示,关光标显示,不闪烁	
	lda #8
	psha
	jsr _Lcd_Command
	ais #1
;     Lcd_Command(0b00000001);  //清屏
	lda #1
	psha
	jsr _Lcd_Command
	ais #1
	tsx
	clr ,X
	bra L14
L11:
L12:
	inc ,X
L14:
;     for(i=0;i<250;i++);       //延时>1.6ms
	lda ,X
	cmp #-6
	blo L11
	clr ,X
	bra L18
L15:
L16:
	inc ,X
L18:
;     for(i=0;i<250;i++); 
	lda ,X
	cmp #-6
	blo L15
;     Lcd_Command(0b00010100);  //光标右移一个字符位,AC自
	lda #20
	psha
	jsr _Lcd_Command
	ais #1
;                               //  动加1
;     Lcd_Command(0b00001100);  //开显示,关光标显示,不闪烁
	lda #12
	psha
	jsr _Lcd_Command
	ais #1
	tsx
L10:
	ais #1
	.dbline 0 ; func end
	rts
;              i -> 0,X
;            cmd -> 3,X
_Lcd_Command::
	ais #-1
	tsx
;   }
; /*Lcd_Command:执行给定的cmd命令------------------------*
; *功  能:执行给定的cmd命令,且延时                       *
; *参  数:cmd:待执行的命令                               *
; *返  回:无                                             *
; *-----------------------------------------------------*/
; void Lcd_Command(unsigned char cmd)
;   {	 	
	clr ,X
	bra L23
L20:
L21:
	inc ,X
L23:
;     unsigned char i;	 
;     for (i=0;i<20;i++);    //等待>40us
	lda ,X
	cmp #20
	blo L20
;     LcdData=cmd;	         //把指令码送到Lcd数据传送口
	lda 3,X
	sta 0x1
;     LcdCtrl|=(1<<LcdE);    //Lcd开始接收数据
	bset #2,0x2
;     asm("NOP");
	NOP
;     asm("NOP");
	NOP
;     asm("NOP");
	NOP
;     LcdCtrl&=~(1<<LcdE);   //Lcd结束接收数据
	bclr #2,0x2
	clr ,X
	bra L27
L24:
L25:
	inc ,X
L27:
;     for (i=0;i<20;i++);    //等待>40us
	lda ,X
	cmp #20
	blo L24
L19:
	ais #1
	.dbline 0 ; func end
	rts
;              y -> 3,X
;              x -> 2,X
_Lcd_show_cursor::
	tsx
;   }
; 
; 
; void Lcd_show_cursor(char x,char y)
; {
; 
; 	if(x==0)
	lda 2,X
	bne L29
; 	{
; 		LcdCtrl&=~(1<<LcdRS);      //RS、R/W=00,写指令
	bclr #0,0x2
; 		LcdCtrl&=~(1<<LcdRW);   
	bclr #1,0x2
; 		Lcd_Command(0b00001111);    //show cursor  and blink
	lda #15
	psha
	jsr _Lcd_Command
	ais #1
	tsx
; 		Lcd_Command(y|0x80);
	lda 3,X
	ora #-128
	psha
	jsr _Lcd_Command
	ais #1
	tsx
; 	}
	bra L30
L29:
; 	else if(x==1)
	lda 2,X
	cmp #1
	bne L31
; 	{
; 		LcdCtrl&=~(1<<LcdRS);      //RS、R/W=00,写指令
	bclr #0,0x2
; 		LcdCtrl&=~(1<<LcdRW);   
	bclr #1,0x2
; 		Lcd_Command(0b00001111);    //show cursor  and blink
	lda #15
	psha
	jsr _Lcd_Command
	ais #1
	tsx
; 		Lcd_Command((0x40+y)|0x80);
	lda 3,X
	add #64
	ora #-128
	psha
	jsr _Lcd_Command
	ais #1
	tsx
; 	}
L31:
; 	else  ;    
L32:
L30:
L28:
	.dbline 0 ; func end
	rts