FUNCTION: findfloat, $98
FUNCTION: checkextension, $99
-; constants test
-VECTOR: dude1, -1, +2, 38865.444
-FUNCTION: foo #8
- MUL_F dude1, dude1, dude1
- CALL1 print, dude1
+FUNCTION: test #0
+ FLOAT: x, 100
+ FLOAT: y, 200
+ FLOAT: r_mul
+ FLOAT: r_div
+ FLOAT: r_add
+ FLOAT: r_sub
+
+ MUL_V x,y,r_mul
+ DIV_V x,y,r_div
+ ADD_V x,y,r_add
+ SUV_V x,y,r_sub
+
+ STORE_V r_mul
+ CALL0 dprint
+
+ STORE_V
+END