?? pwm.s
字號:
.module PWM.C
.area data(ram, con, rel)
_Table::
.blkb 2
.area idata
.byte 63,6
.area data(ram, con, rel)
.blkb 2
.area idata
.byte 91,'O
.area data(ram, con, rel)
.blkb 2
.area idata
.byte 'f,'m
.area data(ram, con, rel)
.blkb 2
.area idata
.byte 125,7
.area data(ram, con, rel)
.blkb 2
.area idata
.byte 127,'o
.area data(ram, con, rel)
.blkb 1
.area idata
.byte 'y
.area data(ram, con, rel)
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile I:\AVRpractice\BOOK\定時器1\PWM\PWM.C
.dbsym e Table _Table A[12:12]c
_Data1::
.blkb 2
.area idata
.byte 10,0
.area data(ram, con, rel)
.dbfile I:\AVRpractice\BOOK\定時器1\PWM\PWM.C
.blkb 2
.area idata
.byte 5,0
.area data(ram, con, rel)
.dbfile I:\AVRpractice\BOOK\定時器1\PWM\PWM.C
.dbsym e Data1 _Data1 A[4:4]c
_Data2::
.blkb 2
.area idata
.byte 3,9
.area data(ram, con, rel)
.dbfile I:\AVRpractice\BOOK\定時器1\PWM\PWM.C
.blkb 2
.area idata
.byte 1,0
.area data(ram, con, rel)
.dbfile I:\AVRpractice\BOOK\定時器1\PWM\PWM.C
.dbsym e Data2 _Data2 A[4:4]c
.area text(rom, con, rel)
.dbfile I:\AVRpractice\BOOK\定時器1\PWM\PWM.C
.dbfunc e DelayMs _DelayMs fV
; j -> R20,R21
; i -> R16,R17
.even
_DelayMs::
rcall push_gset1
.dbline -1
.dbline 15
; //***************FileName:Capature.C***************//
; //***************ICCAVR V6.30編譯*****************//
;
; #include <io8535v.h>
; #define uchar unsigned char
; #define uint unsigned int
;
; //數碼管字型表，對應0，1，2，3，4，5，6，7，8，9,E//
; uchar Table[12]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x79};
; uchar Data1[4]={10,0,5,0}; //定義初始方波占空比：50％
; uchar Data2[4]={3,9,1,0}; //設定PWM頻率：8M/2046=3910Hz
; uchar Key1_Flag,Key2_Flag;
;
; void DelayMs(uint i) //Ms級延時，參數i為延時時間
; {uint j;
.dbline 16
; for(;i!=0;i--)
rjmp L5
L2:
.dbline 17
.dbline 17
ldi R20,8000
ldi R21,31
rjmp L9
L6:
.dbline 17
.dbline 17
.dbline 17
L7:
.dbline 17
subi R20,1
sbci R21,0
L9:
.dbline 17
cpi R20,0
cpc R20,R21
brne L6
X0:
.dbline 17
L3:
.dbline 16
subi R16,1
sbci R17,0
L5:
.dbline 16
cpi R16,0
cpc R16,R17
brne L2
X1:
.dbline -2
.dbline 18
; {for(j=8000;j!=0;j--) {;}}
; }
L1:
rcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r j 20 i
.dbsym r i 16 i
.dbend
.dbfunc e Display _Display fV
; sel -> R20
; i -> R22
; p -> R10,R11
.even
_Display::
rcall push_gset3
mov R10,R16
mov R11,R17
.dbline -1
.dbline 21
;
; void Display(uchar *p) //動態顯示函數，參數p為待顯示的數組名
; {uchar i,sel=0x01;
.dbline 21
ldi R20,1
.dbline 22
; for(i=0;i<4;i++)
clr R22
rjmp L14
L11:
.dbline 23
.dbline 23
out 0x1b,R20
.dbline 24
mov R30,R22
clr R31
add R30,R10
adc R31,R11
ldd R30,z+0
clr R31
ldi R24,<_Table
ldi R25,>_Table
add R30,R24
adc R31,R25
ldd R2,z+0
clr R3
ldi R24,255
ldi R25,0
sub R24,R2
sbc R25,R3
out 0x15,R24
.dbline 25
ldi R16,1
ldi R17,0
rcall _DelayMs
.dbline 26
lsl R20
.dbline 27
L12:
.dbline 22
inc R22
L14:
.dbline 22
cpi R22,4
brlo L11
.dbline -2
.dbline 28
; {PORTA=sel; //選通最右邊的數碼管
; PORTC=0xff-Table[p[i]]; //送字型碼
; DelayMs(1); //顯示延時
; sel=sel<<1; //移位以顯示前一位
; }
; }
L10:
rcall pop_gset3
.dbline 0 ; func end
ret
.dbsym r sel 20 c
.dbsym r i 22 c
.dbsym r p 10 pc
.dbend
.dbfunc e Add_Process _Add_Process fV
; p -> R16,R17
.even
_Add_Process::
.dbline -1
.dbline 31
;
; void Add_Process(uchar *p)
; {if(p[1]!=1)
.dbline 31
mov R30,R16
mov R31,R17
ldd R24,z+1
cpi R24,1
breq L16
.dbline 32
; {p[2]=p[2]+1;
.dbline 32
mov R24,R16
mov R25,R17
adiw R24,2
mov R30,R24
mov R31,R25
ldd R24,z+0
subi R24,255 ; addi 1
std z+0,R24
.dbline 33
; if(p[2]==10) {p[2]=0;p[1]++;}
mov R30,R16
mov R31,R17
ldd R24,z+2
cpi R24,10
brne L18
.dbline 33
.dbline 33
clr R2
mov R30,R16
mov R31,R17
std z+2,R2
.dbline 33
mov R24,R16
mov R25,R17
adiw R24,1
mov R30,R24
mov R31,R25
ldd R24,z+0
subi R24,255 ; addi 1
std z+0,R24
.dbline 33
L18:
.dbline 34
L16:
.dbline -2
.dbline 35
; }
; }
L15:
.dbline 0 ; func end
ret
.dbsym r p 16 pc
.dbend
.dbfunc e Sub_Process _Sub_Process fV
; temp -> R22
; p -> R20,R21
.even
_Sub_Process::
rcall push_gset2
mov R20,R16
mov R21,R17
.dbline -1
.dbline 38
.dbline 39
mov R30,R20
mov R31,R21
ldd R17,z+1
ldi R16,10
rcall mpy8s
mov R22,R16
mov R30,R20
mov R31,R21
ldd R2,z+2
add R22,R2
.dbline 40
breq L21
.dbline 41
.dbline 41
dec R22
.dbline 42
ldi R17,10
mov R16,R22
rcall div8u
mov R30,R20
mov R31,R21
std z+1,R16
.dbline 43
mov R30,R20
mov R31,R21
ldd R17,z+1
ldi R16,10
rcall mpy8s
mov R2,R22
sub R2,R16
mov R30,R20
mov R31,R21
std z+2,R2
.dbline 44
L21:
.dbline -2
.dbline 45
;
; void Sub_Process(uchar *p)
; {uchar temp;
; temp=p[1]*10+p[2];
; if(temp!=0)
; {temp=temp-1;
; p[1]=temp/10;
; p[2]=temp-p[1]*10;
; }
; }
L20:
rcall pop_gset2
.dbline 0 ; func end
ret
.dbsym r temp 22 c
.dbsym r p 20 pc
.dbend
.dbfunc e Key_Process _Key_Process fV
.even
_Key_Process::
.dbline -1
.dbline 48
rjmp L25
L24:
.dbline 48
.dbline 48
ldi R16,<_Data1
ldi R17,>_Data1
rcall _Display
.dbline 48
ldi R24,1
sts _Key1_Flag,R24
.dbline 48
L25:
.dbline 48
;
; void Key_Process()
; {while((PINB&0x01)==0) {Display(Data1);Key1_Flag=1;}
sbis 0x16,0
rjmp L24
rjmp L28
L27:
.dbline 49
.dbline 49
ldi R16,<_Data1
ldi R17,>_Data1
rcall _Display
.dbline 49
ldi R24,1
sts _Key2_Flag,R24
.dbline 49
L28:
.dbline 49
; while((PINB&0x02)==0) {Display(Data1);Key2_Flag=1;}
sbis 0x16,1
rjmp L27
.dbline 50
; if(Key1_Flag==1)
lds R24,_Key1_Flag
cpi R24,1
brne L30
.dbline 51
; {Add_Process(Data1);
.dbline 51
ldi R16,<_Data1
ldi R17,>_Data1
rcall _Add_Process
.dbline 52
; Key1_Flag=0;}
clr R2
sts _Key1_Flag,R2
.dbline 52
L30:
.dbline 53
lds R24,_Key2_Flag
cpi R24,1
brne L32
.dbline 54
.dbline 54
ldi R16,<_Data1
ldi R17,>_Data1
rcall _Sub_Process
.dbline 55
clr R2
sts _Key2_Flag,R2
.dbline 55
L32:
.dbline -2
.dbline 56
; if(Key2_Flag==1)
; {Sub_Process(Data1);
; Key2_Flag=0;}
; }
L23:
.dbline 0 ; func end
ret
.dbend
.dbfunc e Set_Process _Set_Process fV
; i -> R20,R21
; p -> R20,R21
.even
_Set_Process::
rcall push_gset1
mov R20,R16
mov R21,R17
.dbline -1
.dbline 59
;
; void Set_Process(uchar *p)
; {uint i;
.dbline 60
; i=p[1]*10+p[2];
mov R30,R20
mov R31,R21
ldd R18,z+1
clr R19
ldi R16,10
ldi R17,0
rcall mpy16s
mov R2,R16
mov R3,R17
mov R30,R20
mov R31,R21
ldd R4,z+2
clr R5
add R2,R4
adc R3,R5
.dbline 61
; i=1023*i/10;
ldi R16,1023
ldi R17,3
mov R18,R2
mov R19,R3
rcall mpy16s
ldi R18,10
ldi R19,0
rcall div16u
mov R20,R16
mov R21,R17
.dbline 62
; OCR1AH=i>>8;
mov R2,R20
mov R3,R21
mov R2,R3
clr R3
out 0x2b,R2
.dbline 63
; OCR1AL=i&0x00ff;
mov R24,R20
mov R25,R21
andi R25,0
out 0x2a,R24
.dbline -2
.dbline 64
; }
L34:
rcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r i 20 i
.dbsym r p 20 pc
.dbend
.dbfunc e Init_IO _Init_IO fV
.even
_Init_IO::
.dbline -1
.dbline 67
;
; void Init_IO(void) //初始化I/O口
; {DDRA=0xff; //設置A口為推挽1輸出
.dbline 67
ldi R24,255
out 0x1a,R24
.dbline 68
; PORTA=0xff;
out 0x1b,R24
.dbline 69
; DDRC=0xff; //設置C口為推挽1輸出
out 0x14,R24
.dbline 70
; PORTC=0xff;
out 0x15,R24
.dbline 71
; DDRB=0x00; //設置B口為三態輸入
clr R2
out 0x17,R2
.dbline 72
; PORTB=0x00;
out 0x18,R2
.dbline 73
; DDRD=0xff; //設置D口為推挽1輸出
out 0x11,R24
.dbline 74
; PORTD=0xff;
out 0x12,R24
.dbline -2
.dbline 75
; }
L35:
.dbline 0 ; func end
ret
.dbend
.dbfunc e main _main fV
; i -> R20
.even
_main::
.dbline -1
.dbline 78
;
; void main(void)
; {uchar i;
.dbline 79
; Init_IO(); //初始化I/O口
rcall _Init_IO
.dbline 80
; PORTA=0xff; //點亮以測試所有的數碼管
ldi R24,255
out 0x1b,R24
.dbline 81
; PORTC=0x00;
clr R2
out 0x15,R2
.dbline 83
; //DelayMs(300); //延時
; PORTC=0xff; //熄滅所有的數碼管
out 0x15,R24
.dbline 84
; TCCR1A=0xc3; //10位PWM,向上計數清除OC1A，向下計數置位OC1A
ldi R24,195
out 0x2f,R24
.dbline 85
; TCCR1B=0x02; //時鐘8分頻,最小頻率1M/2046=0.5KHz
ldi R24,2
out 0x2e,R24
rjmp L38
L37:
.dbline 87
; while(1)
; {Key_Process();
.dbline 87
rcall _Key_Process
.dbline 88
; Set_Process(Data1); //設置PWM占空比
ldi R16,<_Data1
ldi R17,>_Data1
rcall _Set_Process
.dbline 89
; for(i=50;i!=0;i--)
ldi R20,50
rjmp L43
L40:
.dbline 90
ldi R16,<_Data1
ldi R17,>_Data1
rcall _Display
L41:
.dbline 89
dec R20
L43:
.dbline 89
tst R20
brne L40
.dbline 91
; Display(Data1);
; for(i=50;i!=0;i--)
ldi R20,50
rjmp L47
L44:
.dbline 92
ldi R16,<_Data2
ldi R17,>_Data2
rcall _Display
L45:
.dbline 91
dec R20
L47:
.dbline 91
tst R20
brne L44
.dbline 93
L38:
.dbline 86
rjmp L37
X2:
.dbline -2
.dbline 94
; Display(Data2);
; }
; }
L36:
.dbline 0 ; func end
ret
.dbsym r i 20 c
.dbend
.area bss(ram, con, rel)
.dbfile I:\AVRpractice\BOOK\定時器1\PWM\PWM.C
_Key2_Flag::
.blkb 1
.dbsym e Key2_Flag _Key2_Flag c
_Key1_Flag::
.blkb 1
.dbsym e Key1_Flag _Key1_Flag c
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -