121 - finally I can alloc a 2D array

1 files changed, 11 insertions, 9 deletions

diff --git a/edit.mu b/edit.mu
index ac71f748..05ada379 100644
--- a/edit.mu
+++ b/edit.mu
@@ -22,13 +22,15 @@
   ((ncols integer) <- arg)
   ((result screen-address) <- new (screen type) (nrows integer))
   ((result integer-address deref) <- copy (nrows integer))
-  ((rowidx integer) <- literal 0)
-  ((foo integer) <- literal 1000)
-  ((curr-dest line-address-address) <- index (foo screen-address deref) (rowidx integer))
-;?   ((curr-dest line-address-address) <- index-address (result screen-address) (rowidx integer))
-;?   ((curr-dest line-address deref)
+  ((rowidx integer) <- copy (0 literal))
+  { begin
+    ((curr-line-address-address line-address-address) <- index-address (result screen-address deref) (rowidx integer))
+    ((curr-line-address-address line-address-address deref) <- new (line type) (ncols integer))
+    ((curr-line-address line-address) <- copy (curr-line-address-address line-address-address deref))
+    ((curr-line-address integer-address deref) <- copy (ncols integer))
+    ((rowidx integer) <- add (rowidx integer) (1 literal))
+    ((x boolean) <- neq (rowidx integer) (nrows integer))
+    (continueif (x boolean))
+  }
+  (reply (result screen-address))
 )
-
-;? (redraw
-;?   (
-;? )