.module delay.c
	.area text(rom, con, rel)
	.dbfile D:\PROTEU~1.7\PROTEU~1.7\JOHU\1視頻處理\fang__2\delay.c
	.dbfunc e delay_us _delay_us fV
;              t -> R16
	.even
_delay_us::
	.dbline -1
	.dbline 10
; 
; 
; #include <iom64v.h>
; #include "delay.h"
; 
; /*-----------------------------------------------------------------------
; delay_us	   :1us延時函數
; -----------------------------------------------------------------------*/
; void delay_us(void)
; {
	.dbline 11
;    unsigned char t=2;
	ldi R16,2
	.dbline 12
;    t--;
	dec R16
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r t 16 c
	.dbend
	.dbfunc e delay_nus _delay_nus fV
;              t -> R20,R21
	.even
_delay_nus::
	xcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 21
; }
; 
; /*-----------------------------------------------------------------------
; delay_nus          :長延時函數
; 
; 輸入參數: t        :延時時間 us
; -----------------------------------------------------------------------*/
; void delay_nus(unsigned int t)
; {
	xjmp L4
L3:
	.dbline 23
	xcall _delay_us
L4:
	.dbline 22
;     while (t--)
	movw R2,R20
	subi R20,1
	sbci R21,0
	tst R2
	brne L3
	tst R3
	brne L3
X0:
	.dbline -2
L2:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r t 20 i
	.dbend
	.dbfunc e delay_ms _delay_ms fV
	.even
_delay_ms::
	.dbline -1
	.dbline 30
;        delay_us();
; }
; 
; /*-----------------------------------------------------------------------
; delay_ms	   :1ms延時函數
; -----------------------------------------------------------------------*/
; void delay_ms(void)
; {
	.dbline 31
;    delay_nus(1000);
	ldi R16,1000
	ldi R17,3
	xcall _delay_nus
	.dbline -2
L6:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_nms _delay_nms fV
;              t -> R20,R21
	.even
_delay_nms::
	xcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 40
; }
; 
; /*-----------------------------------------------------------------------
; delay_nms          :長延時函數
; 
; 輸入參數: t        :延時時間 ms
; -----------------------------------------------------------------------*/
; void delay_nms(unsigned int t)
; {
	xjmp L9
L8:
	.dbline 42
	xcall _delay_ms
L9:
	.dbline 41
;     while (t--)
	movw R2,R20
	subi R20,1
	sbci R21,0
	tst R2
	brne L8
	tst R3
	brne L8
X1:
	.dbline -2
L7:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r t 20 i
	.dbend