mida 14 ;------------------------------------------------------------- ;Aplicación -> 59 cambia a contar fajillas ;Fecha -> ;------------------------------------------------------------- scan equ 99 ;programa principal--------------------------------------- &ini ld scan jz &lea jmp ini0 &lea call &leavar ini0 nop ld saldo jz ini000 set abor reset inirem ini000 ld arriba jz ini00 call impre ini00 ld inirem jnz ini10 reset led118 call peba ;peso basico jmp fin ini10 set led118 call cava ;caja vacia ld aboini ;caso en cava al iniciao proc se haya termin en lv jnz fin ld abor jnz fin call pere ;peso referencia ld abor jnz fin call peca ;pesa caja fin end ;------------------------------------------- ;peba. peso basico y entrada a menu peba nop ink clear ;si clear tare jz peba10 func 7 pesota peba10 call diba ;display basico ld izqui jz pebaf call menu ;si.... pebaf ret ;----------------------------------------- ;cava. caja vacia cava nop ld boton jnz cava cava00 reset aboini ld boton ;asegura que el operador no tenga nada sobre la jnz cava0 ;plataforma al inicia el proceso call tara ;se tara hasta boton call diba clear disl plat com 1 clear disl cajvac1 com 2 jmp cava00 cava0 ld boton ;se queda aqui hasta que se suelte el boton jnz cava0 reset saldo set procpes ;activa indicador proceso pesado ld inirem ;rechequeo inirem por si se desconecto en lv jz cava20 cava1 ld clear ;PROCESO DE ABORTAR !?!?!?!?!?!? and boton jz cava11 set abor reset procpes clear com 1 clear com 2 jmp cavaf cava11 clear ;display caja vacia disl cajvac com 1 clear disl cajvac1 com 2 call diba ld boton ;taro manual? jz cava1 ;no.. sigo esperando cava12 ld boton ;se queda aqui hasta que se suelte el boton jnz cava12 movrf peso ;se guarda el peso de la tara stof pecaja jmp cavaf cava20 set aboini ;....se desconecto del lv!!! cavaf ret ;----------------------------------------- ;pere. pesado de unidades de referencia pere nop call tara clear disl uni com 1 clear disri unipes 4 com 2 call diba movrf pesunii ;valor de peso de uni con tolerancias movif unitol mulf movcf 100 divf stof peunto movrf pesunii ;peso mayor con tolerancia movrf peunto addf stof peunmax movrf pesunii ;peso menor con tolerancia movrf peunto subf stof peunmin pere2 ink izqui jz pere200 set saldo jmp peref pere200 ld clear ;PROCESO DE ABORTAR !?!?!?!?!?!? and boton jz pere21 pere20 set abor reset procpes clear com 1 clear com 2 jmp peref pere21 call diba movrf peso ;el peso es menor al de tole? movrf peunmin cplf pere3 movrf peso ;el peso en mayor al de tole? movrf peunmax cpgf pere4 jmp pere5 pere3 set led123 ;peso por debajo enciende led y queda en loop !!!!!!!!!!!!!!!! reset led121 reset led122 jmp pere2 pere4 set led121 ;peso por encima enciende led y queda en loop !!!!!!!!!!!!!!! reset led122 reset led123 jmp pere2 pere5 call diba reset led121 ;enciende el led del centro set led122 reset led123 ld boton ;acepta con el boton jz pere2 ;queda en loop mientras boton !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! pere6 ld boton ;se queda aqui hasta que se suelte el boton jnz pere6 movrf peso ;peso de referencia de # unidades stof peret movif unicaj movrf peret ;peso esperado de la caja mulf movif unipes divf stof pereu movrf pereu ;valor de peso esperado de ujni control movif unitol mulf movcf 100 divf stof peunto movrf pereu ;peso mayor con tolerancia movrf peunto addf stof peunmax movrf pereu ;peso menor con tolerancia movrf peunto subf stof peunmin peref ret ;----------------------------------------- ;peca. pesado caja peca nop ld saldo jz peca00 call sald jmp peca5 peca00 ld clear ;PROCESO DE ABORTAR !?!?!?!?!?!? and boton jz peca0 set abor reset procpes clear com 1 clear com 2 jmp pecaf peca0 reset led122 ink izqui ;es caja de saldo? jz peca1 call sald ;si........... jmp peca5 peca1 movrf peso ;determina las unidades sobre balanza movrf peret divf stof unac movrf unac ;unidades sobre balanza en entero stofi unaci movrf peso ;el peso es menor al de tole? movrf peunmin cplf peca11 movrf peso ;el peso en mayor al de tole? movrf peunmax cpgf peca12 jmp peca13 peca11 set led123 ;peso por debajo enciende led y queda en loop !!!!!!!!!!!!!!!! reset led121 reset led122 jmp peca2 peca12 set led121 ;peso por encima enciende led y queda en loop !!!!!!!!!!!!!!! reset led122 reset led123 jmp peca3 peca13 call dili reset led121 ;enciende el led del centro set led122 reset led123 jmp peca4 movri unicaj ;las unidades son iguales....? movri unaci cpei peca2 jmp peca3 peca2 call dica ;si........... jmp peca peca3 call dica ;faltan...faltan..o sobran... jmp peca ;en loop !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! peca4 ld boton jz peca ;en loop mientras boton!!!!!!!!!!!!!!!!!!! peca41 ld boton ;se queda aqui hasta que se suelte el boton jnz peca41 movrf peso ;peso de unidades actuales stof pefuni movrf pecaja ;suma de tara+neto=bruto movrf pefuni addf stof pesobru movif unicaj stof unidado movrf numcaji stof numcajo peca5 call impre ;imprime etiqueta peca6 ld arriba jz peca61 call impre peca61 movrf peso movcf 1 cpgf peca6 reset procpes ;reset proceso pesado activo set fincaj ;activa rele fin de caja pecaf ret ;------------------------------- ;sald. caja de saldo sald nop set saldo call disa ld clear jnz saldf ld enter jz sald sald00 ld enter jnz sald00 movri unaci movri unipes muli stoi unaci sald0 clear disrf peso 42 com 0 clear disri unaci 4 com 1 ld izqui jnz sald1 ld arriba jnz sald2 ld enter jnz sald3 jmp sald0 sald1 inc unaci 1 sald11 ld izqui jnz sald11 jmp sald0 sald2 inc unaci -1 sald21 ld arriba jnz sald21 jmp sald0 sald3 movrf peso ;peso de unidades actuales stof pefuni movrf pecaja ;suma de tara+neto=bruto movrf pefuni addf stof pesobru movif unaci stof unidado movrf numcaji stof numcajo saldf ret ;-------------------------------- ;impre. impresion impre nop clear ;inicio de formato disch 2 ;STX disch 76 ;L disch 13 ;CR disch 72 ;H disch 49 ;1 disch 57 ;9 disch 13 ;CR disch 81 ;Q disch 48 ;0 disch 48 ;0 disch 48 ;0 disch 49 ;1 disch 13 ;CR disch 68 ;D disch 49 ;1 disch 49 ;1 ;disch 13 ;CR com 3 impet1 movrf pesobru PESO EN HUMANO ............................ movcf 100 mulf stof pesobru1 movrf pesobru1 stofi pesobru2 movri pesobru2 movci 999 cpgi impet1a clear ;menor a 9.99 disl eti1 loc 15 disl eti1a loc 21 disl 3cero loc 24 disri pesobru2 -3 loc 27 jmp impet1b impet1a clear ;mayor a 10.00 disl eti1 loc 15 disl eti1a loc 21 disl 2cero loc 23 disri pesobru2 -4 loc 28 impet1b ld saldo ;si es saldo imprime cantidad jz impet1c disl tre7s loc 30 disrf unidado -30 impet1c com 3 impet2 setri 127 37 movrf pesobru ;PESO EN CODBAR............................... movcf 100 mulf stof pesobru1 movrf pesobru1 stofi pesobru2 movri pesobru2 movci 999 cpgi impet2a clear ;menor a 9.99 disl eti2 loc 15 disl eti2a loc 22 disl 3cero loc 25 disri pesobru2 -3 loc 28 jmp impet2b impet2a clear ;mayor a 10.00 disl eti2 loc 15 disl eti2a loc 22 disl 2cero loc 24 disri pesobru2 -4 loc 29 impet2b ld saldo ;si es saldo imprime cantidad jz impet2c disl tre7 loc 33 disrf unidado -30 impet2c com 3 impet3 setri 127 70 ;CODIGO GRANDE EN HUMANO......................... movci 32 ;cuando no llega empresa no imprime movri ean2 ;codigo de barras cpei impet5 clear disl eti3 loc 15 disl cerouno loc 19 ld saldo ;si es saldo impreme dif. digito inicial jz impet3a discx eanini ;si saldo..... jmp impet3b impet3a discx ean1 ;no saldo.... impet3b loc 20 discx ean2 loc 21 discx ean3 loc 22 discx ean4 loc 23 discx ean5 loc 24 discx ean6 loc 25 discx ean7 loc 26 discx ean8 loc 27 discx ean9 loc 28 discx ean10 loc 29 discx ean11 loc 30 discx ean12 loc 31 discx ean13 loc 32 ld saldo ;si es saldo imprime dif. digito chequeo jz impet3c discx eanfin ;si saldo.... jmp impet3d impet3c discx ean14 ;no saldo.... impet3d loc 33 disl diez7 loc 37 discx fecmm loc 38 discx fecmm1 loc 39 discx fecaa loc 40 discx fecaa1 loc 41 discx fecdd loc 42 discx fecdd1 loc 43 disl diez loc 47 discx lot1 loc 48 discx lot2 loc 49 discx lot3 loc 50 discx lot4 loc 51 discx lot5 loc 52 discx lot6 loc 53 discx lot7 loc 54 discx lot8 loc 55 discx lot9 loc 56 discx lot10 loc 57 com 3 impet4 setri 127 58 ;CODIGO GRANDE EN CODBAR........................ clear disl eti4 loc 15 disl eti4a loc 20 ld saldo ;si es saldo impreme dif. digito inicial jz impet4a discx eanini ;si saldo..... jmp impet4b impet4a discx ean1 ;no saldo.... impet4b loc 21 discx ean2 loc 22 discx ean3 loc 23 discx ean4 loc 24 discx ean5 loc 25 discx ean6 loc 26 discx ean7 loc 27 discx ean8 loc 28 discx ean9 loc 29 discx ean10 loc 30 discx ean11 loc 31 discx ean12 loc 32 discx ean13 loc 33 ld saldo ;si es saldo imprime dif. digito chequeo jz impet4c discx eanfin ;si saldo.... jmp impet4d impet4c discx ean14 ;no saldo.... impet4d loc 34 disl diez7s loc 36 discx fecmm loc 37 discx fecmm1 loc 38 discx fecaa loc 39 discx fecaa1 loc 40 discx fecdd loc 41 discx fecdd1 loc 42 disl eti4b loc 48 discx lot1 loc 49 discx lot2 loc 50 discx lot3 loc 51 discx lot4 loc 52 discx lot5 loc 53 discx lot6 loc 54 discx lot7 loc 55 discx lot8 loc 56 discx lot9 loc 57 discx lot10 loc 58 com 3 setri 127 70 impet5 clear ;CUADRO.................................. disl eti5 loc 15 disl eti5a com 3 impet6 ;clear ;LINEAS................................ ;disl eti6 ;loc 15 ;disl eti6a ;com 3 impet7 clear ;LINEAS.................................. disl eti7 loc 15 disl eti7a com 3 impet8 clear ;LINEAS................................. disl eti8 loc 15 disl eti8a com 3 impet9 clear ;LOTE........................................... disl eti9 loc 15 discx lot1 loc 16 discx lot2 loc 17 discx lot3 loc 18 discx lot4 loc 19 discx lot5 loc 20 discx lot6 loc 21 discx lot7 loc 22 discx lot8 loc 23 discx lot9 loc 24 discx lot10 loc 25 com 3 impet10 clear ;CANNTIDAD...................................... disl eti10 loc 15 disrf unidado -30 com 3 impet11 clear ;PESO........................................... disl eti11 loc 15 disrf pesobru -52 loc 20 disl gra com 3 impet12 clear ;AVISO LOTE.................................... disl eti12 loc 15 disl eti12a com 3 impet13 clear ;AVISO PESO BRUTO............................... disl eti13 loc 15 disl eti13a com 3 impet14 clear ;LINEA......................................... disl eti14 loc 15 disl eti14a com 3 impet15 clear ;CODIGO DE PRODUCTO.............................. disl eti15 loc 15 discx cpro1 loc 16 discx cpro2 loc 17 discx cpro3 loc 18 discx cpro4 loc 19 discx cpro5 loc 20 discx cpro6 loc 21 discx cpro7 com 3 impet16 clear ;FECHA VENCIMIENTO.............................. disl eti16 loc 15 disch 50 ;2 loc 16 disch 48 ;0 loc 17 discx fecmm loc 18 discx fecmm1 loc 19 disch 47 ;/ es decir /20.. loc 20 discx fecaa loc 21 discx fecaa1 com 3 impet17 clear ;ORDEN............................................ disl eti17 loc 15 disrf numordi -60 com 3 impet18 clear ;AVISO CODIGO................................... disl eti18 loc 15 disl eti18a com 3 impet19 clear ;AVISO VENCIMIENTO............................. disl eti19 loc 15 disl eti19a com 3 impet20 clear ;AVISO ORDEN................................ disl eti20 loc 15 disl eti20a com 3 impet21 clear ;LINEA....................................... disl eti21 loc 15 disl eti21a com 3 impet22 clear ;NOMBRE PRODUCTO............................... disl eti22 loc 15 discx pro1 loc 16 discx pro2 loc 17 discx pro3 loc 18 discx pro4 loc 19 discx pro5 loc 20 discx pro6 loc 21 discx pro7 loc 22 discx pro8 loc 23 discx pro9 loc 24 discx pro10 loc 25 discx pro11 loc 26 discx pro12 loc 27 discx pro13 loc 28 discx pro14 loc 29 discx pro15 loc 30 discx pro16 loc 31 discx pro17 loc 32 discx pro18 loc 33 discx pro19 loc 34 discx pro20 loc 35 discx pro21 loc 36 discx pro22 loc 37 discx pro23 loc 38 discx pro24 loc 39 discx pro25 loc 40 discx pro26 loc 41 discx pro27 loc 42 discx pro28 loc 43 discx pro29 loc 44 discx pro30 loc 45 com 3 impet23 clear ;AVISO PRODUCTO............................ disl eti23 loc 15 disl eti23a com 3 impet24 clear ;NOMBRE LOGO.............................. disl eti24 loc 15 discx log1 loc 16 discx log2 loc 17 discx log3 loc 18 discx log4 loc 19 discx log5 loc 20 discx log6 loc 21 discx log7 loc 22 discx log8 loc 23 discx log9 loc 24 discx log10 loc 25 discx log11 loc 26 discx log12 loc 27 discx log13 loc 28 discx log14 loc 29 discx log15 loc 30 discx log16 loc 31 discx log17 loc 32 discx log18 loc 33 discx log19 loc 34 discx log20 loc 35 discx log21 loc 36 discx log22 loc 37 discx log23 loc 38 discx log24 loc 39 discx log25 com 3 impet25 clear ;NUMERO DE CAJA........................... disl eti25 loc 15 disrf numcajo -70 com 3 impet26 clear ;NOMBRE CANTIDAD........................... disl eti26 loc 15 disl eti26a com 3 impet27 clear ;E......................................... disch 69 com 3 impref ret ;--------------------------------- ;disa. display de saldo disa nop clear disrf peso 42 com 0 clear disl saldl com 1 clear disl ec com 2 ;------------------------------- ;diba. display basico solo el peso en com 0 diba nop clear disrf peso 42 com 0 dibaf ret ;----------------------------------------------- ;dica. display llenado de cajas dica nop ;peso actual clear disrf peso 42 com 0 clear ;unidades actuales disrf unac 40 com 1 movif unicaj movif unipes divf stof unicon clear ;unidades de control totales disrf unicon 40 com 2 dicaf ret ;----------------------------------------------- ;dili. display llenado de cajas listo dili nop ;peso actual clear disrf peso 42 com 0 clear ;unidades actuales disrf unac 40 com 1 clear disl listo com 2 dilif ret ;--------------------------------------------- ;menu. calibracion, configuracion, estabilidad menu nop clear ;muestra aviso menu disl men com 0 clear ;muestra aviso c/e disl ec com 1 ld enter ;se oprime cualquier tecla? or clear or arriba or izqui jz menu ;sino... se queda en loop ld clear ;oprimo clear? jnz menu10 jmp menu20 menu10 clear com 0 clear com 1 clear com 2 jmp menuf ;si....se salio a peba menu20 ld enter ;oprime enter? jnz menu30 jmp menu40 menu30 func 8 0 ;si....calibra jmp menu menu40 ld arriba ;oprime arriba? and izqui ;y izqui jnz menu50 jmp menu menu50 func 9 0 ;si...parametriza jmp menu menuf ret ;--------------------------------------- ;tempo. temporizador generico para tiempos cortos ;parametros: temtie=registro valor de tiempo tempo reset temaux1 reset temaux2 tempo1 ld temaux1 timr timtem temtie out temaux2 set temaux1 ld temaux2 jz tempo1 tempof ret ;------------------------------------------ ;tara. tarado automatico entre tolerancias ;param. taramen=tolerancia menor, taramas=tole mayor tara movrf peso movrf taramen cplf tara1 movrf peso movrf taramas cpgf tara1 jmp taraf tara1 call tarat jmp tara taraf ret tarat func 7 pesota clear disl tare com 2 setri temtie 10 call tempo clear disrf peso 42 com 0 taratf ret ;------------------------------------ &leavar ;[REG_RELAYS] boton equ 1 ;entrada 1 boton externo enter equ 30 clear equ 31 arriba equ 32 izqui equ 33 led118 equ 118 led121 equ 121 ;led de peso unidades control bajo en pere led122 equ 122 ;led de peso unidades control bien en pere led123 equ 123 ;led de peso unidades control alto en pere temaux1 equ 150 ;aux en tempo temaux2 equ 151 saldo equ 300 ;indica caja saldo al lv inirem equ 301 ;inicia pesado en ppal del lv fincaj equ 302 ;fin caja al lv abor equ 303 ;abortar procpes equ 304 ;proceso de pesado activo aboini equ 305 ;reinicio proceso pesado ;[REG_INTEGERS] temtie equ 150 ;tiempo en tempo taramen equ 151 ;tole menor de tara ej. -0.01 en tara taramas equ 152 ;tole mayor tara ej. 0.01 en tara pesota equ 153 ;en este reg. esta el # balanza a tarar unaci equ 154 ;unidades sobre balanza entero en peca unitol equ 300 ;tolerancia peso referencia del lv unipes equ 301 ;# unidades a controlar del lv unicaj equ 302 ;# unidades en caja del lv pesobru2 equ 303 pro1 equ 310 ;nombre producto del lv pro2 equ 311 pro3 equ 312 pro4 equ 313 pro5 equ 314 pro6 equ 315 pro7 equ 316 pro8 equ 317 pro9 equ 318 pro10 equ 319 pro11 equ 320 pro12 equ 321 pro13 equ 322 pro14 equ 323 pro15 equ 324 pro16 equ 325 pro17 equ 326 pro18 equ 327 pro19 equ 328 pro20 equ 329 pro21 equ 330 pro22 equ 331 pro23 equ 332 pro24 equ 333 pro25 equ 334 pro26 equ 335 pro27 equ 336 pro28 equ 337 pro29 equ 338 pro30 equ 339 lot1 equ 350 ;lote del lv lot2 equ 351 lot3 equ 352 lot4 equ 353 lot5 equ 354 lot6 equ 355 lot7 equ 356 lot8 equ 357 lot9 equ 358 lot10 equ 359 fecmm equ 362 ;fecha de vencimiento del lv fecmm1 equ 363 fecaa equ 360 fecaa1 equ 361 fecdd equ 364 fecdd1 equ 365 ean1 equ 370 ;codigo ean ean2 equ 371 ean3 equ 372 ean4 equ 373 ean5 equ 374 ean6 equ 375 ean7 equ 376 ean8 equ 377 ean9 equ 378 ean10 equ 379 ean11 equ 380 ean12 equ 381 ean13 equ 382 ean14 equ 383 eanini equ 390 eanfin equ 391 log1 equ 410 ;logo log2 equ 411 log3 equ 412 log4 equ 413 log5 equ 414 log6 equ 415 log7 equ 416 log8 equ 417 log9 equ 418 log10 equ 419 log11 equ 420 log12 equ 421 log13 equ 422 log14 equ 423 log15 equ 424 log16 equ 425 log17 equ 426 log18 equ 427 log19 equ 428 log20 equ 429 log21 equ 430 log22 equ 431 log23 equ 432 log24 equ 433 log25 equ 434 cpro1 equ 450 ;codigo del producto cpro2 equ 451 cpro3 equ 452 cpro4 equ 453 cpro5 equ 454 cpro6 equ 455 cpro7 equ 456 ;[REG_FLOATS] peso equ 0 ;peso del canal numcaji equ 100 ;# de caja del lv pesunii equ 101 ;peso de unidades a controlar de lv numordi equ 102 ;# de orden de lv numcajo equ 105 ;# de caja al lv pefuni equ 106 ;peso neto al lv pecaja equ 107 ;peso tara al lv unidado equ 108 ;# unidades en caja al lv pesobru equ 109 ;peso bruto de la caja pesobru1 equ 110 peunto equ 120 ;peso =/- de la tolerancia unidades en pere peunmax equ 121 ;peso maximo permitido de unidades en pere peunmin equ 122 ;peso minimo permitido de unidades en pere peret equ 123 ;peso de referencia de # unidades en pere pereu equ 124 ;peso de referencia por unidad en pere unac equ 125 ;unidades sobre la balanza en peca unicon equ 126 ;unidades de control a mostrar en peca ;[TIM] timtem equ 48 ;temporizador en tempo ;[CNT] ;[NOP] ;[TEXTOS] men lite "nenu" ;menu ec lite "E/C" ;menu cajvac lite "caja" ;cava cajvac1 lite "vaci" ;cava tare lite "tare" ;cava manu lite "menu" ;cava uni lite "unid" ;pere listo lite "list" ;dili saldl lite "sald" ;disa plat lite "plat" ;cava eti1 lite "191100200150170" ;peso en humano eti1a lite "(3302)" eti2 lite "1E1205000300050" ;peso en codbar eti2a lite "C&G3302" eti3 lite "102200101000065" ;codbar en humano eti4 lite "1E1205001100030" ;codbar en barras eti4a lite "C&G01" eti4b lite "&G10&F" eti5 lite "1X1100001900020" ;cuadro eti5a lite "B360180002002" eti6 lite "1X1100001900020" ;lineas eti6a lite "L360000" eti7 lite "1X1100001900150" ;lineas eti7a lite "L000100" eti8 lite "1X1100001900270" ;linea eti8a lite "L000100" eti9 lite "192200101950030" ;lote eti10 lite "192200101950165" ;cantidad eti11 lite "192200101950290" ;peso eti12 lite "191100202200030" ;lote eti12a lite "Lote" eti13 lite "191100202200290" ;peso bruto eti13a lite "Peso Bruto" eti14 lite "1X1100002400020" ;linea eti14a lite "L360000" eti15 lite "192200102450030" ;codigo de producto eti16 lite "192200102450165" ;fecha eti17 lite "192200102450290" ;orden eti18 lite "191100202700030" ;codigo eti18a lite "Codigo" eti19 lite "191100202700165" ;vencimiento eti19a lite "Vencimiento" eti20 lite "191100202700290" ;orden eti20a lite "Orden" eti21 lite "1X1100002900020" ;linea eti21a lite "L360000" eti22 lite "191100402900030" ;nombre de producto eti23 lite "191100203100030" ;producto eti23a lite "Producto" eti24 lite "192300103250030" ;nombre empresa eti25 lite "192100103200300" ;numero de caja eti26 lite "191100202200165" ;aviso cantidad eti26a lite "Cantidad" cerouno lite "(01)" diez7 lite "(17)" diez7s lite "17" diez lite "(10)" 3cero lite "000" 2cero lite "00" gra lite "Kg" tre7s lite "37" tre7 lite "(37)" ;inicio variables setri 127 70 setri pesota 0 ;registro de balanza movcf 0.01 ;max y min de tarado stof taramas ;en tara movcf -0.01 stof taramen setri pro1 32 setri pro2 32 setri pro3 32 setri pro4 32 setri pro5 32 setri pro6 32 setri pro7 32 setri pro8 32 setri pro9 32 setri pro10 32 setri pro11 32 setri pro12 32 setri pro13 32 setri pro14 32 setri pro15 32 setri pro16 32 setri pro17 32 setri pro18 32 setri pro19 32 setri pro20 32 setri pro21 32 setri pro22 32 setri pro23 32 setri pro24 32 setri pro25 32 setri pro26 32 setri pro27 32 setri pro28 32 setri pro29 32 setri pro30 32 setri lot1 32 setri lot2 32 setri lot3 32 setri lot4 32 setri lot5 32 setri lot6 32 setri lot7 32 setri lot8 32 setri lot9 32 setri lot10 32 setri fecmm 32 setri fecmm1 32 setri fecaa 32 setri fecaa1 32 setri ean1 32 setri ean2 32 setri ean3 32 setri ean4 32 setri ean5 32 setri ean6 32 setri ean7 32 setri ean8 32 setri ean9 32 setri ean10 32 setri ean11 32 setri ean12 32 setri ean13 32 setri ean14 32 setri eanini 32 setri eanfin 32 setri log1 32 setri log2 32 setri log3 32 setri log4 32 setri log5 32 setri log6 32 setri log7 32 setri log8 32 setri log9 32 setri log10 32 setri log11 32 setri log12 32 setri log13 32 setri log14 32 setri log15 32 setri log16 32 setri log17 32 setri log18 32 setri log19 32 setri log20 32 setri log21 32 setri log22 32 setri log23 32 setri log24 32 setri log25 32 setri cpro1 32 setri cpro2 32 setri cpro3 32 setri cpro4 32 setri cpro5 32 setri cpro6 32 setri cpro7 32 movci 1 ;estado para pruebas locales movri 1100 cpei leavara jmp &leavarf leavara call vartem &leavarf ret ;---------------------------------------------------------- vartem ;temporales de prueba entra cuando el registro entero 1100 eeprom esta en 1 setri unipes 10 setri unitol 2 setri unicaj 20 movcf 1 stof pesunii setri ean1 48 setri ean2 55 setri ean3 56 setri ean4 54 setri ean5 48 setri ean6 55 setri ean7 56 setri ean8 54 setri ean9 48 setri ean10 55 setri ean11 56 setri ean12 54 setri ean13 48 setri ean14 55 setri lot1 48 setri lot2 55 setri lot3 56 setri lot4 54 setri lot5 48 setri lot6 55 setri lot7 56 setri lot8 54 setri lot9 48 setri lot10 55 setri fecaa 49 setri fecaa1 50 setri fecmm 48 setri fecmm1 52 vartemf ret ;-----------------------------------------------