; Source created with Parsic Version 3.x

; at              : 2009.02.02. 21:54:17


; Project File    : C:\PROGRA~1\Parsic\HE\Rs-VE.PIC

; Project Version : 1.0.1

; Created         : 2009.02.02. 21:42:00

; Last change     : 2009.02.02. 21:54:14

	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
S0	= 33	; located in Bank 0
MF1	= 34	; located in Bank 0
MF1_HI	= 35	; located in Bank 0
DAT1	= 36	; located in Bank 0
UA1RSFLAG	= 37	; located in Bank 0
UA1INBUF	= 38	; located in Bank 0
UA1INBUF1	= 39	; located in Bank 0
UA1INBUF2	= 40	; located in Bank 0
UA1INBUF3	= 41	; located in Bank 0
UA1INBUF4	= 42	; located in Bank 0
RAM	= 43	; 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 143
	BSF STATUS,RP0	; Bank 1
	MOVWF OPTION_REG


; Richtung setzen

	MOVLW B'11111110'
	MOVWF TRISA

	MOVLW B'11111011'
	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 S0,0	; active
	GOTO LABEL_UD1_1	; yes

; test positive edge

	BTFSS S0,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 S0,0	; active
	MOVLW LOW UA1INBUF+3	; set pointer (adress)
	MOVWF UA1INBUF
	MOVLW H'AA'	; init checksum
	MOVWF UA1INBUF+2
	MOVLW 2	; 2 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+4,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 DAT1
	BSF INTCON,GIE	; enable interrupts
LABEL_UD1_3
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BCF S0,0	; not active
LABEL_UD1_2

LABEL_UD1_SETFD

; test negative edge

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S0,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 S0,0	; Eingang auf Low ?
	GOTO LABEL_MF1_CHKTIME	; Ja

; RESET

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

LABEL_MF1_CHKTIME

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S0,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 S0,1
LABEL_MF1_EXIT

;***************************************************
; Vergleich -> IF1
;***************************************************

	MOVLW 85
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	SUBWF DAT1,W	; F - W -> W

LABEL_IF1_CHECK
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS STATUS,ZERO	; Test auf -> =
	GOTO LABEL_IF1_FALSE

LABEL_IF1_TRUE
	BSF PORTA,0
	GOTO LABEL_IF1_EXIT

LABEL_IF1_FALSE
	BCF PORTA,0

LABEL_IF1_EXIT
;****************************************

	GOTO MAIN


	END