; Source created with Parsic Version 3.x

; at              : 2008.09.06. 21:02:26


; Project File    : C:\PROGRA~1\Parsic\Examples\HE\RS_REC.PIC

; Project Version : 1.0.2

; Created         : 2008.09.06. 20:27:00

; Last change     : 2008.09.06. 21:02:22

	PROCESSOR 16F628

	INCLUDE P16F628.INC

	RADIX DEC


	__IDLOCS H'0100'

	__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _XT_OSC & _LVP_OFF & _MCLRE_OFF

; Diverses

ZERO	EQU Z	; ZERO-Flag
CARRY	 EQU C	; CARRY-Flag


; Variable

UD1_FD	= 32	; located in Bank 0
S2	= 33	; located in Bank 0
MF1	= 34	; located in Bank 0
MF1_HI	= 35	; located in Bank 0
ADAT1	= 36	; located in Bank 0
ADAT2	= 37	; located in Bank 0
S0	= 38	; located in Bank 0
S1	= 39	; located in Bank 0
UA1RSFLAG	= 40	; located in Bank 0
UA1INBUF	= 41	; located in Bank 0
UA1INBUF1	= 42	; located in Bank 0
UA1INBUF2	= 43	; located in Bank 0
UA1INBUF3	= 44	; located in Bank 0
UA1INBUF4	= 45	; located in Bank 0
UA1INBUF5	= 46	; located in Bank 0
RAM	= 47	; located in Bank 0
SYS_WSAV	= 112	; located in Bank 0, 1, 2, 3
SYS_SSAV	= 113	; located in Bank 0, 1, 2, 3
SYS_FSAV	= 114	; located in Bank 0, 1, 2, 3

	ERRORLEVEL -302	; disable warning (Bankswitching)
	ERRORLEVEL -306	; disable warning (Pageswitching)

;****************************************
;Programmanfang
;****************************************

	ORG 0

	CLRF STATUS	; switch to RAM-Bank 0
	GOTO SYS_INIT
	NOP
	NOP

;****************************************
;Interrupt-Adress
;****************************************

	MOVWF SYS_WSAV	; save register
	SWAPF STATUS,W
	CLRF STATUS	; bank 0
	MOVWF SYS_SSAV
	MOVFW FSR
	MOVWF SYS_FSAV


	BTFSS INTCON,T0IF	; TMR0 ?
	GOTO NOTMR0INT
	BCF INTCON,T0IF	; Interrupt quitieren

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	INCFSZ MF1,F
	GOTO SYS_INT_LABEL_0
	INCF MF1_HI,F

SYS_INT_LABEL_0
NOTMR0INT

;***************************************************
; UART -> UA1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PIR1,RCIF	; byte received?
	GOTO UA1ENDINT	; no

	MOVFW RCSTA	; error ?
	ANDLW B'110'
	BTFSS STATUS,ZERO
	GOTO UA1RCERROR	; yes

	MOVFW UA1INBUF+1	; all received ? 
	BTFSC STATUS,ZERO	; length =0 ?
	GOTO UA1RCINT2	; yes

	ERRORLEVEL -312
	BANKISEL UA1INBUF
	ERRORLEVEL +312

	MOVFW UA1INBUF
	MOVWF FSR
	INCF UA1INBUF,F	; pointer+1

	MOVFW RCREG	; store
	MOVWF INDF
	ADDWF UA1INBUF+2,F	; checksum
	DECFSZ UA1INBUF+1,F	; length-1
	GOTO EXITINT

	SUBWF UA1INBUF+2,F	; checksum
	BSF UA1RSFLAG,0		; ready
	GOTO EXITINT

UA1RCINT2
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVFW RCREG	; trash
	GOTO EXITINT

UA1RCERROR
	MOVFW RCREG	; reset error status
	BCF RCSTA,CREN
	BSF RCSTA,CREN
	BSF UA1RSFLAG,1	; error
	GOTO EXITINT

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

UA1ENDINT

EXITINT

	MOVFW SYS_FSAV
	MOVWF FSR
	SWAPF SYS_SSAV,W	; Register zurück
	MOVWF STATUS
	SWAPF SYS_WSAV,F
	SWAPF SYS_WSAV,W

	RETFIE


;****************************************
; Subroutines
;****************************************


;****************************************
;Initialisierung
;****************************************


SYS_INIT

	MOVLW B'00100000'
	MOVWF INTCON

; Set output before direction

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVLW B'00000000'
	MOVWF PORTA

	MOVLW B'00000100'
	MOVWF PORTB

	MOVLW 15
	BSF STATUS,RP0	; Bank 1
	MOVWF OPTION_REG


; Richtung setzen

	MOVLW B'11110000'
	MOVWF TRISA

	MOVLW B'00001011'
	MOVWF TRISB

	BCF STATUS,RP0	; Bank 0
	MOVLW 7	; Comparators off
	MOVWF CMCON
; init vars


; Clear RAM

	BCF STATUS,IRP
	MOVLW 32
	MOVWF FSR
CR1
	CLRF INDF
	INCF FSR,F
	BTFSS FSR,7
	GOTO CR1
	BSF FSR,5
CR2
	CLRF INDF
	INCF FSR,F
	MOVLW H'F0'
	SUBWF FSR,W
	BTFSS STATUS,ZERO
	GOTO CR2
	BSF STATUS,IRP
	MOVLW 32
	MOVWF FSR
CR3
	CLRF INDF
	INCF FSR,F
	MOVLW H'50'
	SUBWF FSR,W
	BTFSS STATUS,ZERO
	GOTO CR3


