; Source created with Parsic Version 3.x

; at              : 2008.02.07. 18:40:52


; Project File    : C:\PROGRA~1\Parsic\ANALOG.PIC

; Project Version : 1.0.0

; Created         : 2008.02.07. 18:16:00

; Last change     : 2008.02.07. 18:29:00

	PROCESSOR 16F877

	INCLUDE P16F877.INC

	RADIX DEC


	__IDLOCS H'0100'

	__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _XT_OSC & _LVP_OFF & _CPD_OFF & _DEBUG_OFF

; Diverses

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


; Variable

UD1_FD	= 32	; located in Bank 0
S4	= 33	; located in Bank 0
ADC0	= 34	; located in Bank 0
ADC0_HI	= 35	; located in Bank 0
ADC1	= 36	; located in Bank 0
ADC1_HI	= 37	; located in Bank 0
S0	= 38	; located in Bank 0
S0_HI	= 39	; located in Bank 0
S1	= 40	; located in Bank 0
S1_HI	= 41	; located in Bank 0
TR1	= 42	; located in Bank 0
TR1_HI	= 43	; located in Bank 0
OS1_FD	= 44	; located in Bank 0
ZV1	= 45	; located in Bank 0
ZV1_HI	= 46	; located in Bank 0
ZV1_FD	= 47	; located in Bank 0
S2	= 48	; located in Bank 0
S2_HI	= 49	; located in Bank 0
OS2_FD	= 50	; located in Bank 0
S3	= 51	; located in Bank 0
UA1RSFLAG	= 52	; located in Bank 0
UA1OUTBUF	= 53	; located in Bank 0
UA1OUTBUF1	= 54	; located in Bank 0
UA1OUTBUF2	= 55	; located in Bank 0
UA1OUTBUF3	= 56	; located in Bank 0
UA1OUTBUF4	= 57	; located in Bank 0
UA1OUTBUF5	= 58	; located in Bank 0
UA1OUTBUF6	= 59	; located in Bank 0
UA1OUTBUF7	= 60	; located in Bank 0
UA1OUTBUF8	= 61	; located in Bank 0
RAM	= 62	; located in Bank 0
SYS_TMP1	= 114	; located in Bank 0, 1, 2, 3
SYS_WSAV	= 115	; located in Bank 0, 1, 2, 3
SYS_SSAV	= 116	; located in Bank 0, 1, 2, 3
SYS_PSAV	= 117	; located in Bank 0, 1, 2, 3
SYS_FSAV	= 118	; 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
	MOVLW HIGH SYS_INIT	; set page
	MOVWF PCLATH
	GOTO SYS_INIT

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

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


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

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	INCFSZ TR1,F
	GOTO SYS_INT_LABEL_0
	INCF TR1_HI,F

SYS_INT_LABEL_0
NOTMR0INT

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


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

UA1CHKTX
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PIR1,TXIF	; send byte ?
	GOTO UA1ENDINT	; no

	MOVFW UA1OUTBUF+1	; all transmitted ? 
	BTFSC STATUS,ZERO
	GOTO UA1TXINT1

	ERRORLEVEL -312
	BANKISEL UA1OUTBUF	; FILE INDIREKT
	ERRORLEVEL +312

	MOVFW UA1OUTBUF	; pointer
	INCF UA1OUTBUF,F	; pointer+1
	MOVWF FSR
	MOVFW INDF	; data
	MOVWF TXREG	; Transmit Register

	DECF UA1OUTBUF+1,F	; length-1
	GOTO EXITINT	; that's all

UA1TXINT1
	BSF STATUS,RP0	; Bank 1
	BCF STATUS,RP1	; Bank 1
	BTFSS TXSTA,TRMT	; last byte transmitted ?
	GOTO EXITINT	; no

	BCF TXSTA,TXEN	; transmitter off

	BCF STATUS,RP0	; Bank 0
	BSF UA1RSFLAG,2	; ready
	GOTO EXITINT

UA1ENDINT

EXITINT
	MOVFW SYS_PSAV
	MOVWF PCLATH

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

	RETFIE


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

;***************************************************
; Read  -> AN0
;***************************************************

READ_AN0

	MOVLW B'100'
	BSF STATUS,RP0	; Bank 1
	BCF STATUS,RP1	; Bank 1
	MOVWF ADCON1
	BSF TRISA,0
	BSF ADCON1,ADFM	; Right-Justified

	MOVLW B'11000001'	; CH0
	BCF STATUS,RP0	; Bank 0
	MOVWF ADCON0
	MOVLW 5
	MOVWF SYS_TMP1

SYS_ADC_LABEL_0
	DECFSZ SYS_TMP1,F
	GOTO SYS_ADC_LABEL_0

	BSF ADCON0,GO	; Start convert

SYS_ADC_LABEL_1

	BTFSC ADCON0,GO	; ready ?
	GOTO SYS_ADC_LABEL_1	; no

	BSF STATUS,RP0	; Bank 1
	MOVFW ADRESL
	BCF STATUS,RP0	; Bank 0
	MOVWF ADC0
	MOVFW ADRESH
	MOVWF ADC0_HI


	MOVLW 6
	BSF STATUS,RP0	; Bank 1
	MOVWF ADCON1
	MOVLW B'11111111'
	MOVWF TRISA
	
	RETURN

