#INCLUDE "P16F628A.INC" 
 
       ;CBLOCK 0x0C 
       ; T1 
       ; T2 
       ; ENDC 

		GOTO     H'0004'         
		ORG      4
        
START   CLRF     PORTA
		MOVLW    H'07'
		MOVWF 	 CMCON
		BCF 	 STATUS, RP1
		BSF      STATUS,RP0 ;BANK1 
		
        MOVLW    B'11110000'
        MOVWF    TRISA 
        MOVLW    B'00000000' 
        MOVWF    TRISB 
        BCF      STATUS,RP0 ;BANK0 
		
        movlw    B'00000001'
		movwf    PORTA

VISSZA:  MOVLW    B'10000000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'01000000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00100000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00010000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00001000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000100' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000010' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000001' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000001' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000010' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000100' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00001000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00010000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00100000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'01000000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'10000000' 
         MOVWF    PORTB 
         CALL     DELAY 
         MOVLW    B'00000000' 
         MOVWF    PORTB 
         CALL     DELAY 
         GOTO     VISSZA 

DELAY:   MOVLW    d'150' 
         MOVWF    H'30' 
DEL:     MOVLW    d'255' 
         MOVWF    H'31' 
DEL1:    NOP 
         NOP 
         NOP 
         NOP 
         NOP 
         NOP 
         NOP 
         NOP 
         DECFSZ   H'31',f 
         GOTO     DEL1 
         DECFSZ   H'30',f 
         GOTO     DEL 
         RETURN 
         END