;********************************************************************* ; Programa de CONTROL DE MEZCLADORES ; ; Tecla Acción ; ----- ------- ; F1 Ejecuta "FUNC 7 basc" TARA ; F2 Ejecuta "FUNC 8 0" CALIBRA ; F3 Ejecuta "FUNC 9 0" PARAMETROS ; F4 TEMPERATURA AMBIENTE ; F5 CONFIGURACION PARAMETROS DE LITTLEFORD ; F6 CONFIGURACION PARAMETROS HENSCHELL ; F7 CONFIGURACION TIEMPOS DE LITTLEFORD ; F8 CONFIGURACION TIEMPOS DE HENSCHELL ; F9 CARGA DE ESTABILIZANTE MANUAL/AUTOMATICA ; F11 VISUALIZACION DEL ESTADO DE FALLAS ; F13 CARGA MANUAL DEL MEZCLADOR QUE NO ESTE EN AUTOMATICO ; F14 CARGA MANUAL DEL ENFRIADOR QUE NO ESTE EN AUTOMATICO ; F15 MEZCLA LITTLEFORD AUTOMATICO ; F16 MEZCLA HENSCHELL AUTOMATICO ; ENTER VISUALIZACION DE VALORES ANALOGOS EN COM 0 POR 20 SEG. ; CLEAR LIMPIA DISPLAY COM 0 Y COM 3, Y MUESTRA SALUDO. ; SUBIR Pasa a mostrar la siguiente báscula Y VISUALIZA 10 SEG ; BAJAR Pasa a mostrar la báscula anterior ; ; ;********************************************************************* ; Definicion de teclas a usar F1 equ 356 F2 equ 357 F3 equ 358 F4 equ 359 F5 EQU 360 F6 EQU 361 F7 EQU 362 F8 EQU 363 F9 EQU 364 F10 EQU 365 F11 EQU 366 F12 EQU 367 F13 EQU 368 F14 EQU 369 F15 EQU 370 F16 EQU 371 ENTER EQU 340 CLEAR EQU 341 SUBIR equ 342 BAJAR equ 343 TEC2 EQU 350 TEC3 EQU 354 TEC4 EQU 345 TEC5 EQU 349 LEDF1 EQU 320 ;LEDS DE LAS TECLAS DE FUNCION LEDF2 EQU 321 LEDF3 EQU 322 LEDF4 EQU 323 LEDF5 EQU 324 LEDF6 EQU 325 LEDF7 EQU 326 LEDF8 EQU 327 LEDF9 EQU 328 LEDF10 EQU 329 LEDF11 EQU 330 LEDF12 EQU 331 LEDF13 EQU 332 LEDF14 EQU 333 LEDF15 EQU 334 LEDF16 EQU 335 ;RELES INC1 EQU 0 ;ENTRADA DIGITAL PARA CONTACTOR SOPLADOR C1 INC2 EQU 1 ;ENTRADA DIGITAL PARA VULVULA DOSIFICADORA C2 INC3 EQU 2 ;ENTRADA DIGITAL CONTACTOR MOTOR MEZC LITT INC4 EQU 3 ;" " "CONTACTOR MOTOR ENF LITT INC5 EQU 4 ;" " "CONTACTOR MOTOR MEZC HENS INC6 EQU 5 ;" " "CONTACTOR MOTOR ENF HENS INC7 EQU 6 ;" " "CONTACTOR BOMBA DE ESTABILIZANTE INV1 EQU 7 ;" " "VALVULA DESCARGA A TOLVA INV2 EQU 8 ;" " "VALVULA DESCARGA AL SISTEMA INV3 EQU 9 ;" " "DIVERSORA A MEZCLADORES LITT/HENS INV5 EQU 10 ;" " "DIVERSORA LITTLEFORD MEZC/ENF INV7 EQU 11 ;" " "DIVERSORA HENSCHELL MEZC/ENF INV9 EQU 12 ;" " "DESCARGA ADITIVO A MEZC LITT INV10 EQU 13 ;" " "DESCARGA DE ESTABILIZANTE A MEZC LITT INV11 EQU 14 ;" " "DESCARGA DE ADITIVO A MEZC HENS INV12 EQU 15 ;" " "DESCARGA DE ESTABILIZANTE MEZC HENS INV13 EQU 1100 ;" " "DESCARGA MEZCLADOR A ENFRIADOR LITT INV14 EQU 1101 ;" " "DESCARGA ENFRIADOR LITT A BIN INV15 EQU 1102 ;" " "DESCARGA MEZCLADOR A ENFRIADOR HENS INV16 EQU 1103 ;" " "DESCARGA ENFRIADOR HENS A BIN INV17 EQU 1104 ;" " "DESCARGA DE CARBONATO A MEZC LITT INV18 EQU 1105 ;" " "DESCARGA DE CARBONATO A MEZC HENS BINLOK EQU 1106 BINHOK EQU 1107 OUTC1 EQU 100 ;SALIDA DIGITAL ASOCIADAS A LAS ENTRADAS DIGITALES OUTC2 EQU 101 OUTC3 EQU 102 OUTC4 EQU 103 OUTC5 EQU 104 OUTC6 EQU 105 OUTC7 EQU 106 OUTV1 EQU 107 OUTV2 EQU 108 OUTV3 EQU 109 OUTV5 EQU 110 OUTV7 EQU 111 OUTV9 EQU 112 OUTV10 EQU 113 OUTV11 EQU 114 OUTV12 EQU 115 OUTV13 EQU 1108 OUTV14 EQU 1109 OUTV15 EQU 1110 OUTV16 EQU 1111 OUTV17 EQU 1112 OUTV18 EQU 1113 FLAG EQU 400 ;PROPOSITO GENERAL ENDFLAG EQU 401 LITTERR EQU 402 ;FLAG DE DETECCION DE ERROR EN DISPOSITIVOS DE LITT HENSERR EQU 403 ;Y DE HENS. SE ACTIVAN REMOTAMENTE POR EL PROGRAMA DE MONITOREO TOLFREE EQU 404 ;TOLVA PRINCIPAL VACIA MEZCLFUL EQU 405 ;INDICA CUANDO EL MEZC LITT ESTA CARGADO ENFLFUL EQU 406 ;INDICA CUANDO ENF LITT ESTA CARGADO MEZCHFUL EQU 407 ;INDICA CUANDO MEZC HENS CARGADO DE PVC ENFHFUL EQU 408 ;INDICA CUANDO EL ENF HENS ESTA CARGADO TPMLITT EQU 409 ;SOLICITUD DE CARGAR EL MEZC LITT"TOLVA POR MEZC LITT" TPELITT EQU 410 ;SOLICITA CARGAR ENF LITT TPMHENS EQU 411 ;SOLICITA CARGAR MEZC HENSCHELL TPEHENS EQU 412 ;SOLICITA CARGAR ENF HENS TOLVOK EQU 413 ;TOLVA CON MATERIAL SUFICIENTE PARA REQUERIMIENTO DE CARGA FLAG1 EQU 414 ENDFLAG1 EQU 415 DESCARGA EQU 416 ;INDICA CUANDO SE ESTA DESCARGANDO TOLVA PRINCIPAL STABLOK EQU 417 ;CARGA DE ESTABILIZANTE EN LITT REALIZADA ADTVLOK EQU 418 ;CARGA DE ADITIVO EN LITT REALIZADA CACLOK EQU 419 ;CARGA DEL CARBONATO EN LITT REALIZADA FLAG2 EQU 420 ENDFLAG2 EQU 421 DMLOK EQU 422 ;DESCARGA DEL MEZCLADOR AL ENFRIADOR LITT REALIZADA DELOK EQU 423 ;DESCARGA DEL ENF LITT AL BIN REALIZADA FLAG3 EQU 424 ENDFLAG3 EQU 425 STABHOK EQU 426 ;CARGA DEL ESTABILIZANTE EN HENS REALIZADA ADTVHOK EQU 427 ;CARGA DEL ADITIVO EN HENS REALIZADA CACHOK EQU 428 ;CARGA DEL CARBONATO EN HENSCHELL REALIZADA DMHOK EQU 429 ;DESCARGA DEL MEZC AL ENF HENS REALIZADA DEHOK EQU 430 ;DESCARGA DEL ENFRIADOR AL BIN HENS REALIZADA TSTBFREE EQU 431 ;TOLVITA DE ESTABILIZANTE VACIA TSPLITT EQU 432 ;REQUERIMIENTO DE CARGAR ESTABILIZANTE EN LITT TSPHENS EQU 433 ;REQUERIMIENTO DE CARGAR ESTABILIZANTE EN HENS DSTAB EQU 434 ;DESCARGANDO TOLVA DE ESTABILIZANTE ERROR EQU 435 ;FLAG DE ERROR POR DIFERENCIAS ENTRE I/O DIGITALES FLAG4 EQU 436 ENDFLAG4 EQU 437 T1SEG EQU 302 ;PULSOS DE 0.5 SEG T2SEG EQU 303 ;PULSOS DE 1 SEG FALLA0 EQU 450 ;RELES DE FALLAS DESDE EL 450 AL 471 AUTLITT EQU 1200 ;SALIDA DIGITAL PARA DESENERGIZAR CONTROLES LITT EN MANUAL AUTHENS EQU 1201 ;SALIDA DIGITAL PARA DESENERGIZAR CONTROLES HENS EN MANUAL ;DEFINICION TEMPORIZADORES TEMPO1 EQU 250 TEMPO2 EQU 251 TEMPO3 EQU 252 TEMPO4 EQU 253 TEMPO5 EQU 254 TEMPO6 EQU 257 TEMPO7 EQU 258 TEMPO8 EQU 259 TEMPO9 EQU 260 TEMPO10 EQU 261 TEMPO11 EQU 262 ; Definición integers DIA EQU 44 DSEM EQU 45 basc equ 400 ;Registro para almacenar el número de báscula frm equ 401 ;Registro contiene formato display en DISFX punt equ 402 ;PUNTEROS PARA TABLAS DE PROMEDIOS PUNT1 EQU 403 PUNT2 EQU 404 PUNT3 EQU 405 PUNT4 EQU 406 CONT EQU 407 FAULT EQU 408 TIMADTL EQU 10000 ;REGISTROS DE VALOR DE TEMPORIZACION TIMCACL EQU 10001 ;SETEADOS LOCAL CON F7 Y F8 TIMDML EQU 10002 TIMDEL EQU 10003 TIMADTH EQU 10004 TIMCACH EQU 10005 TIMDMH EQU 10006 TIMDEH EQU 10007 CH0 EQU 60 CH2 EQU 62 ; CANALES ANALOGOS CH3 EQU 1000 CH4 EQU 1001 CH5 EQU 1002 ;DEFINICION 32BITS PESOCH0 EQU 0 ;PESO TOLVA PRINCIPAL pvc PESOCH1 EQU 1 ;PESO TOLVITA DE ESTABLILIZANTE TMLITT EQU 2 ;TEMPERATURA MEZCLADOR LITTLEFORD TMHENS EQU 3 ;TEMPERATURA MEZCLADOR HENSCHELL TEHENS EQU 4 ;TEMPERATURA ENFRIADOR HENSCHELL TELITT EQU 5 ;TEMPERATURA ENFRIADOR LITTLEFORD CH2P EQU 6 ;PROMEDIO DE LECTURAS CANALES CH3P EQU 7 ;ANALOGOS CH4P EQU 8 CH5P EQU 9 SUM EQU 10 PESOINI EQU 11 ;REGISTRO DE CALCULO DE CANTIDAD A DESCARGAR PLIMSTAB EQU 12 PASSW EQU 5000 ;PASSWORD PARA CALIBRACION TEMPAMBI EQU 5001 ;COMPENSACION DE TEMPERATURA AMBIENTE PLIMLITT EQU 5002 ;CONFIGUTARION DE PARAMETROS PSTBLITT EQU 5003 ;DE OPERACION EN MEZCLADOR TSTABLIT EQU 5004 ;LITTLEFORD TADTLIT EQU 5005 TCACLIT EQU 5006 TDMLITT EQU 5007 TDELITT EQU 5008 PLIMHENS EQU 5009 ;CONFIGUTARION DE PARAMETROS PSTBHENS EQU 5010 ;DE OPERACION EN MEZCLADOR TSTABHEN EQU 5011 ;HENSCELL TADTHENS EQU 5012 TCACHENS EQU 5013 TDMHENS EQU 5014 TDEHENS EQU 5015 ; Definicion literales txt0 LITE "CANAL :" txt1 LITE "VALOR :" TXT2 LITE "PASSWORD" TXT3 LITE " TUBOTEC S.A." TXT4 LITE "MEZCLAS VER 2.00" TXT5 LITE "TEMP AMBIENTE" TXT6 LITE "PESO LIM LITT" TXT7 LITE "PESO ESTAB LITT" TXT8 LITE "TEMP ESTAB LITT" TXT9 LITE "TEMP ADITO LITT" TXT10 LITE "TEMP CAC LITT" TXT11 LITE "DESC MEZC LITT" TXT12 LITE "DESC ENF LITT" TXT13 LITE "PESO LIM HENS" TXT14 LITE "PESO ESTAB HENS" TXT15 LITE "TEMP ESTAB HENS" TXT16 LITE "TEMP ADITO HENS" TXT17 LITE "TEMP CAC HENS" TXT18 LITE "DESC MEZC HENS" TXT19 LITE "DESC ENF HENS" TXT20 LITE "ERROR EN LITT" TXT21 LITE "ERROR EN HENS" TXT22 LITE "T M LITT:" TXT23 LITE "T E LITT:" TXT24 LITE "BIN?" TXT25 LITE "T M HENS:" TXT26 LITE "T E HENS:" TXT27 LITE "TIEMPO CRG ATDV" TXT28 LITE "TIEMPO CRG CAC" TXT29 LITE "TIEMPO DCRG MEZC" TXT30 LITE "TIEMPO DCRG ENF" ;********* INICIO DE PROGRAMA ************** setri basc 0 ;Inicializo registros setri frm 93 CLEAR LOC 0 ;VISUALIZA EN LCD "TUBOTEC S.A. MEZCLAS VER 2.00" DISL TXT3 LOC 16 DISL TXT4 COM 0 INIPUNT SETRI PUNT1 4600 ;SETEA EL INICIO DE LAS TABLAS DE PROMEDIACION SETRI PUNT2 4700 ; DE LOS CANALES ANALOGOS SETRI PUNT3 4800 SETRI PUNT4 4900 INIC MOVIF DIA ;CALCULA EL PASSWORD, UTILIZANDO EL DIA DEL MES MOVIF DSEM ;MAS EL DIA DE LA SEMANA, LUNES=0 MARTES=1 MIERCOLES=2 JUEVES=3 ADDF ;VIERNES=4 SABADO=5 DOMINGO=6 STOF PASSW LD LEDF15 ;VERIFICA EL ESTADO DE FUNCIONAMIENTO DE LOS MEZCLADORES JZ LITTOFF HOFF LD LEDF16 JZ HENSOFF LEECHS MOVIF CH2 ;LECTURA DE TEMPERATURAS STOFX PUNT1 ;LLENANDO TABLAS DE PROMEDIO MOVIF CH3 STOFX PUNT2 MOVIF CH4 STOFX PUNT3 MOVIF CH5 STOFX PUNT4 INC PUNT1 1 INC PUNT2 1 INC PUNT3 1 INC PUNT4 1 movri punt1 movci 4650 cpgi inipunt CALL PROMS ;LLAMA SUBRUTINA DEL CALCULO DE PROMEDIO TEMPE MOVRF CH2P ;CONVERSION DE TEMPERATURA MOVCF 69 ;DEL MEZCLADOR LITT DIVF MOVRF TEMPAMBI ADDF STOF TMLITT MOVRF CH3P ;CONVERSION DE TEMPERATURA MOVCF 68 ;DEL MEZCLADOR HENS DIVF MOVRF TEMPAMBI ADDF STOF TMHENS MOVRF CH4P ;CONVERSION DE TEMPERATURA MOVCF 68 ;DEL ENFRIADOR HENS DIVF MOVRF TEMPAMBI ADDF STOF TEHENS MOVRF CH5P ;CONVERSION DE TEMPERATURA MOVCF 67 ;DEL ENFRIADOR LITT DIVF MOVRF TEMPAMBI ADDF MOVCF 5 ;MACHETE!!!!!! SUBF STOF TELITT INK CLEAR ;LIMPIEZA DE VISUALIZADORES JZ TARAR CLEAR LOC 0 DISL TXT3 LOC 16 DISL TXT4 COM 0 CLEAR COM 3 TARAR LD F1 ;TARA DE TOLVA SEGUN basc OUT LEDF1 ink F1 jz salto1 func 7 basc ; Autocero bascula con N almacenado en BASC salto1 ink F2 jz salto2 CLEAR DISL TXT2 ;SOLICITA EL INGRESO DEL PASSWORD PARA ENTRAR LOC 18 ;A CALIBRACION COM 0 INF 7 MOVRF PASSW CPEF CALIB CLEAR COM 0 JMP SALTO2 CALIB func 8 0 ; Calibracion bascula CLEAR COM 0 salto2 ink F3 jz salto3 CLEAR ;SOLICITUD DE PASWWORD PARA CONTINUAR CON DISL TXT2 ;PARAMETRIZACION DE LA BASCULA LOC 18 COM 0 INF 7 MOVRF PASSW CPEF PUSER JMP SALTO3 PUSER func 9 0 ; Parametros bascula usuario salto3 ink F4 ;SETEO DE TEMPERATURA AMBIENTE jz salto4 SET LEDF4 CLEAR LOC 0 DISL TXT5 LOC 16 DISRF TEMPAMBI 42 LOC 25 COM 0 INF 6 STOF TEMPAMBI CLEAR COM 0 RESET LEDF4 salto4 ink SUBIR ;MANEJO DE LA VISUALIZACION DE CANALES ANALOGOS jz salto5 inc basc 1 ; Incremento BASC movri basc movci 6 cpli salto5 setri basc 0 ; Si BASC>=6 poner BASC=0; salto5 ink BAJAR jz salto6 inc basc -1 ; Decremento BASC movri basc movci 0 cpgei salto6 setri basc 5 ; Si BASC<0 poner BASC=2; salto6 INK F15 ;CAMBIAR EL ESTADO DE OPERACION DEL MEZCLADOR JZ SALTO7 ;LITT AUTOMATICO ON/OFF LD LEDF15 JZ ONLED15 RESET LEDF15 JMP SALTO7 ONLED15 SET LEDF15 SALTO7 INK F16 ;CAMBIAR EL ESTADO DE OPERACION DEL MEZCLADOR JZ SALTO8 ;HENSCHELL AUTOMATICO ON/OFF LD LEDF16 JZ ONLED16 RESET LEDF16 JMP SALTO8 ONLED16 SET LEDF16 SALTO8 INK TEC2 ;VISUALIZACION RAW DE CH Y PROM CH JZ SALTO9 CLEAR DISRI CH2 5 LOC 16 DISRF CH2P 42 COM 0 SALTO9 INK TEC3 JZ SALTO10 CLEAR DISRI CH3 5 LOC 16 DISRF CH3P 42 COM 0 SALTO10 INK TEC4 JZ SALTO11 CLEAR DISRI CH4 5 LOC 16 DISRF CH4P 42 COM 0 SALTO11 INK TEC5 JZ SALTO12 CLEAR DISRI CH5 5 LOC 16 DISRF CH5P 42 COM 0 ;*******MENU DE CONFIGURACION PARAMETROS LITTLEFORD********* SALTO12 INK F5 ;CONFIGURACION PARAMETROS LITT JZ SALTO13 CLEAR DISL TXT2 LOC 18 COM 0 INF 7 MOVRF PASSW ;SOLICITA PASSWORD PARA CONTINUAR CPEF PARAML CLEAR COM 0 JMP SALTO13 PARAML SET LEDF5 CLEAR DISL TXT6 ; LOC 16 DISRF PLIMLITT 51 LOC 22 COM 0 INF 6 STOF PLIMLITT ;CAPTURA DEL PESO LIM DE CARGA PARA LITT CLEAR DISL TXT7 LOC 16 DISRF PSTBLITT 13 LOC 22 COM 0 INF 6 STOF PSTBLITT ;CAPTURA DE PESO DE ESTABILIZANTE PARA LITT CLEAR DISL TXT8 LOC 16 DISRF TSTABLIT 51 LOC 22 COM 0 INF 6 STOF TSTABLIT ;TEMPERATURA A LA QUE SE ABRE VALVULA DE CARGA CLEAR ;ESTABILIZANTE LITT DISL TXT9 LOC 16 DISRF TADTLIT 51 LOC 22 COM 0 INF 6 STOF TADTLIT ;TEMP DE APERTURA VALVULA DE ADITIVO LITT CLEAR DISL TXT10 LOC 16 DISRF TCACLIT 51 LOC 22 COM 0 INF 6 STOF TCACLIT ;TEMP APERTURA VALVULA CAC DE LITT CLEAR DISL TXT11 LOC 16 DISRF TDMLITT 51 LOC 22 COM 0 INF 6 STOF TDMLITT ;TEMP DESCARGA MEZCLADOR A ENFRIADOR LITT CLEAR DISL TXT12 LOC 16 DISRF TDELITT 51 LOC 22 COM 0 INF 6 STOF TDELITT ;TEMP DESCARGA ENFRIADOR LITT A BIN RESET LEDF5 CLEAR COM 0 ;****/******MENU DE CONFIGURACION PARAMETROS DE OPERACION HENS ********* SALTO13 INK F6 ;CONFIGURACION PARAMETROS HENS JZ SALTO14 CLEAR DISL TXT2 LOC 18 COM 0 INF 7 MOVRF PASSW ;SOLICITUD DE PASSWORD PARA CONTINUAR CPEF PARAMH CLEAR COM 0 JMP SALTO14 PARAMH SET LEDF6 CLEAR DISL TXT13 LOC 16 DISRF PLIMHENS 51 LOC 22 COM 0 INF 6 STOF PLIMHENS ;CAPTURA DEL PESO LIM DE CARGA PARA HENS CLEAR DISL TXT14 LOC 16 DISRF PSTBHENS 13 LOC 22 COM 0 INF 6 STOF PSTBHENS ;CAPTURA DE PESO DE ESTABILIZANTE PARA HENS CLEAR DISL TXT15 LOC 16 DISRF TSTABH7EN 51 LOC 22 COM 0 INF 6 STOF TSTABHEN ;TEMPERATURA DE CARGA DEL ESTAB EN HENS CLEAR DISL TXT16 LOC 16 DISRF TADTHENS 51 LOC 22 COM 0 INF 6 STOF TADTHENS ;TEMPERATURA DE CARGA DE ESTABILIZANTE EN HENS CLEAR DISL TXT17 LOC 16 DISRF TCACHENS 51 LOC 22 COM 0 INF 6 STOF TCACHENS ;TEMPERATURA DE CARGA DE CARBONATO EN HENS CLEAR DISL TXT18 LOC 16 DISRF TDMHENS 51 LOC 22 COM 0 INF 6 STOF TDMHENS ;TEMPERATURA DESCARGA DE MEZC A ENF HENS CLEAR DISL TXT19 LOC 16 DISRF TDEHENS 51 LOC 22 COM 0 INF 6 STOF TDEHENS ;TEMPERATURA DE DESCARGA ENF A BIN HENS RESET LEDF6 CLEAR COM 0 SALTO14 INK F7 ;****CONFIGURACION TIEMPOS DE DESCARGA LITT**** JZ SALTO15 CLEAR DISL TXT2 LOC 18 COM 0 INF 7 MOVRF PASSW ;SOLICITA PASSWORD PARA CONTINUAR CPEF TIMEL CLEAR COM 0 JMP SALTO15 TIMEL SET LEDF7 CLEAR DISL TXT27 LOC 16 DISRI TIMADTL 4 LOC 22 COM 0 INI 4 STOI TIMADTL ;TIEMPO DE CARGA DEL ADITIVO EN DECIMAS DE SEG CLEAR DISL TXT28 LOC 16 DISRI TIMCACL 4 ; LOC 22 COM 0 INI 4 STOI TIMCACL ;TIEMPO DE CARGA DE CARBINATO EN DECIMAS DE SEG CLEAR DISL TXT29 LOC 16 DISRI TIMDML 4 LOC 22 COM 0 INI 4 STOI TIMDML ;TIEMPO DE DESCARGA DEL MEZC A ENF EN DECIMAS DE SEG CLEAR DISL TXT30 LOC 16 DISRI TIMDEL 4 LOC 22 COM 0 INI 4 STOI TIMDEL ;TIEMPO DE DESCARGA DEL ENF A BIN EN DECIMAS DE SEG RESET LEDF7 SALTO15 INK F8 ;******CONFIGURACION TIEMPOS DE DESCARGA HENS******* JZ SALTO16 CLEAR DISL TXT2 LOC 18 COM 0 INF 7 MOVRF PASSW ;SOLICITA PASSWORD PARA CONTINUAR CPEF TIMEH CLEAR COM 0 JMP SALTO16 TIMEH SET LEDF8 CLEAR DISL TXT27 LOC 16 DISRI TIMADTH 4 LOC 22 COM 0 INI 4 STOI TIMADTH ;TIEMPO DE CARGA DEL ADITIVO EN DECIMAS DE SEG CLEAR DISL TXT28 LOC 16 DISRI TIMCACH 4 LOC 22 COM 0 INI 4 STOI TIMCACH ;TIEMPO DE CARGA DE CARBINATO EN DECIMAS DE SEG CLEAR DISL TXT29 LOC 16 DISRI TIMDMH 4 LOC 22 COM 0 INI 4 STOI TIMDMH ;TIEMPO DE DESCARGA DEL MEZC A ENF EN DECIMAS DE SEG CLEAR DISL TXT30 LOC 16 DISRI TIMDEH 4 LOC 22 COM 0 INI 4 STOI TIMDEH ;TIEMPO DE DESCARGA DEL ENF A BIN EN DECIMAS DE SEG RESET LEDF8 SALTO16 INK F9 ;CARGA STAB MANUAL/AUTO JZ FALLAS LD LEDF9 JNZ RESETF9 SET LEDF9 JMP FALLAS RESETF9 RESET LEDF9 FALLAS LD F11 ;VISUALIZACION DEL ESTADO DE FALLAS LD FLAG4 ;EN COM 0 DURANTE 20 SEG ORLD JZ VISUAL CLEAR SETRI CONT 0 SETRI FAULT 450 WRFAULT LOCX CONT LDX FAULT JZ ESCR0 DISCH 49 JMP LCD ESCR0 DISCH 48 LCD INC CONT 1 INC FAULT 1 MOVRI CONT MOVCI 32 CPLI WRFAULT COM 0 LD FLAG4 TIM TEMPO11 200 OUT ENDFLAG4 SET FLAG4 LD ENDFLAG4 JZ INICIO RESET FLAG4 CLEAR COM 0 VISUAL NOP ; Muestro en pantalla LOS VALORES DE LAS LD ENTER ;VARIABLES ANALOGAS LD FLAG ORLD JZ INICIO CLEAR disl txt0 loc 14 disri basc 2 loc 16 disl txt1 loc 23 disfx basc frm com 0 LD FLAG TIM TEMPO1 200 OUT ENDFLAG SET FLAG LD ENDFLAG JZ INICIO RESET FLAG CLEAR COM 0 COM 3 ;*************************************************************** ;********INICIO DE LA RUTINA DE CONTROL MEZCLAS***************** ;*************************************************************** inicIO CLEAR LD LEDF15 OUT AUTLITT ;SI LITT ESTA TRABAJANDO EN AUTO DESHABILITA CONTROLES MANUALES LD LEDF16 OUT AUTHENS ;SI HENS ESTA TRABAJANDO EN AUTO DESHABILITA CONTROLES MANUALES LD LEDF15 LD LEDF16 ORLD JZ INIC ;SI LOS DOS ESTAN EN MANUAL NO ENTRA A CONTROLAR MANUAL INK F13 ;CARGA MANUAL DEL MEZCLADOR JZ MANU1 LD LEDF15 ;VERIFICA CUAL DE LOS DOS MEZC ESTA TRABAJANDO EN MANUAL JNZ MANU SET TPMLITT ;SI LITT EN MANUAL SOLICITA CARGA DEL MEZC LITT SET LEDF13 JMP AUTO MANU LD LEDF16 JNZ MANU1 SET TPMHENS ;SI HENS EN MANUAL SOLICITA CARGA DEL MEZC HENS SET LEDF13 JMP AUTO MANU1 INK F14 ;CARGA MANUAL DEL ENFRIADOR JZ AUTO LD LEDF15 ;VERIFICA CUAL DE LOS DOS ENF ESTA TRABAJANDO EN MANUAL JNZ MANU2 SET TPELITT ;SI LITT EN MANUAL SOLICITA CARGA DEL ENF LITT SET LEDF14 JMP AUTO MANU2 LD LEDF16 JNZ HENAUT SET TPEHENS ;SI HENS EN MANUAL SOLICITA CARGA DEL ENF HENS SET LEDF14 AUTO LD ERROR ;SI SE DETECTA ERROR EN SE¤ALES DIGITALES INDICA EN LD T1SEG ;LED DE F11 ANDLD OUT LEDF11 LD LEDF15 JZ HENAUT LD TOLFREE ;TOLVA PRINCIPAL REQUIERE CARGARSE?? JNZ LITT CALL CARGAR ;LLAMA SUBRUTINA DE CARGA DE LA TOLVA DE PVC LITT LD TOLVOK JZ LITAUT CALL TOLVA ;RUTINA DE DESCARGA DE PVC AL SISTEMA LITAUT LD LITTERR ;FLAG DE ALARMA PARA DISPOSITIVOS DE LITT JNZ ALARML SET OUTC3 ;PRENDER MOTOR MEZC LITT SET OUTC4 ;PRENDER MOTOR ENF LITT LD MEZCLFUL ;CONTROL DE MEZCLADOR LITTLEFORD JNZ CNTR1 ;PREGUNTA SI EL MEZC ESTA CARGADO DE PVC SET TPMLITT ;SI MEZC VACIO SOLICITE CARGA DEL MEZC LITT JMP ENFLITT CNTR1 CALL CNTRLITT ;RUTINA PARA EL CONTROL DE CARGA DE MATERIALES EN LITT ENFLITT LD ENFLFUL ;CONTROL DE ENFRIADOR LITTLEFORD JNZ CNTR2 ;PREGUNTA SI ENF LITT ESTA CARGADO SET TPELITT ;SI ENF VACIO REQUIERA CARGA JMP HENAUT CNTR2 CALL CNTRLITT ;RUTINA PARA EL CONTROL DE CARGA DE MATERIALES EN LITT LD DELOK ;PREGUNTA SI PROCESO TERMINO. YA DESCARGO ENF A BIN? JZ HENAUT ;FIN DEL PROCESO LITT RESET DE TODOS LOS ESTADOS RESET MEZCLFUL RESET ENFLFUL RESET STABLOK RESET ADTVLOK RESET CACLOK RESET DMLOK RESET DELOK HENAUT LD LEDF16 JZ INIC LD TOLFREE ;TOLVA PRINCIPAL REQUIERE CARGARSE?? JNZ HENS CALL CARGAR ;LLAMA SUBRUTINA DE CARGA DE LA TOLVA DE PVC HENS LD TOLVOK JZ HENS1 CALL TOLVA ;RUTINA DE DESCARGA DE PVC AL SISTEMA HENS1 LD HENSERR ;FLAG DE ALARMA PARA DISPOSITIVOS DE HENS JNZ ALARMH SET OUTC5 ;PRENDE MOTOR MEZC HENS SET OUTC6 ;PRENDE MOTOR ENF HENS LD MEZCHFUL ;PREGUNTA SI MEZC HENS ESTA CARGADO? JNZ CNTR3 SET TPMHENS ;SI MEZC HENS VACIO SOLICITE CARGA JMP ENFHENS CNTR3 CALL CNTRHENS ;RUTINA PARA EL CONTROL DE CARGA DE MATERIALES EN HENS ENFHENS LD ENFHFUL ;PREGUNTA SI ENF HENS ESTA CARGADO JNZ CNTR4 SET TPEHENS ;SI ENF HENS VACIO SOLICITE CARGA JMP INIC CNTR4 CALL CNTRHENS ;RUTINA PARA EL CONTROL DE CARGA DE MATERIALES EN HENS LD DEHOK ;PREGUNTA SI PROCESO TERMINO. YA DESCARGO ENF A BIN? JZ INIC ;FIN DEL PROCESO HENS RESET DE TODOS LOS ESTADOS RESET MEZCHFUL RESET ENFHFUL RESET STABHOK RESET ADTVHOK RESET CACHOK RESET DMHOK RESET DEHOK JMP INIC ;********************************************************** ;**********************S U B R U T I N A S***************** ;********************************************************** PROMS MOVCF 0 STOF SUM SETRI punt 4600 ;SUBRUTINA DE PROMEDIACION LEC ANALOGA NEXT MOVFX PUNT ;LECTURA DE LA TABLA DE VALORES PARA CH2 MOVRF SUM ADDF STOF SUM INC PUNT 1 MOVRI PUNT MOVCI 4650 CPLI NEXT MOVRF SUM MOVCF 50 DIVF STOF CH2P ;VALOR PROMEDIADO PARA EL CANAL 2 TEMP MEZC LITT MOVCF 0 STOF SUM SETRI punt 4700 ;SUBRUTINA DE PROMEDIACION LEC ANALOGA NEXT1 MOVFX PUNT ;LECTURA D LA TABLA DE VALORES PARA CH3 MOVRF SUM ADDF STOF SUM INC PUNT 1 MOVRI PUNT MOVCI 4750 CPLI NEXT1 MOVRF SUM MOVCF 50 DIVF STOF CH3P ;VALOR PROMEDIADO DEL CANAL 3 TEMP MEZC HENS MOVCF 0 STOF SUM SETRI punt 4800 ;SUBRUTINA DE PROMEDIACION LEC ANALOGA NEXT2 MOVFX PUNT ;LECTURA DE TABLA DE VALORES PARA CH3 MOVRF SUM ADDF STOF SUM INC PUNT 1 MOVRI PUNT MOVCI 4850 CPLI NEXT2 MOVRF SUM MOVCF 50 DIVF STOF CH4P ;VALOR PROMEDIADO PARA CANAL 4 TEMP ENF HENS MOVCF 0 STOF SUM SETRI punt 4900 ;SUBRUTINA DE PROMEDIACION LEC ANALOGA NEXT3 MOVFX PUNT ;LECTURA DE LA TABLA DE VALORES PARA CH5 MOVRF SUM ADDF STOF SUM INC PUNT 1 MOVRI PUNT MOVCI 4950 CPLI NEXT3 MOVRF SUM MOVCF 50 DIVF STOF CH5P ;VALOR PROMEDIADO PARA CANAL 5 TEMP EF LITT RET ;****SUBRUTINA DE ALARMAS****** ALARML LD FLAG4 ;FALLA EN COMPONENTES DE LITT JNZ RSTL LOC 0 DISL TXT20 ;MUESTRA MENSAJE ERROR EN LITT COM 0 RSTL RESET AUTLITT RESET OUTC3 ;RESET DE ELEMENTOS LITT RESET OUTC4 RESET MEZCLFUL RESET ENFLFUL RESET TPMLITT RESET TPELITT RESET STABLOK RESET ADTVLOK RESET CACLOK RESET DMLOK RESET DELOK LD T1SEG OUT LEDF15 INK F15 JZ HENAUT RESET LITTERR JMP HENAUT ALARMH LD FLAG4 ;FALLA EN COMPONENTES DE HENS JNZ RSTH LOC 16 DISL TXT21 ;MUESTRA MENSAJE ERROR EN HENS COM 0 RSTH RESET LEDF16 RESET AUTHENS RESET OUTC5 ;RESET DE ELEMENTOS HENS RESET OUTC6 RESET MEZCHFUL RESET ENFHFUL RESET TPMHENS RESET TPEHENS RESET STABHOK RESET ADTVHOK RESET CACHOK RESET DMHOK RESET DEHOK LD T1SEG OUT LEDF16 INK F16 JZ LITAUT RESET HENSERR JMP AUTO ;************SUBRUTINA DE CARGA DE PVC CRUDO*********** CARGAR RESET OUTV2 ;EL OBJETIVO DE ESTA RUTINA ES MANTENER LD INV2 ;250 KILOS LISTOS PARA DESCARGAR A LOS MEZC JNZ FCARGA SET OUTC1 ;PRENDE SOPLADOR LD INC1 ;VERIFICA SI EL SOPLADOR PRENDIO JZ RETURN CRGANDO CLEAR DISRF PESOCH0 93 ;MUESTRA VALOR DE PERO EN COM 3 COM 3 CLEAR MOVRF PESOCH0 MOVCF 250 ;LLENA LA TOLVA HASTA 250 KG CPGF FCARGA SET OUTC2 ;SI SOPLADOR PRENDIO PERMITIR CARGA DE LA TOLVA SET OUTV1 RET FCARGA RESET OUTV1 ;CIERRA VALVULA DE CARGA A TOLVA PRINCIPAL LD FLAG1 TIM TEMPO2 50 ;TEMPORIZACION PARA LIMPIEZA DEL DUCTO DE CARGA OUT ENDFLAG1 SET FLAG1 LD ENDFLAG1 JZ RETURN RESET FLAG1 RESET OUTC1 ;APAGA EL SOPLADOR RESET OUTC2 ;APAGA VALVULA DOSIFICADORA SET TOLFREE ;INFORMA QUE LA TOLVA ESTA LLENA SET TOLVOK CLEAR COM 3 ;LIMPIA VISUALIZADOR DE 7 SEGMENTOS RETURN RET ;************SUBRUTINA DE CARGA MEZCLADORES********* TOLVA LD TPMLITT ;SETEA LOS DISPOSITIVOS PARA DESCARGAR JZ TOLVA1 ;MATERIAL AL MEZC LITT RESET OUTV3 RESET OUTV5 RESET OUTV13 NOP NOP NOP LD T2SEG OUT LEDF13 LD INV13 LD INV5 ORLD LD INV3 ORLD LDNT INC3 ORLD JNZ FINTOLV LD DESCARGA JNZ DESC1 MOVRF PESOCH0 MOVRF PLIMLITT SUBF STOF PESOINI ;CALCULA EL VALOR A DESCARGAR MOVRF PESOCH0 MOVRF PLIMLITT CPGF PLIM1 RESET TOLFREE RESET TOLVOK JMP FINTOLV PLIM1 SET OUTV2 ;ABRE LA VALVULA DE DESCARGA AL SISTEMA SET DESCARGA ;INFORMA QIE LA TOLVA ESTA DESCARGANDO MATERIAL DESC1 CLEAR DISRF PESOCH0 93 COM 3 CLEAR MOVRF PESOCH0 MOVRF PESOINI CPGF FINTOLV RESET OUTV2 LD FLAG1 TIM TEMPO2 50 OUT ENDFLAG1 SET FLAG1 LD ENDFLAG1 JZ RETURN RESET LEDF13 RESET FLAG1 RESET DESCARGA RESET TPMLITT RESET TOLFREE RESET TOLVOK SET MEZCLFUL CLEAR COM 3 JMP FINTOLV TOLVA1 LD TPELITT ;SETEA DISPOSITIVOS PARA DESCARGAR MATERIAL JZ TOLVA2 ;A ENFRIADOR LITT RESET OUTV3 SET OUTV5 RESET OUTV14 NOP NOP NOP LD T2SEG OUT LEDF14 LD INV14 LDNT INV5 ORLD LD INV3 ORLD LDNT INC4 ORLD JNZ FINTOLV LD DESCARGA JNZ DESC2 MOVRF PESOCH0 MOVRF PLIMLITT SUBF STOF PESOINI MOVRF PESOCH0 MOVRF PLIMLITT CPGF PLIM1 RESET TOLFREE RESET TOLVOK JMP FINTOLV PLIM2 SET OUTV2 SET DESCARGA DESC2 CLEAR DISRF PESOCH0 93 COM 3 CLEAR MOVRF PESOCH0 MOVRF PESOINI CPGF FINTOLV RESET OUTV2 LD FLAG1 TIM TEMPO2 50 OUT ENDFLAG1 SET FLAG1 LD ENDFLAG1 JZ RETURN RESET LEDF14 RESET FLAG1 RESET DESCARGA RESET TPELITT RESET TOLFREE RESET TOLVOK CLEAR COM 3 SET ENFLFUL JMP FINTOLV TOLVA2 LD TPMHENS ;SETEA DISPOSITIVOS PARA DESCARGAR MATERIAL JZ TOLVA3 ;A MEZC HENS SET OUTV3 RESET OUTV7 RESET OUTV15 NOP NOP NOP LD T1SEG OUT LEDF13 LD INV15 LD INV7 ORLD LDNT INV3 ORLD LDNT INC5 ORLD JNZ FINTOLV LD DESCARGA JNZ DESC3 MOVRF PESOCH0 MOVRF PLIMHENS SUBF STOF PESOINI SET OUTV2 SET DESCARGA DESC3 CLEAR DISRF PESOCH0 93 COM 3 CLEAR MOVRF PESOCH0 MOVRF PESOINI CPGF FINTOLV RESET OUTV2 LD FLAG1 TIM TEMPO2 50 OUT ENDFLAG1 SET FLAG1 LD ENDFLAG1 JZ RETURN RESET FLAG1 RESET DESCARGA RESET TPMHENS SET MEZCHFUL CLEAR COM 3 RESET LEDF11 MOVRF PESOCH0 MOVRF PLIMHENS CPGF FINTOLV RESET TOLFREE RESET TOLVOK JMP FINTOLV TOLVA3 LD TPEHENS ;SETEA DISPOSITIVOS PARA DESCARGAR MATERIAL JZ FINTOLV ;A ENF HENS SET OUTV3 SET OUTV7 RESET OUTV16 NOP NOP NOP LD T1SEG OUT LEDF14 LD INV16 LDNT INV7 ORLD LDNT INV3 ORLD LDNT INC6 ORLD JNZ FINTOLV LD DESCARGA JNZ DESC4 MOVRF PESOCH0 MOVRF PLIMHENS SUBF STOF PESOINI SET OUTV2 SET DESCARGA DESC4 CLEAR DISRF PESOCH0 93 COM 3 CLEAR MOVRF PESOCH0 MOVRF PESOINI CPGF FINTOLV RESET OUTV2 LD FLAG1 TIM TEMPO2 50 OUT ENDFLAG1 SET FLAG1 LD ENDFLAG1 JZ RETURN RESET FLAG1 RESET DESCARGA RESET TPEHENS SET ENFHFUL RESET LEDF12 CLEAR COM 3 MOVRF PESOCH0 MOVRF PLIMHENS CPGF FINTOLV RESET TOLFREE RESET TOLVOK JMP FINTOLV FINTOLV RET ;**********SUBRUTINA DE CONTROL DE TEMPERATURA LITTLEFORD********** CNTRLITT LD FLAG LD FLAG4 ORLD JNZ INICTRL LD DMLOK JNZ DISTEL CLEAR DISL TXT22 LOC 9 DISRF TMLITT 51 COM 0 JMP INICTRL DISTEL CLEAR DISL TXT23 LOC 9 DISRF TELITT 51 COM 0 INICTRL LD STABLOK ;YA SE REALIZO CARGA DE ESTABILIZANTE? JNZ ADTVL ;SI. VAYA A CARGAR ADITIVO. MOVRF TMLITT MOVRF TSTABLIT ;MONITOREA TEMPERATURA DEL MEZC LITT CPLF ENDCTRL LD TSPHENS JNZ ENDCTRL SET TSPLITT ;SOLICITA CARGA DE ESTABLIZANTE A LITT CALL STAB ;LLAMA SUBRUTINA DE CARGA DE ESTABILIZANTE RET ADTVL LD ADTVLOK ;YA SE REALIZO CARGA DE ADITIVO? JNZ CACL ;SI. VAYA A CARGAR CARBONATO MOVRF TMLITT ;MONITOREA TEMPERATURA DEL MEZC LITT Y MOVRF TADTLIT ;COMPARA CON LA TEMP DE CARGA DE ADITIVO CPLF ENDCTRL SET OUTV9 LD INV9 ;VERIFICA SI SE ACTIVO VALVULA JZ ENDCTRL LD FLAG2 TIMR TEMPO3 TIMADTL OUT ENDFLAG2 SET FLAG2 LD ENDFLAG2 JZ ENDCTRL RESET FLAG2 RESET ENDFLAG2 RESET OUTV9 SET ADTVLOK CACL LD CACLOK ;YA SE REALIZO CARGA DE CAROBONATO? JNZ DESCML ;SI. VAYA A DESCARGA DEL MEZC AL ENF MOVRF TMLITT MOVRF TCACLIT ;LECTURA DE TEMP MEZC LITT PARA LLEGAR A CPLF ENDCTRL ;TEMP CARGA CAC SET OUTV17 LD OUTV17 JZ ENDCTRL LD FLAG2 TIMR TEMPO4 TIMCACL OUT ENDFLAG2 SET FLAG2 LD ENDFLAG2 JZ ENDCTRL RESET FLAG2 RESET ENDFLAG2 RESET OUTV17 SET CACLOK DESCML LD DMLOK ;YA SE DESCARGO MEZC A ENF? JNZ DESCEL ;SI. MONIOREAR DESCARGA DE ENF A BIN LD FLAG2 JNZ DESCML1 MOVRF TMLITT MOVRF TDMLITT CPLF ENDCTRL DESCML1 RESET OUTV14 LD INV14 ;VERIFICA QUE VALVULA DE ENFRIADOR CERRADA JNZ ENDCTRL SET OUTV13 LD INV13 JZ ENDCTRL LD FLAG2 TIMR TEMPO5 TIMDML OUT ENDFLAG2 SET FLAG2 LD ENDFLAG2 JZ ENDCTRL RESET FLAG2 RESET ENDFLAG2 RESET OUTV13 SET DMLOK DESCEL LD DELOK ;DESCARGO ENF A BIN? JNZ ENDCTRL ;SI. FIN DEL PROCESO E INICIE UNO NUEVO LD FLAG2 JNZ DESCEL1 MOVRF TELITT MOVRF TDELITT CPGF ENDCTRL DESCEL1 LD BINLOK ;VERIFIQUE SI EL BIN ESTA CORRECTAMENTE JNZ BINOK ;POSICIONADO LOC 12 DISL TXT24 COM 0 BINOK LD BINLOK ;SI EL BIN ESTA BIEN DESCARGUE OUT OUTV14 LD INV14 JZ ENDCTRL LD FLAG2 TIMR TEMPO6 TIMDEL OUT ENDFLAG2 SET FLAG2 LD ENDFLAG2 JZ ENDCTRL RESET FLAG2 RESET ENDFLAG2 RESET OUTV14 SET DELOK ENDCTRL RET ;**********SUBRUTINA DE CONTROL DE TEMPERATURA HENSCHELL********** CNTRHENS LD FLAG LD FLAG4 ORLD JNZ INICTRH LD DMHOK JNZ DISTEH LOC 16 DISL TXT25 LOC 25 DISRF TMHENS 51 COM 0 JMP INICTRH DISTEH LOC 16 DISL TXT26 LOC 25 DISRF TEHENS 51 COM 0 INICTRH LD STABHOK ;YA SE REALIZO CARGA DE ESTABILIZANTE? JNZ ADTVH ;SI. VAYA A CARGAR ADITIVO. MOVRF TMHENS MOVRF TSTABHEN CPLF ENDCTRH LD TSPLITT JNZ ENDCTRH SET TSPHENS CALL STAB RET ADTVH LD ADTVHOK ;YA SE CARGO ADITIVO? JNZ CACH ;SI. VAYA A CARGAR CARBONATO. MOVRF TMHENS MOVRF TADTHENS CPLF ENDCTRH SET OUTV11 LD INV11 ;VERIFICA SI SE ACTIVO VALVULA JZ ENDCTRH LD FLAG3 TIMR TEMPO7 TIMADTH OUT ENDFLAG3 SET FLAG3 LD ENDFLAG3 JZ ENDCTRH RESET FLAG3 RESET ENDFLAG3 RESET OUTV11 SET ADTVHOK CACH LD CACHOK ;YA SE CARGO CARBONATO? JNZ DESCMH ;SI MONITOREE DESCARGA DE MEZCA ENF HENS MOVRF TMHENS MOVRF TCACHENS CPLF ENDCTRH SET OUTV18 LD INV18 JZ ENDCTRH LD FLAG3 TIMR TEMPO8 TIMCACH OUT ENDFLAG3 SET FLAG3 LD ENDFLAG3 JZ ENDCTRH RESET FLAG3 RESET ENDFLAG3 RESET OUTV18 SET CACHOK DESCMH LD DMHOK ;SE DESCARGO MEZC A ENF? JNZ DESCEH ;SI. MONITOREE DESCARGA DE ENF A BIN LD FLAG3 JNZ DESCMH1 MOVRF TMHENS MOVRF TDMHENS CPLF ENDCTRH DESCMH1 RESET OUTV16 LD INV16 ;VERIFICA QUE VALVULA DE ENFRIADOR CERRADA JNZ ENDCTRH SET OUTV15 LD INV15 JZ ENDCTRH LD FLAG3 TIMR TEMPO9 TIMDMH OUT ENDFLAG3 SET FLAG3 LD ENDFLAG3 JZ ENDCTRH RESET FLAG3 RESET ENDFLAG3 RESET OUTV15 SET DMHOK DESCEH LD DEHOK ;DESCARGA DE ENF A BIN REALIZADA? JNZ ENDCTRH ;SI. FIN PROCESO INICIE OTRO. LD FLAG3 JNZ DESCEH1 MOVRF TEHENS MOVRF TDEHENS CPGF ENDCTRH DESCEH1 LD BINHOK ;VERIFICA SI BIN CORRECTO. JNZ BINOK1 LOC 28 DISL TXT24 COM 0 BINOK1 LD BINHOK ;SI BIN OK PERMITIR DESCARGA OUT OUTV16 LD INV16 JZ ENDCTRH LD FLAG3 TIMR TEMPO10 TIMDEH OUT ENDFLAG3 SET FLAG3 LD ENDFLAG3 JZ ENDCTRH RESET FLAG3 RESET ENDFLAG3 RESET OUTV16 SET DEHOK ENDCTRH RET ;***********RUTINA CARGA DE ESTABILIZANTE************ STAB LD LEDF9 ;VERIFICA SI CARGA DE ESTABILIZANTE MAN/AUTO JZ STABM LD TSTBFREE ;SI TOLVITA VACIA. ENTONCES CARGUE JZ CRGSTAB LD TSPLITT ;SI LITT NO HA REQUERIDO CARGA DE ESTABILIZANTE JZ STABH ;VERIFIQUE SI HENS LO HIZO. LD DSTAB JNZ DESCSL MOVRF PESOCH1 MOVRF PSTBLITT ;CALCULO DEL PESO A DESCARGAR SUBF STOF PLIMSTAB SET OUTV10 SET DSTAB DESCSL MOVRF PESOCH1 ;DESCARGA ESTABILIZANTE A LITT MOVRF PLIMSTAB CPGF FINSTAB RESET OUTV10 LD INV10 JNZ FINSTAB RESET DSTAB RESET TSTBFREE RESET TSPLITT SET STABLOK JMP FINSTAB STABH LD TSPHENS ;MEZC HENS REQUIERE CARGA DE ESTABILIZANTE JZ FINSTAB ;SI NO. REGRESA A PROGRAMA PRINCIPAL LD DSTAB JNZ DESCSH MOVRF PESOCH1 MOVRF PSTBHENS SUBF STOF PLIMSTAB ;CALCULE PESO A DESCARGAR SET OUTV12 SET DSTAB DESCSH MOVRF PESOCH1 ;DESCARGA ESTABILIZANTE A MEZC HENS MOVRF PLIMSTAB CPGF FINSTAB RESET OUTV12 LD INV12 JNZ FINSTAB RESET DSTAB RESET TSTBFREE RESET TSPHENS SET STABHOK JMP FINSTAB CRGSTAB RESET OUTV10 ;CARGA ESTABILIZANTE EN TOLVITA. RESET OUTV12 ;VERIFICA QUE LAS VALVULAS DE DESCARGA ESTAN CERRADAS LD INV10 LD INV12 ORLD JNZ FINSTAB MOVRF PESOCH1 MOVCF 2 ;LIMITE DE CARGA CPLF CRGNDOS RESET OUTC7 SET TSTBFREE RET CRGNDOS SET OUTC7 FINSTAB RET STABM SET STABLOK ;SI CARGA DE ESTABILIZANTE EN MANUAL SET STABHOK ;SIMULE QUE YA SE EFECTUO LA CARGA. RET ;********MEZCLADORES APAGADOS****** LITTOFF RESET AUTLITT RESET OUTC3 ;RESET DE ELEMENTOS LITT RESET OUTC4 RESET MEZCLFUL RESET ENFLFUL RESET TPMLITT RESET TPELITT RESET STABLOK RESET ADTVLOK RESET CACLOK RESET DMLOK RESET DELOK JMP HOFF HENSOFF RESET AUTHENS RESET OUTC5 ;RESET DE ELEMENTOS HENS RESET OUTC6 RESET MEZCHFUL RESET ENFHFUL RESET TPMHENS RESET TPEHENS RESET STABHOK RESET ADTVHOK RESET CACHOK RESET DMHOK RESET DEHOK JMP LEECHS