mida 14

;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 
;-------------------------------------------------------------

scan		equ	99

;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
		jmp	ini2

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
		jmp	fin
		

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 fraccionamineto-----------------------------

fra		movcf	0
	      stof	totagu
		movcf	0
		stof	totgra
		movcf	0
		stof	totare
		movcf	0
		stof	totcem
		movci	0
		stoi	agua

fra1		movrf	fac_agu
		movif	agua	
		mulf
		stof	totagu

		call	disp

		ld	carcem	;cemento inicia el cargue
		jnz	fra11
		jmp	fra12

fra11		movrf	pesoc		;peso del cemento en temporal
		stof	tetotcem
		set	auxcem

fra12		ld	descem	;abre descarga cemento
		jnz	fra13
		jmp	fra2

fra13		ld	auxcem
		jnz	fra14
		jmp	fra2

fra14		movrf	tetotcem	;acumula el total de cemento
		movrf	totcem
		addf
		stof	totcem
		reset	auxcem

fra2		ld	cargra	;inicia cargue grava
		jnz	fra21
		jmp	fra22

fra21		movrf	pesoa		;peso de grava a temporal
		stof	tetotgra
		set	auxgra			

fra22		ld	desari	;abre descarga aridos
		jnz	fra23
		jmp	fra3

fra23		ld	auxgra
		jnz	fra24
		jmp	fra3


fra24		movrf	tetotgra	;acumula el total en grava
		movrf	totgra	
		addf
		stof	totgra
		reset	auxgra

fra3		ld	carare	;inicia cargue arena
		jnz	fra31
		jmp	fra32

fra31		movrf	pesoa		;peso de arena a temporal
		stof	tetotare
		set	auxare

fra32		ld	desari	;abre descarga aridos
		jnz	fra33
		jmp	fra4

fra33		ld	auxare
		jnz	fra34
		jmp	fra4


fra34		movrf	tetotare	;acumula el total en arena
		movrf	totare
		addf
		stof	totare
		reset	auxare

fra4		ld	star
		jnz	fra1

frafin	ret

;disp  muestra en indicadores-------------------------
;0=aridos	1=cemento	2=agua

disp
		clear
		disrf	pesoc	40
		com	1
		clear
		disrf	pesoa	40
		com	0
		clear
      	disrf	totagu	31
		com	2
            clear     
		ret

;menu  ,emu 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	ent
		and	cle
		out	auxmen3
		ld	auxmen3
		jnz	menu5
		jmp	menufin

menu5		clear
		disl	facagu
		com	0
		clear
		disl	aguu
		com	1
		inpfx	auxinp	auxinp1

menu6		ld	scainp
		jnz	menu6
		
menufin	ret
		

---------------------------------------------------------
leavar
;[REG_RELAYS]

star		equ	0	;inicio proceso pesado
carcem	equ	1	;cargue cemento
descem	equ	2	;descarge cemento
cargra	equ	3	;cargue grava
pulagu	equ	4	;contaje pulsos agua
desari	equ	5	;descargue aridos
carare	equ	6	;cargue arena

ent		equ	30
cle		equ	31
arr		equ	32
izq		equ	33

scainp	equ	98
auxmen1	equ	130
auxmen	equ	131
auxmen2	equ	132
auxmen3	equ	133
aux1		equ	134
aux2		equ	135
auxcem	equ	136
auxgra	equ	137
auxare	equ	138

 
;[REG_INTEGERS] 

agua		equ	104	;contador agua
auxinp	equ	150
auxinp1	equ	151

;[REG_FLOATS]

pesoa		equ	0	;peso aridos
pesoc		equ	1	;peso cemento

fac_agu	equ	9	;factor agua
totagu	equ	10	;total agua
totgra	equ	11	;total grava
totare	equ	12	;total arena
totcem	equ	13	;total cemento
tetotcem	equ	14	'temporal total cemento
tetotagu	equ	15	;temporal total agua
tetotgra	equ	16	;temporal total grava
tetotare	equ	17	;temporal total arena


;[TIM] 

;[CNT] 

;[TEXTOS]

facagu	lite	"fact"
aguu		lite	"agua"

		setri	auxinp	9
		setri	auxinp1	21

		ret

;-----------------------------------------------