;***************************************************
; Read  -> AN1
;***************************************************

READ_AN1

	MOVLW B'100'
	BSF STATUS,RP0	; Bank 1
	BCF STATUS,RP1	; Bank 1
	MOVWF ADCON1
	BSF TRISA,1
	BSF ADCON1,ADFM	; Right-Justified

	MOVLW B'11001001'	; CH1
	BCF STATUS,RP0	; Bank 0
	MOVWF ADCON0
	MOVLW 5
	MOVWF SYS_TMP1

SYS_ADC_LABEL_2
	DECFSZ SYS_TMP1,F
	GOTO SYS_ADC_LABEL_2

	BSF ADCON0,GO	; Start convert

SYS_ADC_LABEL_3

	BTFSC ADCON0,GO	; ready ?
	GOTO SYS_ADC_LABEL_3	; no

	BSF STATUS,RP0	; Bank 1
	MOVFW ADRESL
	BCF STATUS,RP0	; Bank 0
	MOVWF ADC1
	MOVFW ADRESH
	MOVWF ADC1_HI


	MOVLW 6
	BSF STATUS,RP0	; Bank 1
	MOVWF ADCON1
	MOVLW B'11111111'
	MOVWF TRISA
	
	RETURN


;****************************************
;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'00000000'
	MOVWF PORTB

	MOVLW B'01000000'
	MOVWF PORTC

	MOVLW B'00000000'
	MOVWF PORTD

	MOVLW B'00000000'
	MOVWF PORTE

	MOVLW 143
	BSF STATUS,RP0	; Bank 1
	MOVWF OPTION_REG

	MOVLW 6	; all Digital
	MOVWF ADCON1

; Richtung setzen

	MOVLW B'11111111'
	MOVWF TRISA

	MOVLW B'11111111'
	MOVWF TRISB

	MOVLW B'10111111'
	MOVWF TRISC

	MOVLW B'11111111'
	MOVWF TRISD

	MOVLW B'00000111'
	MOVWF TRISE

; 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 16
	MOVWF FSR
CR3
	CLRF INDF
	INCF FSR,F
	MOVLW H'70'
	SUBWF FSR,W
	BTFSS STATUS,ZERO
	GOTO CR3
	MOVLW 144
	MOVWF FSR
CR4
	CLRF INDF
	INCF FSR,F
	MOVLW H'F0'
	SUBWF FSR,W
	BTFSS STATUS,ZERO
	GOTO CR4


;*****************************************
; 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,TXIE	; enable INTERRUPT for transmit

	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

	CALL READ_AN0
	CALL READ_AN1
;***************************************************
;AF1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVFW ADC0_HI
	ADDLW HIGH 0
	MOVWF S0_HI
	MOVFW ADC0
	ADDLW LOW 0
	MOVWF S0
	BTFSC STATUS,CARRY
	INCF S0_HI,F

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

	MOVFW ADC1_HI
	ADDLW HIGH 0
	MOVWF S1_HI
	MOVFW ADC1
	ADDLW LOW 0
	MOVWF S1
	BTFSC STATUS,CARRY
	INCF S1_HI,F

LABEL_AF2_EXIT
;***************************************************
; Timer -> TR1
;***************************************************

	MOVLW 1	; Test auf >=
	SUBWF TR1_HI,W	;F-W -> W
	BTFSS STATUS,ZERO
	GOTO LABEL_TR1_CHECK
	MOVLW 135
	SUBWF TR1,W	;F-W -> W
LABEL_TR1_CHECK
	BTFSS STATUS,CARRY
	GOTO LABEL_TR1_ENDE

LABEL_TR1_RESET
	MOVLW 1	; Test auf >=
	SUBWF TR1_HI,F	;F-W -> F
	MOVLW 135
	SUBWF TR1,F	;F-W -> F
	BTFSS STATUS,CARRY
	DECF TR1_HI,F

LABEL_TR1_SET	; toggel output
	BTFSC S4,0
	GOTO LABEL_TR1_CLR
	BSF S4,0
	GOTO LABEL_TR1_ENDE
LABEL_TR1_CLR
	BCF S4,0
LABEL_TR1_ENDE

;***************************************************
; UND - Gatter -> LG1
;***************************************************

LABEL_LG1_1
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS S4,0
	GOTO LABEL_LG1_FALSE
LABEL_LG1_2
	BTFSS PORTB,0
	GOTO LABEL_LG1_FALSE

LABEL_LG1_TRUE
	BSF S4,2
	GOTO LABEL_LG1_ENDE
LABEL_LG1_FALSE
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BCF S4,2
LABEL_LG1_ENDE
;***************************************************
; One Shot -> OS1
;***************************************************


	BTFSC S4,0
	GOTO LABEL_OS1_1
	BTFSC OS1_FD,0
	GOTO LABEL_OS1_1
	BSF OS1_FD,0
	BSF S4,1
	GOTO LABEL_OS1_2
