moto.s

步进电机 驱动三星 步进电机 avr程序

	.module moto.c
	.area text(rom, con, rel)
	.dbfile D:\avr\moto\moto.c
	.dbfunc e delay_us _delay_us fV
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 3
; #include<iom8v.h>
; void delay_us(int time)
; 	 {     
L2:
	.dbline 5
;   	  do
; 	  	{
	.dbline 6
; 		 time--;
	subi R16,1
	sbci R17,0
	.dbline 7
; 		}	
L3:
	.dbline 8
;   	  while (time>1);
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlt L2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r time 16 I
	.dbend
	.dbfunc e delay_ms _delay_ms fV
;           time -> R20,R21
	.even
_delay_ms::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 12
; 	 }	  
; /*	  		    毫秒级延时程序			*/	 
; void delay_ms(unsigned int time)
; 	 {
	rjmp L7
L6:
	.dbline 14
	.dbline 15
	ldi R16,1250
	ldi R17,4
	rcall _delay_us
	.dbline 16
	subi R20,1
	sbci R21,0
	.dbline 17
L7:
	.dbline 13
; 	  while(time!=0)
	cpi R20,0
	cpc R20,R21
	brne L6
X0:
	.dbline -2
L5:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r time 20 i
	.dbend
	.dbfunc e delay _delay fV
;              x -> R16
;              y -> R18
	.even
_delay::
	.dbline -1
	.dbline 20
; 	  	  {		
; 		   delay_us(1250);
; 		   time--;
; 		  }
; 	 }					
; void delay(void)
; {
	.dbline 22
;   char x,y;
;   for(x=1;x>0;x--)
	ldi R16,1
	rjmp L13
L10:
	.dbline 23
	ldi R18,1
	rjmp L17
L14:
	.dbline 23
L15:
	.dbline 23
	dec R18
L17:
	.dbline 23
	clr R2
	cp R2,R18
	brlo L14
L11:
	.dbline 22
	dec R16
L13:
	.dbline 22
	clr R2
	cp R2,R16
	brlo L10
	.dbline -2
L9:
	.dbline 0 ; func end
	ret
	.dbsym r x 16 c
	.dbsym r y 18 c
	.dbend
	.dbfunc e main _main fV
;              a -> <dead>
	.even
_main::
	.dbline -1
	.dbline 27
;   for(y=1;y>0;y--);
; 
; }
; void main(void)
; 	 {
	.dbline 29
; 	 int a;
; 	 DDRB=0xff;
	ldi R24,255
	out 0x17,R24
	.dbline 30
; 	 PORTB=0;
	clr R2
	out 0x18,R2
	.dbline 31
; 	 DDRD=0xf0;
	ldi R24,240
	out 0x11,R24
	.dbline 32
; 	 PORTD=0xff;
	ldi R24,255
	out 0x12,R24
	.dbline 33
; 	 delay_ms(3);
	ldi R16,3
	ldi R17,0
	rcall _delay_ms
	.dbline 34
; 	 PORTB=0b00011010;
	ldi R24,26
	out 0x18,R24
	.dbline 35
; 	  delay_ms(3);
	ldi R16,3
	ldi R17,0
	rcall _delay_ms
	rjmp L20
L19:
	.dbline 37
; 	  while(1)
; 	  	   {
	.dbline 38
; 		   if((PIND&0x01)==1)
	in R24,0x10
	andi R24,1
	cpi R24,1
	brne L22
	.dbline 39
; 		   {
	.dbline 40
; 		   delay_ms(1); 
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 41
; 		   PORTB=0b00011000;
	ldi R24,24
	out 0x18,R24
	.dbline 42
; 		   delay_ms(1); 
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 43
; 		   PORTB=0b11100001;
	ldi R24,225
	out 0x18,R24
	.dbline 44
; 		   delay_ms(1);
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 45
; 		   PORTB=0b00011100;
	ldi R24,28
	out 0x18,R24
	.dbline 46
; 		   delay_ms(1); 
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 47
; 		   PORTB=0b11100001;
	ldi R24,225
	out 0x18,R24
	.dbline 48
; 		   delay_ms(1);
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 49
; 		   PORTB=0b00011110;
	ldi R24,30
	out 0x18,R24
	.dbline 50
; 		   delay_ms(1); 
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 51
; 		   PORTB=0b11100001;
	ldi R24,225
	out 0x18,R24
	.dbline 52
; 		   delay_ms(1);
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 53
; 		   PORTB=0b00011010;
	ldi R24,26
	out 0x18,R24
	.dbline 54
; 		   delay_ms(1); 
	ldi R16,1
	ldi R17,0
	rcall _delay_ms
	.dbline 55
; 		   PORTB=0b11100001;
	ldi R24,225
	out 0x18,R24
	.dbline 56
; 		  }
L22:
	.dbline 57
L20:
	.dbline 36
	rjmp L19
X1:
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbsym l a 1 I
	.dbend