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