mida 14
;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 
;-------------------------------------------------------------

scan		equ	99

;programa principal---------------------------------------

&ini		ld	scan
		jz	&lea
		jmp	INICIA
&lea		call	&leavar



TEMPI	EQU	160
TEMP	EQU	4
TEMP2	EQU	5
FSR	EQU	159
TEMPR	EQU	127
AUX1	EQU	165
AUX2	EQU	166

TEXT1	LITE	"UNO"
TEXT2	LITE	"DOS"

INICIO
	
	SETRI	127	1
	MOVRF	0
	STOF	10
	CALL	ORDENA
	SETRI	162	1
	CALL	ENVIA
	
	CLEAR
	DISL	0
	COM	0

	CALL	TEMPO

	CLEAR
	DISL	1
	COM	0

	END

;**************************************
;*	RUTINA DE ORGANIZACION DE 
;*	   DATOS PARA ENVIO AL
;*        VISUALIZADOR SERIE
;**************************************
ORDENA
	MOVCF	1
	STOF	TEMP
	MOVCF	100000
	STOF	TEMP2
	SETRI	32
	SET	TEMPR
LOOP0
	MOVRF	10
	MOVRF	TEMP
	CPLEF	DESCOMPONE
	MOVRF	TEMP
	MOVCF	10
	MULF
	STOF	TEMP
	LD	TEMPR
	JZ	DECREMENTA
	RESET	TEMPR
	JMP	LOOP0
DECREMENTA
	MOVRF	TEMP2
	MOVCF	10
	DIVF
	STOF	TEMP2
	MOVRI	TEMPI
	MOVCI	2
	DIVI	
	STOI	TEMPI
	LD	TEMPR
	JZ	LOOP0
	RESET	TEMPR
	JMP	LOOP0
DESCOMPONE
	MOVRI	TEMPI
	MOVRF	TEMP2
	MOVRF	10
	MULF	
	STOF	11
	STOI	156
	MOVCF	100000
	STOF	TEMP
	MOVCI	155
	STOI	FSR
LOOP1
	MOVRF	11
	MOVRF	TEMP
	DIVF
	MOVCF	0.5
	SUBF
	STOFI	157
	MOVRI	157
	MOVCI	9
	CPLEI	NCERO
	MOVCI	0
	JMP	DATO
NCERO	
	MOVRI	157
	MOVCI	1
	CPGEI	NCERO1
	MOVCI	0
	JMP	DATO
NCERO1
	MOVRI	157
DATO
	STOIX	FSR
	MOVIF	157
	MOVRF	TEMP
	MULF
	STOF	TEMP2
	MOVRF	11
	MOVRF	TEMP2
	SUBF
	STOF	11
	MOVRI	FSR
	MOVCI	1
	SUBI
	STOI	FSR
	MOVRI	FSR
	MOVCI	149
	CPEI	FLOOP1
	MOVRF	TEMP
	MOVCF	10
	DIVF
	STOF	TEMP
	JMP	LOOP1
FLOOP1
	RET

;**************************************
;*	RUTINA DE ENVIO DE 
;* DATOS AL VISUALIZADOR SERIE
;**************************************
ENVIA
	MOVRI	162
	COM	9
	DISB	2	1
	COM	3
	CLEAR

	MOVRI	150
	COM	9
	DISB	0	1
	COM	3
	CLEAR

	MOVRI	151
	COM	9
	DISB	0	1
	COM	3
	CLEAR

	MOVRI	152
	COM	9
	DISB	0	1
	COM	3
	CLEAR

	MOVRI	153
	COM	9
	DISB	0	1
	COM	3
	CLEAR

	MOVRI	154
	COM	9
	DISB	0	1
	COM	3
	CLEAR

	MOVRI	155
	COM	9
	DISB	0	1
	COM	3
	CLEAR

	MOVRI	156
	COM	9
	DISB	0	1
	COM	3
	CLEAR

	MOVCI	59
	COM	9
	DISB	0	1
	COM	3
	CLEAR
	RET

TEMPO
	RESET	AUX1
	RESET	AUX2
TEMPO1
	LD	AUX1
	TIM	48	10
	OUT	AUX2	
	SET	AUX1
	LD	AUX2
	JZ	TEMPO1
	RET

&leavar
;[REG_RELAYS]
 
;[REG_INTEGERS] 

;[REG_FLOATS]

;[TIM] 

;[CNT] 

;[NOP]

;VARIABLES PARA INICIAR

&leavarf		ret