mida 64
;-------------------------------------------------------------
;aplicación 	-> flota.prg
;fecha		-> julio 23 2003
;lee por protocolo libre una respuesta, toma los 32 bits y guarda en fflotaf resultado.
;-------------------------------------------------------------

;[reg_relays]
 
;[reg_integers] 

fbit1i	equ	300
fbit2i	equ	301
fbit3i	equ	302
fbit4i	equ	303
fbit5i	equ	304
fbit6i	equ	305
fbit7i	equ	306
fbit8i	equ	307
floci		equ	310

faux40i	equ	311
faux41i	equ	312


;[reg_floats]

fbit1f	equ	320
fbit2f	equ	321
fbit3f	equ	322
fbit4f	equ	323
fbit5f	equ	324
fbit6f	equ	325
fbit7f	equ	326
fbit8f	equ	327
ftotf		equ	330
ftxkf		equ	331
f1a2f		equ	332
fflotaf	equ	333
faux35f	equ	335
faux37f	equ	337
faux38f	equ	338
faux39f	equ	339

;inicio variables------------------------
	


;-----------------------------------------------
flocio		nop

	movci	0
	stoi	floci

	ld	318
	jnz	flo0
	jmp	ffin

	

flo0	movri	22
	movci	8
	cpei	flo1
	jmp	ffin

flo1	clear	
	com	9
	com	0

	locx	floci
	lecb	3	1
	stoi	fbit1i
	movif	fbit1i
	stof	fbit1f
	inc	floci	1

	locx	floci
	lecb	3	1
	stoi	fbit2i
	movif	fbit2i
	stof	fbit2f
	inc	floci	1

	locx	floci
	lecb	3	1
	stoi	fbit3i
	movif	fbit3i
	stof	fbit3f
	inc	floci	1

	locx	floci
	lecb	3	1
	stoi	fbit4i
	movif	fbit4i
	stof	fbit4f
	inc	floci	1

	locx	floci
	lecb	3	1
	stoi	fbit5i
	movif	fbit5i
	stof	fbit5f
	inc	floci	1

	locx	floci
	lecb	3	1
	stoi	fbit6i
	movif	fbit6i
	stof	fbit6f
	inc	floci	1

	locx	floci
	lecb	3	1
	stoi	fbit7i
	movif	fbit7i
	stof	fbit7f
	inc	floci	1

	locx	floci
	lecb	3	1
	stoi	fbit8i
	movif	fbit8i
	stof	fbit8f

	movcf	16
	movrf	fbit1f
	mulf
	stof	fbit1f

	movcf	1
	movrf	fbit2f
	mulf
	stof	fbit2f

	movrf	fbit1f
	movrf	fbit2f
	addf
	stof	f1a2f
	
	movrf	f1a2f
	stof	faux35f




	movrf	f1a2f
	movcf	2
	mulf
	stof	f1a2f

	movrf	fbit3f
	movcf	7
	cpgf	flo4
	jmp	flo5

flo4	movrf	fbit3f
	movcf	8
	subf	
	stof	fbit3f

	movrf	f1a2f
	movcf	1
	addf
	stof	f1a2f

flo5	movcf	1048576
	movrf	fbit3f
	mulf
	stof	fbit3f

	movcf	65536
	movrf	fbit4f
	mulf
	stof	fbit4f

	movcf	4096
	movrf	fbit5f
	mulf
	stof	fbit5f

	movcf	256
	movrf	fbit6f
	mulf
	stof	fbit6f

	movcf	16
	movrf	fbit7f
	mulf
	stof	fbit7f

	movcf	1
	movrf	fbit8f
	mulf
	stof	fbit8f

	movrf	0
	stof	ftotf

	movrf	ftotf
	movrf	fbit3f
	addf
	stof	ftotf

	movrf	ftotf
	movrf	fbit4f
	addf
	stof	ftotf

	movrf	ftotf
	movrf	fbit5f
	addf
	stof	ftotf

	movrf	ftotf
	movrf	fbit6f
	addf
	stof	ftotf

	movrf	ftotf
	movrf	fbit7f
	addf
	stof	ftotf

	movrf	ftotf
	movrf	fbit8f
	addf
	stof	ftotf

	movcf	0.0000001192092896
	movrf	ftotf
	mulf
	stof	ftxkf
	movrf	ftxkf
	stof	faux39f

	movcf	1
	movrf	ftxkf
	addf
	stof	ftxkf

	movcf	1
	stof	faux38f

	movrf	fbit1f
	movcf	127
	cpgf	flo2
	jmp	flo3

flo2	movcf	-1
	stof	faux38f

flo3
	movrf	f1a2f
	movcf	127
	subf
	stof	f1a2f
	movrf	f1a2f
	stofi	faux40i

flo31	movci	0
	stoi	faux41i
	movcf	1	
	stof	faux37f

flo32	movcf	2
	movrf	faux37f
	mulf
	stof	faux37f
	inc	faux41i	1
	
	movri	faux41i
	movri	faux40i
	cpli	flo32

	movrf	faux37f
	movrf	ftxkf
	mulf
	stof	fflotaf

	movrf	faux38f
	movrf	fflotaf
	mulf
	stof	fflotaf


ffin		end