about summary refs log tree commit diff stats
path: root/edit.mu
diff options
context:
space:
mode:
Diffstat (limited to 'edit.mu')
-rw-r--r--edit.mu26
1 files changed, 13 insertions, 13 deletions
diff --git a/edit.mu b/edit.mu
index 56aee23d..87433cb2 100644
--- a/edit.mu
+++ b/edit.mu
@@ -1,19 +1,19 @@
 ; a screen is an array of pointers to lines, in turn arrays of characters
 
 (new-screen
-  ((nrows integer) <- arg)
-  ((ncols integer) <- arg)
-  ((result screen-address) <- new (screen type) (nrows integer))
-  ((result integer-address deref) <- copy (nrows integer))
-  ((rowidx integer) <- copy (0 literal))
+  ((601 integer) <- arg)
+  ((602 integer) <- arg)
+  ((603 screen-address) <- new (screen type) (601 integer))
+  ((603 integer-address deref) <- copy (601 integer))
+  ((604 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))
+    ((606 line-address-address) <- index-address (603 screen-address deref) (604 integer))
+    ((606 line-address-address deref) <- new (line type) (602 integer))
+    ((605 line-address) <- copy (606 line-address-address deref))
+    ((605 integer-address deref) <- copy (602 integer))
+    ((604 integer) <- add (604 integer) (1 literal))
+    ((607 boolean) <- neq (604 integer) (601 integer))
+    (continue-if (607 boolean))
   }
-  (reply (result screen-address))
+  (reply (603 screen-address))
 )