; Source created with Parsic Version 3.x

; at              : 2008.11.02. 15:47:45


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

; Project Version : 1.0.5

; Created         : 2008.11.02. 15:13:19

; Last change     : 2008.11.02. 15:47:43

	PROCESSOR 16F876

	INCLUDE P16F876.INC

	RADIX DEC


	__IDLOCS H'0100'

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

; Diverses

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


; Variable

ZV1	= 32	; located in Bank 0
EE1_FD	= 33	; located in Bank 0
ADC0	= 34	; located in Bank 0
S0	= 35	; located in Bank 0
S1	= 36	; located in Bank 0
S3	= 37	; located in Bank 0
S2	= 38	; located in Bank 0
ZV1_FD	= 39	; located in Bank 0
S4	= 40	; located in Bank 0
OS1_FD	= 41	; located in Bank 0
RAM	= 42	; located in Bank 0
SYS_TMP1	= 114	; located in Bank 0, 1, 2, 3
SYS_TMP2	= 115	; located in Bank 0, 1, 2, 3
SYS_TMP3	= 116	; located in Bank 0, 1, 2, 3
SYS_TMP4	= 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
	RETURN

;****************************************
; Division 8 - Bit
;****************************************

SYSDIV8
	MOVF SYS_TMP2,F
	BTFSC STATUS,ZERO
	GOTO SYSDIV8_ERROR
	CLRF SYS_TMP3	; Ergebnis löschen
	MOVLW 1
	MOVWF SYS_TMP4

SYSDIV8_0
	BTFSC SYS_TMP2,7	; OP2 linksbündig
	GOTO SYSDIV8_1
	INCF SYS_TMP4,F
	BCF STATUS,CARRY
	RLF SYS_TMP2,F
	GOTO SYSDIV8_0

SYSDIV8_1
	MOVFW SYS_TMP2	; vergleichen
	SUBWF SYS_TMP1,F	; F-W -> W

	BTFSC STATUS,CARRY
	GOTO SYSDIV8_2
	ADDWF SYS_TMP1,F	; F+W -> F
	BCF STATUS,CARRY

SYSDIV8_2
	RLF SYS_TMP3,F
	RRF SYS_TMP2,F
	DECFSZ SYS_TMP4,F
	GOTO SYSDIV8_1

	RETURN

SYSDIV8_ERROR
	MOVLW 255
	MOVWF SYS_TMP3
	RETURN

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

;****************************************
; Direct jump into a table
;****************************************

SYSTABJMP
	BCF INTCON,GIE
	BTFSC INTCON,GIE
	GOTO SYSTABJMP
	MOVFW SYS_TMP2
	MOVWF PCLATH
	MOVFW SYS_TMP1
	MOVWF PCL
;***************************************************
; Read  -> AN0
;***************************************************

READ_AN0

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

	MOVLW B'11000001'	; CH0
	BCF STATUS,RP0	; Bank 0
	MOVWF ADCON0
	MOVLW 50
	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

	MOVFW ADRESH	; Only the 8 most significant bits
	MOVWF ADC0

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


EEINT_WRITE
	MOVFW INDF
EEINT_WRITE_0
	BCF STATUS,RP0	; Bank 2
	BSF STATUS,RP1	; Bank 2
	MOVWF EEDATA
	BSF STATUS,RP0	; Bank 3
	BSF EECON1,WREN

EEINT_DISINT
	BCF INTCON,GIE
	BTFSC INTCON,GIE
	GOTO EEINT_DISINT

	MOVLW H'55'
	MOVWF EECON2
	MOVLW H'AA'
	MOVWF EECON2
	BSF EECON1,WR	; start write

	BSF INTCON,GIE

EEINT_WRITE_1
	CLRWDT
	BTFSC EECON1,WR	; ready ?
	GOTO EEINT_WRITE_1	; no
	BCF EECON1,WREN

	BCF STATUS,RP0	; Bank 2
	INCF EEADR,F
	INCF FSR,F
	DECFSZ SYS_TMP1,F
	GOTO EEINT_WRITE

	RETURN

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

EEINT_READ
	BSF STATUS,RP0	; Bank 3
	BSF STATUS,RP1	; Bank 3
	BSF EECON1,RD
	BCF STATUS,RP0	; Bank 2
	MOVFW EEDATA
	MOVWF INDF
	INCF EEADR,F
	INCF FSR,F
	DECFSZ SYS_TMP1,F
	GOTO EEINT_READ
	RETURN

;***************************************************
; EE-Modul -> EE1
;***************************************************

