Imprimir Página - EL TIMER0 OTRA VEZ

HOLA

GRACIAS antoniof Y fenix POR SU AYUDA VOY A PROBAR EL CODIGO QUE ME ENVIARON PARA VER COMO FUNCIONA.

DE TODAS MANERAS ENVIO EL CODIGO QUE ESTOY USANDO PARA HACER LAS PRUEBAS, ASI PODRAN ENTENDER MEJOR LO QUE ESTOY HACIENDO.

GRACIAS

;   CONTROL TEMPERATURA
   __CONFIG _CP_OFF & _WDT_OFF & _PWRTE_OFF & _XT_OSC & _LVP_OFF
   list   p=16f870
   #include p16f870.inc
;------------------------------------------------
ADCON1      EQU 9FH      ;REGISTRO CONFIGURACION A/D
STATUS      EQU 03H      ;REGISTRO ESTADO
SONDA11      EQU 21H      ;REGISTRO PARA SONDA1 UNIDAD
SONDA12      EQU 22H      ;REGISTRO PARA SONDA1 DECENA
SONDA13      EQU 23H      ;REGISTRO PARA SONDA1 CENTENA
SONDA21      EQU 24H      ;REGISTRO PARA SONDA2 UNIDAD
SONDA22      EQU 25H      ;REGISTRO PARA SONDA2 DECENA
SONDA23      EQU 26H      ;REGISTRO PARA SONDA2 CENTENA
TEMP      EQU 27H      ;REGISTRO PARA RETARDO
TEMP2      EQU 28H      ;REGISTRO PARA RETARDO
TEMP3      EQU 29H      ;REGISTRO PARA RETARDO
TEMP4      EQU 2AH      ;REGISTRO PARA RETARDO
BYTEH      EQU 2BH      ;REGISTRO PARA BYTE ALTO
UNIDAD      EQU 2CH      ;REGISTRO PARA BCD
DECENA      EQU 2DH      ;REGISTRO PARA BCD
CENTENA      EQU 2EH      ;REGISTRO PARA BCD
SETPOINT   EQU 2FH      ;REGISTRO PARA PUNTO DE CONTROL
SETP2      EQU 30H      ;REGISTRO PARA PUNTO DE COMPARACION
SETP3      EQU 31H      ;REGISTRO PARA COMODIN DE COMPARACION
COMUN      EQU 32H      ;REGISTRO PARA COMODIN UNIDADES
COMDE      EQU 33H      ;REGISTRO PARA COMODIN DECENAS
COMCE      EQU 34H      ;REGISTRO PARA COMODIN CENTENAS
DATOP      EQU 35H      ;REGISTRO PARA PUERTO
DATOP2      EQU 36H      ;REGISTRO PARA LLEVAR DATO AL PUERTO
RETMI1      EQU 37H      ;REGISTRO PARA RETARDO VISUALIZACION
RETMI2      EQU 38H      ;REGISTRO PARA RETARDO VISUALIZACION
SIGNO      EQU 39H      ;REGISTRO PARA SIGNO DE CANTIDAD NEGATIVA
TEMSETP      EQU 3AH      ;REGISTRO PARA TIEMPO DEL SETPOINT
COMPARA      EQU 3BH      ;REGISTRO PARA COMPARAR CON DATO DE CONTROL
FUNXMEM      EQU 3CH      ;REGISTRO FUNCION X
CONAL      EQU 3DH      ;REGISTRO CONTROL ALTO HISTERESIS
CONBA      EQU 3EH      ;REGISTRO CONTROL BAJO HISTERESIS
NUME99      EQU 3FH      ;REGISTRO VALOR 99 COMPARACION MEMORIA
CONMEM      EQU 40H      ;REGISTRO CONTADOR FUNCION DE MEMORIA
ALARMA      EQU 41H      ;REGISTRO TIEMPO TRABAJO
SEGUNDO      EQU 42H      ;REGISTRO DE SEGUNDO PARA CONTROL DE TIEMPOS
MINUTO      EQU 43H      ;REGISTRO DE MINUTO PARA CONTROL DE TIEMPOS
WTEMPO      EQU 44H      ;REGISTRO TEMPORAL PARA W
STTEMPO      EQU 45H      ;REGISTRO TEMPORAL PARA STATUS
W         EQU 00H      ;BIT PARA REGISTRO W

      ORG   00H
      GOTO   INICIO
      ORG   04H
      GOTO   INTERUP

