2 <PUT-DECL DFLOAT '<<PRIMTYPE UVECTOR> [2 FIX]>>
5 <GFCN
\1aDFLOAT ("VALUE" ANY ATOM "TUPLE" <TUPLE [REST DFLOAT]>) OPER5>
6 <MAKTUP ARGS6:TUPLE NARGS7 TEMP23 TEMP24 = ARGS6>
8 <LENUV ARGS6 = NARGS7 (TYPE FIX)>
9 <VEQUAL? OPER5 'ADD + BOOL11>
10 <VEQUAL? OPER5 'MUL + BOOL11>
11 <VEQUAL? OPER5 'SUB + BOOL11>
12 <VEQUAL? OPER5 'DIV - PHRASE10>
14 <LESS? NARGS7 2 + BOOL14 (TYPE FIX)>
15 <GRTR? NARGS7 3 - PHRASE13 (TYPE FIX)>
18 <PUSH 'WRONG-NUMBER-OF-ARGS!-ERRORS>
22 <CALL '
\1aERROR 3 = NARGS7>
26 <VEQUAL? NARGS7 2 - PHRASE19 (TYPE FIX)>
28 <NTHUV ARGS6 2 = NARGS7>
31 <NTHUV ARGS6 3 = NARGS7>
33 <VEQUAL? OPER5 'ADD - PHRASE22>
34 <NTHUV ARGS6 1 = TEMP23>
35 <NTHUV ARGS6 2 = TEMP24>
37 <DOUBLE 'ADD TEMP23 TEMP24 NARGS7>
42 <VEQUAL? OPER5 'MUL - PHRASE25>
43 <NTHUV ARGS6 1 = TEMP24>
44 <NTHUV ARGS6 2 = TEMP23>
46 <DOUBLE 'MUL TEMP24 TEMP23 NARGS7>
51 <VEQUAL? OPER5 'SUB - PHRASE26>
52 <NTHUV ARGS6 1 = TEMP23>
53 <NTHUV ARGS6 2 = TEMP24>
55 <DOUBLE 'SUB TEMP23 TEMP24 NARGS7>
60 <VEQUAL? OPER5 'DIV - PHRASE27>
62 <NTHUV ARGS6 1 = TEMP24>
63 <NTHUV ARGS6 2 = TEMP23>
65 <DOUBLE 'DIV TEMP24 TEMP23 NARGS7>
71 <VEQUAL? OPER5 'G? + BOOL29>
72 <VEQUAL? OPER5 '=? + BOOL29>
73 <VEQUAL? OPER5 'L? - PHRASE28>
75 <VEQUAL? NARGS7 2 + PHRASE31 (TYPE FIX)>
78 <PUSH 'WRONG-NUMBER-OF-ARGS!-ERRORS>
82 <CALL '
\1aERROR 3 = NARGS7>
86 <VEQUAL? OPER5 'G? - PHRASE35>
87 <NTHUV ARGS6 1 = TEMP23>
88 <NTHUV ARGS6 2 = TEMP24>
90 <DOUBLE 'G? TEMP23 TEMP24 = NARGS7>
95 <VEQUAL? OPER5 '=? - PHRASE36>
96 <NTHUV ARGS6 1 = TEMP24>
97 <NTHUV ARGS6 2 = TEMP23>
99 <DOUBLE '=? TEMP24 TEMP23 = NARGS7>
104 <VEQUAL? OPER5 'L? + TAG38>
108 <NTHUV ARGS6 1 = TEMP23>
109 <NTHUV ARGS6 2 = TEMP24>
111 <DOUBLE 'L? TEMP23 TEMP24 = NARGS7>
116 <VEQUAL? OPER5 'DOUBLE-TO-SINGLE - PHRASE39>
117 <VEQUAL? NARGS7 1 + PHRASE41 (TYPE FIX)>
120 <PUSH 'WRONG-NUMBER-OF-ARGS!-ERRORS>
124 <CALL '
\1aERROR 3 = NARGS7>
128 <NTHUV ARGS6 1 = TEMP24>
130 <DOUBLE 'DOUBLE-TO-SINGLE TEMP24 = NARGS7>
135 <VEQUAL? OPER5 'SINGLE-TO-DOUBLE + TAG47>
138 <LESS? NARGS7 1 + BOOL50 (TYPE FIX)>
139 <GRTR? NARGS7 2 - PHRASE49 (TYPE FIX)>
142 <PUSH 'WRONG-NUMBER-OF-ARGS!-ERRORS>
146 <CALL '
\1aERROR 3 = NARGS7>
150 <VEQUAL? NARGS7 2 - PHRASE56 (TYPE FIX)>
152 <NTHUV ARGS6 1 = TEMP24>
153 <NTHUV ARGS6 2 = NARGS7>
155 <DOUBLE 'SINGLE-TO-DOUBLE TEMP24 NARGS7>
160 <NTHUV ARGS6 1 = TEMP24>
162 <UUBLOCK <TYPE-CODE UVECTOR> 2 = NARGS7 (TYPE UVECTOR)>
163 <DOUBLE 'SINGLE-TO-DOUBLE TEMP24 NARGS7>