; Source created with Parsic Version 3.x

; at              : 2013.07.18. 15:41:58


; Project File    : D:\DOCUME~1\ANDI\ASZTAL\JMAPPA~1\egyszeru.PIC

; Project Version : 1.0.0

; Created         : 2013.07.15. 17:34:00

; Last change     : 2013.07.15. 17:45:00

	PROCESSOR 16F628

	INCLUDE P16F628.INC

	RADIX DEC


	__IDLOCS H'0100'

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

; Diverses

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


; Variable

MF1	= 32	; located in Bank 0
MF1_HI	= 33	; located in Bank 0
MF2	= 34	; located in Bank 0
MF2_HI	= 35	; located in Bank 0
MF3	= 36	; located in Bank 0
MF3_HI	= 37	; located in Bank 0
TR1	= 38	; located in Bank 0
TR1_HI	= 39	; located in Bank 0
RAM	= 40	; located in Bank 0
SYS_WSAV	= 112	; located in Bank 0, 1, 2, 3
SYS_SSAV	= 113	; 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

	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
	INCFSZ MF2,F
	GOTO SYS_INT_LABEL_1
	INCF MF2_HI,F

SYS_INT_LABEL_1
	INCFSZ MF3,F
	GOTO SYS_INT_LABEL_2
	INCF MF3_HI,F

SYS_INT_LABEL_2
	INCFSZ TR1,F
	GOTO SYS_INT_LABEL_3
	INCF TR1_HI,F

SYS_INT_LABEL_3

EXITINT

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

	MOVLW 15
	BSF STATUS,RP0	; Bank 1
	MOVWF OPTION_REG


; Richtung setzen

	MOVLW B'11011100'
	MOVWF TRISA

	MOVLW B'11110111'
	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


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

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

MAIN

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

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PORTA,2	; Eingang auf High ?
	GOTO LABEL_MF1_CHKTIME	; Nein

; RESET

	CLRF MF1
	CLRF MF1_HI
	BSF PORTA,1
	GOTO LABEL_MF1_EXIT	; raus

LABEL_MF1_CHKTIME

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PORTA,1	; Ausgang schon auf Low ?
	GOTO LABEL_MF1_EXIT	; Ja

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

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

	BCF PORTA,1
LABEL_MF1_EXIT

;***************************************************
; Abfall-Verzögerung -> MF2
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PORTA,3	; Eingang auf High ?
	GOTO LABEL_MF2_CHKTIME	; Nein

; RESET

	CLRF MF2
	CLRF MF2_HI
	BSF PORTA,0
	GOTO LABEL_MF2_EXIT	; raus

LABEL_MF2_CHKTIME

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PORTA,0	; Ausgang schon auf Low ?
	GOTO LABEL_MF2_EXIT	; Ja

	MOVLW 30
	SUBWF MF2_HI,W
	BTFSS STATUS,CARRY
	GOTO LABEL_MF2_EXIT

	MOVLW 132
	SUBWF MF2,W
	BTFSS STATUS,CARRY
	GOTO LABEL_MF2_EXIT

	BCF PORTA,0
LABEL_MF2_EXIT

;***************************************************
; Abfall-Verzögerung -> MF3
;***************************************************

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PORTA,4	; Eingang auf High ?
	GOTO LABEL_MF3_CHKTIME	; Nein

; RESET

	CLRF MF3
	CLRF MF3_HI
	BSF PORTA,5
	GOTO LABEL_MF3_EXIT	; raus

LABEL_MF3_CHKTIME

	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	BTFSS PORTA,5	; Ausgang schon auf Low ?
	GOTO LABEL_MF3_EXIT	; Ja

	MOVLW 61
	SUBWF MF3_HI,W
	BTFSS STATUS,CARRY
	GOTO LABEL_MF3_EXIT

	MOVLW 9
	SUBWF MF3,W
	BTFSS STATUS,CARRY
	GOTO LABEL_MF3_EXIT

	BCF PORTA,5
LABEL_MF3_EXIT

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

	MOVLW 4	; Test auf >=
	BCF STATUS,RP0	; Bank 0
	BCF STATUS,RP1	; Bank 0
	SUBWF TR1_HI,W	;F-W -> W
	BTFSS STATUS,ZERO
	GOTO LABEL_TR1_CHECK
	MOVLW 148
	SUBWF TR1,W	;F-W -> W
LABEL_TR1_CHECK
	BTFSS STATUS,CARRY
	GOTO LABEL_TR1_ENDE

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

LABEL_TR1_SET	; toggel output
	BTFSC PORTB,3
	GOTO LABEL_TR1_CLR
	BSF PORTB,3
	GOTO LABEL_TR1_ENDE
LABEL_TR1_CLR
	BCF PORTB,3
LABEL_TR1_ENDE

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

	GOTO MAIN


	END