segdisp-16sm.s

大量ATMEGA16实例, 都可以运行,包括驱动LCD1602, 上位机显示等多功能

	.module SegDisp-16sm.c
	.area text(rom, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
_pattern::
	.blkb 2
	.area idata
	.byte 1,3
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 7,15
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 31,63
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 127,255
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 127,63
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 31,15
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 7,3
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 1
	.area idata
	.byte 1
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.dbsym e pattern _pattern A[15:15]c
_rowused::
	.blkb 2
	.area idata
	.byte 1,2
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 16,8
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 4,32
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 64,128
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.dbsym e rowused _rowused A[8:8]c
	.area lit(rom, con, rel)
_dig0::
	.byte 64
	.dbsym e dig0 _dig0 kc
_dig1::
	.byte 128
	.dbsym e dig1 _dig1 kc
_dig2::
	.byte 16
	.dbsym e dig2 _dig2 kc
_dig3::
	.byte 8
	.dbsym e dig3 _dig3 kc
_dot::
	.byte 32
	.dbsym e dot _dot kc
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
_segconv::
	.blkb 2
	.area idata
	.byte 63,6
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 91,'O
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 'f,'m
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 125,7
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.blkb 2
	.area idata
	.byte 127,'o
	.area data(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.dbsym e segconv _segconv A[10:10]c
	.area text(rom, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 39
; /*
; Title:	SegDisp-16sm.c
; Connection:
; 	  Factory fixed setting:
; 	  PORTA:
; 	  		PA0-PA2 LCD control
; 			PA3-PA7 4x7-segment display control
; 			Drive LED group2 (the right group of LED)
; 	  PORTB:
; 	  		Shared by LCD and 4x7-segment displays
; 	  		output 8-bit data to LCD or 8-bit data to 4x7-segment displays
; 	  PORTC:
; 	        shared by 8-bit dipswitch and 4 x touch switches + 4 buttons
; 			receive inputs from dipswitch, touch switches and buttons 				
; 	  PORTD: 
; 	  		Drive LED group1 (the left group of LED) 
; Attention:
; 	  1. J12 should be capped (connectted)
; 	  2. J5 is the Jump for LCD back light power 	  
; 
; Operation:
; 	  1. 4 x 7-segment displays show the inputs to PORTC in Binary
; */
;    
; 
; #include <iom16v.h>
; #include <macros.h>
; 
; unsigned char pattern[]={0x01, 0x03, 0x07, 0x0F, 0x1f, 0x3f, 0x7f, 0xff, 0x7f,
; 						 0x3f, 0x1f, 0x0f, 0x07, 0x03, 0x01};
; unsigned char rowused[]={0x01, 0x02, 0x10, 0x08, 0x04, 0x20, 0x40, 0x80};
; 
; const char dig0 = 0x40, dig1 = 0x80, dig2=0x10, dig3=0x08, dot=0x20;
; char segconv[]={0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07, 0x7f, 0x6f};
; unsigned char BCD0, BCD1, BCD2, BCD3;
; int count;
; 
; void port_init(void)
; {
	.dbline 40
;  DDRA  = 0xFF;		//set PortA output
	ldi R24,255
	out 0x1a,R24
	.dbline 41
;  DDRB  = 0xff;		//set PORTB output
	out 0x17,R24
	.dbline 42
;  DDRC  = 0x00;		//set PORTC output
	clr R2
	out 0x14,R2
	.dbline 43
;  PORTC = 0xff;
	out 0x15,R24
	.dbline 44
;  DDRD  = 0xFF;		//set PORTD output
	out 0x11,R24
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay _delay fV
;              i -> R20,R21
;              j -> R22,R23
;          count -> R16,R17
	.even
_delay::
	xcall push_xgsetF000
	.dbline -1
	.dbline 48
; }
; 
; void delay(int count)
; {
	.dbline 50
;  int i, j;
;  for(i=count; i>0; i--)
	movw R20,R16
	xjmp L6
L3:
	.dbline 51
;     for(j=10; j>0; j--)
	ldi R22,10
	ldi R23,0
L7:
	.dbline 52
; 	   ;
L8:
	.dbline 51
	subi R22,1
	sbci R23,0
	.dbline 51
	clr R2
	clr R3
	cp R2,R22
	cpc R3,R23
	brlt L7
X0:
L4:
	.dbline 50
	subi R20,1
	sbci R21,0
L6:
	.dbline 50
	clr R2
	clr R3
	cp R2,R20
	cpc R3,R21
	brlt L3
X1:
	.dbline -2
L2:
	.dbline 0 ; func end
	xjmp pop_xgsetF000
	.dbsym r i 20 I
	.dbsym r j 22 I
	.dbsym r count 16 I
	.dbend
	.dbfunc e BinToBCD _BinToBCD fV
;           data -> R20,R21
	.even
_BinToBCD::
	st -y,R20
	st -y,R21
	movw R20,R16
	.dbline -1
	.dbline 56
; } 
; //*****************************************************************
; void BinToBCD(int data)
; {
	.dbline 57
;  BCD0=0;
	clr R2
	sts _BCD0,R2
	.dbline 58
;  BCD1=0;
	sts _BCD1,R2
	.dbline 59
;  BCD2=0;
	sts _BCD2,R2
	.dbline 60
;  BCD3=0;
	sts _BCD3,R2
	.dbline 61
;  if(data>=10000)
	cpi R20,16
	ldi R30,39
	cpc R21,R30
	brlt L12
X2:
	.dbline 62
;     data=0;
	clr R20
	clr R21
L12:
	.dbline 63
;  if(data>=1000)
	cpi R20,232
	ldi R30,3
	cpc R21,R30
	brlt L14
X3:
	.dbline 64
;     {
	.dbline 65
;     BCD3=data/1000;
	ldi R18,1000
	ldi R19,3
	movw R16,R20
	xcall div16s
	sts _BCD3,R16
	.dbline 66
; 	data=data%1000;
	ldi R18,1000
	ldi R19,3
	movw R16,R20
	xcall mod16s
	movw R20,R16
	.dbline 67
; 	}	
L14:
	.dbline 68
;  if(data>=100)
	cpi R20,100
	ldi R30,0
	cpc R21,R30
	brlt L16
X4:
	.dbline 69
;     {
	.dbline 70
;     BCD2=data/100;
	ldi R18,100
	ldi R19,0
	movw R16,R20
	xcall div16s
	sts _BCD2,R16
	.dbline 71
; 	data=data%100;
	ldi R18,100
	ldi R19,0
	movw R16,R20
	xcall mod16s
	movw R20,R16
	.dbline 72
; 	}	
L16:
	.dbline 74
; 	
;  if(data>=10)
	cpi R20,10
	ldi R30,0
	cpc R21,R30
	brlt L18
X5:
	.dbline 75
;     {
	.dbline 76
;     BCD1=data/10;
	ldi R18,10
	ldi R19,0
	movw R16,R20
	xcall div16s
	sts _BCD1,R16
	.dbline 77
; 	data=data%10;
	ldi R18,10
	ldi R19,0
	movw R16,R20
	xcall mod16s
	movw R20,R16
	.dbline 78
; 	}		
L18:
	.dbline 79
;  BCD0=data;	
	sts _BCD0,R20
	.dbline -2
L11:
	.dbline 0 ; func end
	ld R21,y+
	ld R20,y+
	ret
	.dbsym r data 20 I
	.dbend
	.dbfunc e dispseg _dispseg fV
	.even
_dispseg::
	.dbline -1
	.dbline 83
; }
; 
; void dispseg(void)
; {
	.dbline 84
;  PORTB=~segconv[BCD0];
	ldi R24,<_segconv
	ldi R25,>_segconv
	lds R30,_BCD0
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	com R2
	out 0x18,R2
	.dbline 85
;  PORTA=dig0;
	ldi R30,<_dig0
	ldi R31,>_dig0
	elpm R2,Z
	out 0x1b,R2
	.dbline 86
;  delay(20);
	ldi R16,20
	ldi R17,0
	xcall _delay
	.dbline 87
;  PORTB=~segconv[BCD1];
	ldi R24,<_segconv
	ldi R25,>_segconv
	lds R30,_BCD1
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	com R2
	out 0x18,R2
	.dbline 88
;  PORTA=dig1;
	ldi R30,<_dig1
	ldi R31,>_dig1
	elpm R2,Z
	out 0x1b,R2
	.dbline 89
;  delay(20);
	ldi R16,20
	ldi R17,0
	xcall _delay
	.dbline 90
;  PORTB=~segconv[BCD2];
	ldi R24,<_segconv
	ldi R25,>_segconv
	lds R30,_BCD2
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	com R2
	out 0x18,R2
	.dbline 91
;  PORTA=dig2;
	ldi R30,<_dig2
	ldi R31,>_dig2
	elpm R2,Z
	out 0x1b,R2
	.dbline 92
;  delay(20);
	ldi R16,20
	ldi R17,0
	xcall _delay
	.dbline 93
;  PORTB=~segconv[BCD3];
	ldi R24,<_segconv
	ldi R25,>_segconv
	lds R30,_BCD3
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	com R2
	out 0x18,R2
	.dbline 94
;  PORTA=dig3;
	ldi R30,<_dig3
	ldi R31,>_dig3
	elpm R2,Z
	out 0x1b,R2
	.dbline 95
;  delay(20);
	ldi R16,20
	ldi R17,0
	xcall _delay
	.dbline -2
L20:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e dot_on _dot_on fV
	.even
_dot_on::
	.dbline -1
	.dbline 99
; }
; 
; void dot_on(void)
; {
	.dbline 100
;  PORTB=~0x80;
	ldi R24,-129
	ldi R25,-1
	out 0x18,R24
	.dbline 101
;  PORTA=dot; 
	ldi R30,<_dot
	ldi R31,>_dot
	elpm R2,Z
	out 0x1b,R2
	.dbline 102
;  delay(20);
	ldi R16,20
	ldi R17,0
	xcall _delay
	.dbline -2
L21:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
;           outd -> R10
;           outc -> R10
;           outb -> R10
;           outa -> R10
;          dswin -> R10
	.even
_main::
	.dbline -1
	.dbline 108
; }
; 
; 
; //*****************************************************************
; void main(void)
; {
	.dbline 109
;  unsigned char outa=0x00, outb=0x00, outc=0x00, outd=0x00;
	clr R10
	.dbline 109
	.dbline 109
	.dbline 109
	.dbline 111
;  unsigned char dswin;  
;  port_init();
	xcall _port_init
	xjmp L24
L23:
	.dbline 113
;  while(1)
;    {
	.dbline 114
;     WDR();				  //Watchdog reset
	wdr
	.dbline 115
; 	dswin=PINC;
	in R10,0x13
	.dbline 116
; 	BinToBCD(dswin);
	mov R16,R10
	clr R17
	xcall _BinToBCD
	.dbline 117
; 	dispseg();
	xcall _dispseg
	.dbline 118
; 	dot_on();
	xcall _dot_on
	.dbline 119
; 	PORTD=0x55;
	ldi R24,85
	out 0x12,R24
	.dbline 120
; 	delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 121
;    }
L24:
	.dbline 112
	xjmp L23
X6:
	.dbline -2
L22:
	.dbline 0 ; func end
	ret
	.dbsym r outd 10 c
	.dbsym r outc 10 c
	.dbsym r outb 10 c
	.dbsym r outa 10 c
	.dbsym r dswin 10 c
	.dbend
	.area bss(ram, con, rel)
	.dbfile C:\+samples-16small\SegDisp-16sm\SegDisp-16sm.c
_count::
	.blkb 2
	.dbsym e count _count I
_BCD3::
	.blkb 1
	.dbsym e BCD3 _BCD3 c
_BCD2::
	.blkb 1
	.dbsym e BCD2 _BCD2 c
_BCD1::
	.blkb 1
	.dbsym e BCD1 _BCD1 c
_BCD0::
	.blkb 1
	.dbsym e BCD0 _BCD0 c
; }