Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.section	".text"
		.Ltext0:
				.section	.rodata.cst8,"aM",@progbits,8
				.align 8
		.LC14:
				.long	1072693248
				.long	0
				.section	".text"
				.align 4
				.proc	07
		EVALBERN3.6089:
		.LFB189:
				.register	%g2, #scratch
				.register	%g7, #ignore
		.LVL16:
				sethi	%hi(45056), %g1
				xor	%g1, -720, %g1
				save	%sp, %g1, %sp
		.LVL17:
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
    2 %const %string (1) snl = "
				mov	%i1, %o1
				call	_imp_initialise, 0
				 mov	%i0, %o0
		.LVL18:
				sethi	%hi(45056), %i5
				xor	%i5, -264, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i2
				mov	254, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 2, %o0
		.LVL19:
				mov	1, %g1
				add	%fp, 2047, %g2
				stb	%g1, [%g2+%i4]
				mov	10, %g1
				stb	%g1, [%i2+1]
		.LVL20:
		.LBB888:
		.LBB889:
    3 "
    4
    5 %routine tobern2(%long %real a0, %long %real a1, %long %real a2, %long %real %name b0, %long %real %name b1, %long %real %name b2)
    6      b0 = a0
    7      b1 = a0 + a1 / 2
    8      b2 = a0 + a1 + a2
    9 %end
   10
   11 { uses de Casteljau’s algorithm }
   12 %long %real %fn evalbern2(%long %real b0, %long %real b1, %long %real b2, %long %real t)
   13     %long %real s = 1.0 - t
   14     %long %real b01 = s * b0 + t * b1
   15     %long %real b12 = s * b1 + t * b2
   16     %result = s * b01 + t * b12
   17 %end
   18
   19 %routine tobern3(%long %real a0, %long %real a1, %long %real a2, %long %real a3, %long %real %name b0, %long %real %name b1, %long %real %name b2, %long %real %name b3)
   20     b0 = a0
   21     b1 = a0 + a1 / 3
   22     b2 = a0 + a1 * 2/3 + a2 / 3
   23     b3 = a0 + a1 + a2 + a3
   24 %end
   25
   26 { uses de Casteljau’s algorithm }
   27 %long %real %fn evalbern3(%long %real b0, %long %real b1, %long %real b2, %long %real b3, %long %real t)
		.LVL0:
   28     %long %real s = 1 - t
   29     %long %real b01  = s * b0  + t * b1
				sethi	%hi(.LC14), %g1
				ldd	[%g1+%lo(.LC14)], %f10
				fsubd	%f10, %f8, %f10
		.LVL1:
   30     %long %real b12  = s * b1  + t * b2
				fmuld	%f10, %f0, %f0
		.LVL3:
				fmuld	%f8, %f2, %f2
		.LVL4:
				faddd	%f0, %f2, %f0
		.LVL5:
   31     %long %real b23  = s * b2  + t * b3
				fmuld	%f10, %f2, %f12
				fmuld	%f8, %f4, %f14
				faddd	%f12, %f14, %f12
		.LVL2:
   32     %long %real b012 = s * b01 + t * b12
				fmuld	%f10, %f4, %f4
		.LVL9:
				fmuld	%f8, %f6, %f6
		.LVL10:
				faddd	%f4, %f6, %f4
		.LVL11:
				fmuld	%f4, %f8, %f4
		.LVL12:
				fmuld	%f10, %f12, %f10
		.LVL13:
				faddd	%f4, %f10, %f4
		.LVL14:
				fmuld	%f4, %f8, %f8
		.LVL15:
   33     %long %real b123 = s * b12 + t * b23
				fmuld	%f0, %f10, %f0
		.LVL6:
				fmuld	%f8, %f12, %f14
				faddd	%f0, %f14, %f0
		.LVL7:
   34     %result = s * b012 + t * b123
				fmuld	%f0, %f10, %f0
		.LVL8:
   35 %end
				jmp	%o7+8
				 faddd	%f0, %f8, %f0
		.LFE189:
				.section	".rodata"
		.LC1:
				.byte	9
				.asciz	"  mono ( "
				.skip	245
		.LC2:
				.byte	2
				.asciz	", "
				.skip	252
		.LC3:
				.byte	13
				.asciz	") --> bern ( "
				.skip	241
		.LC6:
				.byte	6
				.asciz	"  p ( "
				.skip	248
		.LC7:
				.byte	4
				.asciz	") = "
				.skip	250
		.LC8:
				.byte	6
				.asciz	"  q ( "
				.skip	248
		.LC11:
				.byte	6
				.asciz	"  r ( "
				.skip	248
		.LC13:
				.byte	9
				.asciz	"  bern ( "
				.skip	245
				.section	.rodata.cst8
				.align 8
		.LC15:
				.long	1072693248
				.long	0
				.align 8
		.LC16:
				.long	0
				.long	0
				.align 8
		.LC17:
				.long	1073741824
				.long	0
				.align 8
		.LC18:
				.long	1074266112
				.long	0
				.align 8
		.LC19:
				.long	1075314688
				.long	0
				.align 8
		.LC20:
				.long	1070596096
				.long	0
				.align 8
		.LC21:
				.long	1075707904
				.long	0
				.align 8
		.LC22:
				.long	1073414144
				.long	0
				.align 8
		.LC23:
				.long	1080498176
				.long	0
				.align 8
		.LC24:
				.long	1073392298
				.long	-1431655766
				.align 8
		.LC25:
				.long	1074440874
				.long	-1431655766
				.align 8
		.LC26:
				.long	1074790400
				.long	0
				.align 8
		.LC27:
				.long	1076101120
				.long	0
				.section	".text"
				.align 4
				.global main
				.proc	04
		main:
		.LFB185:
   36
   37 %routine bern2to3(%long %real q0, %long %real q1, %long %real q2, %long %real %name c0, %long %real %name c1, %long %real %name c2, %long %real %name c3)
   38     c0 = q0
   39     c1 = q0 / 3   + q1 * 2/3
   40     c2 = q1 * 2/3 + q2 / 3
   41     c3 = q2
   42 %end
   43
   44 { uses Horner's rule }
   45 %long %real %fn evalmono2(%long %real a0, %long %real a1, %long %real a2, %long %real t)
   46     %result = a0 + (t * (a1 + (t * a2)))
   47 %end
   48
   49 { uses Horner's rule }
   50 %long %real %fn evalmono3(%long %real a0, %long %real a1, %long %real a2, %long %real a3, %long %real t)
   51     %result = a0 + (t * (a1 + (t * (a2 + (t * a3)))))
   52 %end
   53
   54     %long %real p0m, p1m, p2m, q0m, q1m, q2m, r0m, r1m, r2m, r3m
   55     %long %real p0b2, p1b2, p2b2, q0b2, q1b2, q2b2
   56     %long %real p0b3, p1b3, p2b3, p3b3, q0b3, q1b3, q2b3, q3b3, r0b3, r1b3, r2b3, r3b3
   57     %long %real pc0, pc1, pc2, pc3, qc0, qc1, qc2, qc3
   58
   59     %long %real x, y, m
   60
   61     p0m = 1; p1m = 0; p2m = 0
   62     q0m = 1; q1m = 2; q2m = 3
   63     r0m = 1; r1m = 2; r2m = 3; r3m = 4
   64
   65     tobern2 (p0m, p1m, p2m, p0b2, p1b2, p2b2)
   66     tobern2 (q0m, q1m, q2m, q0b2, q1b2, q2b2)
   67     print string ("Subprogram (1) examples:".snl)
   68     print string ("  mono ( ")
				sethi	%hi(.LC1), %l0
				or	%l0, %lo(.LC1), %l0
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL25:
				xor	%i3, -520, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL26:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL27:
		.LBE892:
		.LBB893:
		.LBB894:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL28:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL29:
		.LBE894:
		.LBE893:
		.LBB895:
		.LBB896:
				mov	4, %o1
				sethi	%hi(.LC15), %l1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL30:
		.LBE896:
		.LBE895:
		.LBB897:
   69     print fl (p0m, 4); print string (", ")
				sethi	%hi(44032), %i3
				xor	%i3, -776, %o1
				mov	%i2, %o2
				add	%g2, %o1, %o1
				call	_imp_join, 0
				 add	%fp, 1783, %o0
		.LVL21:
				xor	%i5, -8, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL22:
		.LBE889:
		.LBE888:
		.LBB890:
		.LBB891:
				xor	%i5, -528, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL23:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL24:
		.LBE891:
		.LBE890:
		.LBB892:
   70     print fl (p1m, 4); print string (", ")
				sethi	%hi(.LC2), %i4
				or	%i4, %lo(.LC2), %i4
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL31:
				xor	%i3, -264, %i1
		.LVL32:
				add	%fp, 2047, %g1
				add	%g1, %i1, %i1
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL33:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL34:
		.LBE897:
		.LBB898:
		.LBB899:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL35:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL36:
		.LBE899:
		.LBE898:
		.LBB900:
		.LBB901:
				mov	4, %o1
				sethi	%hi(.LC16), %l2
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC16)], %f0
		.LVL37:
		.LBE901:
		.LBE900:
		.LBB902:
   71     print fl (p2m, 4); print string (") --> bern ( ")
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL38:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL39:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL40:
		.LBE902:
		.LBB903:
		.LBB904:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL41:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL42:
		.LBE904:
		.LBE903:
		.LBB905:
		.LBB906:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC16)], %f0
		.LVL43:
		.LBE906:
		.LBE905:
		.LBB907:
   72     print fl (p0b2, 4); print string (", ")
				sethi	%hi(.LC3), %i0
				or	%i0, %lo(.LC3), %i0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 add	%fp, 759, %o0
		.LVL44:
				sethi	%hi(43008), %i1
				xor	%i1, -776, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, 759, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL45:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, 759, %o0
		.LVL46:
		.LBE907:
		.LBB908:
		.LBB909:
				mov	256, %o2
				add	%fp, 759, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL47:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL48:
		.LBE909:
		.LBE908:
		.LBB910:
		.LBB911:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL49:
		.LBE911:
		.LBE910:
		.LBB912:
   73     print fl (p1b2, 4); print string (", ")
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, 503, %o0
		.LVL50:
				xor	%i1, -520, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, 503, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL51:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, 503, %o0
		.LVL52:
		.LBE912:
		.LBB913:
		.LBB914:
				mov	256, %o2
				add	%fp, 503, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL53:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL54:
		.LBE914:
		.LBE913:
		.LBB915:
		.LBB916:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL55:
		.LBE916:
		.LBE915:
		.LBB917:
   74     print fl (p2b2, 4); print string (")".snl)
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, 247, %o0
		.LVL56:
				xor	%i1, -264, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, 247, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL57:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, 247, %o0
		.LVL58:
		.LBE917:
		.LBB918:
		.LBB919:
				mov	256, %o2
				add	%fp, 247, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL59:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL60:
		.LBE919:
		.LBE918:
		.LBB920:
		.LBB921:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL61:
		.LBE921:
		.LBE920:
		.LBB922:
		.LBB923:
   75     print string ("  mono ( ")
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 add	%fp, -265, %o0
		.LVL66:
				xor	%i3, -520, %i1
				add	%fp, 2047, %g1
				add	%g1, %i1, %i1
				mov	256, %o2
				add	%fp, -265, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL67:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 add	%fp, -265, %o0
		.LVL68:
		.LBE926:
		.LBB927:
		.LBB928:
				mov	256, %o2
				add	%fp, -265, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL69:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL70:
		.LBE928:
		.LBE927:
		.LBB929:
		.LBB930:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL71:
		.LBE930:
		.LBE929:
		.LBB931:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, -521, %o0
		.LVL72:
				xor	%i3, -264, %i1
				add	%fp, 2047, %g1
				add	%g1, %i1, %i1
				mov	256, %o2
				add	%fp, -521, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL73:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 add	%fp, -521, %o0
		.LVL74:
		.LBE931:
		.LBB932:
		.LBB933:
				mov	256, %o2
				add	%fp, -521, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL75:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL76:
		.LBE933:
		.LBE932:
		.LBB934:
		.LBB935:
				mov	4, %o1
				sethi	%hi(.LC17), %l0
				call	_imp_printfl, 0
				 ldd	[%l0+%lo(.LC17)], %f0
		.LVL77:
		.LBE935:
		.LBE934:
		.LBB936:
   76     print fl (q0m, 4); print string (", ")
   77     print fl (q1m, 4); print string (", ")
				sethi	%hi(41984), %i3
				xor	%i3, -776, %o1
				mov	%i2, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	_imp_join, 0
				 add	%fp, -9, %o0
		.LVL62:
				xor	%i1, -8, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 add	%fp, -9, %o0
		.LVL63:
		.LBE923:
		.LBE922:
		.LBB924:
		.LBB925:
				mov	256, %o2
				add	%fp, -9, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL64:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL65:
		.LBE925:
		.LBE924:
		.LBB926:
   78     print fl (q2m, 4); print string (") --> bern ( ")
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, -777, %o0
		.LVL78:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, -777, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL79:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, -777, %o0
		.LVL80:
		.LBE936:
		.LBB937:
		.LBB938:
				mov	256, %o2
				add	%fp, -777, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL81:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL82:
		.LBE938:
		.LBE937:
		.LBB939:
		.LBB940:
				mov	4, %o1
				sethi	%hi(.LC18), %g1
				call	_imp_printfl, 0
				 ldd	[%g1+%lo(.LC18)], %f0
		.LVL83:
		.LBE940:
		.LBE939:
		.LBB941:
   79     print fl (q0b2, 4); print string (", ")
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 add	%fp, -1033, %o0
		.LVL84:
				sethi	%hi(40960), %i1
				xor	%i1, -776, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				add	%fp, -1033, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL85:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, -1033, %o0
		.LVL86:
		.LBE941:
		.LBB942:
		.LBB943:
				mov	256, %o2
				add	%fp, -1033, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL87:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL88:
		.LBE943:
		.LBE942:
		.LBB944:
		.LBB945:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL89:
		.LBE945:
		.LBE944:
		.LBB946:
   80     print fl (q1b2, 4); print string (", ")
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, -1289, %o0
		.LVL90:
				xor	%i1, -520, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				add	%fp, -1289, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL91:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, -1289, %o0
		.LVL92:
		.LBE946:
		.LBB947:
		.LBB948:
				mov	256, %o2
				add	%fp, -1289, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL93:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL94:
		.LBE948:
		.LBE947:
		.LBB949:
		.LBB950:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l0+%lo(.LC17)], %f0
		.LVL95:
		.LBE950:
		.LBE949:
		.LBB951:
   81     print fl (q2b2, 4); print string (")".snl)
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, -1545, %o0
		.LVL96:
				xor	%i1, -264, %i4
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				mov	256, %o2
				add	%fp, -1545, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL97:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, -1545, %o0
		.LVL98:
		.LBE951:
		.LBB952:
		.LBB953:
				mov	256, %o2
				add	%fp, -1545, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL99:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL100:
		.LBE953:
		.LBE952:
		.LBB954:
		.LBB955:
				mov	4, %o1
				sethi	%hi(.LC19), %l7
				call	_imp_printfl, 0
				 ldd	[%l7+%lo(.LC19)], %f0
		.LVL101:
		.LBE955:
		.LBE954:
		.LBB956:
		.LBB957:
   82
   83     print string ("Subprogram (2) examples:".snl)
   84     x = 0.25
				sethi	%hi(39936), %i3
				xor	%i3, -776, %o1
				mov	%i2, %o2
				add	%fp, 2047, %g2
				add	%g2, %o1, %o1
				call	_imp_join, 0
				 add	%fp, -1801, %o0
		.LVL102:
				xor	%i1, -8, %o1
				mov	256, %o2
				add	%fp, 2047, %g2
				add	%g2, %o1, %o1
				call	memcpy, 0
				 add	%fp, -1801, %o0
		.LVL103:
		.LBE957:
		.LBE956:
		.LBB958:
		.LBB959:
				mov	256, %o2
				add	%fp, -1801, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL104:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL105:
		.LBE959:
		.LBE958:
		.LBB960:
		.LBB961:
   85     y = evalbern2 (p0b2, p1b2, p2b2, x)
				sethi	%hi(4096), %i4
				xor	%i4, -8, %i1
				add	%fp, 2047, %g2
				add	%g2, %i1, %i1
				xor	%i3, -264, %o1
				mov	%i2, %o2
				add	%g2, %o1, %o1
				call	_imp_join, 0
				 mov	%i1, %o0
		.LVL106:
				xor	%i3, -520, %o1
				mov	256, %o2
				add	%fp, 2047, %g2
				add	%g2, %o1, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL107:
		.LBE961:
		.LBE960:
		.LBB962:
		.LBB963:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL108:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL109:
		.LBE963:
		.LBE962:
		.LBB964:
   86     print string ("  p ( "); print fl (x, 4)
				xor	%i4, -264, %i2
				sethi	%hi(.LC6), %i0
				or	%i0, %lo(.LC6), %i0
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL110:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL111:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL112:
		.LBE964:
		.LBB965:
		.LBB966:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL113:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL114:
		.LBE966:
		.LBE965:
		.LBB967:
		.LBB968:
				mov	4, %o1
				sethi	%hi(.LC20), %l4
				call	_imp_printfl, 0
				 ldd	[%l4+%lo(.LC20)], %f0
		.LVL115:
		.LBE968:
		.LBE967:
		.LBB969:
   87     print string (") = "); print fl (y, 4)
				xor	%i4, -520, %i2
				sethi	%hi(.LC7), %i1
				or	%i1, %lo(.LC7), %i1
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL116:
				sethi	%hi(38912), %i3
				xor	%i3, -776, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL117:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL118:
		.LBE969:
		.LBB970:
		.LBB971:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL119:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL120:
		.LBE971:
		.LBE970:
		.LBB972:
		.LBB973:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL121:
		.LBE973:
		.LBE972:
		.LBB974:
		.LBB975:
				call	_imp_newline, 0
				 xor	%i4, -776, %i4
		.LVL122:
		.LBE975:
		.LBE974:
		.LBB976:
   88     newline
   89     x = 7.50
   90     y = evalbern2 (p0b2, p1b2, p2b2, x)
   91     print string ("  p ( "); print fl (x, 4)
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL123:
				xor	%i3, -520, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL124:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL125:
		.LBE976:
		.LBB977:
		.LBB978:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL126:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL127:
		.LBE978:
		.LBE977:
		.LBB979:
		.LBB980:
				mov	4, %o1
				sethi	%hi(.LC21), %l5
				call	_imp_printfl, 0
				 ldd	[%l5+%lo(.LC21)], %f0
		.LVL128:
		.LBE980:
		.LBE979:
		.LBB981:
   92     print string (") = "); print fl (y, 4)
				sethi	%hi(5120), %i4
				xor	%i4, -8, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL129:
				xor	%i3, -264, %i1
				add	%fp, 2047, %g2
				add	%g2, %i1, %i1
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL130:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL131:
		.LBE981:
		.LBB982:
		.LBB983:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL132:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL133:
		.LBE983:
		.LBE982:
		.LBB984:
		.LBB985:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL134:
		.LBE985:
		.LBE984:
		.LBB986:
		.LBB987:
				call	_imp_newline, 0
				 xor	%i4, -264, %i4
		.LVL135:
		.LBE987:
		.LBE986:
		.LBB988:
   93     newline
   94     x = 0.25
   95     y = evalbern2 (q0b2, q1b2, q2b2, x)
   96     print string ("  q ( "); print fl (x, 4)
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				mov	256, %o2
				sethi	%hi(.LC8), %o1
				or	%o1, %lo(.LC8), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL136:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL137:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL138:
		.LBE988:
		.LBB989:
		.LBB990:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL139:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL140:
		.LBE990:
		.LBE989:
		.LBB991:
		.LBB992:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l4+%lo(.LC20)], %f0
		.LVL141:
		.LBE992:
		.LBE991:
		.LBB993:
   97     print string (") = "); print fl (y, 4)
				sethi	%hi(5120), %i4
				xor	%i4, -520, %i3
				sethi	%hi(.LC7), %i2
				or	%i2, %lo(.LC7), %i2
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL142:
				sethi	%hi(37888), %i1
				xor	%i1, -776, %i5
				add	%fp, 2047, %g2
				add	%g2, %i5, %i5
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL143:
				mov	256, %o2
				mov	%i5, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL144:
		.LBE993:
		.LBB994:
		.LBB995:
				sethi	%hi(45056), %l0
				xor	%l0, -528, %i5
				add	%fp, 2047, %g2
				add	%g2, %i5, %i5
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL145:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL146:
		.LBE995:
		.LBE994:
		.LBB996:
		.LBB997:
				mov	4, %o1
				sethi	%hi(.LC22), %g2
				call	_imp_printfl, 0
				 ldd	[%g2+%lo(.LC22)], %f0
		.LVL147:
		.LBE997:
		.LBE996:
		.LBB998:
		.LBB999:
				call	_imp_newline, 0
				 xor	%i4, -776, %i4
		.LVL148:
		.LBE999:
		.LBE998:
		.LBB1000:
   98     newline
   99     x = 7.50
  100     y = evalbern2 (q0b2, q1b2, q2b2, x)
  101     print string ("  q ( "); print fl (x, 4)
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				mov	256, %o2
				sethi	%hi(.LC8), %o1
				or	%o1, %lo(.LC8), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL149:
				xor	%i1, -520, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL150:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL151:
		.LBE1000:
		.LBB1001:
		.LBB1002:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL152:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL153:
		.LBE1002:
		.LBE1001:
		.LBB1003:
		.LBB1004:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l5+%lo(.LC21)], %f0
		.LVL154:
		.LBE1004:
		.LBE1003:
		.LBB1005:
  102     print string (") = "); print fl (y, 4)
				sethi	%hi(6144), %i3
				xor	%i3, -8, %i4
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL155:
				xor	%i1, -264, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL156:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL157:
		.LBE1005:
		.LBB1006:
		.LBB1007:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL158:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL159:
		.LBE1007:
		.LBE1006:
		.LBB1008:
		.LBB1009:
				mov	4, %o1
				sethi	%hi(.LC23), %g2
				call	_imp_printfl, 0
				 ldd	[%g2+%lo(.LC23)], %f0
		.LVL160:
		.LBE1009:
		.LBE1008:
		.LBB1010:
		.LBB1011:
				call	_imp_newline, 0
				 xor	%i3, -264, %i4
		.LVL161:
		.LBE1011:
		.LBE1010:
		.LBB1012:
		.LBB1013:
  103     newline
  104
  105     tobern3 (p0m, p1m, p2m, 0, p0b3, p1b3, p2b3, p3b3)
  106     tobern3 (q0m, q1m, q2m, 0, q0b3, q1b3, q2b3, q3b3)
  107     tobern3 (r0m, r1m, r2m, r3m, r0b3, r1b3, r2b3, r3b3)
  108     print string ("Subprogram (3) examples:".snl)
  109     print string ("  mono ( ")
				xor	%i3, -520, %i4
				sethi	%hi(.LC1), %i0
				or	%i0, %lo(.LC1), %i0
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL166:
				xor	%i2, -520, %i1
				add	%fp, 2047, %g2
				add	%g2, %i1, %i1
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL167:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL168:
		.LBE1016:
		.LBB1017:
		.LBB1018:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL169:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL170:
		.LBE1018:
		.LBE1017:
		.LBB1019:
		.LBB1020:
				mov	4, %o1
				mov	%l1, %l3
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL171:
		.LBE1020:
		.LBE1019:
		.LBB1021:
  110     print fl (p0m, 4); print string (", ")
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				xor	%l0, -264, %l0
				add	%g2, %l0, %l0
				sethi	%hi(36864), %i2
				xor	%i2, -776, %o1
				mov	%l0, %o2
				add	%g2, %o1, %o1
				call	_imp_join, 0
				 mov	%i4, %o0
		.LVL162:
				xor	%i1, -8, %o1
				mov	256, %o2
				add	%fp, 2047, %g2
				add	%g2, %o1, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL163:
		.LBE1013:
		.LBE1012:
		.LBB1014:
		.LBB1015:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL164:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL165:
		.LBE1015:
		.LBE1014:
		.LBB1016:
  111     print fl (p1m, 4); print string (", ")
				xor	%i3, -776, %i3
				sethi	%hi(.LC2), %i4
				or	%i4, %lo(.LC2), %i4
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL172:
				xor	%i2, -264, %i1
				add	%fp, 2047, %g2
				add	%g2, %i1, %i1
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL173:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL174:
		.LBE1021:
		.LBB1022:
		.LBB1023:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL175:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL176:
		.LBE1023:
		.LBE1022:
		.LBB1024:
		.LBB1025:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC16)], %f0
		.LVL177:
		.LBE1025:
		.LBE1024:
		.LBB1026:
  112     print fl (p2m, 4); print string (", ")
				sethi	%hi(7168), %i3
				xor	%i3, -8, %i1
				add	%fp, 2047, %g2
				add	%g2, %i1, %i1
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL178:
				xor	%i2, -8, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL179:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL180:
		.LBE1026:
		.LBB1027:
		.LBB1028:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL181:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL182:
		.LBE1028:
		.LBE1027:
		.LBB1029:
		.LBB1030:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC16)], %f0
		.LVL183:
		.LBE1030:
		.LBE1029:
		.LBB1031:
  113     print fl (0, 4); print string (") --> bern ( ")
				xor	%i3, -264, %i1
				add	%fp, 2047, %g2
				add	%g2, %i1, %i1
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL184:
				sethi	%hi(35840), %i2
				xor	%i2, -776, %l1
				add	%fp, 2047, %g2
				add	%g2, %l1, %l1
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL185:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL186:
		.LBE1031:
		.LBB1032:
		.LBB1033:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL187:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL188:
		.LBE1033:
		.LBE1032:
		.LBB1034:
		.LBB1035:
				mov	4, %o1
				mov	%l2, %l6
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC16)], %f0
		.LVL189:
		.LBE1035:
		.LBE1034:
		.LBB1036:
  114     print fl (p0b3, 4); print string (", ")
				xor	%i3, -520, %l1
				sethi	%hi(.LC3), %i1
				or	%i1, %lo(.LC3), %i1
				add	%fp, 2047, %g2
				add	%g2, %l1, %l1
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL190:
				xor	%i2, -520, %l2
				add	%fp, 2047, %g2
				add	%g2, %l2, %l2
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%l2, %o0
		.LVL191:
				mov	256, %o2
				mov	%l2, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL192:
		.LBE1036:
		.LBB1037:
		.LBB1038:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL193:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL194:
		.LBE1038:
		.LBE1037:
		.LBB1039:
		.LBB1040:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC15)], %f0
		.LVL195:
		.LBE1040:
		.LBE1039:
		.LBB1041:
  115     print fl (p1b3, 4); print string (", ")
				xor	%i3, -776, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL196:
				xor	%i2, -264, %l1
				add	%fp, 2047, %g2
				add	%g2, %l1, %l1
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL197:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL198:
		.LBE1041:
		.LBB1042:
		.LBB1043:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL199:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL200:
		.LBE1043:
		.LBE1042:
		.LBB1044:
		.LBB1045:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC15)], %f0
		.LVL201:
		.LBE1045:
		.LBE1044:
		.LBB1046:
  116     print fl (p2b3, 4); print string (", ")
				sethi	%hi(8192), %i3
				xor	%i3, -8, %l1
				add	%fp, 2047, %g2
				add	%g2, %l1, %l1
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL202:
				xor	%i2, -8, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL203:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL204:
		.LBE1046:
		.LBB1047:
		.LBB1048:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL205:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL206:
		.LBE1048:
		.LBE1047:
		.LBB1049:
		.LBB1050:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC15)], %f0
		.LVL207:
		.LBE1050:
		.LBE1049:
		.LBB1051:
  117     print fl (p3b3, 4); print string (")".snl)
				xor	%i3, -264, %l1
				add	%fp, 2047, %g2
				add	%g2, %l1, %l1
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL208:
				sethi	%hi(34816), %i2
				xor	%i2, -776, %l2
				add	%fp, 2047, %g2
				add	%g2, %l2, %l2
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%l2, %o0
		.LVL209:
				mov	256, %o2
				mov	%l2, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL210:
		.LBE1051:
		.LBB1052:
		.LBB1053:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL211:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL212:
		.LBE1053:
		.LBE1052:
		.LBB1054:
		.LBB1055:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC15)], %f0
		.LVL213:
		.LBE1055:
		.LBE1054:
		.LBB1056:
		.LBB1057:
  118     print string ("  mono ( ")
				xor	%i3, -776, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL218:
				xor	%i2, -8, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL219:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL220:
		.LBE1060:
		.LBB1061:
		.LBB1062:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL221:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL222:
		.LBE1062:
		.LBE1061:
		.LBB1063:
		.LBB1064:
				mov	4, %o1
				mov	%l3, %l1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC15)], %f0
		.LVL223:
		.LBE1064:
		.LBE1063:
		.LBB1065:
				sethi	%hi(9216), %i3
				xor	%i3, -8, %i0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL224:
				sethi	%hi(33792), %i2
				xor	%i2, -776, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL225:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL226:
		.LBE1065:
		.LBB1066:
		.LBB1067:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL227:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL228:
		.LBE1067:
		.LBE1066:
		.LBB1068:
		.LBB1069:
				mov	4, %o1
				sethi	%hi(.LC17), %l0
				call	_imp_printfl, 0
				 ldd	[%l0+%lo(.LC17)], %f0
		.LVL229:
		.LBE1069:
		.LBE1068:
		.LBB1070:
  119     print fl (q0m, 4); print string (", ")
  120     print fl (q1m, 4); print string (", ")
				xor	%i3, -520, %l1
				add	%fp, 2047, %g2
				add	%g2, %l1, %l1
				xor	%i2, -264, %o1
				mov	%l0, %o2
				add	%g2, %o1, %o1
				call	_imp_join, 0
				 mov	%l1, %o0
		.LVL214:
				xor	%i2, -520, %o1
				mov	256, %o2
				add	%fp, 2047, %g2
				add	%g2, %o1, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL215:
		.LBE1057:
		.LBE1056:
		.LBB1058:
		.LBB1059:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL216:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL217:
		.LBE1059:
		.LBE1058:
		.LBB1060:
  121     print fl (q2m, 4); print string (", ")
				xor	%i3, -264, %i0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL230:
				xor	%i2, -520, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL231:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL232:
		.LBE1070:
		.LBB1071:
		.LBB1072:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL233:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL234:
		.LBE1072:
		.LBE1071:
		.LBB1073:
		.LBB1074:
				mov	4, %o1
				sethi	%hi(.LC18), %g1
				call	_imp_printfl, 0
				 ldd	[%g1+%lo(.LC18)], %f0
		.LVL235:
		.LBE1074:
		.LBE1073:
		.LBB1075:
  122     print fl (0, 4); print string (") --> bern ( ")
				xor	%i3, -520, %i0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL236:
				xor	%i2, -264, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL237:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL238:
		.LBE1075:
		.LBB1076:
		.LBB1077:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL239:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL240:
		.LBE1077:
		.LBE1076:
		.LBB1078:
		.LBB1079:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l6+%lo(.LC16)], %f0
		.LVL241:
		.LBE1079:
		.LBE1078:
		.LBB1080:
  123     print fl (q0b3, 4); print string (", ")
				xor	%i3, -776, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL242:
				xor	%i2, -8, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL243:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL244:
		.LBE1080:
		.LBB1081:
		.LBB1082:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL245:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL246:
		.LBE1082:
		.LBE1081:
		.LBB1083:
		.LBB1084:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC15)], %f0
		.LVL247:
		.LBE1084:
		.LBE1083:
		.LBB1085:
  124     print fl (q1b3, 4); print string (", ")
				sethi	%hi(10240), %i2
				xor	%i2, -8, %i3
				add	%fp, 2047, %g2
				add	%g2, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL248:
				sethi	%hi(32768), %i5
				xor	%i5, -776, %i5
				add	%fp, 2047, %g2
				add	%g2, %i5, %i5
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL249:
				mov	256, %o2
				mov	%i5, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL250:
		.LBE1085:
		.LBB1086:
		.LBB1087:
				sethi	%hi(45056), %i1
				xor	%i1, -528, %i5
				add	%fp, 2047, %g2
				add	%g2, %i5, %i5
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL251:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL252:
		.LBE1087:
		.LBE1086:
		.LBB1088:
		.LBB1089:
				mov	4, %o1
				sethi	%hi(.LC24), %l2
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC24)], %f0
		.LVL253:
		.LBE1089:
		.LBE1088:
		.LBB1090:
  125     print fl (q2b3, 4); print string (", ")
				mov	%i2, %i4
				xor	%i2, -264, %i2
				sethi	%hi(.LC2), %i3
				or	%i3, %lo(.LC2), %i3
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL254:
				sethi	%hi(32768), %i0
				xor	%i0, -520, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL255:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL256:
		.LBE1090:
		.LBB1091:
		.LBB1092:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL257:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL258:
		.LBE1092:
		.LBE1091:
		.LBB1093:
		.LBB1094:
				mov	4, %o1
				sethi	%hi(.LC25), %l3
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC25)], %f0
		.LVL259:
		.LBE1094:
		.LBE1093:
		.LBB1095:
  126     print fl (q3b3, 4); print string (")".snl)
				xor	%i4, -520, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL260:
				xor	%i0, -264, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL261:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL262:
		.LBE1095:
		.LBB1096:
		.LBB1097:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL263:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL264:
		.LBE1097:
		.LBE1096:
		.LBB1098:
		.LBB1099:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l7+%lo(.LC19)], %f0
		.LVL265:
		.LBE1099:
		.LBE1098:
		.LBB1100:
		.LBB1101:
  127     print string ("  mono ( ")
				sethi	%hi(11264), %i4
				xor	%i4, -8, %i0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				sethi	%hi(.LC1), %o1
				or	%o1, %lo(.LC1), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL270:
				xor	%i2, -520, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL271:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL272:
		.LBE1104:
		.LBB1105:
		.LBB1106:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL273:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL274:
		.LBE1106:
		.LBE1105:
		.LBB1107:
		.LBB1108:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL275:
		.LBE1108:
		.LBE1107:
		.LBB1109:
				xor	%i4, -264, %i0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL276:
				xor	%i2, -264, %l0
				add	%fp, 2047, %g2
				add	%g2, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL277:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL278:
		.LBE1109:
		.LBB1110:
		.LBB1111:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL279:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL280:
		.LBE1111:
		.LBE1110:
		.LBB1112:
		.LBB1113:
				mov	4, %o1
				sethi	%hi(.LC17), %l0
				call	_imp_printfl, 0
				 ldd	[%l0+%lo(.LC17)], %f0
		.LVL281:
		.LBE1113:
		.LBE1112:
		.LBB1114:
  128     print fl (r0m, 4); print string (", ")
  129     print fl (r1m, 4); print string (", ")
				xor	%i4, -776, %i4
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				xor	%i1, -264, %i1
				add	%g2, %i1, %i1
				sethi	%hi(31744), %i2
				xor	%i2, -776, %o1
				mov	%i1, %o2
				add	%g2, %o1, %o1
				call	_imp_join, 0
				 mov	%i4, %o0
		.LVL266:
				xor	%i0, -8, %o1
				mov	256, %o2
				add	%fp, 2047, %g2
				add	%g2, %o1, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL267:
		.LBE1101:
		.LBE1100:
		.LBB1102:
		.LBB1103:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL268:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL269:
		.LBE1103:
		.LBE1102:
		.LBB1104:
  130     print fl (r2m, 4); print string (", ")
				xor	%i4, -520, %i0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL282:
				xor	%i2, -8, %i2
				add	%fp, 2047, %g2
				add	%g2, %i2, %i2
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL283:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL284:
		.LBE1114:
		.LBB1115:
		.LBB1116:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL285:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL286:
		.LBE1116:
		.LBE1115:
		.LBB1117:
		.LBB1118:
				mov	4, %o1
				sethi	%hi(.LC18), %g1
				call	_imp_printfl, 0
				 ldd	[%g1+%lo(.LC18)], %f0
		.LVL287:
		.LBE1118:
		.LBE1117:
		.LBB1119:
  131     print fl (r3m, 4); print string (") --> bern ( ")
				xor	%i4, -776, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL288:
				sethi	%hi(30720), %i2
				xor	%i2, -776, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL289:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL290:
		.LBE1119:
		.LBB1120:
		.LBB1121:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL291:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL292:
		.LBE1121:
		.LBE1120:
		.LBB1122:
		.LBB1123:
				mov	4, %o1
				sethi	%hi(.LC26), %g1
				call	_imp_printfl, 0
				 ldd	[%g1+%lo(.LC26)], %f0
		.LVL293:
		.LBE1123:
		.LBE1122:
		.LBB1124:
  132     print fl (r0b3, 4); print string (", ")
				sethi	%hi(12288), %i4
				xor	%i4, -8, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				sethi	%hi(.LC3), %o1
				or	%o1, %lo(.LC3), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL294:
				xor	%i2, -520, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL295:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL296:
		.LBE1124:
		.LBB1125:
		.LBB1126:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL297:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL298:
		.LBE1126:
		.LBE1125:
		.LBB1127:
		.LBB1128:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL299:
		.LBE1128:
		.LBE1127:
		.LBB1129:
  133     print fl (r1b3, 4); print string (", ")
				xor	%i4, -264, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL300:
				xor	%i2, -264, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL301:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL302:
		.LBE1129:
		.LBB1130:
		.LBB1131:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL303:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL304:
		.LBE1131:
		.LBE1130:
		.LBB1132:
		.LBB1133:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC24)], %f0
		.LVL305:
		.LBE1133:
		.LBE1132:
		.LBB1134:
  134     print fl (r2b3, 4); print string (", ")
				xor	%i4, -520, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL306:
				xor	%i2, -8, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL307:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL308:
		.LBE1134:
		.LBB1135:
		.LBB1136:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL309:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL310:
		.LBE1136:
		.LBE1135:
		.LBB1137:
		.LBB1138:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC25)], %f0
		.LVL311:
		.LBE1138:
		.LBE1137:
		.LBB1139:
  135     print fl (r3b3, 4); print string (")".snl)
				xor	%i4, -776, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL312:
				sethi	%hi(29696), %i2
				xor	%i2, -776, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL313:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL314:
		.LBE1139:
		.LBB1140:
		.LBB1141:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL315:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL316:
		.LBE1141:
		.LBE1140:
		.LBB1142:
		.LBB1143:
				mov	4, %o1
				sethi	%hi(.LC27), %l6
				call	_imp_printfl, 0
				 ldd	[%l6+%lo(.LC27)], %f0
		.LVL317:
		.LBE1143:
		.LBE1142:
		.LBB1144:
		.LBB1145:
  136
  137     print string ("Subprogram (4) examples:".snl)
  138     x = 0.25
				sethi	%hi(13312), %i4
				xor	%i4, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				xor	%i2, -264, %o1
				mov	%i1, %o2
				add	%g1, %o1, %o1
				call	_imp_join, 0
				 mov	%i3, %o0
		.LVL318:
				xor	%i2, -520, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL319:
		.LBE1145:
		.LBE1144:
		.LBB1146:
		.LBB1147:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL320:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL321:
		.LBE1147:
		.LBE1146:
		.LBB1148:
		.LBB1149:
  139     y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x)
				xor	%i4, -264, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				sethi	%hi(28672), %i3
				xor	%i3, -776, %o1
				mov	%i1, %o2
				add	%g1, %o1, %o1
				call	_imp_join, 0
				 mov	%i0, %o0
		.LVL322:
				xor	%i2, -8, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL323:
		.LBE1149:
		.LBE1148:
		.LBB1150:
		.LBB1151:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL324:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL325:
		.LBE1151:
		.LBE1150:
				ldd	[%l4+%lo(.LC20)], %f8
				ldd	[%l1+%lo(.LC15)], %f6
				fmovd	%f6, %f4
				mov	%l1, %l0
				fmovd	%f6, %f2
				call	EVALBERN3.6089, 0
				 fmovd	%f6, %f0
		.LVL326:
				sethi	%hi(43008), %l1
				xor	%l1, -537, %g1
				add	%g1, %fp, %g1
				std	%f0, [%g1]
		.LVL327:
		.LBB1152:
  140     print string ("  p ( "); print fl (x, 4)
				xor	%i4, -520, %i2
				sethi	%hi(.LC6), %i0
				or	%i0, %lo(.LC6), %i0
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL328:
				xor	%i3, -520, %i1
				add	%fp, 2047, %g1
				add	%g1, %i1, %i1
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL329:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL330:
		.LBE1152:
		.LBB1153:
		.LBB1154:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL331:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL332:
		.LBE1154:
		.LBE1153:
		.LBB1155:
		.LBB1156:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l4+%lo(.LC20)], %f0
		.LVL333:
		.LBE1156:
		.LBE1155:
		.LBB1157:
  141     print string (") = "); print fl (y, 4)
				xor	%i4, -776, %i4
				sethi	%hi(.LC7), %i1
				or	%i1, %lo(.LC7), %i1
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL334:
				xor	%i3, -264, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL335:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL336:
		.LBE1157:
		.LBB1158:
		.LBB1159:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL337:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL338:
		.LBE1159:
		.LBE1158:
		.LBB1160:
		.LBB1161:
				mov	4, %o1
				mov	%l1, %i4
				xor	%l1, -537, %g1
				add	%g1, %fp, %g1
				call	_imp_printfl, 0
				 ldd	[%g1], %f0
		.LVL339:
		.LBE1161:
		.LBE1160:
		.LBB1162:
		.LBB1163:
				call	_imp_newline, 0
				 mov	%l0, %l1
		.LVL340:
		.LBE1163:
		.LBE1162:
  142     newline
  143     x = 7.50
  144     y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x)
				ldd	[%l5+%lo(.LC21)], %f8
				ldd	[%l0+%lo(.LC15)], %f6
				fmovd	%f6, %f4
				fmovd	%f6, %f2
				call	EVALBERN3.6089, 0
				 fmovd	%f6, %f0
		.LVL341:
				mov	%i4, %l0
				xor	%i4, -537, %g1
				add	%g1, %fp, %g1
				std	%f0, [%g1]
		.LVL342:
		.LBB1164:
  145     print string ("  p ( "); print fl (x, 4)
				sethi	%hi(14336), %i4
				xor	%i4, -8, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL343:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL344:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL345:
		.LBE1164:
		.LBB1165:
		.LBB1166:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL346:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL347:
		.LBE1166:
		.LBE1165:
		.LBB1167:
		.LBB1168:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l5+%lo(.LC21)], %f0
		.LVL348:
		.LBE1168:
		.LBE1167:
		.LBB1169:
  146     print string (") = "); print fl (y, 4)
				xor	%i4, -264, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL349:
				sethi	%hi(27648), %i3
				xor	%i3, -776, %i1
				add	%fp, 2047, %g1
				add	%g1, %i1, %i1
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL350:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL351:
		.LBE1169:
		.LBB1170:
		.LBB1171:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL352:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL353:
		.LBE1171:
		.LBE1170:
		.LBB1172:
		.LBB1173:
				mov	4, %o1
				xor	%l0, -537, %g1
				add	%g1, %fp, %g1
				call	_imp_printfl, 0
				 ldd	[%g1], %f0
		.LVL354:
		.LBE1173:
		.LBE1172:
		.LBB1174:
		.LBB1175:
				call	_imp_newline, 0
				 xor	%i4, -520, %i5
		.LVL355:
		.LBE1175:
		.LBE1174:
  147     newline
  148     x = 0.25
  149     y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
				ldd	[%l4+%lo(.LC20)], %f8
				ldd	[%l7+%lo(.LC19)], %f6
				ldd	[%l3+%lo(.LC25)], %f4
				ldd	[%l2+%lo(.LC24)], %f2
				call	EVALBERN3.6089, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL356:
				xor	%l0, -537, %g1
				add	%g1, %fp, %g1
				std	%f0, [%g1]
		.LVL357:
		.LBB1176:
  150     print string ("  q ( "); print fl (x, 4)
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				sethi	%hi(.LC8), %o1
				or	%o1, %lo(.LC8), %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL358:
				xor	%i3, -520, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i5, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL359:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL360:
		.LBE1176:
		.LBB1177:
		.LBB1178:
				sethi	%hi(14336), %i4
				xor	%i4, -520, %o1
				sethi	%hi(45056), %i1
				xor	%i1, -528, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%g1, %o1, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL361:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL362:
		.LBE1178:
		.LBE1177:
		.LBB1179:
		.LBB1180:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l4+%lo(.LC20)], %f0
		.LVL363:
		.LBE1180:
		.LBE1179:
		.LBB1181:
  151     print string (") = "); print fl (y, 4)
				xor	%i4, -776, %i4
				sethi	%hi(.LC7), %i2
				or	%i2, %lo(.LC7), %i2
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL364:
				xor	%i3, -264, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL365:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL366:
		.LBE1181:
		.LBB1182:
		.LBB1183:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL367:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL368:
		.LBE1183:
		.LBE1182:
		.LBB1184:
		.LBB1185:
				mov	4, %o1
				xor	%l0, -537, %g1
				add	%g1, %fp, %g1
				call	_imp_printfl, 0
				 ldd	[%g1], %f0
		.LVL369:
		.LBE1185:
		.LBE1184:
		.LBB1186:
		.LBB1187:
				call	_imp_newline, 0
				 sethi	%hi(15360), %i4
		.LVL370:
		.LBE1187:
		.LBE1186:
  152     newline
  153     x = 7.50
  154     y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
				ldd	[%l5+%lo(.LC21)], %f8
				ldd	[%l7+%lo(.LC19)], %f6
				ldd	[%l3+%lo(.LC25)], %f4
				ldd	[%l2+%lo(.LC24)], %f2
				call	EVALBERN3.6089, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL371:
				xor	%l0, -537, %g1
				add	%g1, %fp, %g1
				std	%f0, [%g1]
		.LVL372:
		.LBB1188:
  155     print string ("  q ( "); print fl (x, 4)
				xor	%i4, -8, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				sethi	%hi(.LC8), %o1
				or	%o1, %lo(.LC8), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL373:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL374:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL375:
		.LBE1188:
		.LBB1189:
		.LBB1190:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL376:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL377:
		.LBE1190:
		.LBE1189:
		.LBB1191:
		.LBB1192:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l5+%lo(.LC21)], %f0
		.LVL378:
		.LBE1192:
		.LBE1191:
		.LBB1193:
  156     print string (") = "); print fl (y, 4)
				xor	%i4, -264, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL379:
				sethi	%hi(26624), %i3
				xor	%i3, -776, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL380:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL381:
		.LBE1193:
		.LBB1194:
		.LBB1195:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL382:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL383:
		.LBE1195:
		.LBE1194:
		.LBB1196:
		.LBB1197:
				mov	4, %o1
				sethi	%hi(43008), %l0
				xor	%l0, -537, %g1
				add	%g1, %fp, %g1
				call	_imp_printfl, 0
				 ldd	[%g1], %f0
		.LVL384:
		.LBE1197:
		.LBE1196:
		.LBB1198:
		.LBB1199:
				call	_imp_newline, 0
				 xor	%i4, -520, %i0
		.LVL385:
		.LBE1199:
		.LBE1198:
  157     newline
  158     x = 0.25
  159     y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
				ldd	[%l4+%lo(.LC20)], %f8
				ldd	[%l6+%lo(.LC27)], %f6
				mov	%l3, %l6
				ldd	[%l3+%lo(.LC25)], %f4
				mov	%l2, %l3
				ldd	[%l2+%lo(.LC24)], %f2
				mov	%l1, %l2
				call	EVALBERN3.6089, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL386:
				xor	%l0, -537, %g1
				add	%g1, %fp, %g1
				std	%f0, [%g1]
		.LVL387:
		.LBB1200:
  160     print string ("  r ( "); print fl (x, 4)
				sethi	%hi(.LC11), %l0
				or	%l0, %lo(.LC11), %l0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL388:
				xor	%i3, -520, %l1
				add	%fp, 2047, %g2
				add	%g2, %l1, %l1
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL389:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL390:
		.LBE1200:
		.LBB1201:
		.LBB1202:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL391:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL392:
		.LBE1202:
		.LBE1201:
		.LBB1203:
		.LBB1204:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l4+%lo(.LC20)], %f0
		.LVL393:
		.LBE1204:
		.LBE1203:
		.LBB1205:
  161     print string (") = "); print fl (y, 4)
				xor	%i4, -776, %i4
				add	%fp, 2047, %g2
				add	%g2, %i4, %i4
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL394:
				xor	%i3, -264, %i0
				add	%fp, 2047, %g2
				add	%g2, %i0, %i0
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL395:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL396:
		.LBE1205:
		.LBB1206:
		.LBB1207:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL397:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL398:
		.LBE1207:
		.LBE1206:
		.LBB1208:
		.LBB1209:
				mov	4, %o1
				sethi	%hi(43008), %i4
				xor	%i4, -537, %g1
				add	%g1, %fp, %g1
				call	_imp_printfl, 0
				 ldd	[%g1], %f0
		.LVL399:
		.LBE1209:
		.LBE1208:
		.LBB1210:
		.LBB1211:
				call	_imp_newline, 0
				 mov	%l2, %l1
		.LVL400:
		.LBE1211:
		.LBE1210:
  162     newline
  163     x = 7.50
  164     y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
				ldd	[%l5+%lo(.LC21)], %f8
				sethi	%hi(.LC27), %g1
				ldd	[%g1+%lo(.LC27)], %f6
				ldd	[%l6+%lo(.LC25)], %f4
				ldd	[%l3+%lo(.LC24)], %f2
				call	EVALBERN3.6089, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL401:
				mov	%i4, %l2
				xor	%i4, -537, %g1
				add	%g1, %fp, %g1
				std	%f0, [%g1]
		.LVL402:
		.LBB1212:
  165     print string ("  r ( "); print fl (x, 4)
				sethi	%hi(16384), %i4
				xor	%i4, -8, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL403:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL404:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL405:
		.LBE1212:
		.LBB1213:
		.LBB1214:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL406:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL407:
		.LBE1214:
		.LBE1213:
		.LBB1215:
		.LBB1216:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l5+%lo(.LC21)], %f0
		.LVL408:
		.LBE1216:
		.LBE1215:
		.LBB1217:
  166     print string (") = "); print fl (y, 4)
				xor	%i4, -264, %i0
				add	%fp, 2047, %g1
				add	%g1, %i0, %i0
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL409:
				sethi	%hi(25600), %i3
				xor	%i3, -776, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL410:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL411:
		.LBE1217:
		.LBB1218:
		.LBB1219:
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL412:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL413:
		.LBE1219:
		.LBE1218:
		.LBB1220:
		.LBB1221:
				mov	4, %o1
				xor	%l2, -537, %g1
				add	%g1, %fp, %g1
				call	_imp_printfl, 0
				 ldd	[%g1], %f0
		.LVL414:
		.LBE1221:
		.LBE1220:
		.LBB1222:
		.LBB1223:
				call	_imp_newline, 0
				 xor	%i4, -520, %i2
		.LVL415:
		.LBE1223:
		.LBE1222:
		.LBB1224:
		.LBB1225:
  167     newline
  168
  169     bern2to3 (p0b2, p1b2, p2b2, pc0, pc1, pc2, pc3)
  170     bern2to3 (q0b2, q1b2, q2b2, qc0, qc1, qc2, qc3)
  171     print string ("Subprogram (5) examples:".snl)
  172     print string ("  bern ( ")
				xor	%i4, -776, %i4
				sethi	%hi(.LC13), %i2
				or	%i2, %lo(.LC13), %i2
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL420:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL421:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL422:
		.LBE1228:
		.LBB1229:
		.LBB1230:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL423:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL424:
		.LBE1230:
		.LBE1229:
		.LBB1231:
		.LBB1232:
				mov	4, %o1
				mov	%l1, %l2
				call	_imp_printfl, 0
				 ldd	[%l1+%lo(.LC15)], %f0
		.LVL425:
		.LBE1232:
		.LBE1231:
		.LBB1233:
  173     print fl (p0b2, 4); print string (", ")
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				xor	%i1, -264, %i1
				add	%g1, %i1, %i1
				xor	%i3, -264, %o1
				mov	%i1, %o2
				add	%g1, %o1, %o1
				call	_imp_join, 0
				 mov	%i2, %o0
		.LVL416:
				xor	%i3, -520, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL417:
		.LBE1225:
		.LBE1224:
		.LBB1226:
		.LBB1227:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL418:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL419:
		.LBE1227:
		.LBE1226:
		.LBB1228:
  174     print fl (p1b2, 4); print string (", ")
				sethi	%hi(17408), %i4
				xor	%i4, -8, %l0
				sethi	%hi(.LC2), %i0
				or	%i0, %lo(.LC2), %i0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL426:
				sethi	%hi(24576), %i3
				xor	%i3, -776, %l1
				add	%fp, 2047, %g1
				add	%g1, %l1, %l1
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL427:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL428:
		.LBE1233:
		.LBB1234:
		.LBB1235:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL429:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL430:
		.LBE1235:
		.LBE1234:
		.LBB1236:
		.LBB1237:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL431:
		.LBE1237:
		.LBE1236:
		.LBB1238:
  175     print fl (p2b2, 4); print string (") --> bern ( ")
				xor	%i4, -264, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL432:
				xor	%i3, -520, %l1
				add	%fp, 2047, %g1
				add	%g1, %l1, %l1
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL433:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL434:
		.LBE1238:
		.LBB1239:
		.LBB1240:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL435:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL436:
		.LBE1240:
		.LBE1239:
		.LBB1241:
		.LBB1242:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL437:
		.LBE1242:
		.LBE1241:
		.LBB1243:
  176     print fl (pc0, 4); print string (", ")
				xor	%i4, -520, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				sethi	%hi(.LC3), %o1
				or	%o1, %lo(.LC3), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL438:
				xor	%i3, -264, %l1
				add	%fp, 2047, %g1
				add	%g1, %l1, %l1
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL439:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL440:
		.LBE1243:
		.LBB1244:
		.LBB1245:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL441:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL442:
		.LBE1245:
		.LBE1244:
		.LBB1246:
		.LBB1247:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL443:
		.LBE1247:
		.LBE1246:
		.LBB1248:
  177     print fl (pc1, 4); print string (", ")
				xor	%i4, -776, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL444:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL445:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL446:
		.LBE1248:
		.LBB1249:
		.LBB1250:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL447:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL448:
		.LBE1250:
		.LBE1249:
		.LBB1251:
		.LBB1252:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL449:
		.LBE1252:
		.LBE1251:
		.LBB1253:
  178     print fl (pc2, 4); print string (", ")
				sethi	%hi(18432), %i4
				xor	%i4, -8, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL450:
				sethi	%hi(23552), %i3
				xor	%i3, -776, %l1
				add	%fp, 2047, %g1
				add	%g1, %l1, %l1
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL451:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL452:
		.LBE1253:
		.LBB1254:
		.LBB1255:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL453:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL454:
		.LBE1255:
		.LBE1254:
		.LBB1256:
		.LBB1257:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL455:
		.LBE1257:
		.LBE1256:
		.LBB1258:
  179     print fl (pc3, 4); print string (")".snl)
				xor	%i4, -264, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i0, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL456:
				xor	%i3, -520, %l1
				add	%fp, 2047, %g1
				add	%g1, %l1, %l1
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%l1, %o0
		.LVL457:
				mov	256, %o2
				mov	%l1, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL458:
		.LBE1258:
		.LBB1259:
		.LBB1260:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL459:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL460:
		.LBE1260:
		.LBE1259:
		.LBB1261:
		.LBB1262:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL461:
		.LBE1262:
		.LBE1261:
		.LBB1263:
		.LBB1264:
  180     print string ("  bern ( ")
				xor	%i4, -776, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL466:
				sethi	%hi(22528), %i3
				xor	%i3, -776, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL467:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL468:
		.LBE1267:
		.LBB1268:
		.LBB1269:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL469:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL470:
		.LBE1269:
		.LBE1268:
		.LBB1270:
		.LBB1271:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL471:
		.LBE1271:
		.LBE1270:
		.LBB1272:
				mov	256, %o2
				mov	%i0, %o1
				sethi	%hi(19456), %o0
				xor	%o0, -8, %o0
				add	%fp, 2047, %g1
				call	memcpy, 0
				 add	%g1, %o0, %o0
		.LVL472:
				xor	%i3, -520, %o0
				sethi	%hi(19456), %i4
				xor	%i4, -8, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 add	%g1, %o0, %o0
		.LVL473:
				xor	%i3, -520, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL474:
		.LBE1272:
		.LBB1273:
		.LBB1274:
				sethi	%hi(45056), %i0
				xor	%i0, -528, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL475:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL476:
		.LBE1274:
		.LBE1273:
		.LBB1275:
		.LBB1276:
				mov	4, %o1
				sethi	%hi(.LC17), %l0
				call	_imp_printfl, 0
				 ldd	[%l0+%lo(.LC17)], %f0
		.LVL477:
		.LBE1276:
		.LBE1275:
		.LBB1277:
  181     print fl (q0b2, 4); print string (", ")
  182     print fl (q1b2, 4); print string (", ")
				xor	%i4, -520, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				xor	%i3, -8, %o1
				mov	%i1, %o2
				add	%g1, %o1, %o1
				call	_imp_join, 0
				 mov	%l0, %o0
		.LVL462:
				xor	%i3, -264, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL463:
		.LBE1264:
		.LBE1263:
		.LBB1265:
		.LBB1266:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL464:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL465:
		.LBE1266:
		.LBE1265:
		.LBB1267:
  183     print fl (q2b2, 4); print string (") --> bern ( ")
				xor	%i4, -264, %i2
				sethi	%hi(.LC2), %i1
				or	%i1, %lo(.LC2), %i1
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL478:
				xor	%i3, -264, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL479:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL480:
		.LBE1277:
		.LBB1278:
		.LBB1279:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL481:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL482:
		.LBE1279:
		.LBE1278:
		.LBB1280:
		.LBB1281:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l7+%lo(.LC19)], %f0
		.LVL483:
		.LBE1281:
		.LBE1280:
		.LBB1282:
  184     print fl (qc0, 4); print string (", ")
				xor	%i4, -520, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				sethi	%hi(.LC3), %o1
				or	%o1, %lo(.LC3), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL484:
				xor	%i3, -8, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL485:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL486:
		.LBE1282:
		.LBB1283:
		.LBB1284:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL487:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL488:
		.LBE1284:
		.LBE1283:
		.LBB1285:
		.LBB1286:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l2+%lo(.LC15)], %f0
		.LVL489:
		.LBE1286:
		.LBE1285:
		.LBB1287:
  185     print fl (qc1, 4); print string (", ")
				xor	%i4, -776, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL490:
				sethi	%hi(21504), %i3
				xor	%i3, -776, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL491:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL492:
		.LBE1287:
		.LBB1288:
		.LBB1289:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL493:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL494:
		.LBE1289:
		.LBE1288:
		.LBB1290:
		.LBB1291:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l3+%lo(.LC24)], %f0
		.LVL495:
		.LBE1291:
		.LBE1290:
		.LBB1292:
  186     print fl (qc2, 4); print string (", ")
				sethi	%hi(20480), %i4
				xor	%i4, -8, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL496:
				xor	%i3, -520, %l0
				add	%fp, 2047, %g1
				add	%g1, %l0, %l0
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL497:
				mov	256, %o2
				mov	%l0, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL498:
		.LBE1292:
		.LBB1293:
		.LBB1294:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL499:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL500:
		.LBE1294:
		.LBE1293:
		.LBB1295:
		.LBB1296:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l6+%lo(.LC25)], %f0
		.LVL501:
		.LBE1296:
		.LBE1295:
		.LBB1297:
  187     print fl (qc3, 4); print string (")".snl)
				xor	%i4, -264, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL502:
				xor	%i3, -264, %i1
				add	%fp, 2047, %g1
				add	%g1, %i1, %i1
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i1, %o0
		.LVL503:
				mov	256, %o2
				mov	%i1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL504:
		.LBE1297:
		.LBB1298:
		.LBB1299:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL505:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL506:
		.LBE1299:
		.LBE1298:
		.LBB1300:
		.LBB1301:
				mov	4, %o1
				call	_imp_printfl, 0
				 ldd	[%l7+%lo(.LC19)], %f0
		.LVL507:
		.LBE1301:
		.LBE1300:
		.LBB1302:
		.LBB1303:
  188 %endofprogram
?M unused
?EVALMONO3 unused
?EVALMONO2 unused
  245 Statements compiled
				xor	%i4, -520, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				xor	%i0, -264, %o2
				xor	%i4, -776, %o1
				add	%g1, %o2, %o2
				add	%g1, %o1, %o1
				call	_imp_join, 0
				 mov	%i2, %o0
		.LVL508:
				xor	%i3, -8, %o1
				mov	256, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL509:
		.LBE1303:
		.LBE1302:
		.LBB1304:
		.LBB1305:
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL510:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL511:
		.LBE1305:
		.LBE1304:
		.LBB1306:
		.LBB1307:
				call	exit, 0
				 mov	0, %o0
		.LVL512:
		.LBE1307:
		.LBE1306:
				nop
		.LFE185:
		.Letext0: