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