delay.s

本设计以ATMEL公司生产的AT90S8515作为控制核心

	.module Delay.C
	.area text(rom, con, rel)
	.dbfile C:\DOCUME~1\administrator\桌面\电子设计大赛_MrLiu\数控直流电流源(测试版）\Delay.C
	.dbfunc e delay_1us _delay_1us fV
	.even
_delay_1us::
	.dbline -1
	.dbline 12
; // Delay.c
; //
; 
; /********************************************
; /* 延时函数1us/1ms/ms
; /* 在其他文件中调用函数时应做以下说明
; /* extern void delay_nus(unsigned int n);
; /* extern void delay_1ms(void);
; /* extern void delay_nms(unsigned int n);
; *********************************************/
; void delay_1us(void)                 //1us延时函数
;   {
	.dbline 13
;    asm("nop");
	nop
	.dbline -2
	.dbline 14
;   }
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_nus _delay_nus fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nus::
	rcall push_gset2
	mov R22,R16
	mov R23,R17
	.dbline -1
	.dbline 17
; 
; void delay_nus(unsigned int n)       //N us延时函数
;   {
	.dbline 18
;    unsigned int i=0;
	clr R20
	clr R21
	.dbline 19
;    for (i=0;i<n;i++)
	rjmp L6
L3:
	.dbline 20
	rcall _delay_1us
L4:
	.dbline 19
	subi R20,255  ; offset = 1
	sbci R21,255
L6:
	.dbline 19
	cp R20,R22
	cpc R21,R23
	brlo L3
	.dbline -2
	.dbline 21
;    delay_1us();
;   }
L2:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 24
;   
; void delay_1ms(void)                 //1ms延时函数
;   {
	.dbline 26
	clr R16
	clr R17
	rjmp L11
L8:
	.dbline 26
L9:
	.dbline 26
	subi R16,255  ; offset = 1
	sbci R17,255
L11:
	.dbline 26
;    unsigned int i;
;    for (i=0;i<1140;i++);
	cpi R16,116
	ldi R30,4
	cpc R17,R30
	brlo L8
	.dbline -2
	.dbline 27
;   }
L7:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delay_nms _delay_nms fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nms::
	rcall push_gset2
	mov R22,R16
	mov R23,R17
	.dbline -1
	.dbline 30
;   
; void delay_nms(unsigned int n)       //N ms延时函数
;   {
	.dbline 31
;    unsigned int i=0;
	clr R20
	clr R21
	.dbline 32
;    for (i=0;i<n;i++)
	rjmp L16
L13:
	.dbline 33
	rcall _delay_1ms
L14:
	.dbline 32
	subi R20,255  ; offset = 1
	sbci R21,255
L16:
	.dbline 32
	cp R20,R22
	cpc R21,R23
	brlo L13
	.dbline -2
	.dbline 34
;    delay_1ms();
;   }
L12:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend