more debug output + transmit of all bytes (?)

[my-code/atmel.git] / monolyzer / main.asm

diff --git a/monolyzer/main.asm b/monolyzer/main.asm
index bcc6c1c..b41f3b3 100644 (file)
--- a/monolyzer/main.asm
+++ b/monolyzer/main.asm
@@ -35,7 +35,7 @@ reti
 reti
 
 ; T1 OVF1
-reti
+rjmp T1_OVF_IR
 
 ; T0 OVF0
 reti
@@ -104,23 +104,18 @@ INIT:
 
        ; more init
        ldi count,0
-       ldi state,1
+       ldi state,0
 
        ; storage pointer
        ldi ZL,low(STORAGE)
        ldi ZH,high(STORAGE)
 
-       ; counter
-       ldi tmp1,0
-       out TCNT1H,tmp1
-       out TCNT1L,tmp1
-
        ; signal ready output
        ldi uart_rxtx,0x72
        rcall UART_TX
 
        ; external interrupt enable
-       rcall INT0_IR_CONF
+       rcall INT0_IR_CONF_INIT
        rcall INT0_IR_ENABLE
 
        ; global interrupt enable
@@ -130,12 +125,13 @@ MAIN:
 
 SAMPLE:
 
-       ; sample as long as there is storage capacity
-       sbrc state,0
-       rjmp SAMPLE
+       ; sample as long as there is storage capacity and signal
+       cpi state,2
+       brne SAMPLE
 
-       ; external interrupt enable
+       ; disable interrupts
        rcall INT0_IR_DISABLE
+       rcall TIMER1_INT_DISABLE
 
        ; signal finish
        ldi uart_rxtx,0x66
@@ -159,20 +155,26 @@ TRANSFER:
        ; reset storage pointer
        ldi ZL,low(STORAGE)
        ldi ZH,high(STORAGE)
-       ldi count,0
+       ldi tmp1,0
+
+       ; transmit number of sampled words
+       mov uart_rxtx,count
+       rcall UART_TX
 
 TRANSFER_LOOP:
 
+       ; check amount of sent data
+       cp tmp1,count
+       breq IDLE
+
        ; transmit storage
        ld uart_rxtx,Z+
        rcall UART_TX
+       ld uart_rxtx,Z+
+       rcall UART_TX
 
        ; count sent data
-       add count,one
-
-       ; check amount of sent data
-       cpi count,110
-       breq IDLE
+       add tmp1,one
 
        rjmp TRANSFER_LOOP
 
@@ -190,9 +192,29 @@ INT0_IR:
        ; debug output
        ; cbi PORTD,3
 
-       ; write timer value into sram
+       ; 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
 
@@ -203,8 +225,12 @@ INT0_IR:
        cpi count,55
        brne EXIT_IR
 
+       ; indicate end of 'c'apacity
+       ldi uart_rxtx,0x63
+       rcall UART_TX
+
        ; exit sampling
-       ldi state,0
+       ldi state,2
 
 EXIT_IR:
 
@@ -213,6 +239,17 @@ EXIT_IR:
 
        reti
 
+T1_OVF_IR:
+
+       ; indicate 'o'verflow end
+       ldi uart_rxtx,0x6f
+       rcall UART_TX
+
+       ; exit sampling
+       ldi state,2
+
+       reti
+
 
 ;
 ; sram