org $2000
			
			.var time .word
			.var i,b,radius,x,y,result .word = $80
			.var fac1,fac2 .byte = $e0
			
			mwa #16129 radius
			mwa #0 i
			mwa #0 b

			wait
			mwa #0 $13
			
loop		#while .word i < #10000

			inw i
			
			lda $d20a
			and #$7f
			sta fac1
			sta fac2
			multi
			mwa result x
			
			lda $d20a
			and #$7f
			sta fac1
			sta fac2
			multi
			mwa result y
			
			adw x y
			
			sbw x radius
			bcs loop
			inw b
					
			#end	
			
			mva #0 x
			lda b+1
			sta fac1
			lda #4
			sta fac2
			multi
			mva result x+1			

			lda b
			sta fac1
			lda #4
			sta fac2
			multi
			mwa result y	
			
			adw x y		
				
			mva $14 time
			mva $13 time+1
			
			jsr printf
			.by 'pi %',$1e,$1e,$1e,$1e,$ff,$2c,$9b
			.by 'fps % ',$9b,0
			dta a(x)
			dta a(time)
			
			jmp *
			
			.proc wait
				lda:cmp:req $14
				rts
			.endp
			
			.proc multi
		        lda #$00
		        ldx #$08
		        clc
m0				bcc m1
		        clc
		        adc fac2
m1				ror
		        ror fac1
		        dex
		        bpl m0
		        ldx fac1
				stx result
				sta result+1			        
		        rts
			.endp
			
			
			.link 'printf.obx'