;**********************************************************************
;     Programm
;
;
;    Eine LED an RD4 blinkt wärend Taster RE4 über 
;    eine Interrupt-Routine LED an RD5 einschaltet.
;**********************************************************************
	list		p=16f877		; direktiva za definiran procesor
	#include	<p16f877.inc>	; processor specific variable definitions
	
	__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF
	errorlevel -207	;vermeidet: "Found label after column 1"
	errorlevel -302 ;"Register in operand not in bank 0.  Ensure that bank bits are correct.
;**********************************************************************
org 0x00


init

 bsf     STATUS, RP0            ;Bank 1  setzen
 movlw   B'00000000'            ;Port D alle out
 movwf   TRISD
 bcf     STATUS, RP0            ;Bank 0 setzen
 clrf    PORTD                      ;Alle LED´s aus

 bsf     STATUS, RP0                       ;Bank 1 setzen
 bcf     OPTION_REG,NOT_RBPU     ;Pull-upp´s hoch
 movlw   B'11111111'                      ;Port B alle Eingänge
 movwf   TRISB
 bcf     STATUS, RP0                   ;Bank 0 setzen


main
   BTFSS PORTB,0   ; Taste offen, d.h. Pin=hi ?
   BCF   PORTD,4     ; LED aus

   BTFSC PORTB,0    ; Taste gedrückt dh. pin=low?
   BSF   PORTD,4     ; LED einschalten
   GOTO  main

   END