TABLA   ADDWF   PCL,1      ;SUMA W A PCL
      RETLW B"11010000"   ;-40POS 0
      RETLW B"11010000"   ;-40POS 1
      RETLW B"10101001"   ;-39POS 2
      RETLW B"10100111"   ;-39POS 3
      RETLW B"10100110"   ;-38POS 4
      RETLW B"10100110"   ;-38POS 5
      RETLW B"10100101"   ;-37POS 6
      RETLW B"10100101"   ;-37POS 7
      RETLW B"10100100"   ;-36POS 8
      RETLW B"10100100"   ;-36POS 9
      RETLW B"10100011"   ;-35POS 10
      RETLW B"10100011"   ;-35POS 11
      RETLW B"10100010"   ;-34POS 12
      RETLW B"10100010"   ;-34POS 13
      RETLW B"10100001"   ;-33POS 14
      RETLW B"10100001"   ;-33POS 15
      RETLW B"10100000"   ;-32POS 16
      RETLW B"10100000"   ;-32POS 17
      RETLW B"10011111"   ;-31POS 18
      RETLW B"10011111"   ;-31POS 19
      RETLW B"10011110"   ;-30POS 20
      RETLW B"10011110"   ;-30POS 21
      RETLW B"10011101"   ;-29POS 22
      RETLW B"10011101"   ;-29POS 23
      RETLW B"10011100"   ;-28POS 24
      RETLW B"10011100"   ;-28POS 25
      RETLW B"10011011"   ;-27POS 26
      RETLW B"10011011"   ;-27POS 27
      RETLW B"10011010"   ;-26POS 28
      RETLW B"10011010"   ;-26POS 29
      RETLW B"10011001"   ;-25POS 30
      RETLW B"10011001"   ;-25POS 31
      RETLW B"10011000"   ;-24POS 32
      RETLW B"10011000"   ;-24POS 33
      RETLW B"10010111"   ;-23POS 34
      RETLW B"10010111"   ;-23POS 35
      RETLW B"10010111"   ;-23POS 36
      RETLW B"10010110"   ;-22POS 37
      RETLW B"10010110"   ;-22POS 38
      RETLW B"10010101"   ;-21POS 39
      RETLW B"10010101"   ;-21POS 40
      RETLW B"10010100"   ;-20POS 41
      RETLW B"10010100"   ;-20POS 42
      RETLW B"10010011"   ;-19POS 43
      RETLW B"10010011"   ;-19POS 44
      RETLW B"10010010"   ;-18POS 45
      RETLW B"10010010"   ;-18POS 46
      RETLW B"10010001"   ;-17POS 47
      RETLW B"10010001"   ;-17POS 48
      RETLW B"10010000"   ;-16POS 49
      RETLW B"10010000"   ;-16POS 50
      RETLW B"10001111"   ;-15POS 51
      RETLW B"10001111"   ;-15POS 52
      RETLW B"10001110"   ;-14POS 53
      RETLW B"10001110"   ;-14POS 54
      RETLW B"10001101"   ;-13POS 55
      RETLW B"10001101"   ;-13POS 56
      RETLW B"10001100"   ;-12POS 57
      RETLW B"10001100"   ;-12POS 58
      RETLW B"10001011"   ;-11POS 59
      RETLW B"10001011"   ;-11POS 60
      RETLW B"10001010"   ;-10POS 61
      RETLW B"10001010"   ;-10POS 62
      RETLW B"10001001"   ;-9 POS 63
      RETLW B"10001001"   ;-9 POS 64
      RETLW B"10001000"   ;-8 POS 65
      RETLW B"10001000"   ;-8 POS 66
      RETLW B"10000111"   ;-7 POS 67
      RETLW B"10000111"   ;-7 POS 68
      RETLW B"10000110"   ;-6 POS 69
      RETLW B"10000110"   ;-6 POS 70
      RETLW B"10000101"   ;-5 POS 71
      RETLW B"10000101"   ;-5 POS 72
      RETLW B"10000100"   ;-4 POS 73
      RETLW B"10000100"   ;-4 POS 74
      RETLW B"10000011"   ;-3 POS 75
      RETLW B"10000011"   ;-3 POS 76
      RETLW B"10000011"   ;-3 POS 77
      RETLW B"10000010"   ;-2 POS 78
      RETLW B"10000010"   ;-2 POS 79
      RETLW B"10000001"   ;-1 POS 80
      RETLW B"10000001"   ;-1 POS 81
      RETLW B"00000000"   ; 0 POS 82
      RETLW B"00000000"   ; 0 POS 83
      RETLW B"00000001"   ; 1 POS 84
      RETLW B"00000001"   ; 1 POS 85
      RETLW B"00000010"   ; 2 POS 86
      RETLW B"00000010"   ; 2 POS 87
      RETLW B"00000011"   ; 3 POS 88
      RETLW B"00000011"   ; 3 POS 89
      RETLW B"00000100"   ; 4 POS 90
      RETLW B"00000100"   ; 4 POS 91
      RETLW B"00000101"   ; 5 POS 92
      RETLW B"00000101"   ; 5 POS 93
      RETLW B"00000110"   ; 6 POS 94
      RETLW B"00000110"   ; 6 POS 95
      RETLW B"00000111"   ; 7 POS 96
      RETLW B"00000111"   ; 7 POS 97
      RETLW B"00001000"   ; 8 POS 98
      RETLW B"00001000"   ; 8 POS 99
      RETLW B"00001001"   ; 9 POS 100
      RETLW B"00001001"   ; 9 POS 101
      RETLW B"00001010"   ;10 POS 102
      RETLW B"00001010"   ;10 POS 103
      RETLW B"00001011"   ;11 POS 104
      RETLW B"00001011"   ;11 POS 105
      RETLW B"00001100"   ;12 POS 106
      RETLW B"00001100"   ;12 POS 107
      RETLW B"00001101"   ;13 POS 108
      RETLW B"00001101"   ;13 POS 109
      RETLW B"00001110"   ;14 POS 110
      RETLW B"00001110"   ;14 POS 111
      RETLW B"00001111"   ;15 POS 112
      RETLW B"00001111"   ;15 POS 113
      RETLW B"00010000"   ;16 POS 114
      RETLW B"00010000"   ;16 POS 115
      RETLW B"00010001"   ;17 POS 116
      RETLW B"00010001"   ;17 POS 117
      RETLW B"00010010"   ;18 POS 118
      RETLW B"00010010"   ;18 POS 119
      RETLW B"00010010"   ;18 POS 120
      RETLW B"00010011"   ;19 POS 121
      RETLW B"00010011"   ;19 POS 122
      RETLW B"00010100"   ;20 POS 123
      RETLW B"00010100"   ;20 POS 124
      RETLW B"00010101"   ;21 POS 125
      RETLW B"00010101"   ;21 POS 126
      RETLW B"00010110"   ;22 POS 127
      RETLW B"00010110"   ;22 POS 128
      RETLW B"00010111"   ;23 POS 129
      RETLW B"00010111"   ;23 POS 130
      RETLW B"00011000"   ;24 POS 131
      RETLW B"00011000"   ;24 POS 132
      RETLW B"00011001"   ;25 POS 133
      RETLW B"00011001"   ;25 POS 134
      RETLW B"00011010"   ;26 POS 135
      RETLW B"00011010"   ;26 POS 136
      RETLW B"00011011"   ;27 POS 137
      RETLW B"00011011"   ;27 POS 138
      RETLW B"00011100"   ;28 POS 139
      RETLW B"00011100"   ;28 POS 140
      RETLW B"00011101"   ;29 POS 141
      RETLW B"00011101"   ;29 POS 142
      RETLW B"00011110"   ;30 POS 143
      RETLW B"00011110"   ;30 POS 144
      RETLW B"00011111"   ;31 POS 145
      RETLW B"00011111"   ;31 POS 146
      RETLW B"00100000"   ;32 POS 147
      RETLW B"00100000"   ;32 POS 148
      RETLW B"00100001"   ;33 POS 149
      RETLW B"00100001"   ;33 POS 150
      RETLW B"00100010"   ;34 POS 151
      RETLW B"00100010"   ;34 POS 152
      RETLW B"00100011"   ;35 POS 153
      RETLW B"00100011"   ;35 POS 154
      RETLW B"00100100"   ;36 POS 155
      RETLW B"00100100"   ;36 POS 156
      RETLW B"00100101"   ;37 POS 157
      RETLW B"00100101"   ;37 POS 158
      RETLW B"00100110"   ;38 POS 159
      RETLW B"00100110"   ;38 POS 160
      RETLW B"00100111"   ;39 POS 161
      RETLW B"00100111"   ;39 POS 162
      RETLW B"00100111"   ;39 POS 163
      RETLW B"00101000"   ;40 POS 164
      RETLW B"00101000"   ;40 POS 165
      RETLW B"00101001"   ;41 POS 166
      RETLW B"00101001"   ;41 POS 167
      RETLW B"00101010"   ;42 POS 168
      RETLW B"00101010"   ;42 POS 169
      RETLW B"00101011"   ;43 POS 170
      RETLW B"00101011"   ;43 POS 171
      RETLW B"00101100"   ;44 POS 172
      RETLW B"00101100"   ;44 POS 173
      RETLW B"00101101"   ;45 POS 174
      RETLW B"00101101"   ;45 POS 175
      RETLW B"00101110"   ;46 POS 176
      RETLW B"00101110"   ;46 POS 177
      RETLW B"00101111"   ;47 POS 178
      RETLW B"00101111"   ;47 POS 179
      RETLW B"00110000"   ;48 POS 180
      RETLW B"00110000"   ;48 POS 181
      RETLW B"00110001"   ;49 POS 182
      RETLW B"00110001"   ;49 POS 183
      RETLW B"00110010"   ;50 POS 184
      RETLW B"00110010"   ;50 POS 185
      RETLW B"00110011"   ;51 POS 186
      RETLW B"00110011"   ;51 POS 187
      RETLW B"00110100"   ;52 POS 188
      RETLW B"00110100"   ;52 POS 189
      RETLW B"00110101"   ;53 POS 190
      RETLW B"00110101"   ;53 POS 191
      RETLW B"00110110"   ;54 POS 192
      RETLW B"00110110"   ;54 POS 193
      RETLW B"00110111"   ;55 POS 194
      RETLW B"00110111"   ;55 POS 195
      RETLW B"00111000"   ;56 POS 196
      RETLW B"00111000"   ;56 POS 197
      RETLW B"00111001"   ;57 POS 198
      RETLW B"00111001"   ;57 POS 199
      RETLW B"00111010"   ;58 POS 200
      RETLW B"00111010"   ;58 POS 201
      RETLW B"00111011"   ;59 POS 202
      RETLW B"00111011"   ;59 POS 203
      RETLW B"00111100"   ;60 POS 204
      RETLW B"00111100"   ;60 POS 205
      RETLW B"00111100"   ;60 POS 206
      RETLW B"00111101"   ;61 POS 207
      RETLW B"00111101"   ;61 POS 208
      RETLW B"00111110"   ;62 POS 209
      RETLW B"00111110"   ;62 POS 210
      RETLW B"00111111"   ;63 POS 211
      RETLW B"00111111"   ;63 POS 212
      RETLW B"01000000"   ;64 POS 213
      RETLW B"01000000"   ;64 POS 214
      RETLW B"01000001"   ;65 POS 215
      RETLW B"01000001"   ;65 POS 216
      RETLW B"01000010"   ;66 POS 217
      RETLW B"01000010"   ;66 POS 218
      RETLW B"01000011"   ;67 POS 219
      RETLW B"01000011"   ;67 POS 220
      RETLW B"01000100"   ;68 POS 221
      RETLW B"01000100"   ;68 POS 222
      RETLW B"01000101"   ;69 POS 223
      RETLW B"01000101"   ;69 POS 224
      RETLW B"01000110"   ;70 POS 225
      RETLW B"01000110"   ;70 POS 226
      RETLW B"01000111"   ;71 POS 227
      RETLW B"01000111"   ;71 POS 228
      RETLW B"01001000"   ;72 POS 229
      RETLW B"01001000"   ;72 POS 230
      RETLW B"01001001"   ;73 POS 231
      RETLW B"01001001"   ;73 POS 232
      RETLW B"01001010"   ;74 POS 233
      RETLW B"01001010"   ;74 POS 234
      RETLW B"01001011"   ;75 POS 235
      RETLW B"01001011"   ;75 POS 236
      RETLW B"01001100"   ;76 POS 237
      RETLW B"01001100"   ;76 POS 238
      RETLW B"01001101"   ;77 POS 239
      RETLW B"01001101"   ;77 POS 240
      RETLW B"01001110"   ;78 POS 241
      RETLW B"01001110"   ;78 POS 242
      RETLW B"01001111"   ;79 POS 243
      RETLW B"01001111"   ;79 POS 244
      RETLW B"01010000"   ;80 POS 245
      RETLW B"01010000"   ;80 POS 246
      RETLW B"01010001"   ;81 POS 247
      RETLW B"01010001"   ;81 POS 248
      RETLW B"01010001"   ;81 POS 249
      RETLW B"01010010"   ;82 POS 250
      RETLW B"01010010"   ;82 POS 251
      RETLW B"01010011"   ;83 POS 252
      RETLW B"01010011"   ;83 POS 253 FIN TABLA 1

