projects
/
my-code
/
atmel.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
initial checkin for moritz's rgb lights (untested!)
[my-code/atmel.git]
/
beginners
/
pld_stily.asm
diff --git
a/beginners/pld_stily.asm
b/beginners/pld_stily.asm
index
624773b
..
489df26
100644
(file)
--- a/
beginners/pld_stily.asm
+++ b/
beginners/pld_stily.asm
@@
-9,7
+9,14
@@
INIT:
ldi r30,0x00 ; light status
ldi r28,1 ; constants
INIT:
ldi r30,0x00 ; light status
ldi r28,1 ; constants
-ldi r27,0x01;
+ldi r17,0xff
+; adc
+;ldi r16,(1<<ADLAR) ; left adjusted, pin 0 connected to adc, a ref connected
+;out ADMUX,r16
+;ldi r16,(1<<ADEN)|(1<<ADSC)|(1<<ADFR) ; enable, running mode, start first conv.
+;out ADCSR,r16
+; port c
+ldi r27,0x01
out DDRC,r27 ; select pin 0 as output
rjmp LIGHT
out DDRC,r27 ; select pin 0 as output
rjmp LIGHT
@@
-22,18
+29,20
@@
LIGHT_ON:
ldi r31,0 ; reset wait counter
ldi r30,0x01
out PORTC,r30
ldi r31,0 ; reset wait counter
ldi r30,0x01
out PORTC,r30
+;ldi r17,0xff
rjmp WAIT
LIGHT_OFF:
ldi r31,0
ldi r30,0x00
out PORTC,r30
rjmp WAIT
LIGHT_OFF:
ldi r31,0
ldi r30,0x00
out PORTC,r30
+;in r17,ADCH
rjmp WAIT
WAIT:
ldi r29,0 ; reset inner wait counter
add r31,r28 ; increment wait counter
rjmp WAIT
WAIT:
ldi r29,0 ; reset inner wait counter
add r31,r28 ; increment wait counter
-cp
i r31,0xff
; after 255 steps
+cp
r31,r17
; after 255 steps
breq LIGHT
rjmp WAIT_MORE
breq LIGHT
rjmp WAIT_MORE