.module main.c
	.area text(rom, con, rel)
	.dbfile E:\ICCAVR\project\AVRMEG~2\icc\011-EEPROM-LED\main.c
	.dbfunc e delay_ms _delay_ms fV
;              a -> R20
;              b -> R22
;              i -> R16
	.even
_delay_ms::
	xcall push_gset2
	.dbline -1
	.dbline 18
; /*
; 實驗十一：
; 
; 	片內EEPROM讀寫實險。
; 	1、用內部EEPROM記錄CPU啟動次數，并在PB口上顯示出來。
; 	2、內部1 M晶振，程序采用單任務方式，軟件延時。
; 	3、進行此實驗請插上JP1的所有8個短路塊，JP7(LED_EN)短路塊。
; 	4、通過此實驗，可以對對內部EEPROM有個初步認識，了解EEPROM函數的操作。
; 
; 	AVR  mega16學習板
; 	www.iccavr.com
; 	14:42 2007-4-9
; */
; 
; #include "iom16v.h"
; 
; /*延時函數*/
; void delay_ms(unsigned char i) {
	.dbline 21
	ldi R20,1
	xjmp L5
L2:
	.dbline 21
; 
; 	unsigned char a, b;
; 	for (a = 1; a < i; a++) {
	.dbline 22
	ldi R22,1
	xjmp L9
L6:
	.dbline 22
	.dbline 23
	.dbline 24
L7:
	.dbline 22
	inc R22
L9:
	.dbline 22
	tst R22
	brne L6
	.dbline 25
L3:
	.dbline 21
	inc R20
L5:
	.dbline 21
	cp R20,R16
	brlo L2
	.dbline -2
L1:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r a 20 c
	.dbsym r b 22 c
	.dbsym r i 16 c
	.dbend
	.dbfunc e eprom_read _eprom_read fV
;         p_buff -> R20,R21
;         number -> R18
;           addr -> R16,R17
	.even
_eprom_read::
	xcall push_gset1
	ldd R20,y+2
	ldd R21,y+3
	.dbline -1
	.dbline 30
; 		for (b = 1; b; b++) {
; 			;
; 			}
; 		}
; }
; 
; /*EEPROM讀取函數*/
; /*addr：地址；number：長度；p_buff：讀出數據存放指針*/
; void eprom_read(unsigned int addr, unsigned char number, unsigned char *p_buff) {
L11:
	.dbline 32
L12:
	.dbline 32
; 
; 	while(EECR & (1 << EEWE));
	sbic 0x1c,1
	rjmp L11
	.dbline 34
; 
; 	EEARH = 0x00;
	clr R2
	out 0x1f,R2
	xjmp L15
L14:
	.dbline 36
	.dbline 37
	movw R2,R16
	subi R16,255  ; offset = 1
	sbci R17,255
	out 0x1e,R2
	.dbline 38
	sbi 0x1c,0
	.dbline 39
	in R2,0x1d
	movw R30,R20
	st Z+,R2
	movw R20,R30
	.dbline 40
L15:
	.dbline 36
; 	
; 	while(number --) {
	mov R2,R18
	clr R3
	subi R18,1
	tst R2
	brne L14
	.dbline -2
L10:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r p_buff 20 pc
	.dbsym r number 18 c
	.dbsym r addr 16 i
	.dbend
	.dbfunc e eprom_write _eprom_write fV
;         p_buff -> R20,R21
;         number -> R18
;           addr -> R16,R17
	.even
_eprom_write::
	xcall push_gset1
	ldd R20,y+2
	ldd R21,y+3
	.dbline -1
	.dbline 45
; 		EEARL = addr ++;
; 		EECR |= (1 << EERE);
; 		*p_buff++ = EEDR;
; 		}
; }
; 
; /*EEPROM寫入函數*/
; /*addr：地址；number：長度；p_buff：寫入數據存放指針*/
; void eprom_write(unsigned int addr, unsigned char number, unsigned char *p_buff) {
	.dbline 47
; 
; 	EEARH = 0x00;
	clr R2
	out 0x1f,R2
	xjmp L19
X0:
	.dbline 49
; 	
; 	while(number --) {
L21:
	.dbline 50
L22:
	.dbline 50
	sbic 0x1c,1
	rjmp L21
	.dbline 51
	movw R2,R16
	subi R16,255  ; offset = 1
	sbci R17,255
	out 0x1e,R2
	.dbline 52
	movw R30,R20
	ld R2,Z+
	movw R20,R30
	out 0x1d,R2
	.dbline 53
	sbi 0x1c,2
	.dbline 54
	sbi 0x1c,1
	.dbline 55
L19:
	.dbline 49
	mov R2,R18
	clr R3
	subi R18,1
	tst R2
	brne L22
	.dbline -2
L17:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r p_buff 20 pc
	.dbsym r number 18 c
	.dbsym r addr 16 i
	.dbend
	.dbfunc e main _main fV
;           temp -> y+2
	.even
_main::
	sbiw R28,3
	.dbline -1
	.dbline 59
; 		while(EECR & (1 << EEWE));
; 		EEARL = addr ++;
; 		EEDR = *p_buff ++;
; 		EECR |= (1 << EEMWE);
; 		EECR |= (1 << EEWE);
; 		}
; }
; 
; /*主函數*/
; void main(void) {
	.dbline 63
; 
; 	unsigned char temp;
; 
; 	DDRA = 0x00;				/*方向輸入*/
	clr R2
	out 0x1a,R2
	.dbline 64
; 	PORTA = 0xFF;				/*打開上拉*/
	ldi R24,255
	out 0x1b,R24
	.dbline 65
; 	DDRB = 0xFF;				/*方向輸出*/
	out 0x17,R24
	.dbline 66
; 	PORTB = 0xFF;				/*電平設置*/
	out 0x18,R24
	.dbline 67
; 	DDRC = 0x00;
	out 0x14,R2
	.dbline 68
; 	PORTC = 0xFF;
	out 0x15,R24
	.dbline 69
; 	DDRD = 0x00;
	out 0x11,R2
	.dbline 70
; 	PORTD = 0xFF;
	out 0x12,R24
	.dbline 72
; 
; 	delay_ms(250);				/*啟動延時*/
	ldi R16,250
	xcall _delay_ms
	.dbline 73
; 	eprom_read(0x10, 0x01, &temp);		/*讀出記錄*/
	movw R24,R28
	adiw R24,2
	std y+1,R25
	std y+0,R24
	ldi R18,1
	ldi R16,16
	ldi R17,0
	xcall _eprom_read
	.dbline 74
; 	PORTB = ~temp;				/*顯示記錄*/
	ldd R2,y+2
	com R2
	out 0x18,R2
	.dbline 75
; 	temp ++;				/*刷新記錄*/
	ldd R24,y+2
	subi R24,255    ; addi 1
	std y+2,R24
	.dbline 76
; 	eprom_write(0x10, 0x01, &temp);		/*寫入記錄*/
	movw R24,R28
	adiw R24,2
	std y+1,R25
	std y+0,R24
	ldi R18,1
	ldi R16,16
	ldi R17,0
	xcall _eprom_write
L25:
	.dbline 78
	.dbline 79
	.dbline 80
L26:
	.dbline 78
	xjmp L25
X1:
	.dbline -2
L24:
	adiw R28,3
	.dbline 0 ; func end
	ret
	.dbsym l temp 2 c
	.dbend