more control
[my-code/atmel.git] / monolyzer / main.asm
index b5ed20c..e17e9a7 100644 (file)
 .def   tmp1            = r16
 .def   tmp2            = r17
 .def   uart_rxtx       = r18
-.def   bcount          = r19
-.def   scount          = r20
-.def   data            = r21
-.def   state           = r22
+.def   count           = r19
+.def   state           = r20
 
 ;
 ; interrupts
@@ -25,7 +23,7 @@
 rjmp INIT
 
 ; INT0
-reti
+rjmp INT0_IR
 
 ; INT1
 reti
@@ -37,13 +35,13 @@ reti
 reti
 
 ; T1 OVF1
-reti
+rjmp T1_OVF_IR
 
 ; T0 OVF0
-rjmp T0_OVF
+reti
 
 ; UART RX
-rjmp UART_RECEIVE
+reti
 
 ; UART UDRE
 reti
@@ -88,8 +86,8 @@ INIT:
        ; gio port init
        rcall PORT_INIT
 
-       ; timer0 init
-       rcall TIMER0_INIT
+       ; timer1 init
+       rcall TIMER1_INIT
 
        ; uart init
        rcall UART_INIT
@@ -105,10 +103,8 @@ INIT:
        out SPL,tmp1
 
        ; more init
-       ldi bcount,0
-       ldi scount,0
-       ldi data,0x00
-       ldi state,1
+       ldi count,0
+       ldi state,0
 
        ; storage pointer
        ldi ZL,low(STORAGE)
@@ -118,29 +114,24 @@ INIT:
        ldi uart_rxtx,0x72
        rcall UART_TX
 
+       ; external interrupt enable
+       rcall INT0_IR_CONF_INIT
+       rcall INT0_IR_ENABLE
+
        ; global interrupt enable
        sei 
 
 MAIN:
 
-WAIT_FOR_HIGH:
-
-       ; start as soon as we get a high signal
-       in tmp1,PORTB
-       sbrs tmp1,0
-       rjmp WAIT_FOR_HIGH
-
-       ; timer0 interrupt enable
-       rcall TIMER0_INT_INIT
-       
 SAMPLE:
 
        ; sample as long as there is storage capacity
        sbrs state,0
        rjmp SAMPLE
 
-       ; timer0 interrupt disable
-       rcall TIMER0_INT_END
+       ; disable interrupts
+       rcall INT0_IR_DISABLE
+       rcall TIMER1_INT_DISABLE
 
        ; signal finish
        ldi uart_rxtx,0x66
@@ -164,7 +155,11 @@ TRANSFER:
        ; reset storage pointer
        ldi ZL,low(STORAGE)
        ldi ZH,high(STORAGE)
-       ldi scount,0
+       ldi tmp1,0
+
+       ; transmit number of sampled words
+       mov uart_rxtx,count
+       rcall UART_TX
 
 TRANSFER_LOOP:
 
@@ -173,10 +168,10 @@ TRANSFER_LOOP:
        rcall UART_TX
 
        ; count sent data
-       add scount,one
+       add tmp1,one
 
        ; check amount of sent data
-       cpi scount,128
+       cp tmp1,count
        breq IDLE
 
        rjmp TRANSFER_LOOP
@@ -190,43 +185,58 @@ TRANSFER_LOOP:
 ; interrupt routines
 ;
 
-T0_OVF:
+INT0_IR:
 
        ; debug output
        ; cbi PORTD,3
 
-       ; read port
-       in tmp1,PORTB
-       sbrc tmp1,0
-       add data,one
-
-       ; increase and check bit counter
-       add bcount,one
-       cpi bcount,8
-       brne EXIT_T0_OVF
-       
-       ; store another byte into sram
-       st Z+,data
-       ldi bcount,0
-       add scount,one
+       ; get timer value
+       in tmp1,TCNT1L
+       in tmp2,TCNT1H
+
+       ; check for initial or running state
+       cpi state,0
+       brne INT0_RUN
+
+       ; configure interrupt for running state
+       rcall INT0_IR_CONF_RUN
+       ldi state,1
+
+       ; reset timer and start ovf interrupt
+       ldi tmp1,0
+       out TCNT1H,tmp1
+       out TCNT1L,tmp1
+       rcall TIMER1_INT_ENABLE
+
+       rjmp EXIT_IR
+
+INT0_RUN:
+
+       ; write timer value into sram
+       st Z+,tmp2
+       st Z+,tmp1
+
+       ; inc counter
+       add count,one
 
        ; check for left capacity
-       cpi scount,128
-       brne EXIT_T0_OVF
+       cpi count,55
+       brne EXIT_IR
+
+       ; exit sampling
        ldi state,0
 
+EXIT_IR:
+
        ; debug output
        ; sbi PORTD,3
 
-EXIT_T0_OVF:
-
-       ; shift data bits
-       ; in any case => there is always a zero at lsb
-       lsl data
-       
        reti
 
-UART_RECEIVE:
+T1_OVF_IR:
+
+       ; exit sampling
+       ldi state,0
 
        reti
 
@@ -237,6 +247,5 @@ UART_RECEIVE:
 
 .dseg
 
-STORAGE: .byte 128
-
+STORAGE: .byte 110