Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

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