TABLA2   ADDWF   PCL,1      ;SUMA W A PCL
      RETLW B"01010100"   ;84 POS 254 INICIO TABLA 2
      RETLW B"01010100"   ;84 POS 255
      RETLW B"01010101"   ;85 POS 256
      RETLW B"01010101"   ;85 POS 257
      RETLW B"01010110"   ;86 POS 258
      RETLW B"01010110"   ;86 POS 259
      RETLW B"01010111"   ;87 POS 260
      RETLW B"01010111"   ;87 POS 261
      RETLW B"01011000"   ;88 POS 262
      RETLW B"01011000"   ;88 POS 263
      RETLW B"01011001"   ;89 POS 264
      RETLW B"01011001"   ;89 POS 265
      RETLW B"01011010"   ;90 POS 266
      RETLW B"01011010"   ;90 POS 267
      RETLW B"01011011"   ;91 POS 268
      RETLW B"01011011"   ;91 POS 269
      RETLW B"01011100"   ;92 POS 270
      RETLW B"01011100"   ;92 POS 271
      RETLW B"01011101"   ;93 POS 272
      RETLW B"01011101"   ;93 POS 273
      RETLW B"01011110"   ;94 POS 274
      RETLW B"01011110"   ;94 POS 275
      RETLW B"01011111"   ;95 POS 276
      RETLW B"01011111"   ;95 POS 277
      RETLW B"01100000"   ;96 POS 278
      RETLW B"01100000"   ;96 POS 279
      RETLW B"01100001"   ;97 POS 280
      RETLW B"01100001"   ;97 POS 281
      RETLW B"01100010"   ;98 POS 282
      RETLW B"01100010"   ;98 POS 283
      RETLW B"01100011"   ;99 POS 284
      RETLW B"01100011"   ;99 POS 285
      RETLW B"01100100"   ;100POS 286
      RETLW B"01100100"   ;100POS 287

