.module main.c
	.area text(rom, con, rel)
	.dbfile E:\ICCAVR\project\AVRMEG~2\icc\008-AD-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 22
; /*
; 實驗八：
; 	AD轉換實驗。
; 	1、AD轉換實驗。程序進行周期AD轉換，在并轉換值顯示在數(shù)碼管上。
; 	2、使用內部1 M晶振。
; 	3、進行此實驗需要插上：JP1的所有8個短路塊、JP9(A/D)。
; 	4、此實驗采用項目化管理，主要文件有ADC、DISP、主程序。
; 
; 	AVR  mega16學習板
; 	www.iccavr.com
; 	2006-04-05
; */
; 
; #include "iom16v.h"
; #include <macros.h>
; 
; extern unsigned char get_ad(void);/*AD采樣函數(shù)*/
; extern void Disp_Init(void);/*顯示初始化*/
; extern unsigned char led_buf[];/*顯示緩存*/
; 
; /*延時函數(shù)，頻率1MHz，單位mS*/
; void delay_ms(unsigned char i) {
	.dbline 25
	ldi R20,1
	xjmp L5
L2:
	.dbline 25
; 
; 	unsigned char a, b;
; 	for (a = 1; a < i; a++) {
	.dbline 26
	ldi R22,1
	xjmp L9
L6:
	.dbline 26
	.dbline 27
	.dbline 28
L7:
	.dbline 26
	inc R22
L9:
	.dbline 26
	tst R22
	brne L6
	.dbline 29
L3:
	.dbline 25
	inc R20
L5:
	.dbline 25
	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 main _main fV
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 32
; 		for (b = 1; b; b++) {
; 			;
; 			}
; 		}
; }
; 
; void main(void) {
	.dbline 35
; 
; 	unsigned char i;
; 	DDRA = 0x00;				/*方向輸入*/
	clr R2
	out 0x1a,R2
	.dbline 36
; 	PORTA = 0x7F;				/*打開上拉*/
	ldi R24,127
	out 0x1b,R24
	.dbline 37
; 	DDRB = 0xFF;				/*方向輸出*/
	ldi R24,255
	out 0x17,R24
	.dbline 38
; 	PORTB = 0xFF;				/*電平設置*/
	out 0x18,R24
	.dbline 39
; 	DDRC = 0x00;
	out 0x14,R2
	.dbline 40
; 	PORTC = 0xFF;
	out 0x15,R24
	.dbline 41
; 	DDRD = 0x00;
	out 0x11,R2
	.dbline 42
; 	PORTD = 0xFF;
	out 0x12,R24
	.dbline 44
; 
; 	delay_ms(200);				/*加入延時*/
	ldi R16,200
	xcall _delay_ms
	.dbline 45
; 	Disp_Init();				/*電平設置*/
	xcall _Disp_Init
	xjmp L12
L11:
	.dbline 46
	.dbline 47
	ldi R16,100
	xcall _delay_ms
	.dbline 48
	xcall _get_ad
	mov R20,R16
	.dbline 49
	clr R2
	sts _led_buf+3,R2
	.dbline 50
	ldi R17,100
	xcall div8u
	sts _led_buf+2,R16
	.dbline 51
	ldi R17,100
	mov R16,R20
	xcall mod8u
	ldi R17,10
	xcall div8u
	sts _led_buf+1,R16
	.dbline 52
	ldi R17,10
	mov R16,R20
	xcall mod8u
	sts _led_buf,R16
	.dbline 53
L12:
	.dbline 46
	xjmp L11
X0:
	.dbline -2
L10:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend