WebSVN – svnkaklik – Blame – /programy/ASM/ir_blik/DELAY.$$$

Rev	Author	Line No.	Line
6	kaklik	1	`;--- Macro na spozdeni 1ms az 255ms ---`
		2	`Delay macro ms`
		3	`movlw ms`
		4	`movwf xxx`
		5	`call Delay1ms`
		6	`endm`
		7
		8	`;--- Spozdeni v nasobcich 1.002ms ----`
		9	`Jednou:`
		10	`nop`
		11	`Delay1ms:`
		12	`movlw 99 ; 1 ms`
		13	`movwf yyy ; goto 2 takty decfsz 1 kdyz 1 jinak 2`
		14	`call us10`
		15
		16	`decfsz xxx, f`
		17	`goto Jednou`
		18	`;---------------------------------`
		19	`return ;2us`
		20
		21	`;--- Spozdeni v nasobcich 10us ----`
		22	`us10: ; Prodleva (yyy * 10us)+3us`
		23
		24	`nop`
		25	`nop`
		26	`nop`
		27	`nop`
		28	`nop`
		29	`nop`
		30	`decfsz yyy, f`
		31	`goto us10`
		32	`nop`
		33	`nop`
		34	`nop`
		35	`nop`
		36	`nop`
		37	`return`
		38	`;-------------------------`
		39
		40	`;----------------------------`
		41	`; Definice promenych`
		42	`;----------------------------`
		43
		44	`cblock`
		45
		46	`yyy`
		47	`xxx`
		48
		49	`endc`
		50

Subversion Repositories svnkaklik