Lauflicht mit PIC16F886

[R. S. (frederenke)]

Hallo zusammen,
ich mache meine ersten Versuche mit PIC's und komme grade bei einem 
einfachen Problem nicht weiter.
Ich will ein simples Lauflicht an PORTB eines PIC16F886 realisieren.
Alles klappt soweit, jedoch will die LED an PORTB,0 nicht leuchten.
Was mache ich falsch?

Zur Beschaltung eine kleine vereinfachte "Skizze" (alle Portb Ports sind 
beschaltet wie RB4)

Vielen Dank!

  list    p=16f886  ; list directive to define processor
  #include  <p16f886.inc>  ; processor specific variable definitions

   __CONFIG    _CONFIG1, _LVP_OFF & _FCMEN_OFF & _IESO_OFF & _BOR_OFF & _CPD_OFF & _CP_OFF & _MCLRE_ON &  _PWRTE_ON & _WDT_OFF & _INTRC_OSC_NOCLKOUT
   __CONFIG    _CONFIG2, _WRT_OFF & _BOR21V
            



;***** VARIABLE DEFINITIONS ------aus der PIC Beispieldatei
w_temp    EQU  0x7D    ; variable used for context saving
status_temp  EQU  0x7E    ; variable used for context saving
pclath_temp  EQU  0x7F    ; variable used for context saving                                                          
;  Variables:
d0 equ 0x20                
d1 equ 0x21
d2 equ 0x22  
PORTB_SHDW equ 0x23  
  
  ORG     0x000             ; processor reset vector
  goto  beginn

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ORG     0x004             ; interrupt vector location

  movwf   w_temp            ; save off current W register contents
  movf  STATUS,w          ; move status register into W register
  movwf  status_temp       ; save off contents of STATUS register
  movf  PCLATH,w    ; move pclath register into w register
  movwf  pclath_temp    ; save off contents of PCLATH register

  movf  pclath_temp,w    ; retrieve copy of PCLATH register
  movwf  PCLATH      ; restore pre-isr PCLATH register contents
  movf    status_temp,w     ; retrieve copy of STATUS register
  movwf  STATUS            ; restore pre-isr STATUS register contents
  swapf   w_temp,f
  swapf   w_temp,w          ; restore pre-isr W register contents
  retfie                    ; return from interrupt
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
beginn
    bcf  INTCON,GIE
    BTFSC INTCON,GIE
    GOTO $-2
    bsf  STATUS,RP0    ;Registerseite 1
    movlw  b'00000000'    ;Port B als Ausgang definieren
    movwf  TRISB
    bcf  STATUS,RP0    ;Registerseite 0
    clrf  PORTB_SHDW
    bsf    PORTB_SHDW,0
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,0
    bsf    PORTB_SHDW,1
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,1
    bsf    PORTB_SHDW,2
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,2
    bsf    PORTB_SHDW,3
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,3
    bsf    PORTB_SHDW,4
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,4
    bsf    PORTB_SHDW,5
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,5
    bsf    PORTB_SHDW,6
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,6
    bsf    PORTB_SHDW,7
    call  write_portb
    movlw  0x40      
    call  delay
    bcf    PORTB_SHDW,7
      goto    beginn              ; go to beginning of program

write_portb
    movwf  w_temp
    movf  PORTB_SHDW,0
    movwf  PORTB
    RETLW  w_temp

;*************************************************************
; Calls the delay_1ms W times
;*************************************************************
delay
  movwf  d0
dly_loop
  call  delay_1ms
  decfsz  d0, F
  goto  dly_loop
  return


;*************************************************************  
; 1ms delay.
; Modify this to match your processor speed.
; http://www.piclist.org/techref/piclist/codegen/delay.htm
;*************************************************************
delay_1ms
  movlw  0xF3    ;2498 cycles
  movwf  d1
  movlw  0x02
  movwf  d2
Delay_0
  decfsz  d1, f
  goto  $+2
  decfsz  d2, f
  goto  Delay_0
  goto  $+1    ;2 cycles
  return      ;4 cycles (including call)

; example of preloading EEPROM locations

  ORG  0x2100
  DE  5, 4, 3, 2, 1

  END                       ; directive 'end of program'

[Thosrten S. (whitejack) (Gast)]

HI,

vorweg:

schau dir mal

rrf und rlf an.

Laut Program müsste es eigentlich gehen.

Tausche mal die Leitung die von Port B 0 Pin an den Transistor geht mit 
der vom PORT B 1 und schau mal ob die LED dann leuchtet...

TS

[R. S. (frederenke)]

PROBLEM GELÖST:
Der Pic ist kaputt. Mit einem anderen geht es!
Danke Thorsten für deine Hilfe

[Thosrten S. (whitejack) (Gast)]

ok,

wie gesagt, schau dir mal rrf und rlf an.

du setzt bit 0 und in einer schleife lässt du es immer einen weiter 
routieren bis es "weg" ist, wenn das Register leer ist, kannst du das im 
Statusregister (Zerobit) abfragen und neu setzen


-j2 bsf   PORTB_SHDW,0
_j1 call  write_portb
    call  delay
    rlf   PORTB_SHDW,f
    btfss STATUS,Z
    goto  _j1
    goto  _j2

so ungefähr müsste es gehen... ist Jahre her das ich das gemacht habe...