Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.align	8
		EVALBERN3.6722:
		.LFB189:
		.LVL16:
				stmg	%r6,%r15,48(%r15)
				larl	%r13,.L8
				lgr	%r14,%r15
				lay	%r15,-45760(%r15)
				aghi	%r14,-8
				std	%f8,0(%r14)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				lay	%r4,45744(%r15)
				mvc	0(8,%r4),40(%r1)
    2 %const %string (1) snl = "
				brasl	%r14,_imp_initialise@PLT
		.LVL17:
				xc	434(254,%r15),434(%r15)
				mvi	432(%r15),1
				mvi	433(%r15),10
		.LVL18:
		.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:
				larl	%r5,.L3
				ld	%f3,160(%r15)
   28     %long %real s = 1 - t
   29     %long %real b01  = s * b0  + t * b1
				ld	%f1,.L4-.L3(%r5)
				sdbr	%f1,%f3
		.LVL1:
   30     %long %real b12  = s * b1  + t * b2
				mdbr	%f0,%f1
		.LVL3:
				mdbr	%f2,%f3
		.LVL4:
				adbr	%f0,%f2
		.LVL5:
   31     %long %real b23  = s * b2  + t * b3
				ldr	%f7,%f1
				mdbr	%f7,%f2
				ldr	%f5,%f3
				mdbr	%f5,%f4
				adbr	%f5,%f7
		.LVL2:
   32     %long %real b012 = s * b01 + t * b12
				mdbr	%f4,%f1
		.LVL9:
				mdbr	%f6,%f3
		.LVL10:
				adbr	%f4,%f6
		.LVL11:
				mdbr	%f4,%f3
		.LVL12:
				mdbr	%f1,%f5
		.LVL13:
				adbr	%f4,%f1
		.LVL14:
				mdbr	%f4,%f3
		.LVL15:
   33     %long %real b123 = s * b12 + t * b23
				mdbr	%f0,%f1
		.LVL6:
				ldr	%f2,%f3
				mdbr	%f2,%f5
				adbr	%f0,%f2
		.LVL7:
   34     %result = s * b012 + t * b123
				mdbr	%f0,%f1
		.LVL8:
   35 %end
				adbr	%f0,%f4
				br	%r14
				.section	.rodata
				.align	8
		.L3:
		.L4:
				.long	1072693248
				.long	0
				.align	2
		.text
		.LFE189:
				.section	.rodata
				.align	2
		.LC1:
				.byte	9
				.string	"  mono ( "
				.zero	245
				.align	2
		.LC2:
				.byte	2
				.string	", "
				.zero	252
				.align	2
		.LC3:
				.byte	13
				.string	") --> bern ( "
				.zero	241
				.align	2
		.LC6:
				.byte	6
				.string	"  p ( "
				.zero	248
				.align	2
		.LC7:
				.byte	4
				.string	") = "
				.zero	250
				.align	2
		.LC8:
				.byte	6
				.string	"  q ( "
				.zero	248
				.align	2
		.LC11:
				.byte	6
				.string	"  r ( "
				.zero	248
				.align	2
		.LC13:
				.byte	9
				.string	"  bern ( "
				.zero	245
		.text
				.align	8
		.globl main
		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 ( ")
				larl	%r7,.LC1
				lay	%r1,45232(%r15)
				mvc	0(256,%r1),0(%r7)
				mvc	1200(256,%r15),0(%r1)
				mvc	0(256,%r1),1200(%r15)
		.LBE892:
		.LBB893:
		.LBB894:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL21:
		.LBE894:
		.LBE893:
		.LBB895:
		.LBB896:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL22:
		.LBE896:
		.LBE895:
		.LBB897:
   69     print fl (p0m, 4); print string (", ")
				aghik	%r1,%r15,432
				ldgr	%f8,%r1
				lgr	%r4,%r1
				la	%r3,944(%r15)
				lay	%r2,45488(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL19:
				lay	%r1,45488(%r15)
				mvc	0(256,%r1),688(%r15)
		.LBE889:
		.LBE888:
		.LBB890:
		.LBB891:
				mvc	176(256,%r15),0(%r1)
				aghik	%r11,%r15,176
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL20:
		.LBE891:
		.LBE890:
		.LBB892:
   70     print fl (p1m, 4); print string (", ")
				larl	%r10,.LC2
				lay	%r1,44976(%r15)
				mvc	0(256,%r1),0(%r10)
				mvc	1456(256,%r15),0(%r1)
				mvc	0(256,%r1),1456(%r15)
		.LBE897:
		.LBB898:
		.LBB899:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL23:
		.LBE899:
		.LBE898:
		.LBB900:
		.LBB901:
				lghi	%r2,4
				lzdr	%f0
				brasl	%r14,_imp_printfl@PLT
		.LVL24:
		.LBE901:
		.LBE900:
		.LBB902:
   71     print fl (p2m, 4); print string (") --> bern ( ")
				lay	%r1,44720(%r15)
				mvc	0(256,%r1),0(%r10)
				mvc	1712(256,%r15),0(%r1)
				mvc	0(256,%r1),1712(%r15)
		.LBE902:
		.LBB903:
		.LBB904:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL25:
		.LBE904:
		.LBE903:
		.LBB905:
		.LBB906:
				lghi	%r2,4
				lzdr	%f0
				brasl	%r14,_imp_printfl@PLT
		.LVL26:
		.LBE906:
		.LBE905:
		.LBB907:
   72     print fl (p0b2, 4); print string (", ")
				larl	%r8,.LC3
				lay	%r1,44464(%r15)
				mvc	0(256,%r1),0(%r8)
				mvc	1968(256,%r15),0(%r1)
				mvc	0(256,%r1),1968(%r15)
		.LBE907:
		.LBB908:
		.LBB909:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL27:
		.LBE909:
		.LBE908:
		.LBB910:
		.LBB911:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL28:
		.LBE911:
		.LBE910:
		.LBB912:
   73     print fl (p1b2, 4); print string (", ")
				lay	%r1,44208(%r15)
				mvc	0(256,%r1),0(%r10)
				mvc	2224(256,%r15),0(%r1)
				mvc	0(256,%r1),2224(%r15)
		.LBE912:
		.LBB913:
		.LBB914:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL29:
		.LBE914:
		.LBE913:
		.LBB915:
		.LBB916:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL30:
		.LBE916:
		.LBE915:
		.LBB917:
   74     print fl (p2b2, 4); print string (")".snl)
				lay	%r1,43952(%r15)
				mvc	0(256,%r1),0(%r10)
				mvc	2480(256,%r15),0(%r1)
				mvc	0(256,%r1),2480(%r15)
		.LBE917:
		.LBB918:
		.LBB919:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL31:
		.LBE919:
		.LBE918:
		.LBB920:
		.LBB921:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL32:
		.LBE921:
		.LBE920:
		.LBB922:
		.LBB923:
   75     print string ("  mono ( ")
				lay	%r1,43440(%r15)
				mvc	0(256,%r1),0(%r7)
				mvc	3248(256,%r15),0(%r1)
				mvc	0(256,%r1),3248(%r15)
		.LBE926:
		.LBB927:
		.LBB928:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL35:
		.LBE928:
		.LBE927:
		.LBB929:
		.LBB930:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL36:
		.LBE930:
		.LBE929:
		.LBB931:
				lay	%r1,43184(%r15)
				mvc	0(256,%r1),0(%r10)
				mvc	3504(256,%r15),0(%r1)
				mvc	0(256,%r1),3504(%r15)
		.LBE931:
		.LBB932:
		.LBB933:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL37:
		.LBE933:
		.LBE932:
		.LBB934:
		.LBB935:
				lghi	%r2,4
				ld	%f0,.L10-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL38:
		.LBE935:
		.LBE934:
		.LBB936:
   76     print fl (q0m, 4); print string (", ")
   77     print fl (q1m, 4); print string (", ")
				lgdr	%r4,%f8
				la	%r3,2992(%r15)
				lay	%r2,43696(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL33:
				lay	%r1,43696(%r15)
				mvc	0(256,%r1),2736(%r15)
		.LBE923:
		.LBE922:
		.LBB924:
		.LBB925:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL34:
		.LBE925:
		.LBE924:
		.LBB926:
   78     print fl (q2m, 4); print string (") --> bern ( ")
				lay	%r1,42928(%r15)
				mvc	0(256,%r1),0(%r10)
				mvc	3760(256,%r15),0(%r1)
				mvc	0(256,%r1),3760(%r15)
		.LBE936:
		.LBB937:
		.LBB938:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL39:
		.LBE938:
		.LBE937:
		.LBB939:
		.LBB940:
				lghi	%r2,4
				ld	%f0,.L11-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL40:
		.LBE940:
		.LBE939:
		.LBB941:
   79     print fl (q0b2, 4); print string (", ")
				lay	%r1,42672(%r15)
				mvc	0(256,%r1),0(%r8)
				mvc	4016(256,%r15),0(%r1)
				mvc	0(256,%r1),4016(%r15)
		.LBE941:
		.LBB942:
		.LBB943:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL41:
		.LBE943:
		.LBE942:
		.LBB944:
		.LBB945:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL42:
		.LBE945:
		.LBE944:
		.LBB946:
   80     print fl (q1b2, 4); print string (", ")
				lay	%r1,42416(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,4272(%r15)
				lay	%r2,42416(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,4272(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE946:
		.LBB947:
		.LBB948:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL43:
		.LBE948:
		.LBE947:
		.LBB949:
		.LBB950:
				lghi	%r2,4
				ld	%f0,.L10-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL44:
		.LBE950:
		.LBE949:
		.LBB951:
   81     print fl (q2b2, 4); print string (")".snl)
				lay	%r1,42160(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,4528(%r15)
				lay	%r2,42160(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,4528(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE951:
		.LBB952:
		.LBB953:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL45:
		.LBE953:
		.LBE952:
		.LBB954:
		.LBB955:
				lghi	%r2,4
				ld	%f0,.L12-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL46:
		.LBE955:
		.LBE954:
		.LBB956:
		.LBB957:
   82
   83     print string ("Subprogram (2) examples:".snl)
   84     x = 0.25
				lgdr	%r4,%f8
				lay	%r3,5040(%r15)
				lay	%r2,41904(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL47:
				lay	%r1,41904(%r15)
				lay	%r2,4784(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE957:
		.LBE956:
		.LBB958:
		.LBB959:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL48:
		.LBE959:
		.LBE958:
		.LBB960:
		.LBB961:
   85     y = evalbern2 (p0b2, p1b2, p2b2, x)
				lgdr	%r4,%f8
				lay	%r3,5552(%r15)
				lay	%r2,41648(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL49:
				lay	%r1,41648(%r15)
				lay	%r2,5296(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE961:
		.LBE960:
		.LBB962:
		.LBB963:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL50:
		.LBE963:
		.LBE962:
		.LBB964:
   86     print string ("  p ( "); print fl (x, 4)
				larl	%r6,.LC6
				lay	%r1,41392(%r15)
				mvc	0(256,%r1),0(%r6)
				lay	%r1,5808(%r15)
				lay	%r2,41392(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,5808(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE964:
		.LBB965:
		.LBB966:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL51:
		.LBE966:
		.LBE965:
		.LBB967:
		.LBB968:
				lghi	%r2,4
				ld	%f0,.L13-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL52:
		.LBE968:
		.LBE967:
		.LBB969:
   87     print string (") = "); print fl (y, 4)
				larl	%r9,.LC7
				lay	%r1,41136(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,6064(%r15)
				lay	%r2,41136(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,6064(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE969:
		.LBB970:
		.LBB971:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL53:
		.LBE971:
		.LBE970:
		.LBB972:
		.LBB973:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL54:
		.LBE973:
		.LBE972:
		.LBB974:
		.LBB975:
				brasl	%r14,_imp_newline@PLT
		.LVL55:
		.LBE975:
		.LBE974:
		.LBB976:
   88     newline
   89     x = 7.50
   90     y = evalbern2 (p0b2, p1b2, p2b2, x)
   91     print string ("  p ( "); print fl (x, 4)
				lay	%r1,40880(%r15)
				stg	%r6,168(%r15)
				mvc	0(256,%r1),0(%r6)
				lay	%r1,6320(%r15)
				lay	%r2,40880(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,6320(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE976:
		.LBB977:
		.LBB978:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL56:
		.LBE978:
		.LBE977:
		.LBB979:
		.LBB980:
				lghi	%r2,4
				ld	%f0,.L14-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL57:
		.LBE980:
		.LBE979:
		.LBB981:
   92     print string (") = "); print fl (y, 4)
				lay	%r1,40624(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,6576(%r15)
				lay	%r2,40624(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,6576(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE981:
		.LBB982:
		.LBB983:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL58:
		.LBE983:
		.LBE982:
		.LBB984:
		.LBB985:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL59:
		.LBE985:
		.LBE984:
		.LBB986:
		.LBB987:
				brasl	%r14,_imp_newline@PLT
		.LVL60:
		.LBE987:
		.LBE986:
		.LBB988:
   93     newline
   94     x = 0.25
   95     y = evalbern2 (q0b2, q1b2, q2b2, x)
   96     print string ("  q ( "); print fl (x, 4)
				larl	%r6,.LC8
				lay	%r1,40368(%r15)
				mvc	0(256,%r1),0(%r6)
				lay	%r1,6832(%r15)
				lay	%r2,40368(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,6832(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE988:
		.LBB989:
		.LBB990:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL61:
		.LBE990:
		.LBE989:
		.LBB991:
		.LBB992:
				lghi	%r2,4
				ld	%f0,.L13-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL62:
		.LBE992:
		.LBE991:
		.LBB993:
   97     print string (") = "); print fl (y, 4)
				lay	%r1,40112(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,7088(%r15)
				lay	%r2,40112(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,7088(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE993:
		.LBB994:
		.LBB995:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL63:
		.LBE995:
		.LBE994:
		.LBB996:
		.LBB997:
				lghi	%r2,4
				ld	%f0,.L15-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL64:
		.LBE997:
		.LBE996:
		.LBB998:
		.LBB999:
				brasl	%r14,_imp_newline@PLT
		.LVL65:
		.LBE999:
		.LBE998:
		.LBB1000:
   98     newline
   99     x = 7.50
  100     y = evalbern2 (q0b2, q1b2, q2b2, x)
  101     print string ("  q ( "); print fl (x, 4)
				lay	%r1,39856(%r15)
				mvc	0(256,%r1),0(%r6)
				lay	%r1,7344(%r15)
				lay	%r2,39856(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,7344(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1000:
		.LBB1001:
		.LBB1002:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL66:
		.LBE1002:
		.LBE1001:
		.LBB1003:
		.LBB1004:
				lghi	%r2,4
				ld	%f0,.L14-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL67:
		.LBE1004:
		.LBE1003:
		.LBB1005:
  102     print string (") = "); print fl (y, 4)
				lay	%r1,39600(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,7600(%r15)
				lay	%r2,39600(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,7600(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1005:
		.LBB1006:
		.LBB1007:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL68:
		.LBE1007:
		.LBE1006:
		.LBB1008:
		.LBB1009:
				lghi	%r2,4
				ld	%f0,.L16-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL69:
		.LBE1009:
		.LBE1008:
		.LBB1010:
		.LBB1011:
				brasl	%r14,_imp_newline@PLT
		.LVL70:
		.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 ( ")
				lay	%r1,39088(%r15)
				mvc	0(256,%r1),0(%r7)
				lay	%r1,8368(%r15)
				lay	%r2,39088(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,8368(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1016:
		.LBB1017:
		.LBB1018:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL73:
		.LBE1018:
		.LBE1017:
		.LBB1019:
		.LBB1020:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL74:
		.LBE1020:
		.LBE1019:
		.LBB1021:
  110     print fl (p0m, 4); print string (", ")
				lgdr	%r4,%f8
				lay	%r3,8112(%r15)
				lay	%r2,39344(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL71:
				lay	%r1,39344(%r15)
				lay	%r2,7856(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1013:
		.LBE1012:
		.LBB1014:
		.LBB1015:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL72:
		.LBE1015:
		.LBE1014:
		.LBB1016:
  111     print fl (p1m, 4); print string (", ")
				lay	%r1,38832(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,8624(%r15)
				lay	%r2,38832(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,8624(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1021:
		.LBB1022:
		.LBB1023:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL75:
		.LBE1023:
		.LBE1022:
		.LBB1024:
		.LBB1025:
				lghi	%r2,4
				lzdr	%f0
				brasl	%r14,_imp_printfl@PLT
		.LVL76:
		.LBE1025:
		.LBE1024:
		.LBB1026:
  112     print fl (p2m, 4); print string (", ")
				lay	%r1,38576(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,8880(%r15)
				lay	%r2,38576(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,8880(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1026:
		.LBB1027:
		.LBB1028:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL77:
		.LBE1028:
		.LBE1027:
		.LBB1029:
		.LBB1030:
				lghi	%r2,4
				lzdr	%f0
				brasl	%r14,_imp_printfl@PLT
		.LVL78:
		.LBE1030:
		.LBE1029:
		.LBB1031:
  113     print fl (0, 4); print string (") --> bern ( ")
				lay	%r1,38320(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,9136(%r15)
				lay	%r2,38320(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,9136(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1031:
		.LBB1032:
		.LBB1033:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL79:
		.LBE1033:
		.LBE1032:
		.LBB1034:
		.LBB1035:
				lghi	%r2,4
				lzdr	%f0
				brasl	%r14,_imp_printfl@PLT
		.LVL80:
		.LBE1035:
		.LBE1034:
		.LBB1036:
  114     print fl (p0b3, 4); print string (", ")
				lay	%r1,38064(%r15)
				mvc	0(256,%r1),0(%r8)
				lay	%r1,9392(%r15)
				lay	%r2,38064(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,9392(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1036:
		.LBB1037:
		.LBB1038:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL81:
		.LBE1038:
		.LBE1037:
		.LBB1039:
		.LBB1040:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL82:
		.LBE1040:
		.LBE1039:
		.LBB1041:
  115     print fl (p1b3, 4); print string (", ")
				lay	%r1,37808(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,9648(%r15)
				lay	%r2,37808(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,9648(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1041:
		.LBB1042:
		.LBB1043:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL83:
		.LBE1043:
		.LBE1042:
		.LBB1044:
		.LBB1045:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL84:
		.LBE1045:
		.LBE1044:
		.LBB1046:
  116     print fl (p2b3, 4); print string (", ")
				lay	%r1,37552(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,9904(%r15)
				lay	%r2,37552(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,9904(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1046:
		.LBB1047:
		.LBB1048:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL85:
		.LBE1048:
		.LBE1047:
		.LBB1049:
		.LBB1050:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL86:
		.LBE1050:
		.LBE1049:
		.LBB1051:
  117     print fl (p3b3, 4); print string (")".snl)
				lay	%r1,37296(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,10160(%r15)
				lay	%r2,37296(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,10160(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1051:
		.LBB1052:
		.LBB1053:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL87:
		.LBE1053:
		.LBE1052:
		.LBB1054:
		.LBB1055:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL88:
		.LBE1055:
		.LBE1054:
		.LBB1056:
		.LBB1057:
  118     print string ("  mono ( ")
				lay	%r1,36784(%r15)
				mvc	0(256,%r1),0(%r7)
				lay	%r1,10928(%r15)
				lay	%r2,36784(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,10928(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1060:
		.LBB1061:
		.LBB1062:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL91:
		.LBE1062:
		.LBE1061:
		.LBB1063:
		.LBB1064:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL92:
		.LBE1064:
		.LBE1063:
		.LBB1065:
				lay	%r1,36528(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,11184(%r15)
				lay	%r2,36528(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,11184(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1065:
		.LBB1066:
		.LBB1067:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL93:
		.LBE1067:
		.LBE1066:
		.LBB1068:
		.LBB1069:
				lghi	%r2,4
				ld	%f0,.L10-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL94:
		.LBE1069:
		.LBE1068:
		.LBB1070:
  119     print fl (q0m, 4); print string (", ")
  120     print fl (q1m, 4); print string (", ")
				lgdr	%r4,%f8
				lay	%r3,10672(%r15)
				lay	%r2,37040(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL89:
				lay	%r1,37040(%r15)
				lay	%r2,10416(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1057:
		.LBE1056:
		.LBB1058:
		.LBB1059:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL90:
		.LBE1059:
		.LBE1058:
		.LBB1060:
  121     print fl (q2m, 4); print string (", ")
				lay	%r1,36272(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,11440(%r15)
				lay	%r2,36272(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,11440(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1070:
		.LBB1071:
		.LBB1072:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL95:
		.LBE1072:
		.LBE1071:
		.LBB1073:
		.LBB1074:
				lghi	%r2,4
				ld	%f0,.L11-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL96:
		.LBE1074:
		.LBE1073:
		.LBB1075:
  122     print fl (0, 4); print string (") --> bern ( ")
				lay	%r1,36016(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,11696(%r15)
				lay	%r2,36016(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,11696(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1075:
		.LBB1076:
		.LBB1077:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL97:
		.LBE1077:
		.LBE1076:
		.LBB1078:
		.LBB1079:
				lghi	%r2,4
				lzdr	%f0
				brasl	%r14,_imp_printfl@PLT
		.LVL98:
		.LBE1079:
		.LBE1078:
		.LBB1080:
  123     print fl (q0b3, 4); print string (", ")
				lay	%r1,35760(%r15)
				mvc	0(256,%r1),0(%r8)
				lay	%r1,11952(%r15)
				lay	%r2,35760(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,11952(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1080:
		.LBB1081:
		.LBB1082:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL99:
		.LBE1082:
		.LBE1081:
		.LBB1083:
		.LBB1084:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL100:
		.LBE1084:
		.LBE1083:
		.LBB1085:
  124     print fl (q1b3, 4); print string (", ")
				lay	%r1,35504(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,12208(%r15)
				lay	%r2,35504(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,12208(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1085:
		.LBB1086:
		.LBB1087:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL101:
		.LBE1087:
		.LBE1086:
		.LBB1088:
		.LBB1089:
				lghi	%r2,4
				ld	%f0,.L17-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL102:
		.LBE1089:
		.LBE1088:
		.LBB1090:
  125     print fl (q2b3, 4); print string (", ")
				lay	%r1,35248(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,12464(%r15)
				lay	%r2,35248(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,12464(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1090:
		.LBB1091:
		.LBB1092:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL103:
		.LBE1092:
		.LBE1091:
		.LBB1093:
		.LBB1094:
				lghi	%r2,4
				ld	%f0,.L18-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL104:
		.LBE1094:
		.LBE1093:
		.LBB1095:
  126     print fl (q3b3, 4); print string (")".snl)
				lay	%r1,34992(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,12720(%r15)
				lay	%r2,34992(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,12720(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1095:
		.LBB1096:
		.LBB1097:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL105:
		.LBE1097:
		.LBE1096:
		.LBB1098:
		.LBB1099:
				lghi	%r2,4
				ld	%f0,.L12-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL106:
		.LBE1099:
		.LBE1098:
		.LBB1100:
		.LBB1101:
  127     print string ("  mono ( ")
				lay	%r1,34480(%r15)
				mvc	0(256,%r1),0(%r7)
				lay	%r1,13488(%r15)
				lay	%r2,34480(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,13488(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1104:
		.LBB1105:
		.LBB1106:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL109:
		.LBE1106:
		.LBE1105:
		.LBB1107:
		.LBB1108:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL110:
		.LBE1108:
		.LBE1107:
		.LBB1109:
				lay	%r1,34224(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,13744(%r15)
				lay	%r2,34224(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,13744(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1109:
		.LBB1110:
		.LBB1111:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL111:
		.LBE1111:
		.LBE1110:
		.LBB1112:
		.LBB1113:
				lghi	%r2,4
				ld	%f0,.L10-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL112:
		.LBE1113:
		.LBE1112:
		.LBB1114:
  128     print fl (r0m, 4); print string (", ")
  129     print fl (r1m, 4); print string (", ")
				lgdr	%r4,%f8
				lay	%r3,13232(%r15)
				lay	%r2,34736(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL107:
				lay	%r1,34736(%r15)
				lay	%r2,12976(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1101:
		.LBE1100:
		.LBB1102:
		.LBB1103:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL108:
		.LBE1103:
		.LBE1102:
		.LBB1104:
  130     print fl (r2m, 4); print string (", ")
				lay	%r1,33968(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,14000(%r15)
				lay	%r2,33968(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,14000(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1114:
		.LBB1115:
		.LBB1116:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL113:
		.LBE1116:
		.LBE1115:
		.LBB1117:
		.LBB1118:
				lghi	%r2,4
				ld	%f0,.L11-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL114:
		.LBE1118:
		.LBE1117:
		.LBB1119:
  131     print fl (r3m, 4); print string (") --> bern ( ")
				lay	%r1,33712(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,14256(%r15)
				lay	%r2,33712(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,14256(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1119:
		.LBB1120:
		.LBB1121:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL115:
		.LBE1121:
		.LBE1120:
		.LBB1122:
		.LBB1123:
				lghi	%r2,4
				ld	%f0,.L19-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL116:
		.LBE1123:
		.LBE1122:
		.LBB1124:
  132     print fl (r0b3, 4); print string (", ")
				lay	%r1,33456(%r15)
				mvc	0(256,%r1),0(%r8)
				lay	%r1,14512(%r15)
				lay	%r2,33456(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,14512(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1124:
		.LBB1125:
		.LBB1126:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL117:
		.LBE1126:
		.LBE1125:
		.LBB1127:
		.LBB1128:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL118:
		.LBE1128:
		.LBE1127:
		.LBB1129:
  133     print fl (r1b3, 4); print string (", ")
				lay	%r1,33200(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,14768(%r15)
				lay	%r2,33200(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,14768(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1129:
		.LBB1130:
		.LBB1131:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL119:
		.LBE1131:
		.LBE1130:
		.LBB1132:
		.LBB1133:
				lghi	%r2,4
				ld	%f0,.L17-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL120:
		.LBE1133:
		.LBE1132:
		.LBB1134:
  134     print fl (r2b3, 4); print string (", ")
				lay	%r1,32944(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,15024(%r15)
				lay	%r2,32944(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,15024(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1134:
		.LBB1135:
		.LBB1136:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL121:
		.LBE1136:
		.LBE1135:
		.LBB1137:
		.LBB1138:
				lghi	%r2,4
				ld	%f0,.L18-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL122:
		.LBE1138:
		.LBE1137:
		.LBB1139:
  135     print fl (r3b3, 4); print string (")".snl)
				lay	%r1,32688(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,15280(%r15)
				lay	%r2,32688(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,15280(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1139:
		.LBB1140:
		.LBB1141:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL123:
		.LBE1141:
		.LBE1140:
		.LBB1142:
		.LBB1143:
				lghi	%r2,4
				ld	%f0,.L20-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL124:
		.LBE1143:
		.LBE1142:
		.LBB1144:
		.LBB1145:
  136
  137     print string ("Subprogram (4) examples:".snl)
  138     x = 0.25
				lgdr	%r4,%f8
				lay	%r3,15792(%r15)
				lay	%r2,32432(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL125:
				lay	%r1,32432(%r15)
				lay	%r2,15536(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1145:
		.LBE1144:
		.LBB1146:
		.LBB1147:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL126:
		.LBE1147:
		.LBE1146:
		.LBB1148:
		.LBB1149:
  139     y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x)
				lgdr	%r4,%f8
				lay	%r3,16304(%r15)
				lay	%r2,32176(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL127:
				lay	%r1,32176(%r15)
				lay	%r2,16048(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1149:
		.LBE1148:
		.LBB1150:
		.LBB1151:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL128:
		.LBE1151:
		.LBE1150:
				ld	%f0,.L13-.L8(%r13)
				std	%f0,160(%r15)
				ld	%f6,.L9-.L8(%r13)
				ldr	%f4,%f6
				ldr	%f2,%f6
				ldr	%f0,%f6
				brasl	%r14,EVALBERN3.6722
		.LVL129:
				lgdr	%r7,%f0
		.LVL130:
		.LBB1152:
  140     print string ("  p ( "); print fl (x, 4)
				lay	%r1,31920(%r15)
				lg	%r2,168(%r15)
				mvc	0(256,%r1),0(%r2)
				lay	%r1,16560(%r15)
				lay	%r2,31920(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,16560(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1152:
		.LBB1153:
		.LBB1154:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL131:
		.LBE1154:
		.LBE1153:
		.LBB1155:
		.LBB1156:
				lghi	%r2,4
				ld	%f0,.L13-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL132:
		.LBE1156:
		.LBE1155:
		.LBB1157:
  141     print string (") = "); print fl (y, 4)
				lay	%r1,31664(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,16816(%r15)
				lay	%r2,31664(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,16816(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1157:
		.LBB1158:
		.LBB1159:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL133:
		.LBE1159:
		.LBE1158:
		.LBB1160:
		.LBB1161:
				lghi	%r2,4
				ldgr	%f0,%r7
				brasl	%r14,_imp_printfl@PLT
		.LVL134:
		.LBE1161:
		.LBE1160:
		.LBB1162:
		.LBB1163:
				brasl	%r14,_imp_newline@PLT
		.LVL135:
		.LBE1163:
		.LBE1162:
  142     newline
  143     x = 7.50
  144     y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x)
				ld	%f0,.L14-.L8(%r13)
				std	%f0,160(%r15)
				ld	%f6,.L9-.L8(%r13)
				ldr	%f4,%f6
				ldr	%f2,%f6
				ldr	%f0,%f6
				brasl	%r14,EVALBERN3.6722
		.LVL136:
				lgdr	%r7,%f0
		.LVL137:
		.LBB1164:
  145     print string ("  p ( "); print fl (x, 4)
				lay	%r1,31408(%r15)
				lg	%r2,168(%r15)
				mvc	0(256,%r1),0(%r2)
				lay	%r1,17072(%r15)
				lay	%r2,31408(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,17072(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1164:
		.LBB1165:
		.LBB1166:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL138:
		.LBE1166:
		.LBE1165:
		.LBB1167:
		.LBB1168:
				lghi	%r2,4
				ld	%f0,.L14-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL139:
		.LBE1168:
		.LBE1167:
		.LBB1169:
  146     print string (") = "); print fl (y, 4)
				lay	%r1,31152(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,17328(%r15)
				lay	%r2,31152(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,17328(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1169:
		.LBB1170:
		.LBB1171:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL140:
		.LBE1171:
		.LBE1170:
		.LBB1172:
		.LBB1173:
				lghi	%r2,4
				ldgr	%f0,%r7
				brasl	%r14,_imp_printfl@PLT
		.LVL141:
		.LBE1173:
		.LBE1172:
		.LBB1174:
		.LBB1175:
				brasl	%r14,_imp_newline@PLT
		.LVL142:
		.LBE1175:
		.LBE1174:
  147     newline
  148     x = 0.25
  149     y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
				ld	%f0,.L13-.L8(%r13)
				std	%f0,160(%r15)
				ld	%f6,.L12-.L8(%r13)
				ld	%f4,.L18-.L8(%r13)
				ld	%f2,.L17-.L8(%r13)
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,EVALBERN3.6722
		.LVL143:
				lgdr	%r7,%f0
		.LVL144:
		.LBB1176:
  150     print string ("  q ( "); print fl (x, 4)
				lay	%r1,30896(%r15)
				mvc	0(256,%r1),0(%r6)
				lay	%r1,17584(%r15)
				lay	%r2,30896(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,17584(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1176:
		.LBB1177:
		.LBB1178:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL145:
		.LBE1178:
		.LBE1177:
		.LBB1179:
		.LBB1180:
				lghi	%r2,4
				ld	%f0,.L13-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL146:
		.LBE1180:
		.LBE1179:
		.LBB1181:
  151     print string (") = "); print fl (y, 4)
				lay	%r1,30640(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,17840(%r15)
				lay	%r2,30640(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,17840(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1181:
		.LBB1182:
		.LBB1183:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL147:
		.LBE1183:
		.LBE1182:
		.LBB1184:
		.LBB1185:
				lghi	%r2,4
				ldgr	%f0,%r7
				brasl	%r14,_imp_printfl@PLT
		.LVL148:
		.LBE1185:
		.LBE1184:
		.LBB1186:
		.LBB1187:
				brasl	%r14,_imp_newline@PLT
		.LVL149:
		.LBE1187:
		.LBE1186:
  152     newline
  153     x = 7.50
  154     y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
				ld	%f0,.L14-.L8(%r13)
				std	%f0,160(%r15)
				ld	%f6,.L12-.L8(%r13)
				ld	%f4,.L18-.L8(%r13)
				ld	%f2,.L17-.L8(%r13)
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,EVALBERN3.6722
		.LVL150:
				lgdr	%r7,%f0
		.LVL151:
		.LBB1188:
  155     print string ("  q ( "); print fl (x, 4)
				lay	%r1,30384(%r15)
				mvc	0(256,%r1),0(%r6)
				lay	%r1,18096(%r15)
				lay	%r2,30384(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,18096(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1188:
		.LBB1189:
		.LBB1190:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL152:
		.LBE1190:
		.LBE1189:
		.LBB1191:
		.LBB1192:
				lghi	%r2,4
				ld	%f0,.L14-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL153:
		.LBE1192:
		.LBE1191:
		.LBB1193:
  156     print string (") = "); print fl (y, 4)
				lay	%r1,30128(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,18352(%r15)
				lay	%r2,30128(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,18352(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1193:
		.LBB1194:
		.LBB1195:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL154:
		.LBE1195:
		.LBE1194:
		.LBB1196:
		.LBB1197:
				lghi	%r2,4
				ldgr	%f0,%r7
				brasl	%r14,_imp_printfl@PLT
		.LVL155:
		.LBE1197:
		.LBE1196:
		.LBB1198:
		.LBB1199:
				brasl	%r14,_imp_newline@PLT
		.LVL156:
		.LBE1199:
		.LBE1198:
  157     newline
  158     x = 0.25
  159     y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
				ld	%f0,.L13-.L8(%r13)
				std	%f0,160(%r15)
				ld	%f6,.L20-.L8(%r13)
				ld	%f4,.L18-.L8(%r13)
				ld	%f2,.L17-.L8(%r13)
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,EVALBERN3.6722
		.LVL157:
				lgdr	%r6,%f0
		.LVL158:
		.LBB1200:
  160     print string ("  r ( "); print fl (x, 4)
				larl	%r7,.LC11
				lay	%r1,29872(%r15)
				mvc	0(256,%r1),0(%r7)
				lay	%r1,18608(%r15)
				lay	%r2,29872(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,18608(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1200:
		.LBB1201:
		.LBB1202:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL159:
		.LBE1202:
		.LBE1201:
		.LBB1203:
		.LBB1204:
				lghi	%r2,4
				ld	%f0,.L13-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL160:
		.LBE1204:
		.LBE1203:
		.LBB1205:
  161     print string (") = "); print fl (y, 4)
				lay	%r1,29616(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,18864(%r15)
				lay	%r2,29616(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,18864(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1205:
		.LBB1206:
		.LBB1207:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL161:
		.LBE1207:
		.LBE1206:
		.LBB1208:
		.LBB1209:
				lghi	%r2,4
				ldgr	%f0,%r6
				brasl	%r14,_imp_printfl@PLT
		.LVL162:
		.LBE1209:
		.LBE1208:
		.LBB1210:
		.LBB1211:
				brasl	%r14,_imp_newline@PLT
		.LVL163:
		.LBE1211:
		.LBE1210:
  162     newline
  163     x = 7.50
  164     y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
				ld	%f0,.L14-.L8(%r13)
				std	%f0,160(%r15)
				ld	%f6,.L20-.L8(%r13)
				ld	%f4,.L18-.L8(%r13)
				ld	%f2,.L17-.L8(%r13)
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,EVALBERN3.6722
		.LVL164:
				lgdr	%r6,%f0
		.LVL165:
		.LBB1212:
  165     print string ("  r ( "); print fl (x, 4)
				lay	%r1,29360(%r15)
				mvc	0(256,%r1),0(%r7)
				lay	%r1,19120(%r15)
				lay	%r2,29360(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,19120(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1212:
		.LBB1213:
		.LBB1214:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL166:
		.LBE1214:
		.LBE1213:
		.LBB1215:
		.LBB1216:
				lghi	%r2,4
				ld	%f0,.L14-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL167:
		.LBE1216:
		.LBE1215:
		.LBB1217:
  166     print string (") = "); print fl (y, 4)
				lay	%r1,29104(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,19376(%r15)
				lay	%r2,29104(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,19376(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1217:
		.LBB1218:
		.LBB1219:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL168:
		.LBE1219:
		.LBE1218:
		.LBB1220:
		.LBB1221:
				lghi	%r2,4
				ldgr	%f0,%r6
				brasl	%r14,_imp_printfl@PLT
		.LVL169:
		.LBE1221:
		.LBE1220:
		.LBB1222:
		.LBB1223:
				brasl	%r14,_imp_newline@PLT
		.LVL170:
		.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 ( ")
				larl	%r9,.LC13
				lay	%r1,28592(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,20144(%r15)
				lay	%r2,28592(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,20144(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1228:
		.LBB1229:
		.LBB1230:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL173:
		.LBE1230:
		.LBE1229:
		.LBB1231:
		.LBB1232:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL174:
		.LBE1232:
		.LBE1231:
		.LBB1233:
  173     print fl (p0b2, 4); print string (", ")
				lgdr	%r4,%f8
				lay	%r3,19888(%r15)
				lay	%r2,28848(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL171:
				lay	%r1,28848(%r15)
				lay	%r2,19632(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1225:
		.LBE1224:
		.LBB1226:
		.LBB1227:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL172:
		.LBE1227:
		.LBE1226:
		.LBB1228:
  174     print fl (p1b2, 4); print string (", ")
				lay	%r1,28336(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,20400(%r15)
				lay	%r2,28336(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,20400(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1233:
		.LBB1234:
		.LBB1235:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL175:
		.LBE1235:
		.LBE1234:
		.LBB1236:
		.LBB1237:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL176:
		.LBE1237:
		.LBE1236:
		.LBB1238:
  175     print fl (p2b2, 4); print string (") --> bern ( ")
				lay	%r1,28080(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,20656(%r15)
				lay	%r2,28080(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,20656(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1238:
		.LBB1239:
		.LBB1240:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL177:
		.LBE1240:
		.LBE1239:
		.LBB1241:
		.LBB1242:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL178:
		.LBE1242:
		.LBE1241:
		.LBB1243:
  176     print fl (pc0, 4); print string (", ")
				lay	%r1,27824(%r15)
				mvc	0(256,%r1),0(%r8)
				lay	%r1,20912(%r15)
				lay	%r2,27824(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,20912(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1243:
		.LBB1244:
		.LBB1245:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL179:
		.LBE1245:
		.LBE1244:
		.LBB1246:
		.LBB1247:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL180:
		.LBE1247:
		.LBE1246:
		.LBB1248:
  177     print fl (pc1, 4); print string (", ")
				lay	%r1,27568(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,21168(%r15)
				lay	%r2,27568(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,21168(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1248:
		.LBB1249:
		.LBB1250:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL181:
		.LBE1250:
		.LBE1249:
		.LBB1251:
		.LBB1252:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL182:
		.LBE1252:
		.LBE1251:
		.LBB1253:
  178     print fl (pc2, 4); print string (", ")
				lay	%r1,27312(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,21424(%r15)
				lay	%r2,27312(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,21424(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1253:
		.LBB1254:
		.LBB1255:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL183:
		.LBE1255:
		.LBE1254:
		.LBB1256:
		.LBB1257:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL184:
		.LBE1257:
		.LBE1256:
		.LBB1258:
  179     print fl (pc3, 4); print string (")".snl)
				lay	%r1,27056(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,21680(%r15)
				lay	%r2,27056(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,21680(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1258:
		.LBB1259:
		.LBB1260:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL185:
		.LBE1260:
		.LBE1259:
		.LBB1261:
		.LBB1262:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL186:
		.LBE1262:
		.LBE1261:
		.LBB1263:
		.LBB1264:
  180     print string ("  bern ( ")
				lay	%r1,26544(%r15)
				mvc	0(256,%r1),0(%r9)
				lay	%r1,22448(%r15)
				lay	%r2,26544(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,22448(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1267:
		.LBB1268:
		.LBB1269:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL189:
		.LBE1269:
		.LBE1268:
		.LBB1270:
		.LBB1271:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL190:
		.LBE1271:
		.LBE1270:
		.LBB1272:
				lay	%r1,26288(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,22704(%r15)
				lay	%r2,26288(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,22704(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1272:
		.LBB1273:
		.LBB1274:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL191:
		.LBE1274:
		.LBE1273:
		.LBB1275:
		.LBB1276:
				lghi	%r2,4
				ld	%f0,.L10-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL192:
		.LBE1276:
		.LBE1275:
		.LBB1277:
  181     print fl (q0b2, 4); print string (", ")
  182     print fl (q1b2, 4); print string (", ")
				lgdr	%r4,%f8
				lay	%r3,22192(%r15)
				lay	%r2,26800(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL187:
				lay	%r1,26800(%r15)
				lay	%r2,21936(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1264:
		.LBE1263:
		.LBB1265:
		.LBB1266:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL188:
		.LBE1266:
		.LBE1265:
		.LBB1267:
  183     print fl (q2b2, 4); print string (") --> bern ( ")
				lay	%r1,26032(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,22960(%r15)
				lay	%r2,26032(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,22960(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1277:
		.LBB1278:
		.LBB1279:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL193:
		.LBE1279:
		.LBE1278:
		.LBB1280:
		.LBB1281:
				lghi	%r2,4
				ld	%f0,.L12-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL194:
		.LBE1281:
		.LBE1280:
		.LBB1282:
  184     print fl (qc0, 4); print string (", ")
				lay	%r1,25776(%r15)
				mvc	0(256,%r1),0(%r8)
				lay	%r1,23216(%r15)
				lay	%r2,25776(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,23216(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1282:
		.LBB1283:
		.LBB1284:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL195:
		.LBE1284:
		.LBE1283:
		.LBB1285:
		.LBB1286:
				lghi	%r2,4
				ld	%f0,.L9-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL196:
		.LBE1286:
		.LBE1285:
		.LBB1287:
  185     print fl (qc1, 4); print string (", ")
				lay	%r1,25520(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,23472(%r15)
				lay	%r2,25520(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,23472(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1287:
		.LBB1288:
		.LBB1289:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL197:
		.LBE1289:
		.LBE1288:
		.LBB1290:
		.LBB1291:
				lghi	%r2,4
				ld	%f0,.L17-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL198:
		.LBE1291:
		.LBE1290:
		.LBB1292:
  186     print fl (qc2, 4); print string (", ")
				lay	%r1,25264(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,23728(%r15)
				lay	%r2,25264(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,23728(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1292:
		.LBB1293:
		.LBB1294:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL199:
		.LBE1294:
		.LBE1293:
		.LBB1295:
		.LBB1296:
				lghi	%r2,4
				ld	%f0,.L18-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL200:
		.LBE1296:
		.LBE1295:
		.LBB1297:
  187     print fl (qc3, 4); print string (")".snl)
				lay	%r1,25008(%r15)
				mvc	0(256,%r1),0(%r10)
				lay	%r1,23984(%r15)
				lay	%r2,25008(%r15)
				mvc	0(256,%r1),0(%r2)
				lgr	%r1,%r2
				lay	%r2,23984(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1297:
		.LBB1298:
		.LBB1299:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL201:
		.LBE1299:
		.LBE1298:
		.LBB1300:
		.LBB1301:
				lghi	%r2,4
				ld	%f0,.L12-.L8(%r13)
				brasl	%r14,_imp_printfl@PLT
		.LVL202:
		.LBE1301:
		.LBE1300:
		.LBB1302:
		.LBB1303:
  188 %endofprogram
?M unused
?EVALMONO3 unused
?EVALMONO2 unused
  245 Statements compiled
				lgdr	%r4,%f8
				lay	%r3,24496(%r15)
				lay	%r2,24752(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL203:
				lay	%r1,24752(%r15)
				lay	%r2,24240(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE1303:
		.LBE1302:
		.LBB1304:
		.LBB1305:
				mvc	176(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL204:
		.LBE1305:
		.LBE1304:
		.LBB1306:
		.LBB1307:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL205:
				.section	.rodata
				.align	8
		.L8:
		.L20:
				.long	1076101120
				.long	0
		.L19:
				.long	1074790400
				.long	0
		.L18:
				.long	1074440874
				.long	-1431655766
		.L17:
				.long	1073392298
				.long	-1431655766
		.L16:
				.long	1080498176
				.long	0
		.L15:
				.long	1073414144
				.long	0
		.L14:
				.long	1075707904
				.long	0
		.L13:
				.long	1070596096
				.long	0
		.L12:
				.long	1075314688
				.long	0
		.L11:
				.long	1074266112
				.long	0
		.L10:
				.long	1073741824
				.long	0
		.L9:
				.long	1072693248
				.long	0
				.align	2
		.text
		.LBE1307:
		.LBE1306:
		.LFE185:
		.Letext0: