LIST P=16F84A 
 #INCLUDE "P16F84A.INC" 
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF 
        CBLOCK 0x0C 
        T1 
        T2 
        ENDC 

        ORG    0 
START   BSF    STATUS,RP0 ;BANK1 
        
	MOVLW  B'00000000' 
        MOVWF  TRISA 
        MOVWF  TRISB 
        BCF    STATUS,RP0 ;BANK0 
VISSZA: 
;	movlw	B'00000000'		routine to put spaces between the letters
;	call 	delay
;	movlw	B'00000000'
;	movwf	portb
;	movlw	B'00000000'

	
	
	call 	delay			; Smile
	movlw	B'10111101'
	movwf	portb
	movlw	B'00001'
	movwf	porta	
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile
	movlw	B'01011010'
	movwf	portb
	movlw	B'00001'
	movwf	porta	
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile
	movlw	B'01111110'
	movwf	portb
	movlw	B'00001'
	movwf	porta
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile
	movlw	B'01011010'
	movwf	portb
	movlw	B'00001'
	movwf	porta	
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile
	movlw	B'01100110'
	movwf	portb
	movlw	B'00001'
	movwf	porta	
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile
	movlw	B'10111101'
	movwf	portb
	movlw	B'00001'
	movwf	porta	
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile
	movlw	B'11000011'
	movwf	portb
	movlw	B'00001'
	movwf	porta	
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile
	movlw	B'11000011'
	movwf	portb
	movlw	B'00001'
	movwf	porta	
	movlw	B'00000'
	movwf	porta
	call 	delay			; Smile


        GOTO     VISSZA
DELAY:  MOVLW    d'15' 
        MOVWF    T1 
DEL:    MOVLW    d'15' 
        MOVWF    T2 
DEL1:   NOP 
        NOP 
        NOP 
        NOP 
        NOP 
        NOP 
        NOP 
        NOP 
        DECFSZ   T2,f 
        GOTO     DEL1 
        DECFSZ   T1,f 
        GOTO     DEL 
        RETURN 
        END