DECO   ADDWF   PCL,1      ;SUMA W A PCL
      ;PINES   0GFEDCBA
      RETLW B"01000000"   ;NUMERO 0
      RETLW B"01111001"   ;NUMERO 1
      RETLW B"00100100"   ;NUMERO 2
      RETLW B"00110000"   ;NUMERO 3
      RETLW B"00011001"   ;NUMERO 4
      RETLW B"00010010"   ;NUMERO 5
      RETLW B"00000011"   ;NUMERO 6
      RETLW B"01111000"   ;NUMERO 7
      RETLW B"00000000"   ;NUMERO 8
      RETLW B"00011000"   ;NUMERO 9

;*******TABLA DE TEMPERATURA CONTROL**********
CONTEM   ADDWF   PCL,1      ;SUMA W A PCL
      RETLW B"10101000"   ;-40POS 0
      RETLW B"10100111"   ;-39POS 1
      RETLW B"10100110"   ;-38POS 2
      RETLW B"10100101"   ;-37POS 3
      RETLW B"10100100"   ;-36POS 4
      RETLW B"10100011"   ;-35POS 5
      RETLW B"10100010"   ;-34POS 6
      RETLW B"10100001"   ;-33POS 7
      RETLW B"10100000"   ;-32POS 8
      RETLW B"10011111"   ;-31POS 9
      RETLW B"10011110"   ;-30POS 10
      RETLW B"10011101"   ;-29POS 11
      RETLW B"10011100"   ;-28POS 12
      RETLW B"10011011"   ;-27POS 13
      RETLW B"10011010"   ;-26POS 14
      RETLW B"10011001"   ;-25POS 15
      RETLW B"10011000"   ;-24POS 16
      RETLW B"10010111"   ;-23POS 17
      RETLW B"10010110"   ;-22POS 18
      RETLW B"10010101"   ;-21POS 19
      RETLW B"10010100"   ;-20POS 20
      RETLW B"10010011"   ;-19POS 21
      RETLW B"10010010"   ;-18POS 22
      RETLW B"10010001"   ;-17POS 23
      RETLW B"10010000"   ;-16POS 24
      RETLW B"10001111"   ;-15POS 25
      RETLW B"10001110"   ;-14POS 26
      RETLW B"10001101"   ;-13POS 27
      RETLW B"10001100"   ;-12POS 28
      RETLW B"10001011"   ;-11POS 29
      RETLW B"10001010"   ;-10POS 30
      RETLW B"10001001"   ;-9 POS 31
      RETLW B"10001000"   ;-8 POS 32
      RETLW B"10000111"   ;-7 POS 33
      RETLW B"10000110"   ;-6 POS 34
      RETLW B"10000101"   ;-5 POS 35
      RETLW B"10000100"   ;-4 POS 36
      RETLW B"10000011"   ;-3 POS 37
      RETLW B"10000010"   ;-2 POS 38
      RETLW B"10000001"   ;-1 POS 39
      RETLW B"00000000"   ; 0 POS 40
      RETLW B"00000001"   ; 1 POS 41
      RETLW B"00000010"   ; 2 POS 42
      RETLW B"00000011"   ; 3 POS 43
      RETLW B"00000100"   ; 4 POS 44
      RETLW B"00000101"   ; 5 POS 45
      RETLW B"00000110"   ; 6 POS 46
      RETLW B"00000111"   ; 7 POS 47
      RETLW B"00001000"   ; 8 POS 48
      RETLW B"00001001"   ; 9 POS 49
      RETLW B"00001010"   ;10 POS 50
      RETLW B"00001011"   ;11 POS 51
      RETLW B"00001100"   ;12 POS 52
      RETLW B"00001101"   ;13 POS 53
      RETLW B"00001110"   ;14 POS 54
      RETLW B"00001111"   ;15 POS 55
      RETLW B"00010000"   ;16 POS 56
      RETLW B"00010001"   ;17 POS 57
      RETLW B"00010010"   ;18 POS 58
      RETLW B"00010011"   ;19 POS 59
      RETLW B"00010100"   ;20 POS 60
      RETLW B"00010101"   ;21 POS 61
      RETLW B"00010110"   ;22 POS 62
      RETLW B"00010111"   ;23 POS 63
      RETLW B"00011000"   ;24 POS 64
      RETLW B"00011001"   ;25 POS 65
      RETLW B"00011010"   ;26 POS 66
      RETLW B"00011011"   ;27 POS 67
      RETLW B"00011100"   ;28 POS 68
      RETLW B"00011101"   ;29 POS 69
      RETLW B"00011110"   ;30 POS 70
      RETLW B"00011111"   ;31 POS 71
      RETLW B"00100000"   ;32 POS 72
      RETLW B"00100001"   ;33 POS 73
      RETLW B"00100010"   ;34 POS 74
      RETLW B"00100011"   ;35 POS 75
      RETLW B"00100100"   ;36 POS 76
      RETLW B"00100101"   ;37 POS 77
      RETLW B"00100110"   ;38 POS 78
      RETLW B"00100111"   ;39 POS 79
      RETLW B"00101000"   ;40 POS 80
      RETLW B"00101001"   ;41 POS 81
      RETLW B"00101010"   ;42 POS 82
      RETLW B"00101011"   ;43 POS 83
      RETLW B"00101100"   ;44 POS 84
      RETLW B"00101101"   ;45 POS 85
      RETLW B"00101110"   ;46 POS 86
      RETLW B"00101111"   ;47 POS 87
      RETLW B"00110000"   ;48 POS 88
      RETLW B"00110001"   ;49 POS 89
      RETLW B"00110010"   ;50 POS 90
      RETLW B"00110011"   ;51 POS 91
      RETLW B"00110100"   ;52 POS 92
      RETLW B"00110101"   ;53 POS 93
      RETLW B"00110110"   ;54 POS 94
      RETLW B"00110111"   ;55 POS 95
      RETLW B"00111000"   ;56 POS 96
      RETLW B"00111001"   ;57 POS 97
      RETLW B"00111010"   ;58 POS 98
      RETLW B"00111011"   ;59 POS 99
      RETLW B"00111100"   ;60 POS 100
      RETLW B"00111101"   ;61 POS 101
      RETLW B"00111110"   ;62 POS 102
      RETLW B"00111111"   ;63 POS 103
      RETLW B"01000000"   ;64 POS 104
      RETLW B"01000001"   ;65 POS 105
      RETLW B"01000010"   ;66 POS 106
      RETLW B"01000011"   ;67 POS 107
      RETLW B"01000100"   ;68 POS 108
      RETLW B"01000101"   ;69 POS 109
      RETLW B"01000110"   ;70 POS 110
      RETLW B"01000111"   ;71 POS 111
      RETLW B"01001000"   ;72 POS 112
      RETLW B"01001001"   ;73 POS 113
      RETLW B"01001010"   ;74 POS 114
      RETLW B"01001011"   ;75 POS 115
      RETLW B"01001100"   ;76 POS 116
      RETLW B"01001101"   ;77 POS 117
      RETLW B"01001110"   ;78 POS 118
      RETLW B"01001111"   ;79 POS 119
      RETLW B"01010000"   ;80 POS 120
      RETLW B"01010001"   ;81 POS 121
      RETLW B"01010010"   ;82 POS 122
      RETLW B"01010011"   ;83 POS 123
      RETLW B"01010100"   ;84 POS 124
      RETLW B"01010101"   ;85 POS 125
      RETLW B"01010110"   ;86 POS 126
      RETLW B"01010111"   ;87 POS 127
      RETLW B"01011000"   ;88 POS 128
      RETLW B"01011001"   ;89 POS 129
      RETLW B"01011010"   ;90 POS 130
      RETLW B"01011011"   ;91 POS 131
      RETLW B"01011100"   ;92 POS 132
      RETLW B"01011101"   ;93 POS 133
      RETLW B"01011110"   ;94 POS 134
      RETLW B"01011111"   ;95 POS 135
      RETLW B"01100000"   ;96 POS 136
      RETLW B"01100001"   ;97 POS 137
      RETLW B"01100010"   ;98 POS 138
      RETLW B"01100011"   ;99 POS 139
      RETLW B"01100100"   ;100POS 140

