LIST P=16F871
 #INCLUDE "P16F871.INC"
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF
	CBLOCK	0x20
	T1
	A1
	ENDC
	
#INCLUDE "M_BANK.ASM"

	ORG	0
	

START
	BANK1
	MOVLW	D'0'
	MOVWF	TRISD
	MOVLW	D'1'
	MOVWF	TRISB
	BANK0
	CLRF	PORTD

MAIN
	BTFSC	PORTB,0
	GOTO	$-1
	MOVLW	D'10'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,0
	MOVLW	D'1'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,1
	MOVLW	D'1'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,2
	MOVLW	D'1'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,3
	MOVLW	D'1'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,4
	MOVLW	D'1'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,5
	MOVLW	D'1'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,6
	MOVLW	D'1'
	CALL	DELAY
	BTFSC	PORTB,0
	BSF		A1,7
	MOVF	A1,0
	MOVWF	PORTD
	MOVLW	D'35'
	CALL	DELAY
	CLRF	A1
	CLRF	PORTD
	GOTO	MAIN	

DELAY		
	MOVWF	T1
WAITMS
	MOVLW	D'249'
	ADDLW	-1
	BTFSS	STATUS,Z
	GOTO	$-2
	DECFSZ	 T1
	GOTO	WAITMS
	RETURN



	END