imp_mess.asm

;==============================================================================

;======  Misst den vorgegebenen Kanalimpuls, Vorgabe in A Kanal 1,2 oder 3

;======  Rückgabe Wert proportional zur Impulsbreite

MESS:    PUSH  B

    PUSH  C

    IN  B,TIMSK

    SBR  B,0b00000010  ;Timer 0 Überlauf Interrupt

    OUT  TIMSK,B    ;einschalten

    CLR  B

    SEC      ;1 Bit setzen

MESS_01:  ROR  B    ;solange rotieren bis das Bit

    DEC  A    ;analog zum Abfragebit steht

    BRNE  MESS_01

MESS_02:  IN  A,PINA    ;Port lesen

    AND  A,B

    BRNE  MESS_02    ;Bit war gesetzt, warten bis low

MESS_03:  IN  A,PINA    ;damit ein ganzet Impuls gemessen wird

    AND  A,B    ;jetzt ist es low

    BREQ  MESS_03    ;warten bis es high ist

    LDI  C,255-OFFSET 

    MOV  COUNT_MESS,C

MESS_04:  IN  A,PINA

    AND  A,B

    BRNE  MESS_04    ;Bit war gesetzt, warten bis low

    MOV  A,COUNT_MESS  ;Messwert nach A

    IN  B,TIMSK

    CBR  B,0B00000010

    OUT  TIMSK,B    ;Timer Interrupt ausschaltem

    POP  C

    POP  b

    RET