LIST	P=16F877;
	#include "P16F877.INC"
	__CONFIG   _CP_OFF & _WDT_OFF & _XT_OSC
	ORG	0X00
BAS	NOP
ser1	equ	0x40
ser2	equ	0x50
ser3	equ	0x60
SIFRE	EQU	0x20
	movlw	B'01000001'
	movwf	0x20
;------------------------------------------
	
	BSF		STATUS,RP0
	MOVLW	B'11111111'
	MOVWF	TRISB
	MOVWF	TRISD
	CLRW
	MOVLW	H'06'
	MOVWF	ADCON1
	CLRF		TRISC
	CLRF		TRISA
	CLRF		TRISE
	BCF		STATUS,RP0
	BSF		PORTA,1;sifreyi girin ledi
	CLRF		PORTB
	CLRF		PORTC
	CLRF		PORTD
;------------------------------------------
BRK	CLRW
	CLRF		PORTD
	MOVF		PORTD,0
	SUBWF		SIFRE,0
	BTFSS		STATUS,2
	GOTO		BRK
	CLRW
	BCF		PORTA,1
	BSF		PORTA,2;sifre dogru  ve sistem calısıyor ledi
;....................................
	movlw	h'70'
	movwf	ser3
ac	movlw	h'70'
	movwf	ser2
ab	movlw	h'70'
	movwf	ser1
aa	decfsz	ser1,1
	goto	aa
	decfsz	ser2,1
	goto	ab
	decfsz	ser3,1
	goto	ac
;...................................
	
YYY	BTFSC		PORTB,0
	GOTO		XXA
	BTFSC		PORTB,1
	GOTO		XXB
	BTFSC		PORTB,2
	GOTO		XXC
	BTFSC		PORTB,3
	GOTO		XXD
	BTFSC		PORTB,4
	GOTO		XXE
	BTFSC		PORTB,5
	GOTO		XXF
	BTFSC		PORTB,6
	GOTO		XXG
	BTFSC		PORTB,7
	GOTO		XXH
	CLRF		PORTD
	CLRW
	MOVF		PORTD,0
	SUBWF		SIFRE,0
	BTFSS		STATUS,2
	GOTO		YYY
	CLRW
	BCF		PORTA,2
	BSF		PORTA,3;sistem durduruldu ledi
;....................................
	movlw	h'70'
	movwf	ser3
ac1	movlw	h'70'
	movwf	ser2
ab1	movlw	h'70'
	movwf	ser1
aa1	decfsz	ser1,1
	goto	aa1
	decfsz	ser2,1
	goto	ab1
	decfsz	ser3,1
	goto	ac1
	BCF	PORTA,3
;...................................
	GOTO		BAS
XXA	CLRF		PORTC
	CLRW
	MOVLW	B'00000110'
	MOVWF	PORTC
	GOTO		AAA
XXB	CLRF		PORTC
	CLRW
	MOVLW	B'01011011'
	MOVWF	PORTC
	GOTO		AAA
XXC	CLRF		PORTC
	CLRW
	MOVLW	B'01001111'
	MOVWF	PORTC
	GOTO		AAA
XXD	CLRF		PORTC
	CLRW
	MOVLW	B'01100110'
	MOVWF	PORTC
	GOTO		AAA
XXE	CLRF		PORTC
	CLRW
	MOVLW	B'01101101'
	MOVWF	PORTC
	GOTO		AAA
XXF	CLRF		PORTC
	CLRW
	MOVLW	B'01111101'
	MOVWF	PORTC
	GOTO		AAA
XXG	CLRF		PORTC
	CLRW
	MOVLW	B'00000111'
	MOVWF	PORTC
	GOTO		AAA
XXH	CLRF		PORTC
	CLRW
	MOVLW	B'01111111'
	MOVWF	PORTC
	GOTO		AAA
AAA	CLRF		PORTA
	CLRF		PORTD
	BSF		PORTA,0;alarm ledi
	MOVF		PORTD,0
	SUBWF		SIFRE,0
	BTFSS		STATUS,2
	GOTO		AAA
	BCF		PORTA,0; alarm durdurulunca söner 
	CLRF		PORTC
	CLRW
;................................
	movlw	h'70'
	movwf	ser3
ac2	movlw	h'70'
	movwf	ser2
ab2	movlw	h'70'
	movwf	ser1
aa2	decfsz	ser1,1
	goto	aa2
	decfsz	ser2,1
	goto	ab2
	decfsz	ser3,1
	goto	ac2
;....................................
	GOTO	BAS
	END