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