list p=16f628a
 	
	include p16f628a.inc
	
	__CONFIG _CP_OFF & _WDT_OFF & _XT_OSC & _PWRTE_OFF & _BODEN_OFF& _LVP_OFF &_MCLRE_OFF

			
  	   CBLOCK 0x20
        I1
        I2
        ENDC

        ORG 0
        
        
START

        BSF      STATUS,RP0 ;BANK1
        MOVLW    B'00000011'			;BEMENET
        MOVWF    TRISA
        MOVLW    B'00000000'			;KIMENET
        MOVWF    TRISB
        BCF      STATUS,RP0 ;BANK0

		MOVLW 7
		MOVWF CMCON
		
VISSZA
	
IDE
	 	
  		MOVLW	b'11101011'		;1	 ;b'11110111' kimeneti bitek a nulla felvillan
		MOVWF	PORTB
		BTFSC	PORTA,0			;
		CALL	MOST

			
	    MOVLW 	b'10001100' 	;2                  
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST

		
		MOVLW 	b'00011100'		;3
		MOVWF	PORTB 
		BTFSC	PORTA,0
		CALL	MOST

		MOVLW	b'00111010'		;4
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST


		MOVLW 	b'00011001'     ;5            
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST

	
		MOVLW	b'00001001'		;6
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST
		BTFSC 	PORTA,1	
		GOTO	IDE	
		
		
		MOVLW	b'01111100'		;7
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST
		
	
		MOVLW	b'00000000'	
		MOVWF	PORTB			;8
		BTFSC	PORTA,0
		CALL	MOST
		
	
		MOVLW	b'00010000'		;9
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST
		
		
		MOVLW	b'00000000'		;10
		MOVWF	PORTA
		MOVLW	b'01001000'
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST
		CLRF	F
		MOVWF	PORTA

		
		
		MOVLW	b'00000000'		;11
		MOVWF	PORTA
		MOVLW	b'11101011'
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST
		CLRF	F
		MOVWF	PORTA

		
		MOVLW	b'00000000'		;12
		MOVWF	PORTA
		MOVLW	b'10001100'
		MOVWF	PORTB
		BTFSC	PORTA,0
		CALL	MOST
		CLRF	F
		MOVWF	PORTA
		
		GOTO	VISSZA
		
MOST
		BTFSC	PORTA,0
		CALL	DELAY
		
			
		
DELAY	MOVLW	d'20'			;T
		MOVWF	I1
DEL		MOVLW	d'255'
		MOVWF	I2	
DEL1	NOP
		NOP
		NOP
		NOP
		NOP
		NOP
		NOP
		DECFSZ	I2,f
		GOTO	DEL1
		DECFSZ	I1,f
		GOTO	DEL
		BTFSC	PORTA,0
		GOTO	DELAY
		RETURN
	            
	
 		END