INICIO      BSF   STATUS,5   ;CAMBIA AL BANCO 1 PARA CONFIGURACION
      BCF   STATUS,6
      MOVLW   B"00001011"   ;CONFIGURA EL PUERTO A PARA 2 ENTRADAS ANALOGAS Y PARA 3 SALIDAS DIGITALES
      MOVWF   PORTA      ;PINES 2 Y 5 PARA CONTROLAR TRANSISTORES
      MOVLW   B"00000000"   ;CONFIGURA EL PUERTO B COMO SALIDA PARA DATO AL DISPLAY
      MOVWF   PORTB
      MOVLW   B"01110000"   ;CONFIGURA EL PUERTO C CON 4 SALIDAS PARA RELEVOS DE CONTROL Y 3 ENTRADAS
      MOVWF   PORTC      ;PARA PULSADORES
      MOVLW   B"10000100"   ;CONFIGURA EL REGISTRO ADCON1, PARA UTILIZAR 3 ENTRADAS ANALOGAS
      MOVWF   ADCON0      ;Y 2 SALIDAS DIGITALES,JUSTIFICACION DERECHA


      MOVLW   B"10000100"   ;CARGA CONFIGURACION DE OPTION
      MOVWF   OPTION_REG

      BCF      STATUS,RP0   ;CAMBIA AL BANCO 0
      BCF    STATUS,RP1
      MOVLW   .224
      MOVWF   INTCON

      CLRWDT            ;LIMPIA PERRO GUARDIAN
