delay.s

一个正在应用的步进电机控制程序,包括电机的调速,正反,细分,通讯控制

	.module delay.c
	.area text(rom, con, rel)
	.dbfile C:\BJQD\delay.c
	.dbfunc e delay_ms _delay_ms fV
;              j -> R20,R21
;           time -> R16,R17
	.even
_delay_ms::
	xcall push_gset1
	.dbline -1
	.dbline 6
; 
; /****************************************************
;       毫秒延时函数,对应晶振频率为8MHZ  
; *****************************************************/
; void delay_ms(unsigned int time)
; {
L2:
	.dbline 9
; unsigned int j;
; do
;   {
	.dbline 10
;   time--;
	subi R16,1
	sbci R17,0
	.dbline 11
	ldi R20,1
	ldi R21,0
	xjmp L8
L5:
	.dbline 11
L6:
	.dbline 11
	subi R20,255  ; offset = 1
	sbci R21,255
L8:
	.dbline 11
;   for (j=1;j<=200;j++);
	ldi R24,200
	ldi R25,0
	cp R24,R20
	cpc R25,R21
	brsh L5
	.dbline 12
;   }
L3:
	.dbline 13
; while (time>1);
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlo L2
	.dbline -2
L1:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r j 20 i
	.dbsym r time 16 i
	.dbend
	.dbfunc e delay_us _delay_us fV
;              j -> <dead>
;           time -> R16,R17
	.even
_delay_us::
	.dbline -1
	.dbline 20
; }
; 
; /***************************************
;       微秒延时程序,对应晶振频率为8MHZ  
; ***************************************/
; void delay_us(unsigned int time)
; {
L10:
	.dbline 23
; unsigned int j;
; do
;   {
	.dbline 24
;   time--;
	subi R16,1
	sbci R17,0
	.dbline 25
;   }
L11:
	.dbline 26
; while (time>0);
	cpi R16,0
	cpc R16,R17
	brne L10
X0:
	.dbline -2
L9:
	.dbline 0 ; func end
	ret
	.dbsym l j 1 i
	.dbsym r time 16 i
	.dbend