+/*
+ * z_read_mouse, write the current mouse status into a table.
+ *
+ * zargs[0] = address of table
+ *
+ */
+
+void z_read_mouse (void)
+{
+ zword btn;
+
+ /* Read the mouse position, the last menu click
+ and which buttons are down */
+
+ btn = os_read_mouse ();
+ hx_mouse_y = mouse_y;
+ hx_mouse_x = mouse_x;
+
+ storew ((zword) (zargs[0] + 0), hx_mouse_y);
+ storew ((zword) (zargs[0] + 2), hx_mouse_x);
+ storew ((zword) (zargs[0] + 4), btn); /* mouse button bits */
+ storew ((zword) (zargs[0] + 6), menu_selected); /* menu selection */
+
+}/* z_read_mouse */