;*******CONFIGURACION DE TMRO PARA TIEMPO*********************************************
      MOVLW   .6         ;CARGA EL TMRO PARA TEMPORIZADOR
      MOVWF   TMR0

;*******PROGRAMA PRINCIPAL SOLO ES DE PRUEBA********************
      BCF      STATUS,5   ;CAMBIA AL BANCO 0
   BIT4   BCF      PORTA,2
      BCF      PORTA,5
      BTFSC   PORTC,4
      GOTO   BIT5
      BSF      PORTA,2
      BSF      PORTA,5
      MOVLW   B"1111111"
      MOVWF   PORTB
      GOTO   BIT4
   BIT5   BTFSC   PORTC,5
      GOTO   BIT6
      BSF      PORTA,2
      BCF      PORTA,5
      MOVLW   B"1111111"
      MOVWF   PORTB
      GOTO   BIT4
   BIT6   BTFSC   PORTC,6
      GOTO   BIT4
      BCF      PORTA,2
      BSF      PORTA,5
      MOVLW   B"1111111"
      MOVWF   PORTB
      GOTO   BIT4


   CICLO   GOTO   CICLO

;*******SERVICIO DE INTERRUPCION******************************************************
;LA INTERRUPCION DEBE ENCENDER UN LED POR 10 SEGUNDOS, DESPUES APAGARLO POR 10 SEGUNDOS
;ASI SUCESIVAMENTE MIENTRAS EL PROGRAMA PRINCIPAL SE EJECUTA
;LAS TABLAS EN LA PRTE SUPERIOR SON PARA UTILIZARLAS MAS ADELANTE

      MOVWF   WTEMPO      ;CONTENIDO DE W A REGISTRO TEMPORAL
      SWAPF   STATUS,W   ;SWAP PARA GUARDAR EL REGISTRO ESTADO
      MOVWF   STTEMPO      ;SALVA REGISTRO ESTADO
   INTERUP   BCF   INTCON,2   ;BORRA BANDERA INTER. DE TMRO
      INCF   SEGUNDO,1
      MOVLW   .126      ;PROBAR SI EL DATO ES MAYOR QUE N
      SUBWF   SEGUNDO,W   ;POR MEDIO DE LA RESTA
      BTFSS   STATUS,0   ;REVISA EL RESULATADO DE LA RESTA
      GOTO   INTER1      ;SI ES MENOR DE N
      GOTO   INCMIN      ;SI ES MAYOR DE N
   INTER1   MOVLW   .8
      MOVWF   TMR0
      RETFIE

   INCMIN   CLRF   SEGUNDO
      INCF   MINUTO,1
      MOVLW   .10      ;PROBAR SI EL DATO ES MAYOR QUE N
      SUBWF   MINUTO,W   ;POR MEDIO DE LA RESTA
      BTFSS   STATUS,0   ;REVISA EL RESULATADO DE LA RESTA
      GOTO   INTER2      ;SI ES MENOR DE N
      GOTO   LED1      ;SI ES MAYOR DE N
   INTER2   MOVLW   .8
      MOVWF   TMR0
      RETFIE

   LED1   CLRF   MINUTO
      BTFSC   PORTC,7      ;PRUEBA LED
      GOTO   DESBIT
      GOTO   ACTBIT
   ACTBIT   BSF   PORTC,7
      GOTO   CONFTM
   DESBIT   BCF   PORTC,7
   CONFTM   MOVLW   .8
      MOVWF   TMR0
      BCF   INTCON,2   ;BORRA BANDERA INTER. DE TMRO
      SWAPF   STTEMPO,W   ;RECUPERA EL
      MOVWF   STATUS      ;ESTADO DE
      SWAPF   WTEMPO,1   ;REGISTROS
      SWAPF   WTEMPO,W   ;STATUS Y W
      RETFIE

      END

Este programa te funciona?? porque veo que no tienes en cuenta el registro PCLATH en las tablas.

EL PCLATH NO LO TENGO EN EL CODIGO PORQUE NO ESTOY UTILIZANDO LAS TABLAS TODAVIA, PERO SI LO UTILIZO.

PROBE EL CODIGO QUE ME ENVIARON PERO SIGO CON EL MISMO PROBLEMA, ENPIESA BIEN, DESPUES DE CONECTAR EL MICRO PASAN 10 SEGUNDOS Y ENCIENDE EL LED DE PRUEBA, PERO SE QUEDA HAY, DESPUES NO LO APAGA.
ES COMO SI LA INTERREUPSION NO SE VOLVIERA A EJECUTAR.

O COMO SI EL TIMER NO TRABAJARA.

SI NO ES CLARO CUAL ES EL PROBLEMA LES RECUENTO:

NECESITO CONTAR UN LAPSO DE TIEMPO MIENTRAS EL MICRO EJECUTA OTRA ACCION, DESPUES QUE EL LAPSO DE TIEMPO LLEGA A SU FIN, SE EJECUTA LA INTERRUPSION, REALIAZA OTRA ACCION Y VUELVE AL PROGRAMA PRINCIPAL Y REINICIA EL CONTEO DE TIEMPO