LABEL_OS1_1
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BCF S4,1
	BTFSS S4,0
	GOTO LABEL_OS1_2
	BCF OS1_FD,0
LABEL_OS1_2
;***************************************************
; Zähler -> ZV1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS S4,3	; Reset ?
	GOTO LABEL_ZV1_COUNT
	CLRF ZV1
	CLRF ZV1_HI
	GOTO LABEL_ZV1_SETOUT

LABEL_ZV1_COUNT

; Test auf positive Flanke

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS S4,2
	GOTO LABEL_ZV1_SETFD
	BTFSC ZV1_FD,0
	GOTO LABEL_ZV1_SETFD

	BSF ZV1_FD,0


	BTFSC S4,4	; Vorwärts oder Rückwärts ?
	GOTO LABEL_ZV1_BACKWARD

	INCFSZ ZV1,F
	GOTO LABEL_ZV1_SETOUT
	INCF ZV1_HI,F
	GOTO LABEL_ZV1_SETOUT

LABEL_ZV1_BACKWARD
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	DECF ZV1,F
	INCFSZ ZV1,W
	GOTO LABEL_ZV1_SETOUT
	DECF ZV1_HI,F

LABEL_ZV1_SETOUT


LABEL_ZV1_SETFD

; Test auf negative Flanke

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S4,2
	GOTO LABEL_ZV1_EXIT
	BCF ZV1_FD,0

LABEL_ZV1_EXIT

;***************************************************
; Multiplexer -> MX1
;***************************************************

	CLRF SYS_TMP1
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVFW S3
	BTFSS STATUS,ZERO
	GOTO LABEL_MX1_CHECKCONTROL1

	MOVFW S2
	MOVWF S2
	MOVFW S2_HI
	MOVWF S2_HI
	GOTO LABEL_MX1_END

LABEL_MX1_CHECKCONTROL1
	INCF SYS_TMP1,F
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVFW S3
	SUBWF SYS_TMP1,W
	BTFSS STATUS,ZERO
	GOTO LABEL_MX1_CHECKCONTROL2

	MOVFW ZV1
	MOVWF S2
	MOVFW ZV1_HI
	MOVWF S2_HI
	GOTO LABEL_MX1_END

LABEL_MX1_CHECKCONTROL2

LABEL_MX1_END

;***************************************************
; One Shot -> OS2
;***************************************************


	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S4,1
	GOTO LABEL_OS2_1
	BTFSC OS2_FD,0
	GOTO LABEL_OS2_1
	BSF OS2_FD,0
	BSF S4,3
	GOTO LABEL_OS2_2
LABEL_OS2_1
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BCF S4,3
	BTFSS S4,1
	GOTO LABEL_OS2_2
	BCF OS2_FD,0
LABEL_OS2_2
;***************************************************
; GND
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BCF S4,4	; immer Low

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

	MOVLW 0 
	BTFSC S4,1	; IN0
	IORLW 1
	MOVWF S3	; OUT

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

	BTFSC S4,5	; active
	GOTO LABEL_UD1_1	; yes

; test positive edge

	BTFSS S4,0
	GOTO LABEL_UD1_SETFD
	BTFSC UD1_FD,0
	GOTO LABEL_UD1_SETFD
	BSF UD1_FD,0

	BCF UA1RSFLAG,2		; set not ready
	BSF S4,5	; active

	MOVLW LOW UA1OUTBUF+2	; set pointer (ADRESS)
	MOVWF UA1OUTBUF
	MOVLW H'AA'	; init checksum
	MOVWF UA1OUTBUF+8
	MOVLW 7	; 7 bytes
	MOVWF UA1OUTBUF+1
	BCF INTCON,GIE	; disable interrupts
	BTFSC INTCON,GIE	; disabled ?
	GOTO $-2	; no
	MOVFW S0
	MOVWF UA1OUTBUF+2
	ADDWF UA1OUTBUF+8,F
	MOVFW S0_HI
	MOVWF UA1OUTBUF+3
	ADDWF UA1OUTBUF+8,F
	MOVFW S1
	MOVWF UA1OUTBUF+4
	ADDWF UA1OUTBUF+8,F
	MOVFW S1_HI
	MOVWF UA1OUTBUF+5
	ADDWF UA1OUTBUF+8,F
	MOVFW S2
	MOVWF UA1OUTBUF+6
	ADDWF UA1OUTBUF+8,F
	MOVFW S2_HI
	MOVWF UA1OUTBUF+7
	ADDWF UA1OUTBUF+8,F
	BSF STATUS,RP0	; Bank 1
	BSF TXSTA,TXEN
	BSF INTCON,GIE	; enable interrupts
LABEL_UD1_1
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS UA1RSFLAG,2	; transmit ready ?
	GOTO LABEL_UD1_2	; no
	BCF S4,5	; not active

LABEL_UD1_2

LABEL_UD1_SETFD

; test negative edge

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

LABEL_UD1_EXIT

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

	GOTO MAIN


	END