;Programm siebensegment

	list		p=16F84A			
	include		p16F84A.inc
	__CONFIG	_CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
	
;----------------------Registerzuweisung------------------------------
w_copy	equ h'20'
s_copy	equ	h'21'

	org	00
	goto	init
	
	org	04

push
	movwf	w_copy
	swapf	STATUS,W
	movwf	s_copy
	
	incf	PORTA,F

pull
	bcf		INTCON,INTF
	swapf	s_copy,W
	movwf	STATUS
	swapf	w_copy,F
	swapf	w_copy,W
	retfie

init
	clrf	PORTA
	bsf		STATUS,RP0
	movlw	b'11111110'
	movwf	TRISA
	bcf		STATUS,RP0
	
	bsf		STATUS,RP0
	bsf		OPTION_REG,INTEDG
	bcf		STATUS,RP0
	bsf		INTCON,INTE
	bsf		INTCON,GIE
	
	sleep
	
	end