Taste Entprellen ASM

[Jürgen W. (juergen_w)]

Hallo,

auf die Gefahr hin, das ich  jetzt hier in der Luft zerrissen werde 
(*Spass) will ich trotzdem meine kleine Entprellroutine posten.
Die Routine ist nur für einen Taster sinnvoll da dann nur ein Register 
benötigt wird und 1 Bit in einem Flagregister.
Wenn eh ein Timerinterrupt läuft werden in der ISR nur 7 Befehle 
benötigt.

Ab 2 Tasten lohnt also schon die Routine von Peter Dannecker.

Jedoch glaube ich das meine Routine leichter zu nachzuvollziehen, ist 
obwohl sie ähnlich funktioniert wie die Bulletproof.

Grüsse Jürgen

[Paul B. (paul_baumann)]

Da haben wir die gleiche Idee gehabt. Ich habe das mal in Bascom 
gemacht,
da ging es auch prima.

MfG Paul

[Jürgen W. (juergen_w)]

Hallo,

ich habe noch ein bisschen optimiert.
Ohne den Vergleichsbefehl "cpi    taste,0b10000000" reicht nun auch ein 
unteres (r0..r15) Register für <taste>.

Grüsse Jürgen

[Jürgen W. (juergen_w)]

Ich habe meine kleine Entprellroutine noch etwas optimiert und für 2 
Tasten erweitert.
Da jede weitere Taste auch ein weiteres (unteres) Register + 5 
ASM-Befehle benötigt, würde ich spätestens ab der 3-4. Taste überlegen 
ob ich die von Peter Danneger benutzen würde.

Hier nur der relevante Teil in der ISR:

;------------------------------------------------------------------------------------------------------------
;2 Taster (Plus und Minus, PinA 0..1) entprellen
;Alle 2 mS wird (in diesem Fall) der entspr. Taster  in das Register <taste> geschoben.
;Ist <taste> = 0, war der Taster die letzten 8 Interrupts gedrückt(im Main einfach tst taste).
;Ist das Carry zusätzlich gesetzt, wird in einem Flagregister das entspr. Flankenbit gesetzt, das
;im Hauptprogramm nach Verarbeitung des Tastendruck wieder gelöscht wird.
;So ist sichergestellt, das jeder Tastendruck nur einmal verarbeitet wird
;------------------------------------------------------------------------------------------------------------
  in    temp,pina    ;Tasten nach Temp holen
  lsr    temp      ;PinA0 (Minus-Taste) ins Carry
  rol    taste      ;und in Taste (R2) schieben
  brcc  ex1        ;Es muss eine 1 (nicht gedrückt) und danach
  brne  ex1        ;8 mal eine 0 (gedrückt) folgen, erst dann ist der Tastendruck gültig.          
  sbr    flags,1<<0    ;Flag (Taste gedrückt, Negative Flanke, Carry+Taste = 100000000) in Bit0 setzen..
              ;.. wird in der Main, nach Auswertung wieder gelöscht.
ex1:lsr    temp      ;PinA1 (Plus-Taste) ins Carry .....
  rol    taste2      ;wie oben
  brcc  ex2  
  brne  ex2    
  sbr    flags,1<<7    ;Bit7 setzen

;------------------------------------------------------------------------------------------------------------
;ISR Ende

ex2:dec    cnt        ;Zähler für wait        
  pop    temp
  out    sreg,S      ;Statusbits zurücklesen
  reti          ;in der Main weitermachen