Subversion Repositories svnkaklik

Rev

Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1 
#include 16C84.INC
2 
 
3 
	org	0
4 
 
5 
	goto	Start
6 
	;--------------------
7 
	org	4
8 
	;--------------------
9 
	goto	Start
10 
 
11 
#include Delay.asm
12 
 
13 
Start:
14 
	page1
15 
	movlw 	00000000B	; inicializace citace a prescaleru
16 
	movwf	TMR0
17 
	movlw 	00000000B	; konfigurace preruseni
18 
	movwf	INTCON
19 
 
20 
	page1
21 
	movlw	00000000B	; nastaveni portu na vstup nebo vystup
22 
	movwf	PORTA		; 1=vstup 0=vystup
23 
	movlw	01000011B
24 
	movwf	PORTB
25 
 
26 
	bsf	TMR0, 7		; vypni pull-up na PORTB (OPTION registr)
27 
 
28 
	page0
29 
 
30 
	clrw			; vynulovani portu
31 
	movwf	PORTA
32 
	movwf	PORTB
33 
 
34 
MainLoop:
35 
	bsf	PORTB, 3	; Pridrz napajeni
36 
	bsf	PORTB, 4
37 
	bsf 	PORTA, 3	;Rozsvit LED
38 
 
39 
	Delay	250ms
40 
 
41 
	bcf 	PORTA, 3	;Zhasni LED
42 
 
43 
	Delay	250ms
44 
 
45 
 
46 
	bcf	PORTA, 2
47 
	bcf	PORTA, 1
48 
smycka:
49 
	btfss	PORTB, 0
50 
	goto	LEDon
51 
	goto	smycka
52 
LEDon:
53 
	bsf 	PORTA, 3	;Rozsvit LED
54 
	Delay	250ms
55 
	bcf 	PORTA, 3	;Zhasni LED
56 
	Delay	250ms
57 
	goto	smycka
58 
	;---------------
59 
 
60 
 
61 
 
62 
 
63 
 
64 
;----------------------------
65 
; Definice promenych
66 
;----------------------------
67 
 
68 
	cblock
69 
 
70 
	CT1
71 
	CT2
72 
 
73 
	endc
74 
 
75 
	end