;*****************************************
; initalisize UA1
;*****************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVLW B'10010000'	; serial enable,8-bit,continous-enable
	MOVWF RCSTA

	BSF STATUS,RP0	; Bank 1
	MOVLW 25
	MOVWF SPBRG	; BAUDRATE GENERATOR
	MOVLW B'00000100'	; 8-BIt,TRANSMIT DISABLED,ASYNCHRON,BRGH=1=HIGH SPEED
	MOVWF TXSTA
	BSF PIE1,RCIE	; enable INTERRUPT for receive

	BSF INTCON,PEIE	; PERIPHERIE INT ENABLE

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	CLRF TMR0
	BCF INTCON,T0IF
	BSF INTCON,GIE	; Interrupt freigeben

;**********************************
;******* Haupt-Programm ***********
;**********************************

MAIN

;***************************************************
; UDATA -> UD1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S2,0	; active
	GOTO LABEL_UD1_1	; yes

; test positive edge

	BTFSS S2,1
	GOTO LABEL_UD1_SETFD
	BTFSC UD1_FD,0
	GOTO LABEL_UD1_SETFD
	BSF UD1_FD,0
	BCF UA1RSFLAG,0	; set nothing received
	BCF UA1RSFLAG,1	; set no error
	BSF S2,0	; active
	MOVLW LOW UA1INBUF+3	; set pointer (adress)
	MOVWF UA1INBUF
	MOVLW H'AA'	; init checksum
	MOVWF UA1INBUF+2
	MOVLW 3	; 3 bytes
	MOVWF UA1INBUF+1
	GOTO LABEL_UD1_SETFD
LABEL_UD1_1
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC UA1RSFLAG,1	; error ?
	GOTO LABEL_UD1_3	; break
	BTFSS UA1RSFLAG,0	; received ?
	GOTO LABEL_UD1_2	; no

	MOVFW UA1INBUF+2	; checksum
	SUBWF UA1INBUF+5,W	; checksum
	BTFSS STATUS,ZERO
	GOTO LABEL_UD1_3	; break
	BCF INTCON,GIE	; disable interrupts
	BTFSC INTCON,GIE	; disabled ?
	GOTO $-2	; no
	MOVFW UA1INBUF+3
	MOVWF ADAT1
	MOVFW UA1INBUF+4
	MOVWF ADAT2
	BSF INTCON,GIE	; enable interrupts
LABEL_UD1_3
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BCF S2,0	; not active
LABEL_UD1_2

LABEL_UD1_SETFD

; test negative edge

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S2,1
	GOTO LABEL_UD1_EXIT
	BCF UD1_FD,0

LABEL_UD1_EXIT

;***************************************************
; Anzug-Verzögerung -> MF1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS S2,0	; Eingang auf Low ?
	GOTO LABEL_MF1_CHKTIME	; Ja

; RESET

	CLRF MF1
	CLRF MF1_HI
	BCF S2,1
	GOTO LABEL_MF1_EXIT	; raus

LABEL_MF1_CHKTIME

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S2,1	; Ausgang schon auf High ?
	GOTO LABEL_MF1_EXIT	; Ja

	MOVLW 0
	SUBWF MF1_HI,W
	BTFSS STATUS,CARRY
	GOTO LABEL_MF1_EXIT

	MOVLW 78
	SUBWF MF1,W
	BTFSS STATUS,CARRY
	GOTO LABEL_MF1_EXIT

	BSF S2,1
LABEL_MF1_EXIT

;***************************************************
;AF1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVFW ADAT1
	ADDLW 0
	MOVWF S0

LABEL_AF1_EXIT
;***************************************************
;AF2
;***************************************************

	MOVFW ADAT2
	ADDLW 0
	MOVWF S1

LABEL_AF2_EXIT
;***************************************************
; Verteiler -> BV1
;***************************************************

	BTFSC S1,0
	GOTO LABEL_BV1_0
	BCF PORTB,4
	GOTO LABEL_BV1_0_END
LABEL_BV1_0
	BSF PORTB,4
LABEL_BV1_0_END

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

	BTFSC S1,1
	GOTO LABEL_BV1_1
	BCF PORTB,5
	GOTO LABEL_BV1_1_END
LABEL_BV1_1
	BSF PORTB,5
LABEL_BV1_1_END

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

	BTFSC S1,2
	GOTO LABEL_BV1_2
	BCF PORTB,6
	GOTO LABEL_BV1_2_END
LABEL_BV1_2
	BSF PORTB,6
LABEL_BV1_2_END

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

	BTFSC S1,3
	GOTO LABEL_BV1_3
	BCF PORTB,7
	GOTO LABEL_BV1_3_END
LABEL_BV1_3
	BSF PORTB,7
LABEL_BV1_3_END

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


;***************************************************
; Verteiler -> BV2
;***************************************************

	BTFSC S0,0
	GOTO LABEL_BV2_0
	BCF PORTA,0
	GOTO LABEL_BV2_0_END
LABEL_BV2_0
	BSF PORTA,0
LABEL_BV2_0_END

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

	BTFSC S0,1
	GOTO LABEL_BV2_1
	BCF PORTA,1
	GOTO LABEL_BV2_1_END
LABEL_BV2_1
	BSF PORTA,1
LABEL_BV2_1_END

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

	BTFSC S0,2
	GOTO LABEL_BV2_2
	BCF PORTA,2
	GOTO LABEL_BV2_2_END
LABEL_BV2_2
	BSF PORTA,2
LABEL_BV2_2_END

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

	BTFSC S0,3
	GOTO LABEL_BV2_3
	BCF PORTA,3
	GOTO LABEL_BV2_3_END
LABEL_BV2_3
	BSF PORTA,3
LABEL_BV2_3_END

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


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

	GOTO MAIN


	END