WRITE_EE1
	BSF STATUS,RP0	; Bank 3
	BSF STATUS,RP1	; Bank 3
	BCF EECON1,EEPGD
	BCF STATUS,RP0	; Bank 2
	CLRF EEADRH
	MOVLW 0
	MOVWF EEADR

	BCF STATUS,IRP	; vars - located in Bank 0
	MOVLW 1
	MOVWF SYS_TMP1
	MOVLW LOW ZV1
	MOVWF FSR

	CALL EEINT_WRITE


	RETURN

;***************************************************
; EE-Modul -> EE1
;***************************************************

READ_EE1
	MOVLW 0
	BCF STATUS,RP0	; Bank 2
	BSF STATUS,RP1	; Bank 2
	MOVWF EEADR
	CLRF EEADRH
	BSF STATUS,RP0	; Bank 3
	BCF EECON1,EEPGD

	BCF STATUS,IRP	; vars - located in Bank 0
	MOVLW 1
	MOVWF SYS_TMP1
	MOVLW LOW ZV1
	MOVWF FSR

	CALL EEINT_READ


	RETURN

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

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


SYS_INIT

	MOVLW B'00000000'
	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'00000000'
	MOVWF PORTC

	MOVLW 15
	BSF STATUS,RP0	; Bank 1
	MOVWF OPTION_REG

	MOVLW 6	; all Digital
	MOVWF ADCON1

; Richtung setzen

	MOVLW B'11111111'
	MOVWF TRISA

	MOVLW B'00000000'
	MOVWF TRISB

	MOVLW B'11111111'
	MOVWF TRISC

; 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



	CALL READ_EE1	; read vars from internal EE


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

MAIN

	CLRWDT

	CALL READ_AN0
;***************************************************
; Verteiler -> BV1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S2,0
	GOTO LABEL_BV1_0
	BCF PORTB,0
	GOTO LABEL_BV1_0_END
LABEL_BV1_0
	BSF PORTB,0
LABEL_BV1_0_END

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

	BTFSC S2,1
	GOTO LABEL_BV1_1
	BCF PORTB,1
	GOTO LABEL_BV1_1_END
LABEL_BV1_1
	BSF PORTB,1
LABEL_BV1_1_END

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

	BTFSC S2,2
	GOTO LABEL_BV1_2
	BCF PORTB,2
	GOTO LABEL_BV1_2_END
LABEL_BV1_2
	BSF PORTB,2
LABEL_BV1_2_END

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

	BTFSC S2,3
	GOTO LABEL_BV1_3
	BCF PORTB,3
	GOTO LABEL_BV1_3_END
LABEL_BV1_3
	BSF PORTB,3
LABEL_BV1_3_END

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

	BTFSC S2,4
	GOTO LABEL_BV1_4
	BCF PORTB,4
	GOTO LABEL_BV1_4_END
LABEL_BV1_4
	BSF PORTB,4
LABEL_BV1_4_END

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

	BTFSC S2,5
	GOTO LABEL_BV1_5
	BCF PORTB,5
	GOTO LABEL_BV1_5_END
LABEL_BV1_5
	BSF PORTB,5
LABEL_BV1_5_END

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

	BTFSC S2,6
	GOTO LABEL_BV1_6
	BCF PORTB,6
	GOTO LABEL_BV1_6_END
LABEL_BV1_6
	BSF PORTB,6
LABEL_BV1_6_END

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

	BTFSC S2,7
	GOTO LABEL_BV1_7
	BCF PORTB,7
	GOTO LABEL_BV1_7_END
LABEL_BV1_7
	BSF PORTB,7
LABEL_BV1_7_END

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


;***************************************************
; Call subroutine TAB1
;***************************************************


	MOVLW LOW TAB1
	MOVWF SYS_TMP1
	MOVLW HIGH TAB1
	MOVWF SYS_TMP2

	MOVFW S1
	ADDWF SYS_TMP1,F
	BTFSC STATUS,CARRY
	INCF SYS_TMP2,F

	MOVLW HIGH SYSTABJMP	; set page
	MOVWF PCLATH
	CALL SYSTABJMP

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVWF S0

	BSF INTCON,GIE
	BCF PCLATH,3	; Page 0
	BCF PCLATH,4	; Page 0
;***************************************************
;AF1
;***************************************************

	MOVFW ADC0
	MOVWF SYS_TMP1
	MOVLW 32
	MOVWF SYS_TMP2
	MOVLW HIGH SYSDIV8
	MOVWF PCLATH
	CALL SYSDIV8
	MOVLW HIGH LABEL_AF1
	MOVWF PCLATH
LABEL_AF1
	MOVFW SYS_TMP3
	MOVWF S1

