list p=16f84 

        #include <P16f628.INC> 


		zaehler 	EQU		0x22
		
;******************************************************** 
; Das Programm beginnt mit der Initialisierung 

Init 
        bsf     STATUS, RP0   ; Bank 1 
        movlw   B'00000000'   ; PortB alle outputs  
        movwf   TRISB 
        bcf     STATUS, RP0   ; Bank 0 
        clrf    PORTB  	      ; alle Pins low setzen		


main 
		call Loop
		goto main
		
Loop
		movlw	.200
		movwf	zaehler
Loop1
		nop
		nop
		nop
		nop

		decfsz zaehler,1
		goto Loop1

		return
		

        end  
  

;**********************************************************