rendered paste body;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