From 5d70d8f2e4c69586d8420ed2d51b17cd9ef2f218 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Sat, 10 Mar 2018 01:17:15 +0000
Subject: Update mix/1.3.2/saddle-point.mixal.

---
 mix/1.3.2/saddle-point.mixal | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/mix/1.3.2/saddle-point.mixal b/mix/1.3.2/saddle-point.mixal
index 94b7082..d930263 100644
--- a/mix/1.3.2/saddle-point.mixal
+++ b/mix/1.3.2/saddle-point.mixal
@@ -1,5 +1,6 @@
         ORIG 2000
 START   ENTA 0 Register A tracks current row i
+        ENT2 -1
         ENT4 1008 Will contain address of element being compared against the current row min.
 RC      ENT5 4095 Contains the current row min.
         INCA 1
@@ -10,21 +11,30 @@ RC      ENT5 4095 Contains the current row min.
 2H      INC4 1
         ENT3 1 j counter
 2H      CMP5 0,4
-        JLE  4F
+        JL   4F
+        JE   3F
         LD5  0,4 load new min in row
-        ENT1 0,4 store address of min in I1
-        ENT2 0,3 store col position (j)
+3H      ENT1 0,4 store address of min in I1
+        INC2 1
+        ST3  1000,2 store col position (j)
 4H      INC4 1
         INC3 1 incr counter
         CMP3 =8=
         JLE  2B
-PCOL    ENT2 1008,2 position of first row in min col
+PCOL    LD6 1000,2 position of first row in min col
+        INC6 1008
         ENT3 1 i counter
-6H      CMP5 0,2
-        JL   RC
-        INC2 8
+6H      CMP5 0,6
+        JL   8F
+        INC6 8
         INC3 1
         CMP3 =9=
         JLE  6B
+        JMP  STOP
+8H      DEC2 1
+        J1N  RC
+        ENT1 -9,4 store address of new min in I1.
+        ENT1 0,2
+        JMP PCOL
 STOP    HLT
         END START
-- 
cgit v1.2.3