;------------------------------------------------------------- ;Aplicación -> seguridad segu 20 ;Fecha -> febrero 7 2008 ; AT E0 &D0 &K3 SO=5 &W echo no, no dtr, con handshake hardware, aa de 5 timbres, para grabar en eeprom ; modem tele. 9600,n,8,2 ;imputs=0-sensores de proxi, 1-mini swith puerta ;2-mini swith escaleras 3-contacto teclado 4-activa por X10 ;outputs=100-alarma sirena 101-sirena pequeña ;modem sms 19200,n,8,1 RS232 periferico 35,9600,8,n,1 ;independencia de los pulsos NC de puerta y escaleras ;activacion remota con sistema X10 ;------------------------------------------------------------- MIDA 20M scan equ 99 ;programa principal--------------------------------------- &ini ld scan jz &lea jmp inic &lea ld aux10 tim tielea 100 out aux11 set aux10 ld aux11 jz &lea call leavar reset aux10 reset aux11 clear disl listo com 0 inic ld batt ;se activa con la alrma en activ jnz inic1 jmp inic2 inic1 call ala ;subrutina seguridad sensores inic2 ld dispa jnz inic3 inic3 call ajus ;subrutina menu fin end ;ala-------------------------------- ala ala0 reset aux1 ;reset reles inicio monitoria sensores reset aux2 reset aux3 reset aux8 reset salida reset salida1 ldnt sensor ;sensor se activa de primero no temporiza la sirena jnz ala01 ldnt puerta ;puerta primero espera 3 segudos al sensor jnz ala00 ldnt escal jnz ala00 jmp fala ala00 ldnt sensor ;tempo de 3 segundos por puerta para acivar jnz ala1 ;si en la espera llega sensor espera 10 segundos mas set 101 reset salida ;call ajus ld aux1 tim tieesp1 100 out salida1 set aux1 ld salida1 jz ala00 ;termina tempo y espera sensor sino dispara ldnt sensor jnz ala1 ala01 set salida ;dispara sin tempo jmp ala2 ala1 reset salida ;si se activo puerta sensor espera otros 10 seg reset salajus call ajus ld salajus jnz fala ld aux8 tim tieesp 100 out salida set aux8 ld salida ;fintiempos si no clear se dispara jz ala1 ala2 set dispa set 102 set 103 set 104 ld 130 jz ala22 ld tel jz telca ;0 telefono casa jmp telce ;1 telefono celular telca clear disl tel_cas AT 0 jmp ala22 telce clear disl tel_cel AT 0 ala22 reset salajus call ajus ;alarma disparada espera 3 minutos para silenciar sola ld salajus jnz fala ld aux2 tim tieala 1800 out aux3 set aux2 ld aux3 jz ala22 AT 2 movri 42 stoi alarho movri 41 stoi alarmi movri 44 stoi alardi fala ret ;ajus---------------------------------------------------- ajus ld cle ;proced de clave o clear jz aju jmp aju0 aju ld clave jz ajus1 aju0 ld batt jz ajus1 AT 2 ;reset general de perifericos reset dispa reset 102 reset 103 reset 104 reset 101 clear disl cleon com 0 set salajus reset salida call beep ;suena tres veces se desartiva call beep call beep reset batt clear disl alarof com 0 movri 42 stoi ahoff movri 41 stoi amoff movri 44 stoi adoff write 0 1 rbt ld clave jnz rbt jmp ajus3 ajus1 ld batt jnz ajus3 ld x10 jz nx10 reset aux4 reset aux5 jmp activ nx10 ld enter jz aju1 jmp aju2 aju1 ld clave ;activa alarma desde teclado jz ajus3 aju2 clear disl enton com 0 reset aux4 reset aux5 ajus2 ld puerta ;puerta cerrada en esperA jz abrio clear disl puece com 0 ld escal jz abri clear disl puece com 0 jmp ajus2 abrio ld puerta ;abrio puerta en espera jz abrio ;cerro puerta inicia activacion por tiempo jmp activ abri ld escal ;abrio pulso escalera en espera jz abri ;cerro escalera inicia activacion por tiempo activ ld aux4 ;tempo activacion alarma tim tieini 30 out aux5 set aux4 ld aux5 jz activ call beep ;dos sonidos alarma activada call beep set batt clear disl alaron com 0 movri 42 stoi ahon movri 41 stoi amon movri 44 stoi adon write 0 1 ajus3 ret ;----------------------------------------------------- beep set 101 ;sonido acti desacti ld aux6 tim timbeep 7 out aux7 set aux6 ld aux7 jz beep reset aux6 reset 101 ret ;===================================== leavar ;[REG_RELAYS] sensor equ 0 puerta equ 1 clave equ 2 ;rele del teclado externo escal equ 3 ;pulso escaleras x10 equ 4 ;contacto X10 cle equ 62 enter equ 60 salida equ 100 lamp equ 102 aux1 equ 250 aux2 equ 251 aux3 equ 252 aux4 equ 253 ;aux encendido aux5 equ 254 ;aux encendido aux6 equ 255 aux7 equ 256 ilu1 equ 257 ilu2 equ 258 aux102 equ 259 ;aux para on/off lamp aux103 equ 260 ;aux para on/off 103 salajus equ 261 ;indica cauando se entro a ajus aux8 equ 262 aux10 equ 263 aux11 equ 264 salida1 equ 265 conec equ 266 batt equ 900 tel equ 901 dispa equ 902 ;[REG_INTEGERS] dia equ 47 diaho equ 43 diaon equ 250 diatm equ 251 hoy equ 252 horario equ 253 dia1 equ 301 dia2 equ 302 dia3 equ 303 dia4 equ 304 dia5 equ 305 dia6 equ 306 dia7 equ 307 diaon1 equ 310 diatm1 equ 311 diaon2 equ 312 diatm2 equ 313 diaon3 equ 314 diatm3 equ 315 diaon4 equ 316 diatm4 equ 317 diaon5 equ 318 diatm5 equ 319 diaon6 equ 320 diatm6 equ 321 diaon7 equ 322 diatm7 equ 323 on103 equ 324 ;se programa para que se prenda en un horario definido ;cuando off se setea a 1500 tie103 equ 325 ;horario apagado 103 on104 equ 326 tie104 equ 327 off103 equ 328 ;default 60 minutos off104 equ 329 ;default 15 minutos ahoff equ 330 ;hora off alarma amoff equ 331 ;minuto off adoff equ 332 ;dia off ahon equ 333 ;hora on amon equ 334 ;minuto on adon equ 335 ;dia on alarho equ 336 ;disparo hora alarmi equ 337 alardi equ 338 ;[REG_FLOATS] ;[TIM] tieesp equ 200 ;3 seg desde abre puerta o 10 seg con sensor tieala equ 201 ;30 seg para apagar sola tieini equ 202 ;3 seg en ajus timbeep equ 203 ilutem equ 204 tieesp1 equ 205 tielea equ 206 ;[CNT] ;[TEXTO] alaron lite "ala on" alarof lite "ala off" listo lite "listo" enton lite "ent on" cleon lite "cle on" puece lite "pue cer" pueop lite "pue abi" tel_cas lite "2481430" tel_cel lite "033102036819" ;tel_cas lite "12" ;----------------------------------------------- file 0,500d,520t,330i,331i,332i,333i,334i,335i,len=200,type=c ;tiempos de prueba movci 1 stoi dia1 movci 2 stoi dia2 movci 3 stoi dia3 movci 4 stoi dia4 movci 5 stoi dia5 movci 6 stoi dia6 movci 0 stoi dia7 reset aux102 reset aux10 reset aux11 set conec movci 1140 ;lunes stoi diaon1 movci 1260 stoi diatm1 movci 1140 ;martes stoi diaon2 movci 1270 stoi diatm2 movci 1200 ;miercoles stoi diaon3 movci 1359 stoi diatm3 movci 1145 ;jueves stoi diaon4 movci 1340 stoi diatm4 movci 1240 ;viernes stoi diaon5 movci 1360 stoi diatm5 movci 1140 ;sabado stoi diaon6 movci 1320 stoi diatm6 movci 1140 ;domingo stoi diaon7 movci 1380 stoi diatm7 movci 1500 stoi on103 movci 1500 stoi on104 movci 60 stoi off103 movci 15 stoi off104 ret