Zählschleife asm PIC12F

BlackArrow Gast 10.03.2009 18:43 #1188261

Lesenswert?

•

Hallo zusammen!
Ich habe das PIC-Programmieren begonnen. Ein paar Grundlegende Dinge 
funktionieren schon!
Nun will ich einen Zähler bauen.
Funktionsweise wiefolgt:
Ich lege setze mittels eines Tasters den Digitaleingang auf 5V und das 
ganze 10 mal. Danach soll die LED am anderen Pin zu leuchten beginnen.
Leider leuchtet die LED schon nach dem 1. Impuls.
Kann mir jemand sagen, was ich da falsch mache?

mfG. Michael

Hier der Code:

list p=12f675
#include <P12f675.INC>
ERRORLEVEL      -302      ;SUPPRESS BANK SELECTION MESSAGES
;__CONFIG  _MCLRE_OFF & _PWRTE_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _BODEN_OFF
  org  0x00
;ledON  Equ    0x24  ;Ist die LED ein?
#define OUT1  GPIO,0
#define IN1    GPIO,1
cnt    Equ    0x20  ;Zähler
ledon  Equ    0x21  ;Statusspeicher
goto  Init
  bcf STATUS,RP0 ;Bank 0
  clrf GPIO ;Init GPIO
  ;movlw 3Fh ;Set GP<5:0> to
  movlw B'0111'  ;Eingänge nicht invertiert + Eingänge auf DigitalInput
  movwf CMCON ;digital IO
  bsf STATUS,RP0 ;Bank 1
  clrf ANSEL ;Digital I/O
  movlw B'00000010'
  movwf TRISIO
  bcf STATUS,RP0
  ; internen Taktgenerator kalibrieren
  bsf  STATUS, RP0    ; Bank 1
  call  0x3FF
  movwf  OSCCAL      ; 4-MHz-Kalibrierung
  bcf  STATUS, RP0    ; Bank 0
  ;Variable initialisieren
  movlw D'10'
  movwf cnt
  movlw 0
  movwf ledon
  movf ledon,1
  btfsc STATUS,Z  ;überspringe, wenn ledon=0
  decfsz cnt,1
  goto weiter
  call check
  btfsc IN1  ;überspringe, wenn kein Signal
  call setzeEINS
  btfss IN1  ;Überspringe, wenn Signal da
  call setzeNULL
  goto loop
bsf OUT1
setzeNULL
movwf ledon
setzeEINS
movwf ledon

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Bascomfehler Gast 10.03.2009 19:03 #1188287

Lesenswert?

•

▲
▼

Der Schalter wird wohl prellen.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

BlackArrow Gast 10.03.2009 19:23 #1188314

Lesenswert?

•

▲
▼

Das heißt, im Grunde müsste das Programm so funktionieren?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Chris Gast 11.03.2009 03:05 #1188691

Lesenswert?

•

▲
▼

nach Loop, füge einen 100ml delay mit folgendem Code ein:

  movlw 100
  call dly_ms

es braucht 2 Variablen, dly1 sowie dly0

dly_ms
 movwf dly1
 movlw  250 ; 1ms Interval
 movwf  dly0
 clrwdt
 decfsz dly0
 goto   $-2
 decfsz dly1
 goto   dly_ms+1
 return

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Severino R. (severino) 11.03.2009 09:56 #1188834

Lesenswert?

•

▲
▼

Chris wrote:
> nach Loop, füge einen 100ml delay mit folgendem Code ein:

Man nehme 100ml delay, 200 g Mehl, 1 dl Loop etc.

Gibt's delay denn in Deziliter-Packungen?

SCNR

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Zählschleife asm PIC12F

Antwort schreiben