list p=16F84A ; list directive to define processor
#include "p16F84A.inc" ; processor specific variable definitions

__CONFIG _XT_OSC&_CP_OFF&_WDT_OFF
CBLOCK 0x0C
T1
T2
ENDC

ORG 0 
GOTO INIT

ORG 4
GOTO MEGSZAKITAS


MEGSZAKITAS
; ide jön a megszakitá kiszolgálása!!!
RETFIE

INIT:
BSF STATUS,RP0 ;BANK1
MOVLW B'00011111'
MOVWF TRISA
MOVLW B'00000000'
MOVWF TRISB
BCF STATUS,RP0 ;BANK0

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'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

GOTO VISSZA

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