;PRUE14FLO.PRG
	
     mida 14

;PROGRAMA FLORESTA
   	    	         	
;def variables
  	            	
;[reg_relays]

ent	equ	30
cle	equ	31
mem	equ	300
	    	            	
;[reg_integer]
    	            	
;[reg_floats]
  	    	            	
peso0		equ	10
peso1		equ	11
lit		equ	12
litstop	equ	13
litfin	equ	14

ini		
	call		display
	call		menu
	call		litros
fin	end

;display

display
      	            	
dis0		movrf	0
		stof	peso0
		movrf	1
		stof	peso1
		clear
		disrf	peso0		40
		com	0
  		clear
  		disrf	peso1		40
  		com	1
  		ret
;menu

menu	
  	    	            	
men0		ld	ent
		and	cle
		out	mem
		ld	mem
		jnz	men1
		jmp	menf
	    	            	
men1		func	8	0
		func	9	0
		inf	1	1
		stof	lit
		clear
		inf	2	1
		stof	litstop	
	    	            	
menf		ret
;litros

litros
 	    	            	
lit0		ld	0
		jnz	lit001
		jmp	lit002
  	    	            	
lit001	movci	0
		stoi	104
	    	            		
lit002	ld	2
		jnz	lit00
		reset	105
		jmp	lit1
  	    	            	
lit00		movrf	litfin
	  	movrf	litstop
		cpgef	lit01	
  	    	            		
		set	105
		jmp	lit1
    	            	
lit01		reset	105
	    	            	
lit1		movif	104
		movrf	lit
		mulf
		stof	litfin
	    	            	
		clear
		disrf	litfin	41
		com	2
		movrf	litfin
		movrf	litstop	
		cpgef	lit2
		jmp	litf
lit2		reset	105
    	            	
litf		ret