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

	movrf	320
	movrf	321
	addf
	stof	332


	movrf	302
	movcf	7
	cpgf	ini4
	jmp	ini5

ini4	movrf	302
	movcf	8
	subf	
	stof	302


	movrf	332
	movcf	2
	mulf
	stof	332

	movrf	332
	movcf	1
	addf
	stof	332

ini5	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
	movrf	331
	stof	339

	movcf	1
	movrf	331
	addf
	stof	331

	movcf	1
	stof	338

	movrf	300
	movcf	8
	cpgf	ini2
	jmp	ini3

ini2	movcf	-1
	stof	338

ini3	movrf	332
	stof	335

	movrf	332
	movcf	127
	subf
	stof	332
	movrf	332
	stofi	340

ini31	movci	0
	stoi	341
	movcf	1	
	stof	337

ini32	movcf	2
	movrf	337
	mulf
	stof	337
	inc	341	1
	
	movri	341
	movri	340
	cpli	ini32
	


	

	movrf	337
	movrf	331
	mulf
	stof	333

	movrf	338
	movrf	333
	mulf
	stof	333


FIN		end