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

;[REG_RELAYS]
 
;[REG_INTEGERS] 

;[REG_FLOATS]

;[TIM] 

;[CNT] 

;[NOP]

;-----------------------------------------------
INICIO		nop

	LD	318
	JNZ	INI0
	JMP	FIN

	

INI0	MOVRI	22
	MOVCI	8
	CPEI	INI1
	JMP	FIN

INI1	MOVRI	22
	STOI	305
	CLEAR	
	COM	9
	com	0

	LOC	0
	LECB	3	1
	STOi	300
	MOVIF	300
	STOF	300

	LOC	1
	LECB	3	1
	STOI	301
	MOVIF	301
	STOF	301

	LOC	2
	LECB	3	1
	STOI	302
	MOVIF	302
	STOF	302

	LOC	3
	LECB	3	1
	STOI	303
	MOVIF	303
	STOF	303

	LOC	4
	LECB	3	1
	STOI	304
	MOVIF	304
	STOF	304

	LOC	5
	LECB	3	1
	STOI	305
	MOVIF	305
	STOF	305

	LOC	6
	LECB	3	1
	STOI	306
	MOVIF	306
	STOF	306

	LOC	7
	LECB	3	1
	STOI	307
	MOVIF	307
	STOF	307

	movcf	16
	movrf	300
	mulf
	stof	320

	movcf	1
	movrf	301
	mulf
	stof	321

	movcf	1048576
	movrf	302
	mulf
	stof	322

	movcf	65536
	movrf	303
	mulf
	stof	323

	movcf	4096
	movrf	304
	mulf
	stof	324

	movcf	256
	movrf	305
	mulf
	stof	325

	movcf	16
	movrf	306
	mulf
	stof	326

	movcf	1
	movrf	307
	mulf
	stof	327

	movrf	0
	stof	330


	;movrf	320
	;movrf	321
	;addf
	;stof	330

	movrf	330
	movrf	322
	addf
	stof	330

	movrf	330
	movrf	323
	addf
	stof	330

	movrf	330
	movrf	324
	addf
	stof	330

	movrf	330
	movrf	325
	addf
	stof	330

	movrf	330
	movrf	326
	addf
	stof	330

	movrf	330
	movrf	327
	addf
	stof	330

	movcf	0.0000001192092896
	movrf	330
	mulf
	stof	331

	movcf	1
	movrf	331
	addf
	stof	331

	movrf	320
	movrf	321
	addf
	stof	332

	movrf	332
	movcf	127
	cpgi	ini3
	jmp	ini2

ini2	movrf	332	
	movcf	-1
	mulf
	stof	332

ini3	movcf	127
	movrf	332
	subf
	stof	332

	movrf	332
	movcf	2
	mulf	
	stof	332

	movrf	332
	movrf	331
	addf
	stof	333

FIN		end