SI ALGUIEN SABE COMO RESOLVER EL PROBLEMA SE LO AGRADECERIA.

Aqui te paso algunas modificaciones en la rutina de interrupción:

Codigo:
;*******SERVICIO DE INTERRUPCION****************************************************** 
;LA INTERRUPCION DEBE ENCENDER UN LED POR 10 SEGUNDOS, DESPUES APAGARLO POR 10 SEGUNDOS 
;ASI SUCESIVAMENTE MIENTRAS EL PROGRAMA PRINCIPAL SE EJECUTA 
;LAS TABLAS EN LA PRTE SUPERIOR SON PARA UTILIZARLAS MAS ADELANTE 

INTERUP MOVWF WTEMPO ;CONTENIDO DE W A REGISTRO TEMPORAL 
SWAPF STATUS,W ;SWAP PARA GUARDAR EL REGISTRO ESTADO 
MOVWF STTEMPO ;SALVA REGISTRO ESTADO 
INCF SEGUNDO,1 
MOVLW .126 ;PROBAR SI EL DATO ES MAYOR QUE N 
SUBWF SEGUNDO,W ;POR MEDIO DE LA RESTA 
BTFSS STATUS,0 ;REVISA EL RESULATADO DE LA RESTA 
GOTO CONFTM ;SI ES MENOR DE N 

INCMIN CLRF SEGUNDO 
INCF MINUTO,1 
MOVLW .10 ;PROBAR SI EL DATO ES MAYOR QUE N 
SUBWF MINUTO,W ;POR MEDIO DE LA RESTA 
BTFSS STATUS,0 ;REVISA EL RESULATADO DE LA RESTA 
GOTO CONFTM ;SI ES MENOR DE N  

LED1 CLRF MINUTO 
BTFSC PORTC,7 ;PRUEBA LED 
GOTO DESBIT 
BSF PORTC,7 
GOTO CONFTM 
DESBIT BCF PORTC,7
 
CONFTM MOVLW .8 
MOVWF TMR0 
BCF INTCON,2 ;BORRA BANDERA INTER. DE TMRO 
SWAPF STTEMPO,W ;RECUPERA EL 
MOVWF STATUS ;ESTADO DE 
SWAPF WTEMPO,1 ;REGISTROS 
SWAPF WTEMPO,W ;STATUS Y W 
RETFIE

De todas formas sólo he incluido guardar el "w" y el "status". No se´si te solucionará el problema.

TODOPIC

Microcontroladores PIC => Todo en microcontroladores PIC => Mensaje iniciado por: ALSAMA en 24 de Junio de 2005, 19:40:00