LABEL_AF1_EXIT
;***************************************************
; Call subroutine TAB2
;***************************************************


	MOVLW LOW TAB2
	MOVWF SYS_TMP1
	MOVLW HIGH TAB2
	MOVWF SYS_TMP2

	MOVFW S1
	ADDWF SYS_TMP1,F
	BTFSC STATUS,CARRY
	INCF SYS_TMP2,F

	MOVLW HIGH SYSTABJMP	; set page
	MOVWF PCLATH
	CALL SYSTABJMP

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	MOVWF S3

	BSF INTCON,GIE
	BCF PCLATH,3	; Page 0
	BCF PCLATH,4	; Page 0
;***************************************************
; Multiplexer -> MX1
;***************************************************

	CLRF SYS_TMP1
	MOVFW ZV1
	BTFSS STATUS,ZERO
	GOTO LABEL_MX1_CHECKCONTROL1

	MOVFW ADC0
	MOVWF S2
	GOTO LABEL_MX1_END

LABEL_MX1_CHECKCONTROL1
	INCF SYS_TMP1,F
	MOVFW ZV1
	SUBWF SYS_TMP1,W
	BTFSS STATUS,ZERO
	GOTO LABEL_MX1_CHECKCONTROL2

	MOVFW S0
	MOVWF S2
	GOTO LABEL_MX1_END

LABEL_MX1_CHECKCONTROL2
	INCF SYS_TMP1,F
	MOVFW ZV1
	SUBWF SYS_TMP1,W
	BTFSS STATUS,ZERO
	GOTO LABEL_MX1_CHECKCONTROL3

	MOVFW S3
	MOVWF S2
	GOTO LABEL_MX1_END

LABEL_MX1_CHECKCONTROL3

LABEL_MX1_END

;***************************************************
; Zähler -> ZV1
;***************************************************

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

LABEL_ZV1_COUNT

; Test auf positive Flanke

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

	BSF ZV1_FD,0


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

	INCF ZV1,F
	GOTO LABEL_ZV1_SETOUT

LABEL_ZV1_BACKWARD
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	DECF ZV1,F

LABEL_ZV1_SETOUT


LABEL_ZV1_SETFD

; Test auf negative Flanke

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

LABEL_ZV1_EXIT

;***************************************************
; Schmitt-Trigger 8-Bit -> ST1
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSC S4,0	; Ausgang gesetzt ?
	GOTO LABEL_ST1_MH	; dann mit Hysterese ?

	MOVLW 3
	GOTO LABEL_ST1_TEST

LABEL_ST1_MH

	MOVLW 3
LABEL_ST1_TEST

	SUBWF ZV1,W
	BTFSS STATUS,CARRY
	GOTO LABEL_ST1_RESET

	BSF S4,0	; if greater or equal
	GOTO LABEL_ST1_ENDE

LABEL_ST1_RESET
	BCF S4,0	; if less
LABEL_ST1_ENDE

;***************************************************
; One Shot -> OS1
;***************************************************


	BTFSC PORTA,2
	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 PORTA,2
	GOTO LABEL_OS1_2
	BCF OS1_FD,0
LABEL_OS1_2
;***************************************************
; GND
;***************************************************

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

;***************************************************
; EE-Modul -> EE1
;***************************************************


; Test of falling edge

	BTFSC S4,1
	GOTO LABEL_EE1_SETFD
	BTFSS EE1_FD,0
	GOTO LABEL_EE1_SETFD
	BCF EE1_FD,0

	MOVLW HIGH WRITE_EE1
	MOVWF PCLATH

	CALL WRITE_EE1
	MOVLW HIGH LABEL_EE1_SETFD
	MOVWF PCLATH

LABEL_EE1_SETFD

; test input

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS S4,1
	GOTO LABEL_EE1_EXIT
	BSF EE1_FD,0

LABEL_EE1_EXIT

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

	GOTO MAIN

;***************************************************
; Table -> TAB1
;***************************************************

TAB1

	RETLW 1	; // INDEX 0
	RETLW 3	; // INDEX 1
	RETLW 7	; // INDEX 2
	RETLW 15	; // INDEX 3
	RETLW 31	; // INDEX 4
	RETLW 63	; // INDEX 5
	RETLW 127	; // INDEX 6
	RETLW 255	; // INDEX 7
	RETLW 8	; // INDEX 8

;***************************************************
; Table -> TAB2
;***************************************************

TAB2

	RETLW 1	; // INDEX 0
	RETLW 2	; // INDEX 1
	RETLW 4	; // INDEX 2
	RETLW 8	; // INDEX 3
	RETLW 16	; // INDEX 4
	RETLW 32	; // INDEX 5
	RETLW 64	; // INDEX 6
	RETLW 128	; // INDEX 7
	RETLW 8	; // INDEX 8

	ORG H'2100'

	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

	END