display.s

屏幕显示程序。用于液晶屏幕及数码显示管的显示程序。已调试通过。

	.module display.c
	.area text(rom, con, rel)
	.dbfile display.c
	.area lit(rom, con, rel)
_tabel::
	.byte 192,249
	.byte 164,176
	.byte 153,146
	.byte 130,248
	.byte 128,144
	.byte 136,131
	.byte 198,161
	.byte 134,142
	.dbsym e tabel _tabel A[16:16]kc
	.area data(ram, con, rel)
	.dbfile display.c
_ledbuff::
	.blkb 2
	.area idata
	.byte 63,63
	.area data(ram, con, rel)
	.dbfile display.c
	.blkb 2
	.area idata
	.byte 63,63
	.area data(ram, con, rel)
	.dbfile display.c
	.blkb 2
	.area idata
	.byte 63,63
	.area data(ram, con, rel)
	.dbfile display.c
	.dbsym e ledbuff _ledbuff A[6:6]c
	.area text(rom, con, rel)
	.dbfile display.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 14
; /*********************************************
;                HTTP://WWW.SL.COM.CN
;           	        双龙电子
;                六路动态扫描显示程序		 
; **********************************************/
; #include <iom16v.h>
; extern void delay_ms(unsigned int n);//引用外部函数
; extern void delay_1ms(void); 
;           /*   七段译码字形表     */        
; const unsigned char tabel[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e};
;           /*     显示缓冲区       */
; unsigned char ledbuff[]={0x3f,0x3f,0x3f,0x3f,0x3f,0x3f};
; void port_init(void)//端口初始化
;  {
	.dbline 15
;   DDRD=0x3f;
	ldi R24,63
	out 0x11,R24
	.dbline 16
;   DDRB=0xff;
	ldi R24,255
	out 0x17,R24
	.dbline 17
;   PORTD=0xff;
	out 0x12,R24
	.dbline 18
;   PORTB=0xff;
	out 0x18,R24
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e display _display fV
;              i -> R20
	.even
_display::
	rcall push_gset1
	.dbline -1
	.dbline 21
;  }
; void display(void)//六路动态扫描显示电路
; {
	.dbline 23
;  unsigned char i;
;  for (i=0;i<6;i++)
	clr R20
	rjmp L6
L3:
	.dbline 24
	.dbline 25
	ldi R24,<_ledbuff
	ldi R25,>_ledbuff
	mov R30,R20
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0x18,R2
	.dbline 26
	ldi R16,1
	mov R17,R20
	rcall lsl8
	mov R2,R16
	com R2
	out 0x12,R2
	.dbline 27
	rcall _delay_1ms
	.dbline 28
	ldi R16,1
	mov R17,R20
	rcall lsl8
	in R2,0x12
	or R2,R16
	out 0x12,R2
	.dbline 29
L4:
	.dbline 23
	inc R20
L6:
	.dbline 23
	cpi R20,6
	brlo L3
	.dbline -2
L2:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
	.dbfunc e main _main fV
;              i -> R20
;              j -> R22
	.even
_main::
	.dbline -1
	.dbline 33
;   {
;    PORTB=ledbuff[i];//将显示缓冲区数据送PORTB口
;    PORTD=~(1<<i);   //开始显示
;    delay_1ms();     //每一位显示保持一定时间
;    PORTD|=(1<<i);   //关闭显示
;   }
; }
; /*主程序功能：演示了一个多路动态扫描程序的工作过程*/
; void main(void)
; {
	.dbline 35
;  unsigned char i,j;
;  MCUCR=0;
	clr R2
	out 0x35,R2
	.dbline 36
;  port_init(); //端口初始化
	rcall _port_init
	rjmp L9
L8:
	.dbline 38
;  while(1)
;   {
	.dbline 39
;    for(i=0;i<0x10;i++)  
	clr R20
	rjmp L14
L11:
	.dbline 40
;      {
	.dbline 41
; 	  for(j=0;j<6;j++)
	clr R22
	rjmp L18
L15:
	.dbline 42
	ldi R24,<_tabel
	ldi R25,>_tabel
	mov R2,R20
	clr R3
	add R2,R24
	adc R3,R25
	mov R30,R2
	mov R31,R3
	lpm
	ldi R24,<_ledbuff
	ldi R25,>_ledbuff
	mov R30,R22
	clr R31
	add R30,R24
	adc R31,R25
	std z+0,R0
L16:
	.dbline 41
	inc R22
L18:
	.dbline 41
	cpi R22,6
	brlo L15
	.dbline 43
; 	      ledbuff[j]=tabel[i] ;//更换显示字形
;       for (j=0;j<200;j++)	 
	clr R22
	rjmp L22
L19:
	.dbline 44
	rcall _display
L20:
	.dbline 43
	inc R22
L22:
	.dbline 43
	cpi R22,200
	brlo L19
	.dbline 45
L12:
	.dbline 39
	inc R20
L14:
	.dbline 39
	cpi R20,16
	brlo L11
	.dbline 46
L9:
	.dbline 37
	rjmp L8
X0:
	.dbline -2
L7:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbsym r j 22 c
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 51
;           display();	      //循环显示200次
; 	 } 
;   }
; }
; 
; #define xtal 8   
; void delay_1ms(void)
; { unsigned int i;
	.dbline 52
;  for(i=1;i<(unsigned int)(xtal*143-2);i++)
	ldi R16,1
	ldi R17,0
	rjmp L27
L24:
	.dbline 53
L25:
	.dbline 52
	subi R16,255  ; offset = 1
	sbci R17,255
L27:
	.dbline 52
	ldi R24,1142
	ldi R25,4
	cp R16,R24
	cpc R17,R25
	brlo L24
	.dbline -2
L23:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delay_ms _delay_ms fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_ms::
	rcall push_gset2
	mov R22,R16
	mov R23,R17
	.dbline -1
	.dbline 56
;     ;
; }
; void delay_ms(unsigned int n)
; {
	.dbline 57
;  unsigned int i=0;
	clr R20
	clr R21
	rjmp L30
L29:
	.dbline 59
	.dbline 59
	rcall _delay_1ms
	.dbline 60
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 61
L30:
	.dbline 58
;    while(i<n)
	cp R20,R22
	cpc R21,R23
	brlo L29
	.dbline -2
L28:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend