mida 64 ;------------------------------------------------------------- ;Aplicación -> ;Fecha -> ; comunicacion com1 9600,n,7,1 ;programa que tiene rafael trabajandop en la planta de la av. cali modi a m64 ;------------------------------------------------------------- scan equ 399 ;programa principal------------------------------------------- &ini ld scan jz &lea jmp inicio &lea call leavar inicio call disp call menu ld star ;esta en 1 entrada 0? jnz ini1 movcf 0 stof totagu movcf 0 stof totgra movcf 0 stof totare movcf 0 stof totcem movci 0 stoi agua movci 0 stoi adit reset auxcem reset auxgra reset auxare jmp fin ini1 call fra ;fraccionamineto jmp fin ini2 ;ld aux1 ;tim 48 20 ;out aux2 ;set aux1 ;ld aux2 ;jnz ini3 ;jmp fin ini3 ;call imp ;envia al serial los datos finales fin end ;impre envia a puerto serial los datos finales----------------- imp reset aux1 reset aux2 clear disrf totagu 41 loc 6 disrf totgra 41 loc 12 disrf totare 41 loc 18 disrf totcem 41 ;com 3 impfin ret ;frac inicio del fracxcionamineto----------------------------- fra fra1 movrf fac_agu movif agua mulf stof totagu movrf fac_adi movif adit mulf stof totadi ld resadi jz fra10 movci 0 stoi adit fra10 call disp ld carcem ;cemento inicia el cargue jnz fra11 jmp fra12 fra11 set auxcem fra12 ld descem ;abre descarga cemento jnz fra13 jmp fra2 fra13 ld auxcem jnz fra14 jmp fra2 fra14 movrf pesoc ;peso del cemento en temporal movrf totcem addf stof totcem reset auxcem fra2 ld cargra ;inicia cargue grava jnz fra21 jmp fra22 fra21 set auxgra fra22 ld desari ;abre descarga aridos jnz fra23 jmp fra3 fra23 ld auxgra jnz fra24 jmp fra3 fra24 movrf pesoa ;acumula peso grava movrf totgra addf stof totgra reset auxgra fra3 ld carare ;inicia cargue arena jnz fra31 jmp fra32 fra31 set auxare fra32 ld desari ;abre descarga aridos jnz fra33 jmp fra4 fra33 ld auxare jnz fra34 jmp fra4 fra34 movrf pesoa ;acumula peso arena movrf totare addf stof totare reset auxare fra4 frafin ret ;disp muestra en indicadores------------------------- ;0=aridos 1=cemento 2=agua disp clear disrf pesoc 40 loc 8 disrf pesoa 40 loc 16 disrf totadi 41 com 0 clear disrf totagu 31 com 3 ret ;menu de pantalla---------------------------------- menu ld arr and izq out auxmen1 ld auxmen1 jnz menu1 jmp menu2 menu1 func 8 0 menu2 ld izq and cle out auxmen2 ld auxmen2 jnz menu3 jmp menu4 menu3 func 9 0 menu4 ld 360 jnz menu5 jmp menu6 menu5 clear disl facagu loc 5 disl aguu com 0 loc 16 com 0 inf 5 stof fac_agu com 0 jmp menufin menu6 ld 361 jnz menu7 jmp menufin menu7 clear disl facadi loc 5 disl aditt com 0 loc 16 com 0 inf 5 stof fac_adi com 0 menu8 ld scainp jnz menu7 menufin ret --------------------------------------------------------- leavar ;[REG_RELAYS] pulagu equ 0 ;contaje pulsos agua puladi equ 1 star equ 4 ;inicio proceso pesado carcem equ 5 ;cargue cemento descem equ 6 ;descarge cemento cargra equ 7 ;cargue grava desari equ 8 ;descargue aridos carare equ 9 ;cargue arena resadi equ 10 ;reset aditivo pushbotton ent equ 340 cle equ 341 arr equ 342 izq equ 343 scainp equ 391 auxmen1 equ 400 auxmen equ 401 auxmen2 equ 402 auxmen3 equ 403 aux1 equ 404 aux2 equ 405 auxcem equ 406 auxgra equ 407 auxare equ 408 ;[REG_INTEGERS] agua equ 0 ;contador agua adit equ 5 ;contador aditivo auxinp equ 300 auxinp1 equ 301 ;[REG_FLOATS] pesoa equ 1 ;peso aridos pesoc equ 0 ;peso cemento fac_agu equ 20 ;factor agua fac_adi equ 21 totagu equ 22 ;total agua totadi equ 23 totgra equ 24 ;total grava totare equ 25 ;total arena totcem equ 26 ;total cemento tetotcem equ 27 'temporal total cemento tetotagu equ 28 ;temporal total agua tetotgra equ 29 ;temporal total grava tetotare equ 30 ;temporal total arena ;[TIM] ;[CNT] ;[TEXTOS] facagu lite "fact" aguu lite "agua" facadi lite "fact" aditt lite "aditivo" setri auxinp 9 setri auxinp1 21 ret ;-----------------------------------------------