Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.machine ppc
				.section	".text"
		.Ltext0:
				.align 2
		EVALBERN3.7017:
		.LFB189:
		.LVL16:
				mr 12,1
				lis 0,0xffff
				ori 0,0,0x4d80
				stwux 1,1,0
				mflr 0
				stw 0,4(12)
				stfd 24,-64(12)
				stfd 25,-56(12)
				stfd 26,-48(12)
				stfd 27,-40(12)
				stfd 28,-32(12)
				stfd 29,-24(12)
				stfd 30,-16(12)
				stfd 31,-8(12)
				stw 28,-80(12)
				stw 29,-76(12)
				stw 30,-72(12)
				stw 31,-68(12)
				li 9,0
				ori 9,9,0xb21c
				addi 10,1,16
				add 9,9,10
				lwz 10,-28680(2)
				stw 10,0(9)
				li 10,0
    2 %const %string (1) snl = "
				bl _imp_initialise
		.LVL17:
				li 5,254
				li 4,0
				addi 3,1,302
				bl memset
		.LVL18:
				li 9,1
				stb 9,300(1)
				li 9,10
				stb 9,301(1)
		.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:
				stwu 1,-16(1)
   28     %long %real s = 1 - t
   29     %long %real b01  = s * b0  + t * b1
				lis 9,.LC14@ha
				lfd 0,.LC14@l(9)
				fsub 0,0,5
		.LVL1:
   30     %long %real b12  = s * b1  + t * b2
				fmul 1,0,1
		.LVL3:
				fmul 2,5,2
		.LVL4:
				fadd 1,1,2
		.LVL5:
   31     %long %real b23  = s * b2  + t * b3
				fmul 12,0,2
				fmul 11,5,3
				fadd 12,12,11
		.LVL2:
   32     %long %real b012 = s * b01 + t * b12
				fmul 3,0,3
		.LVL9:
				fmul 4,5,4
		.LVL10:
				fadd 3,3,4
		.LVL11:
				fmul 3,3,5
		.LVL12:
				fmul 0,0,12
		.LVL13:
				fadd 3,3,0
		.LVL14:
				fmul 5,3,5
		.LVL15:
   33     %long %real b123 = s * b12 + t * b23
				fmul 1,1,0
		.LVL6:
				fmul 11,5,12
				fadd 1,1,11
		.LVL7:
   34     %result = s * b012 + t * b123
				fmul 1,1,0
		.LVL8:
   35 %end
				fadd 1,1,5
				addi 1,1,16
				blr
		.LFE189:
				.align 2
				.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 ( ")
				lis 31,.LANCHOR0@ha
				la 31,.LANCHOR0@l(31)
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0xb01c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL24:
				li 5,256
				li 4,0
				ori 4,4,0xb01c
				addi 9,1,16
				add 4,4,9
				addi 3,1,1068
				bl memcpy
		.LVL25:
				li 5,256
				addi 4,1,1068
				li 3,0
				ori 3,3,0xb01c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL26:
		.LBE892:
		.LBB893:
		.LBB894:
				li 5,256
				li 4,0
				ori 4,4,0xb01c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL27:
				addi 3,1,32
				bl _imp_printstring
		.LVL28:
		.LBE894:
		.LBE893:
		.LBB895:
		.LBB896:
				lis 9,.LC14@ha
				lfd 31,.LC14@l(9)
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL29:
		.LBE896:
		.LBE895:
		.LBB897:
   69     print fl (p0m, 4); print string (", ")
				addi 5,1,300
				addi 4,1,812
				li 3,0
				ori 3,3,0xb11c
				addi 9,1,16
				add 3,3,9
				bl _imp_join
		.LVL20:
				li 5,256
				addi 4,1,556
				li 3,0
				ori 3,3,0xb11c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL21:
		.LBE889:
		.LBE888:
		.LBB890:
		.LBB891:
				li 5,256
				li 4,0
				ori 4,4,0xb11c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL22:
				addi 3,1,32
				bl _imp_printstring
		.LVL23:
		.LBE891:
		.LBE890:
		.LBB892:
   70     print fl (p1m, 4); print string (", ")
				addi 30,31,256
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xaf1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL30:
				li 5,256
				li 4,0
				ori 4,4,0xaf1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,1324
				bl memcpy
		.LVL31:
				li 5,256
				addi 4,1,1324
				li 3,0
				ori 3,3,0xaf1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL32:
		.LBE897:
		.LBB898:
		.LBB899:
				li 5,256
				li 4,0
				ori 4,4,0xaf1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL33:
				addi 3,1,32
				bl _imp_printstring
		.LVL34:
		.LBE899:
		.LBE898:
		.LBB900:
		.LBB901:
				lis 9,.LC16@ha
				lfd 30,.LC16@l(9)
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL35:
		.LBE901:
		.LBE900:
		.LBB902:
   71     print fl (p2m, 4); print string (") --> bern ( ")
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xae1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL36:
				li 5,256
				li 4,0
				ori 4,4,0xae1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,1580
				bl memcpy
		.LVL37:
				li 5,256
				addi 4,1,1580
				li 3,0
				ori 3,3,0xae1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL38:
		.LBE902:
		.LBB903:
		.LBB904:
				li 5,256
				li 4,0
				ori 4,4,0xae1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL39:
				addi 3,1,32
				bl _imp_printstring
		.LVL40:
		.LBE904:
		.LBE903:
		.LBB905:
		.LBB906:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL41:
		.LBE906:
		.LBE905:
		.LBB907:
   72     print fl (p0b2, 4); print string (", ")
				addi 29,31,512
				li 5,256
				mr 4,29
				li 3,0
				ori 3,3,0xad1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL42:
				li 5,256
				li 4,0
				ori 4,4,0xad1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,1836
				bl memcpy
		.LVL43:
				li 5,256
				addi 4,1,1836
				li 3,0
				ori 3,3,0xad1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL44:
		.LBE907:
		.LBB908:
		.LBB909:
				li 5,256
				li 4,0
				ori 4,4,0xad1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL45:
				addi 3,1,32
				bl _imp_printstring
		.LVL46:
		.LBE909:
		.LBE908:
		.LBB910:
		.LBB911:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL47:
		.LBE911:
		.LBE910:
		.LBB912:
   73     print fl (p1b2, 4); print string (", ")
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xac1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL48:
				li 5,256
				li 4,0
				ori 4,4,0xac1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,2092
				bl memcpy
		.LVL49:
				li 5,256
				addi 4,1,2092
				li 3,0
				ori 3,3,0xac1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL50:
		.LBE912:
		.LBB913:
		.LBB914:
				li 5,256
				li 4,0
				ori 4,4,0xac1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL51:
				addi 3,1,32
				bl _imp_printstring
		.LVL52:
		.LBE914:
		.LBE913:
		.LBB915:
		.LBB916:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL53:
		.LBE916:
		.LBE915:
		.LBB917:
   74     print fl (p2b2, 4); print string (")".snl)
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xab1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL54:
				li 5,256
				li 4,0
				ori 4,4,0xab1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,2348
				bl memcpy
		.LVL55:
				li 5,256
				addi 4,1,2348
				li 3,0
				ori 3,3,0xab1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL56:
		.LBE917:
		.LBB918:
		.LBB919:
				li 5,256
				li 4,0
				ori 4,4,0xab1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL57:
				addi 3,1,32
				bl _imp_printstring
		.LVL58:
		.LBE919:
		.LBE918:
		.LBB920:
		.LBB921:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL59:
		.LBE921:
		.LBE920:
		.LBB922:
		.LBB923:
   75     print string ("  mono ( ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0xa91c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL64:
				li 5,256
				li 4,0
				ori 4,4,0xa91c
				addi 9,1,16
				add 4,4,9
				addi 3,1,3116
				bl memcpy
		.LVL65:
				li 5,256
				addi 4,1,3116
				li 3,0
				ori 3,3,0xa91c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL66:
		.LBE926:
		.LBB927:
		.LBB928:
				li 5,256
				li 4,0
				ori 4,4,0xa91c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL67:
				addi 3,1,32
				bl _imp_printstring
		.LVL68:
		.LBE928:
		.LBE927:
		.LBB929:
		.LBB930:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL69:
		.LBE930:
		.LBE929:
		.LBB931:
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xa81c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL70:
				li 5,256
				li 4,0
				ori 4,4,0xa81c
				addi 9,1,16
				add 4,4,9
				addi 3,1,3372
				bl memcpy
		.LVL71:
				li 5,256
				addi 4,1,3372
				li 3,0
				ori 3,3,0xa81c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL72:
		.LBE931:
		.LBB932:
		.LBB933:
				li 5,256
				li 4,0
				ori 4,4,0xa81c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL73:
				addi 3,1,32
				bl _imp_printstring
		.LVL74:
		.LBE933:
		.LBE932:
		.LBB934:
		.LBB935:
				lis 9,.LC18@ha
				lfd 30,.LC18@l(9)
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL75:
		.LBE935:
		.LBE934:
		.LBB936:
   76     print fl (q0m, 4); print string (", ")
   77     print fl (q1m, 4); print string (", ")
				addi 5,1,300
				addi 4,1,2860
				li 3,0
				ori 3,3,0xaa1c
				addi 9,1,16
				add 3,3,9
				bl _imp_join
		.LVL60:
				li 5,256
				addi 4,1,2604
				li 3,0
				ori 3,3,0xaa1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL61:
		.LBE923:
		.LBE922:
		.LBB924:
		.LBB925:
				li 5,256
				li 4,0
				ori 4,4,0xaa1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL62:
				addi 3,1,32
				bl _imp_printstring
		.LVL63:
		.LBE925:
		.LBE924:
		.LBB926:
   78     print fl (q2m, 4); print string (") --> bern ( ")
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xa71c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL76:
				li 5,256
				li 4,0
				ori 4,4,0xa71c
				addi 9,1,16
				add 4,4,9
				addi 3,1,3628
				bl memcpy
		.LVL77:
				li 5,256
				addi 4,1,3628
				li 3,0
				ori 3,3,0xa71c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL78:
		.LBE936:
		.LBB937:
		.LBB938:
				li 5,256
				li 4,0
				ori 4,4,0xa71c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL79:
				addi 3,1,32
				bl _imp_printstring
		.LVL80:
		.LBE938:
		.LBE937:
		.LBB939:
		.LBB940:
				li 3,4
				lis 9,.LC20@ha
				lfd 1,.LC20@l(9)
				bl _imp_printfl
		.LVL81:
		.LBE940:
		.LBE939:
		.LBB941:
   79     print fl (q0b2, 4); print string (", ")
				li 5,256
				mr 4,29
				li 3,0
				ori 3,3,0xa61c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL82:
				li 5,256
				li 4,0
				ori 4,4,0xa61c
				addi 9,1,16
				add 4,4,9
				addi 3,1,3884
				bl memcpy
		.LVL83:
				li 5,256
				addi 4,1,3884
				li 3,0
				ori 3,3,0xa61c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL84:
		.LBE941:
		.LBB942:
		.LBB943:
				li 5,256
				li 4,0
				ori 4,4,0xa61c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL85:
				addi 3,1,32
				bl _imp_printstring
		.LVL86:
		.LBE943:
		.LBE942:
		.LBB944:
		.LBB945:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL87:
		.LBE945:
		.LBE944:
		.LBB946:
   80     print fl (q1b2, 4); print string (", ")
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xa51c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL88:
				li 5,256
				li 4,0
				ori 4,4,0xa51c
				addi 9,1,16
				add 4,4,9
				addi 3,1,4140
				bl memcpy
		.LVL89:
				li 5,256
				addi 4,1,4140
				li 3,0
				ori 3,3,0xa51c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL90:
		.LBE946:
		.LBB947:
		.LBB948:
				li 5,256
				li 4,0
				ori 4,4,0xa51c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL91:
				addi 3,1,32
				bl _imp_printstring
		.LVL92:
		.LBE948:
		.LBE947:
		.LBB949:
		.LBB950:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL93:
		.LBE950:
		.LBE949:
		.LBB951:
   81     print fl (q2b2, 4); print string (")".snl)
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xa41c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL94:
				li 5,256
				li 4,0
				ori 4,4,0xa41c
				addi 9,1,16
				add 4,4,9
				addi 3,1,4396
				bl memcpy
		.LVL95:
				li 5,256
				addi 4,1,4396
				li 3,0
				ori 3,3,0xa41c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL96:
		.LBE951:
		.LBB952:
		.LBB953:
				li 5,256
				li 4,0
				ori 4,4,0xa41c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL97:
				addi 3,1,32
				bl _imp_printstring
		.LVL98:
		.LBE953:
		.LBE952:
		.LBB954:
		.LBB955:
				li 3,4
				lis 9,.LC22@ha
				lfd 1,.LC22@l(9)
				bl _imp_printfl
		.LVL99:
		.LBE955:
		.LBE954:
		.LBB956:
		.LBB957:
   82
   83     print string ("Subprogram (2) examples:".snl)
   84     x = 0.25
				addi 5,1,300
				addi 4,1,4908
				li 3,0
				ori 3,3,0xa31c
				addi 9,1,16
				add 3,3,9
				bl _imp_join
		.LVL100:
				li 5,256
				addi 4,1,4652
				li 3,0
				ori 3,3,0xa31c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL101:
		.LBE957:
		.LBE956:
		.LBB958:
		.LBB959:
				li 5,256
				li 4,0
				ori 4,4,0xa31c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL102:
				addi 3,1,32
				bl _imp_printstring
		.LVL103:
		.LBE959:
		.LBE958:
		.LBB960:
		.LBB961:
   85     y = evalbern2 (p0b2, p1b2, p2b2, x)
				addi 5,1,300
				addi 4,1,5420
				li 3,0
				ori 3,3,0xa21c
				addi 9,1,16
				add 3,3,9
				bl _imp_join
		.LVL104:
				li 5,256
				addi 4,1,5164
				li 3,0
				ori 3,3,0xa21c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL105:
		.LBE961:
		.LBE960:
		.LBB962:
		.LBB963:
				li 5,256
				li 4,0
				ori 4,4,0xa21c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL106:
				addi 3,1,32
				bl _imp_printstring
		.LVL107:
		.LBE963:
		.LBE962:
		.LBB964:
   86     print string ("  p ( "); print fl (x, 4)
				addi 29,31,768
				li 5,256
				mr 4,29
				li 3,0
				ori 3,3,0xa11c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL108:
				li 5,256
				li 4,0
				ori 4,4,0xa11c
				addi 9,1,16
				add 4,4,9
				addi 3,1,5676
				bl memcpy
		.LVL109:
				li 5,256
				addi 4,1,5676
				li 3,0
				ori 3,3,0xa11c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL110:
		.LBE964:
		.LBB965:
		.LBB966:
				li 5,256
				li 4,0
				ori 4,4,0xa11c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL111:
				addi 3,1,32
				bl _imp_printstring
		.LVL112:
		.LBE966:
		.LBE965:
		.LBB967:
		.LBB968:
				lis 9,.LC24@ha
				lfd 29,.LC24@l(9)
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL113:
		.LBE968:
		.LBE967:
		.LBB969:
   87     print string (") = "); print fl (y, 4)
				addi 30,31,1024
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0xa01c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL114:
				li 5,256
				li 4,0
				ori 4,4,0xa01c
				addi 9,1,16
				add 4,4,9
				addi 3,1,5932
				bl memcpy
		.LVL115:
				li 5,256
				addi 4,1,5932
				li 3,0
				ori 3,3,0xa01c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL116:
		.LBE969:
		.LBB970:
		.LBB971:
				li 5,256
				li 4,0
				ori 4,4,0xa01c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL117:
				addi 3,1,32
				bl _imp_printstring
		.LVL118:
		.LBE971:
		.LBE970:
		.LBB972:
		.LBB973:
				li 3,4
				fmr 1,31
				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)
				li 5,256
				mr 4,29
				li 3,0
				ori 3,3,0x9f1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL121:
				li 5,256
				li 4,0
				ori 4,4,0x9f1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,6188
				bl memcpy
		.LVL122:
				li 5,256
				addi 4,1,6188
				li 3,0
				ori 3,3,0x9f1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL123:
		.LBE976:
		.LBB977:
		.LBB978:
				li 5,256
				li 4,0
				ori 4,4,0x9f1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL124:
				addi 3,1,32
				bl _imp_printstring
		.LVL125:
		.LBE978:
		.LBE977:
		.LBB979:
		.LBB980:
				lis 9,.LC26@ha
				lfd 30,.LC26@l(9)
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL126:
		.LBE980:
		.LBE979:
		.LBB981:
   92     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0x9e1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL127:
				li 5,256
				li 4,0
				ori 4,4,0x9e1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,6444
				bl memcpy
		.LVL128:
				li 5,256
				addi 4,1,6444
				li 3,0
				ori 3,3,0x9e1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL129:
		.LBE981:
		.LBB982:
		.LBB983:
				li 5,256
				li 4,0
				ori 4,4,0x9e1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL130:
				addi 3,1,32
				bl _imp_printstring
		.LVL131:
		.LBE983:
		.LBE982:
		.LBB984:
		.LBB985:
				li 3,4
				fmr 1,31
				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)
				addi 31,31,1280
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x9d1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL134:
				li 5,256
				li 4,0
				ori 4,4,0x9d1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,6700
				bl memcpy
		.LVL135:
				li 5,256
				addi 4,1,6700
				li 3,0
				ori 3,3,0x9d1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL136:
		.LBE988:
		.LBB989:
		.LBB990:
				li 5,256
				li 4,0
				ori 4,4,0x9d1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL137:
				addi 3,1,32
				bl _imp_printstring
		.LVL138:
		.LBE990:
		.LBE989:
		.LBB991:
		.LBB992:
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL139:
		.LBE992:
		.LBE991:
		.LBB993:
   97     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0x9c1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL140:
				li 5,256
				li 4,0
				ori 4,4,0x9c1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,6956
				bl memcpy
		.LVL141:
				li 5,256
				addi 4,1,6956
				li 3,0
				ori 3,3,0x9c1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL142:
		.LBE993:
		.LBB994:
		.LBB995:
				li 5,256
				li 4,0
				ori 4,4,0x9c1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL143:
				addi 3,1,32
				bl _imp_printstring
		.LVL144:
		.LBE995:
		.LBE994:
		.LBB996:
		.LBB997:
				li 3,4
				lis 9,.LC28@ha
				lfd 1,.LC28@l(9)
				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)
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x9b1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL147:
				li 5,256
				li 4,0
				ori 4,4,0x9b1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,7212
				bl memcpy
		.LVL148:
				li 5,256
				addi 4,1,7212
				li 3,0
				ori 3,3,0x9b1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL149:
		.LBE1000:
		.LBB1001:
		.LBB1002:
				li 5,256
				li 4,0
				ori 4,4,0x9b1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL150:
				addi 3,1,32
				bl _imp_printstring
		.LVL151:
		.LBE1002:
		.LBE1001:
		.LBB1003:
		.LBB1004:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL152:
		.LBE1004:
		.LBE1003:
		.LBB1005:
  102     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0x9a1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL153:
				li 5,256
				li 4,0
				ori 4,4,0x9a1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,7468
				bl memcpy
		.LVL154:
				li 5,256
				addi 4,1,7468
				li 3,0
				ori 3,3,0x9a1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL155:
		.LBE1005:
		.LBB1006:
		.LBB1007:
				li 5,256
				li 4,0
				ori 4,4,0x9a1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL156:
				addi 3,1,32
				bl _imp_printstring
		.LVL157:
		.LBE1007:
		.LBE1006:
		.LBB1008:
		.LBB1009:
				li 3,4
				lis 9,.LC30@ha
				lfd 1,.LC30@l(9)
				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 ( ")
				lis 30,.LANCHOR0@ha
				la 30,.LANCHOR0@l(30)
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0x981c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL164:
				li 5,256
				li 4,0
				ori 4,4,0x981c
				addi 9,1,16
				add 4,4,9
				addi 3,1,8236
				bl memcpy
		.LVL165:
				li 5,256
				addi 4,1,8236
				li 3,0
				ori 3,3,0x981c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL166:
		.LBE1016:
		.LBB1017:
		.LBB1018:
				li 5,256
				li 4,0
				ori 4,4,0x981c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL167:
				addi 3,1,32
				bl _imp_printstring
		.LVL168:
		.LBE1018:
		.LBE1017:
		.LBB1019:
		.LBB1020:
				lis 9,.LC14@ha
				lfd 31,.LC14@l(9)
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL169:
		.LBE1020:
		.LBE1019:
		.LBB1021:
  110     print fl (p0m, 4); print string (", ")
				addi 9,1,300
				stw 9,28(1)
				mr 5,9
				addi 4,1,7980
				li 9,0
				ori 9,9,0x991c
				addi 10,1,16
				add 3,10,9
				bl _imp_join
		.LVL160:
				li 5,256
				addi 4,1,7724
				li 3,0
				ori 3,3,0x991c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL161:
		.LBE1013:
		.LBE1012:
		.LBB1014:
		.LBB1015:
				li 5,256
				li 4,0
				ori 4,4,0x991c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL162:
				addi 3,1,32
				bl _imp_printstring
		.LVL163:
		.LBE1015:
		.LBE1014:
		.LBB1016:
  111     print fl (p1m, 4); print string (", ")
				addi 31,30,256
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x971c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL170:
				li 5,256
				li 4,0
				ori 4,4,0x971c
				addi 9,1,16
				add 4,4,9
				addi 3,1,8492
				bl memcpy
		.LVL171:
				li 5,256
				addi 4,1,8492
				li 3,0
				ori 3,3,0x971c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL172:
		.LBE1021:
		.LBB1022:
		.LBB1023:
				li 5,256
				li 4,0
				ori 4,4,0x971c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL173:
				addi 3,1,32
				bl _imp_printstring
		.LVL174:
		.LBE1023:
		.LBE1022:
		.LBB1024:
		.LBB1025:
				lis 9,.LC16@ha
				lfd 30,.LC16@l(9)
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL175:
		.LBE1025:
		.LBE1024:
		.LBB1026:
  112     print fl (p2m, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x961c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL176:
				li 5,256
				li 4,0
				ori 4,4,0x961c
				addi 9,1,16
				add 4,4,9
				addi 3,1,8748
				bl memcpy
		.LVL177:
				li 5,256
				addi 4,1,8748
				li 3,0
				ori 3,3,0x961c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL178:
		.LBE1026:
		.LBB1027:
		.LBB1028:
				li 5,256
				li 4,0
				ori 4,4,0x961c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL179:
				addi 3,1,32
				bl _imp_printstring
		.LVL180:
		.LBE1028:
		.LBE1027:
		.LBB1029:
		.LBB1030:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL181:
		.LBE1030:
		.LBE1029:
		.LBB1031:
  113     print fl (0, 4); print string (") --> bern ( ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x951c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL182:
				li 5,256
				li 4,0
				ori 4,4,0x951c
				addi 9,1,16
				add 4,4,9
				addi 3,1,9004
				bl memcpy
		.LVL183:
				li 5,256
				addi 4,1,9004
				li 3,0
				ori 3,3,0x951c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL184:
		.LBE1031:
		.LBB1032:
		.LBB1033:
				li 5,256
				li 4,0
				ori 4,4,0x951c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL185:
				addi 3,1,32
				bl _imp_printstring
		.LVL186:
		.LBE1033:
		.LBE1032:
		.LBB1034:
		.LBB1035:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL187:
		.LBE1035:
		.LBE1034:
		.LBB1036:
  114     print fl (p0b3, 4); print string (", ")
				addi 29,30,512
				li 5,256
				mr 4,29
				li 3,0
				ori 3,3,0x941c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL188:
				li 5,256
				li 4,0
				ori 4,4,0x941c
				addi 9,1,16
				add 4,4,9
				addi 3,1,9260
				bl memcpy
		.LVL189:
				li 5,256
				addi 4,1,9260
				li 3,0
				ori 3,3,0x941c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL190:
		.LBE1036:
		.LBB1037:
		.LBB1038:
				li 5,256
				li 4,0
				ori 4,4,0x941c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL191:
				addi 3,1,32
				bl _imp_printstring
		.LVL192:
		.LBE1038:
		.LBE1037:
		.LBB1039:
		.LBB1040:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL193:
		.LBE1040:
		.LBE1039:
		.LBB1041:
  115     print fl (p1b3, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x931c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL194:
				li 5,256
				li 4,0
				ori 4,4,0x931c
				addi 9,1,16
				add 4,4,9
				addi 3,1,9516
				bl memcpy
		.LVL195:
				li 5,256
				addi 4,1,9516
				li 3,0
				ori 3,3,0x931c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL196:
		.LBE1041:
		.LBB1042:
		.LBB1043:
				li 5,256
				li 4,0
				ori 4,4,0x931c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL197:
				addi 3,1,32
				bl _imp_printstring
		.LVL198:
		.LBE1043:
		.LBE1042:
		.LBB1044:
		.LBB1045:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL199:
		.LBE1045:
		.LBE1044:
		.LBB1046:
  116     print fl (p2b3, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x921c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL200:
				li 5,256
				li 4,0
				ori 4,4,0x921c
				addi 9,1,16
				add 4,4,9
				addi 3,1,9772
				bl memcpy
		.LVL201:
				li 5,256
				addi 4,1,9772
				li 3,0
				ori 3,3,0x921c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL202:
		.LBE1046:
		.LBB1047:
		.LBB1048:
				li 5,256
				li 4,0
				ori 4,4,0x921c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL203:
				addi 3,1,32
				bl _imp_printstring
		.LVL204:
		.LBE1048:
		.LBE1047:
		.LBB1049:
		.LBB1050:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL205:
		.LBE1050:
		.LBE1049:
		.LBB1051:
  117     print fl (p3b3, 4); print string (")".snl)
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x911c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL206:
				li 5,256
				li 4,0
				ori 4,4,0x911c
				addi 9,1,16
				add 4,4,9
				addi 3,1,10028
				bl memcpy
		.LVL207:
				li 5,256
				addi 4,1,10028
				li 3,0
				ori 3,3,0x911c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL208:
		.LBE1051:
		.LBB1052:
		.LBB1053:
				li 5,256
				li 4,0
				ori 4,4,0x911c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL209:
				addi 3,1,32
				bl _imp_printstring
		.LVL210:
		.LBE1053:
		.LBE1052:
		.LBB1054:
		.LBB1055:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL211:
		.LBE1055:
		.LBE1054:
		.LBB1056:
		.LBB1057:
  118     print string ("  mono ( ")
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0x8f1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL216:
				li 5,256
				li 4,0
				ori 4,4,0x8f1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,10796
				bl memcpy
		.LVL217:
				li 5,256
				addi 4,1,10796
				li 3,0
				ori 3,3,0x8f1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL218:
		.LBE1060:
		.LBB1061:
		.LBB1062:
				li 5,256
				li 4,0
				ori 4,4,0x8f1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL219:
				addi 3,1,32
				bl _imp_printstring
		.LVL220:
		.LBE1062:
		.LBE1061:
		.LBB1063:
		.LBB1064:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL221:
		.LBE1064:
		.LBE1063:
		.LBB1065:
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x8e1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL222:
				li 5,256
				li 4,0
				ori 4,4,0x8e1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,11052
				bl memcpy
		.LVL223:
				li 5,256
				addi 4,1,11052
				li 3,0
				ori 3,3,0x8e1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL224:
		.LBE1065:
		.LBB1066:
		.LBB1067:
				li 5,256
				li 4,0
				ori 4,4,0x8e1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL225:
				addi 3,1,32
				bl _imp_printstring
		.LVL226:
		.LBE1067:
		.LBE1066:
		.LBB1068:
		.LBB1069:
				lis 9,.LC18@ha
				lfd 28,.LC18@l(9)
				li 3,4
				fmr 1,28
				bl _imp_printfl
		.LVL227:
		.LBE1069:
		.LBE1068:
		.LBB1070:
  119     print fl (q0m, 4); print string (", ")
  120     print fl (q1m, 4); print string (", ")
				lwz 5,28(1)
				addi 4,1,10540
				li 3,0
				ori 3,3,0x901c
				addi 9,1,16
				add 3,3,9
				bl _imp_join
		.LVL212:
				li 5,256
				addi 4,1,10284
				li 3,0
				ori 3,3,0x901c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL213:
		.LBE1057:
		.LBE1056:
		.LBB1058:
		.LBB1059:
				li 5,256
				li 4,0
				ori 4,4,0x901c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL214:
				addi 3,1,32
				bl _imp_printstring
		.LVL215:
		.LBE1059:
		.LBE1058:
		.LBB1060:
  121     print fl (q2m, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x8d1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL228:
				li 5,256
				li 4,0
				ori 4,4,0x8d1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,11308
				bl memcpy
		.LVL229:
				li 5,256
				addi 4,1,11308
				li 3,0
				ori 3,3,0x8d1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL230:
		.LBE1070:
		.LBB1071:
		.LBB1072:
				li 5,256
				li 4,0
				ori 4,4,0x8d1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL231:
				addi 3,1,32
				bl _imp_printstring
		.LVL232:
		.LBE1072:
		.LBE1071:
		.LBB1073:
		.LBB1074:
				lis 9,.LC20@ha
				lfd 29,.LC20@l(9)
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL233:
		.LBE1074:
		.LBE1073:
		.LBB1075:
  122     print fl (0, 4); print string (") --> bern ( ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x8c1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL234:
				li 5,256
				li 4,0
				ori 4,4,0x8c1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,11564
				bl memcpy
		.LVL235:
				li 5,256
				addi 4,1,11564
				li 3,0
				ori 3,3,0x8c1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL236:
		.LBE1075:
		.LBB1076:
		.LBB1077:
				li 5,256
				li 4,0
				ori 4,4,0x8c1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL237:
				addi 3,1,32
				bl _imp_printstring
		.LVL238:
		.LBE1077:
		.LBE1076:
		.LBB1078:
		.LBB1079:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL239:
		.LBE1079:
		.LBE1078:
		.LBB1080:
  123     print fl (q0b3, 4); print string (", ")
				li 5,256
				mr 4,29
				li 3,0
				ori 3,3,0x8b1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL240:
				li 5,256
				li 4,0
				ori 4,4,0x8b1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,11820
				bl memcpy
		.LVL241:
				li 5,256
				addi 4,1,11820
				li 3,0
				ori 3,3,0x8b1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL242:
		.LBE1080:
		.LBB1081:
		.LBB1082:
				li 5,256
				li 4,0
				ori 4,4,0x8b1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL243:
				addi 3,1,32
				bl _imp_printstring
		.LVL244:
		.LBE1082:
		.LBE1081:
		.LBB1083:
		.LBB1084:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL245:
		.LBE1084:
		.LBE1083:
		.LBB1085:
  124     print fl (q1b3, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x8a1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL246:
				li 5,256
				li 4,0
				ori 4,4,0x8a1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,12076
				bl memcpy
		.LVL247:
				li 5,256
				addi 4,1,12076
				li 3,0
				ori 3,3,0x8a1c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL248:
		.LBE1085:
		.LBB1086:
		.LBB1087:
				li 5,256
				li 4,0
				ori 4,4,0x8a1c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL249:
				addi 3,1,32
				bl _imp_printstring
		.LVL250:
		.LBE1087:
		.LBE1086:
		.LBB1088:
		.LBB1089:
				li 3,4
				lis 9,.LC32@ha
				lfd 1,.LC32@l(9)
				bl _imp_printfl
		.LVL251:
		.LBE1089:
		.LBE1088:
		.LBB1090:
  125     print fl (q2b3, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x891c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL252:
				li 5,256
				li 4,0
				ori 4,4,0x891c
				addi 9,1,16
				add 4,4,9
				addi 3,1,12332
				bl memcpy
		.LVL253:
				li 5,256
				addi 4,1,12332
				li 3,0
				ori 3,3,0x891c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL254:
		.LBE1090:
		.LBB1091:
		.LBB1092:
				li 5,256
				li 4,0
				ori 4,4,0x891c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL255:
				addi 3,1,32
				bl _imp_printstring
		.LVL256:
		.LBE1092:
		.LBE1091:
		.LBB1093:
		.LBB1094:
				li 3,4
				lis 9,.LC33@ha
				lfd 1,.LC33@l(9)
				bl _imp_printfl
		.LVL257:
		.LBE1094:
		.LBE1093:
		.LBB1095:
  126     print fl (q3b3, 4); print string (")".snl)
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x881c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL258:
				li 5,256
				li 4,0
				ori 4,4,0x881c
				addi 9,1,16
				add 4,4,9
				addi 3,1,12588
				bl memcpy
		.LVL259:
				li 5,256
				addi 4,1,12588
				li 3,0
				ori 3,3,0x881c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL260:
		.LBE1095:
		.LBB1096:
		.LBB1097:
				li 5,256
				li 4,0
				ori 4,4,0x881c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL261:
				addi 3,1,32
				bl _imp_printstring
		.LVL262:
		.LBE1097:
		.LBE1096:
		.LBB1098:
		.LBB1099:
				li 3,4
				lis 9,.LC22@ha
				lfd 1,.LC22@l(9)
				bl _imp_printfl
		.LVL263:
		.LBE1099:
		.LBE1098:
		.LBB1100:
		.LBB1101:
  127     print string ("  mono ( ")
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0x861c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL268:
				li 5,256
				li 4,0
				ori 4,4,0x861c
				addi 9,1,16
				add 4,4,9
				addi 3,1,13356
				bl memcpy
		.LVL269:
				li 5,256
				addi 4,1,13356
				li 3,0
				ori 3,3,0x861c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL270:
		.LBE1104:
		.LBB1105:
		.LBB1106:
				li 5,256
				li 4,0
				ori 4,4,0x861c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL271:
				addi 3,1,32
				bl _imp_printstring
		.LVL272:
		.LBE1106:
		.LBE1105:
		.LBB1107:
		.LBB1108:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL273:
		.LBE1108:
		.LBE1107:
		.LBB1109:
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x851c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL274:
				li 5,256
				li 4,0
				ori 4,4,0x851c
				addi 9,1,16
				add 4,4,9
				addi 3,1,13612
				bl memcpy
		.LVL275:
				li 5,256
				addi 4,1,13612
				li 3,0
				ori 3,3,0x851c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL276:
		.LBE1109:
		.LBB1110:
		.LBB1111:
				li 5,256
				li 4,0
				ori 4,4,0x851c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL277:
				addi 3,1,32
				bl _imp_printstring
		.LVL278:
		.LBE1111:
		.LBE1110:
		.LBB1112:
		.LBB1113:
				li 3,4
				fmr 1,28
				bl _imp_printfl
		.LVL279:
		.LBE1113:
		.LBE1112:
		.LBB1114:
  128     print fl (r0m, 4); print string (", ")
  129     print fl (r1m, 4); print string (", ")
				lwz 5,28(1)
				addi 4,1,13100
				li 3,0
				ori 3,3,0x871c
				addi 9,1,16
				add 3,3,9
				bl _imp_join
		.LVL264:
				li 5,256
				addi 4,1,12844
				li 3,0
				ori 3,3,0x871c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL265:
		.LBE1101:
		.LBE1100:
		.LBB1102:
		.LBB1103:
				li 5,256
				li 4,0
				ori 4,4,0x871c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL266:
				addi 3,1,32
				bl _imp_printstring
		.LVL267:
		.LBE1103:
		.LBE1102:
		.LBB1104:
  130     print fl (r2m, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x841c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL280:
				li 5,256
				li 4,0
				ori 4,4,0x841c
				addi 9,1,16
				add 4,4,9
				addi 3,1,13868
				bl memcpy
		.LVL281:
				li 5,256
				addi 4,1,13868
				li 3,0
				ori 3,3,0x841c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL282:
		.LBE1114:
		.LBB1115:
		.LBB1116:
				li 5,256
				li 4,0
				ori 4,4,0x841c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL283:
				addi 3,1,32
				bl _imp_printstring
		.LVL284:
		.LBE1116:
		.LBE1115:
		.LBB1117:
		.LBB1118:
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL285:
		.LBE1118:
		.LBE1117:
		.LBB1119:
  131     print fl (r3m, 4); print string (") --> bern ( ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x831c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL286:
				li 5,256
				li 4,0
				ori 4,4,0x831c
				addi 9,1,16
				add 4,4,9
				addi 3,1,14124
				bl memcpy
		.LVL287:
				li 5,256
				addi 4,1,14124
				li 3,0
				ori 3,3,0x831c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL288:
		.LBE1119:
		.LBB1120:
		.LBB1121:
				li 5,256
				li 4,0
				ori 4,4,0x831c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL289:
				addi 3,1,32
				bl _imp_printstring
		.LVL290:
		.LBE1121:
		.LBE1120:
		.LBB1122:
		.LBB1123:
				li 3,4
				lis 9,.LC34@ha
				lfd 1,.LC34@l(9)
				bl _imp_printfl
		.LVL291:
		.LBE1123:
		.LBE1122:
		.LBB1124:
  132     print fl (r0b3, 4); print string (", ")
				li 5,256
				mr 4,29
				li 3,0
				ori 3,3,0x821c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL292:
				li 5,256
				li 4,0
				ori 4,4,0x821c
				addi 9,1,16
				add 4,4,9
				addi 3,1,14380
				bl memcpy
		.LVL293:
				li 5,256
				addi 4,1,14380
				li 3,0
				ori 3,3,0x821c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL294:
		.LBE1124:
		.LBB1125:
		.LBB1126:
				li 5,256
				li 4,0
				ori 4,4,0x821c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL295:
				addi 3,1,32
				bl _imp_printstring
		.LVL296:
		.LBE1126:
		.LBE1125:
		.LBB1127:
		.LBB1128:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL297:
		.LBE1128:
		.LBE1127:
		.LBB1129:
  133     print fl (r1b3, 4); print string (", ")
				li 5,256
				mr 4,31
				li 3,0
				ori 3,3,0x811c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL298:
				li 5,256
				li 4,0
				ori 4,4,0x811c
				addi 9,1,16
				add 4,4,9
				addi 3,1,14636
				bl memcpy
		.LVL299:
				li 5,256
				addi 4,1,14636
				li 3,0
				ori 3,3,0x811c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL300:
		.LBE1129:
		.LBB1130:
		.LBB1131:
				li 5,256
				li 9,0
				ori 9,9,0x811c
				addi 10,1,16
				add 4,10,9
				addi 3,1,32
				bl memcpy
		.LVL301:
				addi 3,1,32
				bl _imp_printstring
		.LVL302:
		.LBE1131:
		.LBE1130:
		.LBB1132:
		.LBB1133:
				lis 9,.LC32@ha
				lfd 28,.LC32@l(9)
				li 3,4
				fmr 1,28
				bl _imp_printfl
		.LVL303:
		.LBE1133:
		.LBE1132:
		.LBB1134:
  134     print fl (r2b3, 4); print string (", ")
				mr 31,30
				addi 30,30,256
				li 5,256
				mr 4,30
				li 3,0
				ori 3,3,0x801c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL304:
				li 5,256
				li 4,0
				ori 4,4,0x801c
				addi 9,1,16
				add 4,4,9
				addi 3,1,14892
				bl memcpy
		.LVL305:
				li 5,256
				addi 4,1,14892
				li 3,0
				ori 3,3,0x801c
				addi 9,1,16
				add 3,3,9
				bl memcpy
		.LVL306:
		.LBE1134:
		.LBB1135:
		.LBB1136:
				li 5,256
				li 4,0
				ori 4,4,0x801c
				addi 9,1,16
				add 4,4,9
				addi 3,1,32
				bl memcpy
		.LVL307:
				addi 3,1,32
				bl _imp_printstring
		.LVL308:
		.LBE1136:
		.LBE1135:
		.LBB1137:
		.LBB1138:
				lis 9,.LC33@ha
				lfd 27,.LC33@l(9)
				li 3,4
				fmr 1,27
				bl _imp_printfl
		.LVL309:
		.LBE1138:
		.LBE1137:
		.LBB1139:
  135     print fl (r3b3, 4); print string (")".snl)
				li 5,256
				mr 4,30
				addi 3,1,32556
				bl memcpy
		.LVL310:
				li 5,256
				addi 4,1,32556
				addi 3,1,15148
				bl memcpy
		.LVL311:
				li 5,256
				addi 4,1,15148
				addi 3,1,32556
				bl memcpy
		.LVL312:
		.LBE1139:
		.LBB1140:
		.LBB1141:
				li 5,256
				addi 4,1,32556
				addi 3,1,32
				bl memcpy
		.LVL313:
				addi 3,1,32
				bl _imp_printstring
		.LVL314:
		.LBE1141:
		.LBE1140:
		.LBB1142:
		.LBB1143:
				lis 9,.LC36@ha
				lfd 26,.LC36@l(9)
				li 3,4
				fmr 1,26
				bl _imp_printfl
		.LVL315:
		.LBE1143:
		.LBE1142:
		.LBB1144:
		.LBB1145:
  136
  137     print string ("Subprogram (4) examples:".snl)
  138     x = 0.25
				addi 9,1,300
				stw 9,28(1)
				mr 5,9
				addi 4,1,15660
				addi 3,1,32300
				bl _imp_join
		.LVL316:
				li 5,256
				addi 4,1,15404
				addi 3,1,32300
				bl memcpy
		.LVL317:
		.LBE1145:
		.LBE1144:
		.LBB1146:
		.LBB1147:
				li 5,256
				addi 4,1,32300
				addi 3,1,32
				bl memcpy
		.LVL318:
				addi 3,1,32
				bl _imp_printstring
		.LVL319:
		.LBE1147:
		.LBE1146:
		.LBB1148:
		.LBB1149:
  139     y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x)
				lwz 5,28(1)
				addi 4,1,16172
				addi 3,1,32044
				bl _imp_join
		.LVL320:
				li 5,256
				addi 4,1,15916
				addi 3,1,32044
				bl memcpy
		.LVL321:
		.LBE1149:
		.LBE1148:
		.LBB1150:
		.LBB1151:
				li 5,256
				addi 4,1,32044
				addi 3,1,32
				bl memcpy
		.LVL322:
				addi 3,1,32
				bl _imp_printstring
		.LVL323:
		.LBE1151:
		.LBE1150:
				lis 9,.LC24@ha
				lfd 29,.LC24@l(9)
				lis 9,.LC14@ha
				lfd 31,.LC14@l(9)
				fmr 5,29
				fmr 4,31
				fmr 3,31
				fmr 2,31
				fmr 1,31
				bl EVALBERN3.7017
		.LVL324:
				fmr 30,1
		.LVL325:
		.LBB1152:
  140     print string ("  p ( "); print fl (x, 4)
				addi 28,31,768
				li 5,256
				mr 4,28
				addi 3,1,31788
				bl memcpy
		.LVL326:
				li 5,256
				addi 4,1,31788
				addi 3,1,16428
				bl memcpy
		.LVL327:
				li 5,256
				addi 4,1,16428
				addi 3,1,31788
				bl memcpy
		.LVL328:
		.LBE1152:
		.LBB1153:
		.LBB1154:
				li 5,256
				addi 4,1,31788
				addi 3,1,32
				bl memcpy
		.LVL329:
				addi 3,1,32
				bl _imp_printstring
		.LVL330:
		.LBE1154:
		.LBE1153:
		.LBB1155:
		.LBB1156:
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL331:
		.LBE1156:
		.LBE1155:
		.LBB1157:
  141     print string (") = "); print fl (y, 4)
				addi 29,31,1024
				li 5,256
				mr 4,29
				addi 3,1,31532
				bl memcpy
		.LVL332:
				li 5,256
				addi 4,1,31532
				addi 3,1,16684
				bl memcpy
		.LVL333:
				li 5,256
				addi 4,1,16684
				addi 3,1,31532
				bl memcpy
		.LVL334:
		.LBE1157:
		.LBB1158:
		.LBB1159:
				li 5,256
				addi 4,1,31532
				addi 3,1,32
				bl memcpy
		.LVL335:
				addi 3,1,32
				bl _imp_printstring
		.LVL336:
		.LBE1159:
		.LBE1158:
		.LBB1160:
		.LBB1161:
				li 3,4
				fmr 1,30
				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)
				lis 9,.LC26@ha
				lfd 30,.LC26@l(9)
		.LVL339:
				fmr 5,30
				fmr 4,31
				fmr 3,31
				fmr 2,31
				fmr 1,31
				bl EVALBERN3.7017
		.LVL340:
				fmr 25,1
		.LVL341:
		.LBB1164:
  145     print string ("  p ( "); print fl (x, 4)
				li 5,256
				mr 4,28
				addi 3,1,31276
				bl memcpy
		.LVL342:
				li 5,256
				addi 4,1,31276
				addi 3,1,16940
				bl memcpy
		.LVL343:
				li 5,256
				addi 4,1,16940
				addi 3,1,31276
				bl memcpy
		.LVL344:
		.LBE1164:
		.LBB1165:
		.LBB1166:
				li 5,256
				addi 4,1,31276
				addi 3,1,32
				bl memcpy
		.LVL345:
				addi 3,1,32
				bl _imp_printstring
		.LVL346:
		.LBE1166:
		.LBE1165:
		.LBB1167:
		.LBB1168:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL347:
		.LBE1168:
		.LBE1167:
		.LBB1169:
  146     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,29
				addi 3,1,31020
				bl memcpy
		.LVL348:
				li 5,256
				addi 4,1,31020
				addi 3,1,17196
				bl memcpy
		.LVL349:
				li 5,256
				addi 4,1,17196
				addi 3,1,31020
				bl memcpy
		.LVL350:
		.LBE1169:
		.LBB1170:
		.LBB1171:
				li 5,256
				addi 4,1,31020
				addi 3,1,32
				bl memcpy
		.LVL351:
				addi 3,1,32
				bl _imp_printstring
		.LVL352:
		.LBE1171:
		.LBE1170:
		.LBB1172:
		.LBB1173:
				li 3,4
				fmr 1,25
				bl _imp_printfl
		.LVL353:
		.LBE1173:
		.LBE1172:
		.LBB1174:
		.LBB1175:
				bl _imp_newline
		.LVL354:
		.LBE1175:
		.LBE1174:
  147     newline
  148     x = 0.25
  149     y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
				lis 9,.LC22@ha
				lfd 25,.LC22@l(9)
		.LVL355:
				fmr 5,29
				fmr 4,25
				fmr 3,27
				fmr 2,28
				fmr 1,31
				bl EVALBERN3.7017
		.LVL356:
				fmr 24,1
		.LVL357:
		.LBB1176:
  150     print string ("  q ( "); print fl (x, 4)
				addi 28,31,1280
				li 5,256
				mr 4,28
				addi 3,1,30764
				bl memcpy
		.LVL358:
				li 5,256
				addi 4,1,30764
				addi 3,1,17452
				bl memcpy
		.LVL359:
				li 5,256
				addi 4,1,17452
				addi 3,1,30764
				bl memcpy
		.LVL360:
		.LBE1176:
		.LBB1177:
		.LBB1178:
				li 5,256
				addi 4,1,30764
				addi 3,1,32
				bl memcpy
		.LVL361:
				addi 3,1,32
				bl _imp_printstring
		.LVL362:
		.LBE1178:
		.LBE1177:
		.LBB1179:
		.LBB1180:
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL363:
		.LBE1180:
		.LBE1179:
		.LBB1181:
  151     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,29
				addi 3,1,30508
				bl memcpy
		.LVL364:
				li 5,256
				addi 4,1,30508
				addi 3,1,17708
				bl memcpy
		.LVL365:
				li 5,256
				addi 4,1,17708
				addi 3,1,30508
				bl memcpy
		.LVL366:
		.LBE1181:
		.LBB1182:
		.LBB1183:
				li 5,256
				addi 4,1,30508
				addi 3,1,32
				bl memcpy
		.LVL367:
				addi 3,1,32
				bl _imp_printstring
		.LVL368:
		.LBE1183:
		.LBE1182:
		.LBB1184:
		.LBB1185:
				li 3,4
				fmr 1,24
				bl _imp_printfl
		.LVL369:
		.LBE1185:
		.LBE1184:
		.LBB1186:
		.LBB1187:
				bl _imp_newline
		.LVL370:
		.LBE1187:
		.LBE1186:
  152     newline
  153     x = 7.50
  154     y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
				fmr 5,30
				fmr 4,25
				fmr 3,27
				fmr 2,28
				fmr 1,31
				bl EVALBERN3.7017
		.LVL371:
				fmr 25,1
		.LVL372:
		.LBB1188:
  155     print string ("  q ( "); print fl (x, 4)
				li 5,256
				mr 4,28
				addi 3,1,30252
				bl memcpy
		.LVL373:
				li 5,256
				addi 4,1,30252
				addi 3,1,17964
				bl memcpy
		.LVL374:
				li 5,256
				addi 4,1,17964
				addi 3,1,30252
				bl memcpy
		.LVL375:
		.LBE1188:
		.LBB1189:
		.LBB1190:
				li 5,256
				addi 4,1,30252
				addi 3,1,32
				bl memcpy
		.LVL376:
				addi 3,1,32
				bl _imp_printstring
		.LVL377:
		.LBE1190:
		.LBE1189:
		.LBB1191:
		.LBB1192:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL378:
		.LBE1192:
		.LBE1191:
		.LBB1193:
  156     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,29
				addi 3,1,29996
				bl memcpy
		.LVL379:
				li 5,256
				addi 4,1,29996
				addi 3,1,18220
				bl memcpy
		.LVL380:
				li 5,256
				addi 4,1,18220
				addi 3,1,29996
				bl memcpy
		.LVL381:
		.LBE1193:
		.LBB1194:
		.LBB1195:
				li 5,256
				addi 4,1,29996
				addi 3,1,32
				bl memcpy
		.LVL382:
				addi 3,1,32
				bl _imp_printstring
		.LVL383:
		.LBE1195:
		.LBE1194:
		.LBB1196:
		.LBB1197:
				li 3,4
				fmr 1,25
				bl _imp_printfl
		.LVL384:
		.LBE1197:
		.LBE1196:
		.LBB1198:
		.LBB1199:
				bl _imp_newline
		.LVL385:
		.LBE1199:
		.LBE1198:
  157     newline
  158     x = 0.25
  159     y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
				fmr 5,29
				fmr 4,26
				fmr 3,27
				fmr 2,28
				fmr 1,31
				bl EVALBERN3.7017
		.LVL386:
				fmr 25,1
		.LVL387:
		.LBB1200:
  160     print string ("  r ( "); print fl (x, 4)
				addi 28,31,1536
				li 5,256
				mr 4,28
				addi 3,1,29740
				bl memcpy
		.LVL388:
				li 5,256
				addi 4,1,29740
				addi 3,1,18476
				bl memcpy
		.LVL389:
				li 5,256
				addi 4,1,18476
				addi 3,1,29740
				bl memcpy
		.LVL390:
		.LBE1200:
		.LBB1201:
		.LBB1202:
				li 5,256
				addi 4,1,29740
				addi 3,1,32
				bl memcpy
		.LVL391:
				addi 3,1,32
				bl _imp_printstring
		.LVL392:
		.LBE1202:
		.LBE1201:
		.LBB1203:
		.LBB1204:
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL393:
		.LBE1204:
		.LBE1203:
		.LBB1205:
  161     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,29
				addi 3,1,29484
				bl memcpy
		.LVL394:
				li 5,256
				addi 4,1,29484
				addi 3,1,18732
				bl memcpy
		.LVL395:
				li 5,256
				addi 4,1,18732
				addi 3,1,29484
				bl memcpy
		.LVL396:
		.LBE1205:
		.LBB1206:
		.LBB1207:
				li 5,256
				addi 4,1,29484
				addi 3,1,32
				bl memcpy
		.LVL397:
				addi 3,1,32
				bl _imp_printstring
		.LVL398:
		.LBE1207:
		.LBE1206:
		.LBB1208:
		.LBB1209:
				li 3,4
				fmr 1,25
				bl _imp_printfl
		.LVL399:
		.LBE1209:
		.LBE1208:
		.LBB1210:
		.LBB1211:
				bl _imp_newline
		.LVL400:
		.LBE1211:
		.LBE1210:
  162     newline
  163     x = 7.50
  164     y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
				fmr 5,30
				fmr 4,26
				fmr 3,27
				fmr 2,28
				fmr 1,31
				bl EVALBERN3.7017
		.LVL401:
				fmr 29,1
		.LVL402:
		.LBB1212:
  165     print string ("  r ( "); print fl (x, 4)
				li 5,256
				mr 4,28
				addi 3,1,29228
				bl memcpy
		.LVL403:
				li 5,256
				addi 4,1,29228
				addi 3,1,18988
				bl memcpy
		.LVL404:
				li 5,256
				addi 4,1,18988
				addi 3,1,29228
				bl memcpy
		.LVL405:
		.LBE1212:
		.LBB1213:
		.LBB1214:
				li 5,256
				addi 4,1,29228
				addi 3,1,32
				bl memcpy
		.LVL406:
				addi 3,1,32
				bl _imp_printstring
		.LVL407:
		.LBE1214:
		.LBE1213:
		.LBB1215:
		.LBB1216:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL408:
		.LBE1216:
		.LBE1215:
		.LBB1217:
  166     print string (") = "); print fl (y, 4)
				li 5,256
				mr 4,29
				addi 3,1,28972
				bl memcpy
		.LVL409:
				li 5,256
				addi 4,1,28972
				addi 3,1,19244
				bl memcpy
		.LVL410:
				li 5,256
				addi 4,1,19244
				addi 3,1,28972
				bl memcpy
		.LVL411:
		.LBE1217:
		.LBB1218:
		.LBB1219:
				li 5,256
				addi 4,1,28972
				addi 3,1,32
				bl memcpy
		.LVL412:
				addi 3,1,32
				bl _imp_printstring
		.LVL413:
		.LBE1219:
		.LBE1218:
		.LBB1220:
		.LBB1221:
				li 3,4
				fmr 1,29
				bl _imp_printfl
		.LVL414:
		.LBE1221:
		.LBE1220:
		.LBB1222:
		.LBB1223:
				bl _imp_newline
		.LVL415:
		.LBE1223:
		.LBE1222:
		.LBB1224:
		.LBB1225:
  167     newline
  168
  169     bern2to3 (p0b2, p1b2, p2b2, pc0, pc1, pc2, pc3)
  170     bern2to3 (q0b2, q1b2, q2b2, qc0, qc1, qc2, qc3)
  171     print string ("Subprogram (5) examples:".snl)
  172     print string ("  bern ( ")
				li 5,256
				addi 4,31,1792
				addi 3,1,28460
				bl memcpy
		.LVL420:
				li 5,256
				addi 4,1,28460
				addi 3,1,20012
				bl memcpy
		.LVL421:
				li 5,256
				addi 4,1,20012
				addi 3,1,28460
				bl memcpy
		.LVL422:
		.LBE1228:
		.LBB1229:
		.LBB1230:
				li 5,256
				addi 4,1,28460
				addi 3,1,32
				bl memcpy
		.LVL423:
				addi 3,1,32
				bl _imp_printstring
		.LVL424:
		.LBE1230:
		.LBE1229:
		.LBB1231:
		.LBB1232:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL425:
		.LBE1232:
		.LBE1231:
		.LBB1233:
  173     print fl (p0b2, 4); print string (", ")
				lwz 5,28(1)
				addi 4,1,19756
				addi 3,1,28716
				bl _imp_join
		.LVL416:
				li 5,256
				addi 4,1,19500
				addi 3,1,28716
				bl memcpy
		.LVL417:
		.LBE1225:
		.LBE1224:
		.LBB1226:
		.LBB1227:
				li 5,256
				addi 4,1,28716
				addi 3,1,32
				bl memcpy
		.LVL418:
				addi 3,1,32
				bl _imp_printstring
		.LVL419:
		.LBE1227:
		.LBE1226:
		.LBB1228:
  174     print fl (p1b2, 4); print string (", ")
				li 5,256
				mr 4,30
				addi 3,1,28204
				bl memcpy
		.LVL426:
				li 5,256
				addi 4,1,28204
				addi 3,1,20268
				bl memcpy
		.LVL427:
				li 5,256
				addi 4,1,20268
				addi 3,1,28204
				bl memcpy
		.LVL428:
		.LBE1233:
		.LBB1234:
		.LBB1235:
				li 5,256
				addi 4,1,28204
				addi 3,1,32
				bl memcpy
		.LVL429:
				addi 3,1,32
				bl _imp_printstring
		.LVL430:
		.LBE1235:
		.LBE1234:
		.LBB1236:
		.LBB1237:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL431:
		.LBE1237:
		.LBE1236:
		.LBB1238:
  175     print fl (p2b2, 4); print string (") --> bern ( ")
				li 5,256
				mr 4,30
				addi 3,1,27948
				bl memcpy
		.LVL432:
				li 5,256
				addi 4,1,27948
				addi 3,1,20524
				bl memcpy
		.LVL433:
				li 5,256
				addi 4,1,20524
				addi 3,1,27948
				bl memcpy
		.LVL434:
		.LBE1238:
		.LBB1239:
		.LBB1240:
				li 5,256
				addi 4,1,27948
				addi 3,1,32
				bl memcpy
		.LVL435:
				addi 3,1,32
				bl _imp_printstring
		.LVL436:
		.LBE1240:
		.LBE1239:
		.LBB1241:
		.LBB1242:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL437:
		.LBE1242:
		.LBE1241:
		.LBB1243:
  176     print fl (pc0, 4); print string (", ")
				li 5,256
				addi 4,31,512
				addi 3,1,27692
				bl memcpy
		.LVL438:
				li 5,256
				addi 4,1,27692
				addi 3,1,20780
				bl memcpy
		.LVL439:
				li 5,256
				addi 4,1,20780
				addi 3,1,27692
				bl memcpy
		.LVL440:
		.LBE1243:
		.LBB1244:
		.LBB1245:
				li 5,256
				addi 4,1,27692
				addi 3,1,32
				bl memcpy
		.LVL441:
				addi 3,1,32
				bl _imp_printstring
		.LVL442:
		.LBE1245:
		.LBE1244:
		.LBB1246:
		.LBB1247:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL443:
		.LBE1247:
		.LBE1246:
		.LBB1248:
  177     print fl (pc1, 4); print string (", ")
				li 5,256
				mr 4,30
				addi 3,1,27436
				bl memcpy
		.LVL444:
				li 5,256
				addi 4,1,27436
				addi 3,1,21036
				bl memcpy
		.LVL445:
				li 5,256
				addi 4,1,21036
				addi 3,1,27436
				bl memcpy
		.LVL446:
		.LBE1248:
		.LBB1249:
		.LBB1250:
				li 5,256
				addi 4,1,27436
				addi 3,1,32
				bl memcpy
		.LVL447:
				addi 3,1,32
				bl _imp_printstring
		.LVL448:
		.LBE1250:
		.LBE1249:
		.LBB1251:
		.LBB1252:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL449:
		.LBE1252:
		.LBE1251:
		.LBB1253:
  178     print fl (pc2, 4); print string (", ")
				li 5,256
				mr 4,30
				addi 3,1,27180
				bl memcpy
		.LVL450:
				li 5,256
				addi 4,1,27180
				addi 3,1,21292
				bl memcpy
		.LVL451:
				li 5,256
				addi 4,1,21292
				addi 3,1,27180
				bl memcpy
		.LVL452:
		.LBE1253:
		.LBB1254:
		.LBB1255:
				li 5,256
				addi 4,1,27180
				addi 3,1,32
				bl memcpy
		.LVL453:
				addi 3,1,32
				bl _imp_printstring
		.LVL454:
		.LBE1255:
		.LBE1254:
		.LBB1256:
		.LBB1257:
				lis 9,.LC14@ha
				lfd 31,.LC14@l(9)
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL455:
		.LBE1257:
		.LBE1256:
		.LBB1258:
  179     print fl (pc3, 4); print string (")".snl)
				mr 30,31
				addi 31,31,256
				li 5,256
				mr 4,31
				addi 3,1,26924
				bl memcpy
		.LVL456:
				li 5,256
				addi 4,1,26924
				addi 3,1,21548
				bl memcpy
		.LVL457:
				li 5,256
				addi 4,1,21548
				addi 3,1,26924
				bl memcpy
		.LVL458:
		.LBE1258:
		.LBB1259:
		.LBB1260:
				li 5,256
				addi 4,1,26924
				addi 3,1,32
				bl memcpy
		.LVL459:
				addi 3,1,32
				bl _imp_printstring
		.LVL460:
		.LBE1260:
		.LBE1259:
		.LBB1261:
		.LBB1262:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL461:
		.LBE1262:
		.LBE1261:
		.LBB1263:
		.LBB1264:
  180     print string ("  bern ( ")
				li 5,256
				addi 4,30,1792
				addi 3,1,26412
				bl memcpy
		.LVL466:
				li 5,256
				addi 4,1,26412
				addi 3,1,22316
				bl memcpy
		.LVL467:
				li 5,256
				addi 4,1,22316
				addi 3,1,26412
				bl memcpy
		.LVL468:
		.LBE1267:
		.LBB1268:
		.LBB1269:
				li 5,256
				addi 4,1,26412
				addi 3,1,32
				bl memcpy
		.LVL469:
				addi 3,1,32
				bl _imp_printstring
		.LVL470:
		.LBE1269:
		.LBE1268:
		.LBB1270:
		.LBB1271:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL471:
		.LBE1271:
		.LBE1270:
		.LBB1272:
				li 5,256
				mr 4,31
				addi 3,1,26156
				bl memcpy
		.LVL472:
				li 5,256
				addi 4,1,26156
				addi 3,1,22572
				bl memcpy
		.LVL473:
				li 5,256
				addi 4,1,22572
				addi 3,1,26156
				bl memcpy
		.LVL474:
		.LBE1272:
		.LBB1273:
		.LBB1274:
				li 5,256
				addi 4,1,26156
				addi 3,1,32
				bl memcpy
		.LVL475:
				addi 3,1,32
				bl _imp_printstring
		.LVL476:
		.LBE1274:
		.LBE1273:
		.LBB1275:
		.LBB1276:
				li 3,4
				lis 9,.LC18@ha
				lfd 1,.LC18@l(9)
				bl _imp_printfl
		.LVL477:
		.LBE1276:
		.LBE1275:
		.LBB1277:
  181     print fl (q0b2, 4); print string (", ")
  182     print fl (q1b2, 4); print string (", ")
				addi 9,1,300
				stw 9,28(1)
				mr 5,9
				addi 4,1,22060
				addi 3,1,26668
				bl _imp_join
		.LVL462:
				li 5,256
				addi 4,1,21804
				addi 3,1,26668
				bl memcpy
		.LVL463:
		.LBE1264:
		.LBE1263:
		.LBB1265:
		.LBB1266:
				li 5,256
				addi 4,1,26668
				addi 3,1,32
				bl memcpy
		.LVL464:
				addi 3,1,32
				bl _imp_printstring
		.LVL465:
		.LBE1266:
		.LBE1265:
		.LBB1267:
  183     print fl (q2b2, 4); print string (") --> bern ( ")
				li 5,256
				mr 4,31
				addi 3,1,25900
				bl memcpy
		.LVL478:
				li 5,256
				addi 4,1,25900
				addi 3,1,22828
				bl memcpy
		.LVL479:
				li 5,256
				addi 4,1,22828
				addi 3,1,25900
				bl memcpy
		.LVL480:
		.LBE1277:
		.LBB1278:
		.LBB1279:
				li 5,256
				addi 4,1,25900
				addi 3,1,32
				bl memcpy
		.LVL481:
				addi 3,1,32
				bl _imp_printstring
		.LVL482:
		.LBE1279:
		.LBE1278:
		.LBB1280:
		.LBB1281:
				lis 9,.LC22@ha
				lfd 30,.LC22@l(9)
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL483:
		.LBE1281:
		.LBE1280:
		.LBB1282:
  184     print fl (qc0, 4); print string (", ")
				li 5,256
				addi 4,30,512
				addi 3,1,25644
				bl memcpy
		.LVL484:
				li 5,256
				addi 4,1,25644
				addi 3,1,23084
				bl memcpy
		.LVL485:
				li 5,256
				addi 4,1,23084
				addi 3,1,25644
				bl memcpy
		.LVL486:
		.LBE1282:
		.LBB1283:
		.LBB1284:
				li 5,256
				addi 4,1,25644
				addi 3,1,32
				bl memcpy
		.LVL487:
				addi 3,1,32
				bl _imp_printstring
		.LVL488:
		.LBE1284:
		.LBE1283:
		.LBB1285:
		.LBB1286:
				li 3,4
				fmr 1,31
				bl _imp_printfl
		.LVL489:
		.LBE1286:
		.LBE1285:
		.LBB1287:
  185     print fl (qc1, 4); print string (", ")
				li 5,256
				mr 4,31
				addi 3,1,25388
				bl memcpy
		.LVL490:
				li 5,256
				addi 4,1,25388
				addi 3,1,23340
				bl memcpy
		.LVL491:
				li 5,256
				addi 4,1,23340
				addi 3,1,25388
				bl memcpy
		.LVL492:
		.LBE1287:
		.LBB1288:
		.LBB1289:
				li 5,256
				addi 4,1,25388
				addi 3,1,32
				bl memcpy
		.LVL493:
				addi 3,1,32
				bl _imp_printstring
		.LVL494:
		.LBE1289:
		.LBE1288:
		.LBB1290:
		.LBB1291:
				li 3,4
				lis 9,.LC32@ha
				lfd 1,.LC32@l(9)
				bl _imp_printfl
		.LVL495:
		.LBE1291:
		.LBE1290:
		.LBB1292:
  186     print fl (qc2, 4); print string (", ")
				li 5,256
				mr 4,31
				addi 3,1,25132
				bl memcpy
		.LVL496:
				li 5,256
				addi 4,1,25132
				addi 3,1,23596
				bl memcpy
		.LVL497:
				li 5,256
				addi 4,1,23596
				addi 3,1,25132
				bl memcpy
		.LVL498:
		.LBE1292:
		.LBB1293:
		.LBB1294:
				li 5,256
				addi 4,1,25132
				addi 3,1,32
				bl memcpy
		.LVL499:
				addi 3,1,32
				bl _imp_printstring
		.LVL500:
		.LBE1294:
		.LBE1293:
		.LBB1295:
		.LBB1296:
				li 3,4
				lis 9,.LC33@ha
				lfd 1,.LC33@l(9)
				bl _imp_printfl
		.LVL501:
		.LBE1296:
		.LBE1295:
		.LBB1297:
  187     print fl (qc3, 4); print string (")".snl)
				li 5,256
				mr 4,31
				addi 3,1,24876
				bl memcpy
		.LVL502:
				li 5,256
				addi 4,1,24876
				addi 3,1,23852
				bl memcpy
		.LVL503:
				li 5,256
				addi 4,1,23852
				addi 3,1,24876
				bl memcpy
		.LVL504:
		.LBE1297:
		.LBB1298:
		.LBB1299:
				li 5,256
				addi 4,1,24876
				addi 3,1,32
				bl memcpy
		.LVL505:
				addi 3,1,32
				bl _imp_printstring
		.LVL506:
		.LBE1299:
		.LBE1298:
		.LBB1300:
		.LBB1301:
				li 3,4
				fmr 1,30
				bl _imp_printfl
		.LVL507:
		.LBE1301:
		.LBE1300:
		.LBB1302:
		.LBB1303:
  188 %endofprogram
?M unused
?EVALMONO3 unused
?EVALMONO2 unused
  245 Statements compiled
				lwz 5,28(1)
				addi 4,1,24364
				addi 3,1,24620
				bl _imp_join
		.LVL508:
				li 5,256
				addi 4,1,24108
				addi 3,1,24620
				bl memcpy
		.LVL509:
		.LBE1303:
		.LBE1302:
		.LBB1304:
		.LBB1305:
				li 5,256
				addi 4,1,24620
				addi 3,1,32
				bl memcpy
		.LVL510:
				addi 3,1,32
				bl _imp_printstring
		.LVL511:
		.LBE1305:
		.LBE1304:
		.LBB1306:
		.LBB1307:
				li 3,0
				bl exit
		.LVL512:
		.LBE1307:
		.LBE1306:
		.LFE185:
				.section	.rodata
				.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
				.section	.rodata.cst8,"aM",@progbits,8
				.align 3
		.LC14:
				.long	1072693248
				.long	0
		.LC16:
				.long	0
				.long	0
		.LC18:
				.long	1073741824
				.long	0
		.LC20:
				.long	1074266112
				.long	0
		.LC22:
				.long	1075314688
				.long	0
		.LC24:
				.long	1070596096
				.long	0
		.LC26:
				.long	1075707904
				.long	0
		.LC28:
				.long	1073414144
				.long	0
		.LC30:
				.long	1080498176
				.long	0
		.LC32:
				.long	1073392298
				.long	-1431655766
		.LC33:
				.long	1074440874
				.long	-1431655766
		.LC34:
				.long	1074790400
				.long	0
		.LC36:
				.long	1076101120
				.long	0
				.section	".text"
		.Letext0: