Hilfe Ports lassen sich nicht beschalten

Ich bin dankbar für jede Hilfe. Ich habe ein einfaches Programm fürn 
16F887 geschrieben aber PORTA und PORTB lassen sich nicht beschalten. 
Egal wo ich ein High-Pegel anlege es funktioniert nicht selbst im 
Simulationsmodus von MPLap.

start:
    BANKSEL  ANSELH
    CLRF     ANSELH
    BANKSEL  ANSEL
    CLRF     ANSEL
    BANKSEL  PORTA
    clrf     PORTA
    BANKSEL  PORTB
    clrf     PORTB
    BANKSEL  PORTC
    clrf     PORTC

    bsf  STATUS,RP0

    movlw  b'01110000'
    movwf  OSCCON

    movlw  B'11111111'
    movwf  TRISA
    movlw  B'11111111'
    movwf  TRISB
    movlw  B'00000000'
    movwf  TRISC

    clrf  PORTA
    clrf  PORTB
    clrf  PORTC

    bcf  STATUS,RP0

main:     btfsc  PORTA,0
          goto  ziffer_0
          btfsc  PORTA,1
          goto  ziffer_1
          btfsc   PORTA,2
          goto  ziffer_2
          btfsc   PORTA,3
          goto  ziffer_3
          btfsc  PORTA,4
          goto  ziffer_4
          btfsc   PORTA,5
          goto  ziffer_5
          btfsc   PORTA,6
          goto   ziffer_6
          btfsc   PORTA,7
          goto  ziffer_7
          btfsc   PORTB,0
          goto  ziffer_8
          btfsc  PORTB,1
          goto  ziffer_9

    goto  main


; 
------------------------------------------------------------------------

ziffer_0:          movlw  b'00011111'
      movwf  PORTC
      call   delay
      clrf   PORTC
      movlw  b'00101001'
      movwf  PORTC
      call   delay
      clrf   PORTC
      movlw  b'01001001'
      movwf  PORTC
      call   delay
      clrf   PORTC
      movlw  b'10001111'
      movwf  PORTC
      call   delay
      clrf   PORTC
      btfsc  PORTB,7
      goto   main
      goto   ziffer_0