__CONFIG   _CP_OFF & _WRT_ENABLE_OFF & _CPD_OFF & _CCP1_RB2 & _DEBUG_OFF & _LVP_OFF & _BODEN_OFF & _MCLR_ON & _WDT_OFF & _PWRTE_ON & _INTRC_CLKOUT 


main

;********************************************************************************
; Initialisierung des PICs

banksel 	OSCCON
movlw 	b'01100100'		; 4 MHZ
movwf 	OSCCON		; Initialisierung des Clocks

movlw		b'10000111'		; Timer 0 auf Vorteiler 1/256 eingestellt
banksel	OPTION_REG
movwf		OPTION_REG

			
	
			
			banksel	TRISB
			clrf		TRISB
			banksel	TRISA
			clrf		TRISA
			banksel	PORTB
			clrf		PORTB
			banksel	PORTA
			clrf		PORTA
			
			banksel	OSCCON
			movlw 	b'00000100'		; 31 kHZ
			movwf 	OSCCON		; Initialisierung des Clocks
			
			movlw		0x00
			movwf		INTCON		; Interrupt ausschalten	
		
					
		Mainloop
		
			call		Rwarten
		;	sleep		;**********************Problem!!!***********
		
		
		goto Mainloop

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

;Routinen

Rwarten 
	banksel wait
	movlw	.250
	movwf 	wait1			; 1 ms Warten; bei 4 MHZ
	Wai2
		nop				
		nop
		nop
		nop
		nop
		nop
		decfsz 	wait1,1
		goto 	Wai2
	banksel	PORTB
return

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