grabar pic

Grabar en el PIC 16F84A el siguiente programa:
; PROGRAMA PIC/HHB
; CONTROL DE SCR/TRIAC/PUENTE MIXTO CON PIC 16F84A

List p=16F84A
Include `pic16F84A.inc
TIME EQU 0X20
TIME EQU 0X21TIME EQU 0X31
0RG 0X00
goto inicio
Inicio org 0x10
; configurar la PUERTA B como salida
call banco1
bcf TRISB,4 ;coloca 0 en bit 4, RB4=salida
call banco 0
bcf PORTB,4 ; coloca 0 en bit 4, RB4=0
; con figurar la interrupción
call banco1bcf OPTION_REG, INTEDG; coloca 0 en INTEDG, reg OPTION
call banco0
programa
mov1w 0x00 ; w=0000 0000
movwf TIME1 ; TIME=0000 0000
progra1btfss INTCON, INTF ; explora INTF, salta si es 1
go to progra1
bcf INTCON, INTF ; coloca 0 en INTF (limpia)
call variacall disparo
call down
call up
call progra1
; subrutinas de los pulsadores UP y DOWN
down btfss PORTB,2 ; explora RB2, salta si es 1
go to saltu1
incf TIME1, 1 ; increm TIME1 y lo deposita en TIME1
bcf STATUS, C ; coloca 0 en C regSTATUS, C=acarreo=0
mov1w 0x20 ; w=0010 00000=32
addwf TIME1, 0 ; suma w+TIME1=w
btfss STATUS, C ; explora C reg STATUS, salta si es 1go to saltu1
mov1w 0XD7 ; w=1101 0111=215
movwf TIME1 ; TIME1=1101 0111=215
saltu1 return
up btfss PORTB, 3 ; exploraRB3, salta si es 1
go to saltu3
decf TIME1, 1 ; decrem TIME1 y lo almacena en TIME1
dcf STATUS, C ; coloca 0 en C (acarreo) reg STATUS...